// Original File CN_BACKGROUND_2018.TS (compiled for TWX 2.04) // Brought to you by Shadow's CTS Decompiler 2.0 systemscript :CHECK4SCRIPTRUNNING setvar $SCRIPT_NAME "CN_BackGround." listactivescripts $SCRIPTS setvar $COUNT 1 setvar $INSTANCES 0 uppercase $SCRIPT_NAME :1 if ($COUNT <= $SCRIPTS) uppercase $SCRIPTS[$COUNT] getwordpos $SCRIPTS[$COUNT] $POS $SCRIPT_NAME if ($POS > 0) setvar $INSTANCES ($INSTANCES + 1) end setvar $COUNT ($COUNT + 1) goto :1 end if ($INSTANCES > 0) setvar $ISRUNNING TRUE goto :6 end setvar $ISRUNNING FALSE :6 if ($INSTANCES > 1) halt end setarray $SCRIPTS 0 if ($ISRUNNING = TRUE) setvar $IFRUNNING "Is " goto :10 end setvar $IFRUNNING "Is Not " :10 :TOP loadvar $ANIM loadvar $ANSI loadvar $FEDCOM loadvar $PRIVCOM loadvar $SILENCEMES loadvar $ABORTDISPLAY loadvar $MESSAGMODE loadvar $SCREENPAUSE loadvar $AUTOFLEE loadvar $SECAUTORETURN killalltriggers settextlinetrigger AC1 :AC1 "(1) ANSI graphics" settextlinetrigger AC2 :AC2 "(2) Animation display" settextlinetrigger AC3 :AC3 "(5) Federation comm-link" settextlinetrigger AC4 :AC4 "(6) Receive private hails" settextlinetrigger AC5 :AC5 "(7) Silence ALL messages" settextlinetrigger AC6 :AC6 "(9) Abort display on keys" settextlinetrigger AC7 :AC7 "(A) Message Display Mode" settextlinetrigger AC8 :AC8 "(B) Screen Pauses" settextlinetrigger AC9 :AC9 "(C) Online Auto Flee" settextlinetrigger AC10 :AC10 "(E) Sector Autoreturn" settextlinetrigger LANDED :LANDED "in sector" pause :AC1 getword CURRENTLINE $ANIM 5 pause :AC2 getword CURRENTLINE $ANSI 5 pause :AC3 getword CURRENTLINE $FEDCOM 5 pause :AC4 getword CURRENTLINE $PRIVCOM 6 pause :AC5 getword CURRENTLINE $SILENCEMES 6 pause :AC6 getword CURRENTLINE $ABORTDISPLAY 7 pause :AC7 getword CURRENTLINE $MESSAGMODE 6 pause :AC8 getword CURRENTLINE $SCREENPAUSE 5 pause :AC9 getword CURRENTLINE $AUTOFLEE 6 pause :AC10 getword CURRENTLINE $SECAUTORETURN 5 savevar $ANIM savevar $ANSI savevar $FEDCOM savevar $PRIVCOM savevar $SILENCEMES savevar $ABORTDISPLAY savevar $MESSAGMODE savevar $SCREENPAUSE savevar $AUTOFLEE savevar $SECAUTORETURN goto :TOP :LANDED getwordpos CURRENTLINE $TEXTPOS "in sector" if ($TEXTPOS > 15) goto :TOP end getword CURRENTLINE $PLANET 2 striptext $PLANET "#" isnumber $YN $PLANET if ($YN = 0) goto :TOP goto :14 end if ($YN = 1) savevar $PLANET end :14 goto :TOP