PalaceChat RBScript Compendium

Script Name:	Scramble Suit
Author:	..OddGosling.. & Janus.pchat
Sections:	OUTCHAT
An animated script that portrays a "scramble suit" from the movie A Scanner Darkly.
	if chatstr="scramblesuit" then
	        if globalvar("scramblesuitswitch") then
	            globalvar("scramblesuitswitch") = false
	        else
	            Dim ss as string = "Dim ss() as string = array('1489813975 1411769784 -899357081 1665268491 -976948555 1420394653', '-895538869 1973325404 -1686963744 -982239172 790152512 499477770', '1261689450 1322369162 20953260 347495028 270919689 -806370143', '-1807739214 630433841 -185934298 167348714 287116359 -1102148251', '402367522 -1505903817 750056801 1553189772 -475569135 -1450476636 -1916481964 1893178463 437269470', '1093589327 -113845710 1610264378 -1006987481 636446066 1040806788', '970819824 1703801597 576697488 2055164707 -87817389 196699778', '-1283006808 -1366062616 -1451202621 1464543885 -1092943870 -297763942', '-1058543745 1530909076 -1799286142 -893837935 2044623902 -148614435', '1305030214 -458021640 -527955465 2028953616 772342722 1094455240', '285712812 1118577309 342406257 1929169190 -1473528738 366321965', '-267398226 2083509745 -1788156156 19451377 -2015932267 529655134', '339044725 2053556807 -1430444375 -1174404626 -2103432842 1823346923', '-1496574761 1934772998 -559863542 1838687482 1517884287 -838998696', '465230572 -1722248954 -1147784950 -996223193 -39705910 359927952', '-84788708 -1668136698 1525421865 170841108 903556901 -1547525781', '1922866874 -504517938 230018 -146816801 1242244088 2106366513', '1248008293 -56478447 355508440 563258468 -722332138 1875277655', '1348278699 -211985613 1706913642 -1355512945 -1154785178 1936485741', '1796539451 1619752331 -298137938 -2093899888 -1921908591 296425053', '-1740243176 589776430 -330968730 -1046378759 1293246811 1222938434', '777856383 -515479370 458546636 -342292288 -790406327 -1126135042', '-763489797 -1449284613 -1405585771 167467950 -1415754424 201676864', '-2051636006 -914298978 996355516 -607084056 -705314141 -1514776487', '-1654161918 -1726215880 -1753331707 -1590687132 -776019506 1732689555', '1426194827 817928151 1160278498 -874043364 -609197606 1318612611', '-538630714 760957422 -1583122636 -957445162 592094897 -1308106122', '1245477634 1968477116 -1493041587 -294350131 1637850612 -2097042880', '131502768 -417301188 -146027742 -481659969 -954030838 -170186637', '609489645 -1168287635 678652902 1021365083 -1102023066 954119384', '1608929614 -97403326 -1364528818 -521235445 -1077280172 1488635266', '1095901809 -658131804 -1031624970 -1729532998 1029233900 351326484', '1095901826 -658131883 -1031625216 -1729533110 1029233692 351326692', '1606533242 502530948 -711184943 -832766501 -969397921 -702939568', '2136279723 -1957727264 1128876838 -549852691 1187408269 -887935980', '362683446 -752908598 -147718102 909999951 1647118711 919325412', '-1914290164 959071581 -618264480 -2048772080 -1112399090 1536444652', '-1137493407 -851307795 1700751047 -194523772 -564581049 157435755', '-228433982 -128250627 401116587 -803227324 150565620 248430122', '534681101 -1617675527 1089633466 747526771 1657005895 -1442536103', '1453587232 -1621065006 -1989395610 2140617073 1812872014 -374918571', '-1330492308 1429641253 1693892130 1000824290 1729454917 1655091951', '-1330492308 1429641253 1693892130 1000824290 1729454917 1655091951', '1191468104 99825631 1660350826 1054607016 -1356097702 -1003264660', '-1209022728 508177486 -1959441898 1733397996 -1386964161 -371024278', '1400964473 -1436466756 -1495236407 -1983603690 1973274819 856887974', '891590532 823707322 -710766740 -1436910130 -1923806477 581878173', '516527513 -770997433 969052596 -2095446959 379237752 -472054191', '-1588794918 -899446026 -830701202 -1440938153 1661454225 -359014636', '-1381976119 1498307211 -775636455 -1859303386 -652115049 1480307628', '891589642 823706932 -710767390 -1436910012 -1923806855 581878294', '516527643 -770998075 969052725 -2095446065 379238119 -472054320', '777911262 1131977286 2088321833 142795243 542814083 -2137708334', '-1637099585 -1045160702 1481591880 -159246744 -972415365 1530851056', '-1433033657 1837906826 -1546400419 1240553327 1431176049 -1165850435', '-238427889 -235721022 -756558385 11416495 -1128224838 -223502980', '-1185971587 -157044590 -1808011182 154376744 -609775191 1414292801', '-259796187 -847466567 17921363 911111091 1529047876 -1287343583', '122529862 118575043 -1021463226 666864810 -1355012517 1531102245', '-66242239 827817330 -1456636483 -2088573188 62015560 -1656610675', '-1586433160 -884820682 -423843284 -1896729148 808228728 1880203239', '1334115078 2065099132 1107675956 -1714135603 1886392972 614911350', '-1491335414 -559236576 174813366 -1847429091 -290316402 999635995', '-963835374 929554026 2118186431 185962227 465339054 -142627282', '1625127299 1015121458 -613261842 -899506869 -1196279982 919305360', '2051676932 -548812803 2003122918 -507224096 -1963171049 -863905409', '-1302011457 -1383202813 -25571929 937951423 2019936793 2008948157', '-2020831120 1977607060 -343167308 406294762 187002580 1098544941', '296523694 2120705078 -32417277 1906330037 1469417968 1291671876', '1701177756 1141658765 -482585467 -512788269 2107313437 -250904839', '2041373654 -392735857 -1798955231 -2122689806 -1236557233 -1201080319', '-113795542 -1227069323 1093984206 -198377800 1196983919 65449566', '1910869407 1635978913 52487424 -1864531 22490864 1971180817', '1028970892 1291528571 -1474509777 -956883134 772883145 1743039445', '597675837 -1484454198 -352615377 -15128725 -400756948 -301465647', '-1979991461 339414399 1341278661 198307171 385906045 473354864', '-1401798695 -1009294049 383791336 -1885053599 986966608 1402638941', '-16429704 -323948416 -1119707056 -1859105050 1523846810 434575464', '213109192 -296961479 127111950 2135203846 -178744877 1533490927', '551143756 -834484514 -1018684007 668290258 96351611 1950835056', '1756751249 2000164498 2135340309 1007165788 -285244229 266546423', '-1619615746 1194377000 2145105742 -1050043429 -410094227 107815609', '1916178904 -1176345495 -948383805 -1096791531 1704748306 -807412533', '-34512829 -285650223 -797760261 -1484581237 1045944409 -1541162352', '-417505362 1301396441 994050514 -2039539228 -1196336754 1854267236', '-61453293 -2034326305 -192766307 -1985797356 793461661 -1127695814', '-41970361 -888487970 1122845818 1108347484 2079882721 754325661', '222732667 -893673492 2004634089 941796552 -1399379320 -543049167', '1187084469 431050439 -1529533904 1408560549 -2012859913 1174108081', '-1688705018 1536129953 74293521 -1868493864 1222294184 2026747216', '-2079452551 1317580206 703397258 -1545271198 -1127971224 1829925471', '-359957301 -709475757 -2072624461 -1982607239 1527799554 -651186326', '329341303 -1795317561 -66200056 -1193235522 -1455720904 1295284712', '222732339 -893673820 2004633760 941796743 -1399379008 -543048840', '-1688704610 1536129590 74293433 -1868494224 1222294275 2026747128', '-217837192 -403917271 -239464332 822874013 -524463973 -1308601646', '-972722845 -2057580112 -60283849 -273319829 705384205 1710478356', '768341595 354942024 1260140416 -2020542782 -660389630 -1406050345', '1525875114 1669871378 -2092703711 1669612269 -2077635545 -2009038412', '-1583401624 723249184 2115146085 -1532872501 832519662 -414372707', '1246552344 1446202374 684986307 -1967489314 2124256155 -2084242587', '-309753174 -676743891 -964139241 -36013541 582990139 2143668293', '1659652020 861562189 1580864690 2144681827 -1044989772 -412165674', '1489924987 812156186 -1245645199 827650277 -98549856 -1581687764', '-616007138 -432960735 327752693 -401755567 -1962591400 -1998587933', '-1160005827 1289811185 858664298 1980428462 1008909730 1908432909', '-1094793394 656703408 993824585 -1308300769 -842189855 2064345309', '-552661335 -2022551071 -1364340515 1182801966 1769490470 404273072', '-511684193 42670082 632891920 -754483939 1781974629 1293429332', '-1584651714 529585748 -1284028147 1097112051 259599835 240723441', '-387685026 -646878803 614172196 -206526003 -919919201 208652114', '239149313 -1857417108 1322821825 -348952708 -1804085761 -1598075374', '933599003 1586709636 2098739765 -653221060 -1531218232 603478760', '2096827237 362483221 474354960 -1947887953 974894150 -1265351926', '-1238046371 -721005162 375784510 -450418894 -1755857531 1358375880', '989242953 399230080 -2002669560 141700966 -1172820366 -291529725', '1489818268 1411774196 -899353302 1665263680 -976952833 1420399576')\nif globalvar('scramblesuitswitch') then\nglobalvar('scramblesuitindex') = globalvar('scramblesuitindex') + 1\nif globalvar('scramblesuitindex') > ubound(ss) then\nglobalvar('scramblesuitindex') = 0\nend if\nsetprops ss(globalvar('scramblesuitindex'))\nstralarmexec globalvar('scramblesuitdelay'),globalvar('scramblesuitatom')\nend if"
	            ss = ss.replaceAll("\n", chr(10)).replaceAll("'", chr(34))

	            globalvar("scramblesuitindex") = 0
	            globalvar("scramblesuitdelay") = 1200
	            globalvar("scramblesuitswitch") = true
	            globalvar("scramblesuitatom") = ss

	            strexec ss
	        end if
	        chatstr=""
	    end if