ROOM ID 69137 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "Refresh Bot Start Room" PICT "cowspots.gif" PICTURE ID 1 NAME "n0.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "n1.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "n2.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "n4.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "n5.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "n6.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "n7.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "n8.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "n9.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 10 NAME "n3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "prpcontrol.gif" ENDPICTURE DOOR ID 3 DONTMOVEHERE OUTLINE 193,326 318,326 318,351 193,351 LOC 255,338 PICTS 12,1,-17 ENDPICTS SCRIPT ;Prop Generator by Hex - http://members.home.com/hex.is/hss/ ON SELECT { pn GLOBAL -1 pn = 0 5 SETSPOTSTATELOCAL 0 6 SETSPOTSTATELOCAL NAKED "POP" SOUND "Props Reset" LOCALMSG } ON ENTER { getPrp GLOBAL pn GLOBAL -1 pn = 0 5 SETSPOTSTATELOCAL 0 6 SETSPOTSTATELOCAL NAKED { [ [ 880139072 880139438 880139345 880139602 880139320 880139737 880139817 880139876 880140028 ] [ -1279991529 -1279991300 -1279992557 -1279991184 -1279989636 ] [ -1275127338 ] [ -1313418075 -1313418104 -1313418149 -1313418186 ] [ -1360247389 -1360247494 -1360247746 -1360247825 -1360247897 -1360247947 -1360248134 -1360248218 -1360248023 ] ] allProps = allProps LENGTH 1 - apl = pn f = { 0 f = } pn apl > IF { apl f = } pn 0 < IF f pn = allProps pn GET SETPROPS pn 1 + c2 = 0 c1 = { c2 10 - c2 = c1 ++ } { c2 9 > } WHILE c1 5 SETSPOTSTATELOCAL c2 6 SETSPOTSTATELOCAL } getPrp DEF } ENDSCRIPT ENDDOOR DOOR ID 1 DONTMOVEHERE OUTLINE 193,291 222,291 222,320 193,320 LOC 207,305 SCRIPT ON SELECT { pn GLOBAL getPrp GLOBAL pn -- getPrp EXEC } ENDSCRIPT ENDDOOR DOOR ID 2 DONTMOVEHERE OUTLINE 289,291 318,291 318,320 289,320 LOC 303,305 SCRIPT ON SELECT { pn GLOBAL getPrp GLOBAL pn ++ getPrp EXEC } ENDSCRIPT ENDDOOR SPOT ID 5 OUTLINE 233,293 256,293 256,319 233,319 LOC 244,306 PICTS 1,0,0 2,0,0 3,0,0 10,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 ENDPICTS SCRIPT ;Refresh Bot by Hex - web2.airmail.net/hex0/hss/ ;Based on CoolShade's refresh bot. ON OUTCHAT { rooms GLOBAL rmC GLOBAL cSpd GLOBAL roomSet GLOBAL refin GLOBAL pn GLOBAL ; Specify the Room ID's of all your prop rooms here, the start room's id goes last { [ 136 137 ] rooms = } roomSet DEF { 0 rmC = 1 refin = 60 cSpd = -1 pn = 0 5 SETSPOTSTATELOCAL 0 6 SETSPOTSTATELOCAL NAKED 5 ME SETALARM "Freshen Bot Activated" LOCALMSG "" CHATSTR = } CHATSTR "freshen" == ISWIZARD AND IF } ON ALARM { roomSet GLOBAL refin GLOBAL apl GLOBAL rooms GLOBAL pn GLOBAL cSpd GLOBAL rmC GLOBAL { { pn GLOBAL getPrp GLOBAL apl GLOBAL roomSet GLOBAL rmC GLOBAL pn ++ getPrp EXEC 5 ME SETALARM { roomSet EXEC rooms rmC GET GOTOROOM } pn apl == IF } cSpd ALARMEXEC } 1 refin == IF } ON ENTER { refin GLOBAL { 0 refin = "Freshen Bot Deactivated" LOCALMSG } 1 refin == IF } ENDSCRIPT ENDSPOT SPOT ID 6 OUTLINE 259,294 279,294 279,319 259,319 LOC 269,306 PICTS 1,0,0 2,0,0 3,0,0 10,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 ENDPICTS ENDSPOT ENDROOM ROOM ID 69136 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "PropGen w/ Refresh Bot [Duplicate Me]" PICT "cowspots.gif" PICTURE ID 1 NAME "n0.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "n1.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "n2.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "n4.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "n5.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "n6.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "n7.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "n8.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "n9.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 10 NAME "n3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "prpcontrol.gif" ENDPICTURE DOOR ID 1 DONTMOVEHERE OUTLINE 193,291 222,291 222,320 193,320 LOC 207,305 SCRIPT ON SELECT { pn GLOBAL getPrp GLOBAL pn -- getPrp EXEC } ENDSCRIPT ENDDOOR DOOR ID 2 DONTMOVEHERE OUTLINE 289,291 318,291 318,320 289,320 LOC 303,305 SCRIPT ON SELECT { pn GLOBAL getPrp GLOBAL pn ++ getPrp EXEC } ENDSCRIPT ENDDOOR DOOR ID 3 DONTMOVEHERE OUTLINE 193,326 318,326 318,351 193,351 LOC 255,338 PICTS 12,1,-17 ENDPICTS SCRIPT ;Prop Generator by Hex - web2.airmail.net/hex0/hss/ ON SELECT { pn GLOBAL -1 pn = 0 5 SETSPOTSTATELOCAL 0 6 SETSPOTSTATELOCAL NAKED "POP" SOUND "Props Reset" LOCALMSG } ON ENTER { getPrp GLOBAL pn GLOBAL -1 pn = 0 5 SETSPOTSTATELOCAL 0 6 SETSPOTSTATELOCAL NAKED { [ [ 880139072 880139438 880139345 880139602 880139320 880139737 880139817 880139876 880140028 ] [ -1279991529 -1279991300 -1279992557 -1279991184 -1279989636 ] [ -1275127338 ] [ -1313418075 -1313418104 -1313418149 -1313418186 ] [ -1360247389 -1360247494 -1360247746 -1360247825 -1360247897 -1360247947 -1360248134 -1360248218 -1360248023 ] ] allProps = allProps LENGTH 1 - apl = pn f = { 0 f = } pn apl > IF { apl f = } pn 0 < IF f pn = allProps pn GET SETPROPS pn 1 + c2 = 0 c1 = { c2 10 -= c1 ++ } { c2 9 > } WHILE c1 5 SETSPOTSTATELOCAL c2 6 SETSPOTSTATELOCAL } getPrp DEF } ENDSCRIPT ENDDOOR SPOT ID 6 OUTLINE 259,294 279,294 279,319 259,319 LOC 269,306 PICTS 1,0,0 2,0,0 3,0,0 10,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 ENDPICTS ENDSPOT SPOT ID 5 OUTLINE 233,293 256,293 256,319 233,319 LOC 244,306 PICTS 1,0,0 2,0,0 3,0,0 10,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 ENDPICTS SCRIPT ;Refresh Bot by Hex - web2.airmail.net/hex0/hss/ ;Based on CoolShade's refresh bot. ON ENTER { refin GLOBAL rmC GLOBAL { rmC ++ 30 ME SETALARM } refin IF } ON ALARM { roomSet GLOBAL refin GLOBAL apl GLOBAL rooms GLOBAL pn GLOBAL cSpd GLOBAL rmC GLOBAL { { pn GLOBAL getPrp GLOBAL apl GLOBAL roomSet GLOBAL rooms GLOBAL rmC GLOBAL pn ++ getPrp EXEC 5 ME SETALARM { roomSet EXEC rooms rmC GET GOTOROOM } pn apl == IF } cSpd ALARMEXEC } 1 refin == IF } ENDSCRIPT ENDSPOT ENDROOM