// Original File 0_LOGIN.TS (compiled for TWX 2.04) // Brought to you by Shadow's CTS Decompiler 2.0 systemscript setvar $SETYEAR 2025 setvar $SETMONTH 12 setvar $SETDAY 31 gettime $DAY "d" gettime $MONTH "m" gettime $YEAR "yyyy" setvar $TEST 1 if ($SETYEAR >= $YEAR) if ($SETMONTH >= $MONTH) if ($SETDAY = $DAY) setvar $TEST 2 goto :DATETEST end end if ($SETMONTH > $MONTH) and ($SETYEAR >= $YEAR) if ($SETDAY < $DAY) setvar $TEST 3 goto :DATETEST end end if ($SETDAY >= $DAY) if ($SETMONTH >= $MONTH) setvar $TEST 4 goto :DATETEST end end if ($SETMONTH <= $MONTH) and ($SETYEAR > $YEAR) if ($SETDAY <= $DAY) setvar $TEST 5 goto :DATETEST end end if ($SETMONTH < $MONTH) and ($SETYEAR > $YEAR) setvar $TEST 6 goto :DATETEST end end sound "FAILED" disconnect halt :DATETEST gosub :SCRIPTCHECK setvar $VERSION "3.60" setvar $MODDATE "01-28-2019" setvar $GAME GAME uppercase $GAME setvar $CONFIGGAME "data\" & GAMENAME & ".cfg" setvar $GAMESTATS GAMENAME & "-" & $GAME & "-Stats.txt" setvar $LSDSTATS GAMENAME & "-" & $GAME & "-LSDStats.txt" loadvar $GETMESTATSNOW gosub :INITSTARTUP gosub :GLOBALS seteventtrigger LOSTCONNECTION :LOST "Connection lost" seteventtrigger LOSTCONNECT :LOST "Disconnecting from server..." settexttrigger CONX :CON "Please enter your name" settextlinetrigger TYPE1 :TYPE1 "Server v1." settextlinetrigger TYPE2 :TYPE2 "TWGS v2." pause :TYPE1 setvar $TYPE "v1" setvar $SERVERTYPE $TYPE pause :TYPE2 setvar $TYPE "v2" setvar $SERVERTYPE $TYPE pause :PRIVATE killalltriggers settextlinetrigger GOODPW :GOODPW " module now loading." settexttrigger NOGOODPW :NOGOODPW "Invalid password!" send $PRIVATEPW & "*" pause :NOGOODPW send "q" halt :CON loadvar $LOGINNAME if ($LOGINNAME = 0) send "" & LOGINNAME & "*" setvar $LOGINNAME LOGINNAME goto :22 end send "" & $LOGINNAME & "*" :22 killtrigger "GOODPW" settexttrigger GOODPW :GOODPW " module now loading." if ($WHOS_ONLINE = "Y") send "#" settexttrigger WAITON1 :WAITON1 "Players Online" pause :WAITON1 end if ($WHOS_ONLINE = "Y") and ($HIGHSCORES = "N") if ($STOPATTMENU = "N") if ($WANTSTATS = "N") and ($EXITSERVER = "Y") killalltriggers settexttrigger GET_OUT1 :GET_USOUT "Enter your choice:" setdelaytrigger GET_OUT2 :GET_USOUT 1000 pause :GET_USOUT killalltriggers disconnect setdelaytrigger XITOUT :XITUSOUT 2000 pause :XITUSOUT halt end end end settexttrigger PRIVATE :PRIVATE "This is a private game. Please enter a password:" setdelaytrigger NOGAMEHERE :NOGAMEHERE 20000 send GAME pause pause :GOODPW setdelaytrigger PPX :PPX 800 pause :PPX send "*" settexttrigger WAITON2 :WAITON2 "Enter your choice:" pause :WAITON2 killtrigger "GOODPW" killtrigger "NOGOODPW" killtrigger "NOGAMEHERE" killtrigger "PRIVATE" if ($LPORTOVERRIDE <> "Y") loadvar $LISTENPORT getmenuvalue "TWX_LISTENPORT" $VAL if ($LISTENPORT < 1) getmenuvalue "TWX_LISTENPORT" $VAL setvar $LISTENPORT $VAL goto :LPORT end if ($LISTENPORT = $VAL) goto :36 end killalltriggers sound "FAILED" disconnect echo ANSI_10 "*TWX_LISTENPORT Should be : " & ANSI_14 $LISTENPORT "*" halt :36 end :LPORT fileexists $YNFILE $GAMESTATS if ($WANTSTATS = "N") and ($EXITSERVER = "Y") goto :38 end if ($GETMESTATSNOW = 1) or ($WANTSTATS = "Y") or ($YNFILE <> 1) gosub :GETMESTATSNOW end loadvar $CONFIGFOUND if ($CONFIGFOUND) goto :42 end :GETMESTATSNOW delete $GAMESTATS gosub :_GAMESTATS~GAMESTATS if ($LPORTOVERRIDE <> "Y") savevar $LISTENPORT end savevar $LOGINNAME setvar $MAX_CORPIES $_GAMESTATS~MAX_CORPIES setvar $STEAL_FACTOR $_GAMESTATS~STEAL_FACTOR setvar $STEAL_DIVISOR $_GAMESTATS~STEAL_DIVISOR setvar $ROB_FACTOR $_GAMESTATS~ROB_FACTOR setvar $ROB_MULTIPLIER $_GAMESTATS~ROB_MULTIPLIER setvar $PTRADESETTING $_GAMESTATS~PTRADESETTING setvar $_CK_PTRADESETTING $_GAMESTATS~_CK_PTRADESETTING setvar $PORT_MAX $_GAMESTATS~PORT_MAX setvar $PRODUCTIONRATE $_GAMESTATS~PRODUCTIONRATE setvar $MAXPRODREGEN $_GAMESTATS~MAXPRODREGEN setvar $MBBS $_GAMESTATS~MBBS setvar $MEGABUG $_GAMESTATS~MEGABUG setvar $BUSTCLEAR $_GAMESTATS~BUSTCLEAR setvar $MAKEBWARP $_GAMESTATS~MAKEBWARP setvar $UPBWARP $_GAMESTATS~UPBWARP savevar $STEAL_FACTOR savevar $STEAL_DIVISOR savevar $ROB_FACTOR savevar $ROB_MULTIPLIER savevar $PTRADESETTING savevar $_CK_PTRADESETTING savevar $MAX_CORPIES savevar $PORT_MAX savevar $PRODUCTIONRATE savevar $MAXPRODREGEN savevar $MBBS savevar $MEGABUG savevar $BUSTCLEAR savevar $MAKEBWARP savevar $UPBWARP setvar $STATSRUN $_GAMESTATS~STATSRUN savevar $STATSRUN savevar $SERVERTYPE setvar $CONFIGFOUND TRUE savevar $CONFIGFOUND setvar $CKOPTOUTCNSETTINGS "Y" setvar $CKSURROUNDFIGTYPE "D" setvar $CKSURROUNDFIGAMOUNT 1 setvar $CKSURROUNDARMIDAMOUNT 0 setvar $CKSURROUNDLIMPETAMOUNT 0 setvar $CKSHIPCAPAUTOLOAD "nowhere" setvar $BOT_TURN_LIMIT 15 setvar $USER_COMMAND_LINE "0 0 0 0 0 0 0 0 0 0 0 0 0" savevar $CKOPTOUTCNSETTINGS savevar $CKSURROUNDFIGTYPE savevar $CKSURROUNDFIGAMOUNT savevar $CKSURROUNDARMIDAMOUNT savevar $CKSURROUNDLIMPETAMOUNT savevar $CKSHIPCAPAUTOLOAD savevar $BOT_TURN_LIMIT savevar $USER_COMMAND_LINE gosub :LSD_STATS if ($GETMESTATSNOW = 1) setvar $GETMESTATSNOW 0 return end :42 :38 loadvar $BOT_NAME loadvar $STATSRUN loadvar $ACCESSMODE :MENULOOP if ($ACCESSMODE = 1) setvar $ACCESSMODE 0 fileexists $FILEEXIST "scripts\_timerEntry.ts" fileexists $FILEEXIST2 "scripts\_timerEntry.cts" if ($FILEEXIST = TRUE) or ($FILEEXIST2 = TRUE) load "_timerEntry" end halt end echo "**" & ANSI_12 " ®®®" ANSI_10 "µ" ANSI_10 " Team Kraaken " ANSI_9 " Login " $VERSION " " ANSI_10 "Æ" ANSI_12 "¯¯¯" echo "*" & ANSI_7 " Made By :" & ANSI_14 & " Vid Kid/CareTaker*" echo "*" & ANSI_10 " Last Modified : " ANSI_13 $MODDATE echo "*" & ANSI_10 " Starting Point: " ANSI_13 "OffLine**" setvar $LOGFILE1 "scripts\CN_BackGround.cts" fileexists $TESTCN $LOGFILE1 if ($TESTCN = TRUE) gosub :SCRIPTCHECK if ($CN_BACKGROUND_RUNNING = 0) load "CN_BACKGROUND" end end setvar $LOGONFILE1 "scripts/_vid_fighits.cts" fileexists $TEST1 $LOGONFILE1 if ($TEST1 = TRUE) gosub :SCRIPTCHECK if ($FIGHITSRUNNING = 0) load "_VID_FIGHITS" end end if ($HIGHSCORES = "Y") echo "*" send "h**" end if ($EXITSERVER = "Y") killalltriggers send "*" settexttrigger ENDOUT :XITOUT "Enter your choice:" setdelaytrigger XITOUT2 :XITOUT 10000 pause :XITOUT killalltriggers disconnect setdelaytrigger XOUT :XOUT 2000 pause :XOUT halt end if ($STOPATTMENU = "Y") echo "*" send "h**" :DOUBLEBACK killalltriggers echo #27 & "[1A" & #27 & "[K*" send #145 echo #27 & "[19C" setdelaytrigger DOUBLEBACK :DOUBLEBACK 8000 settextlinetrigger DOWNTIME :DOWNTIME "elp)" seteventtrigger LOSTCONNECTION :LOST "Connection lost" pause end setvar $LOGONFILE5 "scripts/K_BackGround.cts" fileexists $TEST5 $LOGONFILE5 if ($TEST5 = TRUE) gosub :SCRIPTCHECK if ($ONLINE_TEST = 0) load "K_BACKGROUND" end end setvar $LOGONFILE10 "scripts/_vid_mom_overdrive.cts" fileexists $TEST10 $LOGONFILE10 if ($TEST10 = TRUE) gosub :SCRIPTCHECK if ($ONLINE_TEST10 = 0) load "_VID_MOM_OVERDRIVE" end end :TOPPER killalltriggers setvar $PLACE1 ":Top Triggers" settexttrigger FIGPRMT :FIGPRMT "You have to destroy" settexttrigger MINES :MINES "Mined Sector:" settexttrigger COMMANDPRMT :COMMANDPRMT "] (?=Help)? " settexttrigger ONPLANET :ONPLANET "Planet command (?=help)" settexttrigger NAVPOINT :NAVPOINT "NavPoint Settings (?=Help) [Q] :" settextlinetrigger COPY :COPY "This copy of TW2002 " settextlinetrigger INIT :INIT "Initializing..." seteventtrigger CANCELED :LOST "Connect cancelled" seteventtrigger LOST :LOST "Connection lost" settexttrigger ONLYONE :ONLYONE "Only one connection is allowed" settextlinetrigger FULL :FULL "I'm sorry but the game is full." settextlinetrigger BANNED1 :BANNED1 "Access denied!" settexttrigger CLOSEDGAME :NOGO "this is a closed game." settexttrigger CONX :CONX "Please enter your name" settexttrigger DUPENAME :DUPENAME "Sorry, you cannot use the name" settextlinetrigger TWPASSWORD :TWPASSWORD "TradeWars Passport" settextlinetrigger NEWPLAYERENTERS :OPENGAME "You were not found in the player database." settextlinetrigger NEWPLAYERENTERSPW :OPENGAMEPW "Please enter a password for this game account." settexttrigger FIRSTNOPASSWORDPLAYERA :FIRSTTIMEINPAUSED "Great! You're on your way to becoming a Galactic Power!" settexttrigger GETPASSWORD :GETFIRSTPASSWORD "A password is required" settextlinetrigger REPEATW :REPEATPW "Repeat password" settexttrigger BANDED2 :BANDED1 "Invalid password." settextlinetrigger NEWPLAYERA :NEWPLAYERA "would you rather use your BBS name of " settexttrigger NEWSHIP :SHIP "What do you want to name your ship?" settexttrigger NEWPLANET :NEWPLANET "What do you want to name your home planet?" settexttrigger ENTRYPOINT :ENTRYPOINT "Show today's log?" settextlinetrigger CHECKMESSAGES :CHECKMESSAGES "Searching for messages received since your last time on:" settextlinetrigger NOMESSAGES :NOMESSAGES "No messages received." settextlinetrigger NAVPROMPT1 :NAVPROMPT1 "No Sectors are currently being avoided." settexttrigger AVOIDCLEAR :CLRAVOIDS "Do you wish to clear some avoids? (Y/N) [N]" setdelaytrigger HOLDIN :LOST 1999850 if ($TWPASS <> 1) send "t*" end pause :COPY setdelaytrigger COPY2 :COPY2 1000 pause :COPY2 send "*" pause :TWPASSWORD killalltriggers settexttrigger WAITON3 :WAITON3 "TW Passport>" pause :WAITON3 setvar $TWPASS 1 send "v" settexttrigger WAITON4 :WAITON4 "What is your TW Passport ID (TWPID)?" pause :WAITON4 send $TWPASSPORT & "*" sound "CASH_REGISTER" settexttrigger WAITON5 :WAITON5 "Your TW Passport validation has been accepted!" pause :WAITON5 settexttrigger WAITON6 :WAITON6 "Please enter a password for this game account." pause :WAITON6 setvar $PLACE23 ":TWPassword" send PASSWORD & "*" goto :TOPPER pause :ENTRYPOINT if ($READDAILIES = "Y") send "y" settexttrigger WAITON7 :WAITON7 "Include time/date stamp? (Y/N)" pause :WAITON7 if ($ACCESSMODE = 1) settexttrigger TMENU :TMENU2 "Enter your choice:" end settexttrigger ENTRYPOINT_LOOP :ENTRYPOINT_LOOP "[Pause]" send "y" setvar $PLACE ":EntryPoint ReadDailies = Y" pause :ENTRYPOINT_LOOP killtrigger "ENTRYPOINT_LOOP" killtrigger "ENDLOOP" killtrigger "DLTPAUSE" send "*" settexttrigger DLTPAUSE :DLTPAUSE "[Pause] - Delete messages? (Y/N) [N]" settexttrigger ENTRYPOINT_LOOP :ENTRYPOINT_LOOP "[Pause]" setdelaytrigger ENDLOOP :INIT 5500 pause goto :76 end if ($READDAILIES = "N") setvar $PLACE ":EntryPoint ReadDailies = N" send "*" pause end :76 killtrigger "ENTRYPOINT_LOOP" killtrigger "ENDLOOP" pause :INIT killtrigger "ENTRYPOINT_LOOP" killtrigger "ENDLOOP" pause :TMENU2 setvar $ACCESSMODE 1 goto :MENULOOP :DOWNTIME listactivescripts $SCRIPTS setvar $A 1 :80 if ($A <= $SCRIPTS) lowercase $SCRIPTS[$A] getwordpos $SCRIPTS[$A] $LOGIN "_login" if ($LOGIN > 0) stop $SCRIPTS[$A] end add $A 1 goto :80 end halt :DUPENAME setvar $PLACE3 ":DupeName" getrnd $RND 0 99 send "" if ($ALIAS <> "") and ($ALLOWALIAS = "Y") send $RND & $ALIAS "*" goto :85 end send $RND & $NAMEWORD "*" :85 settexttrigger WAITON8 :WAITON8 "is what you want? (Y/N)" pause :WAITON8 send "y" pause :FULL sound "FAILED" disconnect halt :BANDED1 killalltriggers setvar $PLACE28 ":banded" sound "FAILED" echo "*" & ANSI_10 " I've Been Banned Again !*" ANSI_0 disconnect halt :NOGO killalltriggers setvar $PLACE28 ":noGo" sound "FAILED" echo "*" & ANSI_10 " It's a Closed Game !*" ANSI_0 delete $CONFIGGAME disconnect halt :LOST killalltriggers echo "*" ANSI_3 " --" ANSI_11 "===| " ANSI_15 "All Done" ANSI_11 " |===" ANSI_3 "--*" disconnect halt :NOGAMEHERE killalltriggers echo "**" ANSI_3 " --" ANSI_11 "===| " ANSI_10 "Game " & ANSI_14 $GAME ANSI_10 & " Not Available Anymore." ANSI_11 " |===" ANSI_3 "--*" delete "data\" & $GAMENAME & ".cfg" sound "FAILED" disconnect halt :ONLYONE killalltriggers setvar $PLACE36 ":onlyone" echo "*" & ANSI_12 "ONLY ONE CONNECTION ALLOWED ON THIS SERVER for a Single IP address.*" ANSI_0 halt :NAVPROMPT1 setvar $PLACE20 ":NavPrompt1" send "/" pause :NAVPOINT setvar $PLACE2 ":NavPoint" send "*" pause :SEECOMMANDLINE send "/" pause :MINES setvar $PLACE420 ":mines" send "*" pause :CLRAVOIDS setvar $PLACE22 "clravoids" if ($CLEARVOIDS = "Y") setvar $PLACE3 ":clearvoids Y" send "yy" pause goto :87 end if ($CLEARVOIDS = "N") setvar $PLACE3 ":clearvoids N" setdelaytrigger SEECOMMANDLINE :SEECOMMANDLINE 800 send "*" pause end :87 send "*" pause :GETFIRSTPASSWORD setvar $PLACE8 ":getfirstpassword" killtrigger "ENTRYPOINT_LOOP" killtrigger "ENDLOOP" settextlinetrigger WHOSPLAYING :WHOSPLAYING "Who's Playing" settexttrigger PAUSESPACE :PAUSESPACE " are on the move!" send PASSWORD "*" pause :WHOSPLAYING setvar $PLACE4 ":WhosPlaying" setdelaytrigger WHO :WHO 1500 pause :WHO setvar $PLACE4 ":Who" send "*" pause :PAUSESPACE setvar $PLACE5 ":PauseSpace" killtrigger "WHOSPLAYING" killtrigger "WHO" send "*" pause :REPEATPW setvar $PLACE7 ":repeatPW" send PASSWORD "*" setvar $NEW 1 pause :NOMESSAGES setvar $PLACE6 ":NoMessages" killtrigger "CHECKMESSAGES" killtrigger "DLTPAUSE" setvar $NOMESSAGES TRUE setvar $NOLOGZ TRUE send "*" killtrigger "COPY" killtrigger "INIT" killtrigger "ONLYONE" killtrigger "FULL" killtrigger "BANNED1" killtrigger "BANNED2" killtrigger "CLOSEDGAME" killtrigger "DUPENAME" killtrigger "TWPASSWORD" killtrigger "NEWPLAYERENTERS" killtrigger "NEWPLAYERENTERSPW" killtrigger "FIRSTNOPASSWORDPLAYERA" killtrigger "NEWPLAYERA" killtrigger "NEWPLANET" pause :CHECKMESSAGES killtrigger "COPY" killtrigger "INIT" killtrigger "ONLYONE" killtrigger "FULL" killtrigger "BANNED1" killtrigger "BANNED2" killtrigger "CLOSEDGAME" killtrigger "DUPENAME" killtrigger "TWPASSWORD" killtrigger "NEWPLAYERENTERS" killtrigger "NEWPLAYERENTERSPW" killtrigger "FIRSTNOPASSWORDPLAYERA" killtrigger "NEWPLAYERA" killtrigger "NEWPLANET" killtrigger "DLTPAUSE" settextlinetrigger CHECKMESSAGES2 :CHECKMESSAGES2 "Received from " settexttrigger DLTPAUSE :DLTPAUSE "[Pause] - Delete messages? (Y/N) [N]" pause :CHECKMESSAGES2 killtrigger "DLTPAUSE" killtrigger "HOLDIN" setvar $PLACE9 ":checkmessages2" settexttrigger MESSAGEDELAY :MESSAGEDELAY "[Pause] - [Press " settexttrigger DLTPAUSE :DLTPAUSE "[Pause] - Delete messages? (Y/N) [N]" if ($READLOGS = "N") setvar $PLACE50 "ReadLogs No" settextlinetrigger MOREKMESSAGES :MOREKMESSAGES "Received from " pause goto :90 end if ($READLOGS = "Y") setvar $PLACE151 "ReadLogs = Y" setdelaytrigger HOLDIN :LOST 599850 :READIN_DELAY setdelaytrigger PAUSEWHILEREADIN_DELAY :PAUSEWHILEREADIN_DELAY 1400 pause end :90 pause :PAUSEWHILEREADIN_DELAY send "*" goto :READIN_DELAY setvar $PLACE51 "Pause4Delete" killtrigger "MESSAGEDELAY" killtrigger "MOREKMESSAGES" killtrigger "MOREMESSAGEDELAY" send "y" setvar $DONEDELETED 1 pause :MOREKMESSAGES :MESSAGEDELAY killtrigger "MESSAGEDELAY" killtrigger "MOREKMESSAGES" killtrigger "MOREMESSAGEDELAY" if ($READLOGS = "N") setvar $PLACE52 ":MessageDelay" send "a" end pause :DLTPAUSE killtrigger "MESSAGEDELAY" killtrigger "MOREKMESSAGES" killtrigger "MOREMESSAGEDELAY" killtrigger "READIN_DELAY" if ($CLEARMESSAGES = "Y") send "y" goto :95 end if ($CLEARMESSAGES = "N") send "*" end :95 setvar $PLACE7 ":Done with Messages" pause :OPENGAME setvar $PLACE6 ":openGame" loadvar $BEENINBEFORE if ($WANTAUTOSTART = "Y") and ($BEENINBEFORE = 0) goto :98 end if ($BEENINBEFORE = 1) killalltriggers disconnect sound "FAILED" halt goto :98 end echo #27 & "[1A" & #27 & "[K*" echo "*" & ANSI_14 "Do You WANT to play ?" echo "*" & ANSI_15 " Y " ANSI_11 "- " ANSI_10 "Yes " ANSI_15 " N " ANSI_11 "- " ANSI_10 "No " echo "*" getconsoleinput $YNASKING "SINGLEKEY" uppercase $YNASKING if ($YNASKING <> "Y") killalltriggers delete $CONFIGGAME disconnect echo "" & #27 & "[7A" & #27 & "[1K" & #27 & "[2K" & "*" & #27 & "[2K" echo " " ANSI_3 " --" ANSI_11 "===| " ANSI_15 "All Done" ANSI_11 " |===" ANSI_3 "--* " sound "ding.wav" halt end :98 killtrigger "TMENU" setvar $ACCESSMODE 0 savevar $ACCESSMODE setvar $BEENINBEFORE 1 savevar $BEENINBEFORE setvar $NEW 1 send "y" pause :OPENGAMEPW setvar $PLACE16 ":openGamePW" send PASSWORD "*" pause :FIRSTTIMEINPAUSED setvar $PLACE17 ":FirstTimeInPaused" if ($NEW = 1) send "*" end pause :NEWPLAYERA setvar $PLACE11 ":newplayerA" setvar $NEW 1 gettext CURRENTLINE $NAMEWORD "use your BBS name of " "?" settexttrigger WAITON9 :WAITON9 "Use (N)ew Name or (B)BS Name [B] ?" pause :WAITON9 send "n" settexttrigger WAITON10 :WAITON10 "What Alias do you want to use?" pause :WAITON10 if ($ALIAS <> "") and ($ALLOWALIAS = "Y") send $ALIAS "*" goto :105 end send $NAMEWORD "*" :105 settexttrigger WAITON11 :WAITON11 "is what you want? (Y/N)" pause :WAITON11 send "y" setvar $PLACE12 "NameDone" pause :SHIP setvar $PLACE18 ":Ship" send $SHIPNAME & "*" settexttrigger WAITON12 :WAITON12 "is what you want?" pause :WAITON12 getwordpos CURRENTLINE $SHIPNAMEPOS " is what you want?" cuttext CURRENTLINE $SKIPNAMED 1 ($SHIPNAMEPOS -1) if ($SKIPNAMED = $SHIPNAME) send "y*" goto :107 end send "n*" goto :SHIP :107 pause :NEWPLANET killalltriggers setvar $PLACE29 ":newplanet" send $PLANETNAME & "*q" settexttrigger WAITON13 :WAITON13 "Blasting off from" pause :WAITON13 settexttrigger WAITON14 :WAITON14 "Warps to Sector(s) :" pause :WAITON14 settexttrigger WAITON15 :WAITON15 "] (?=" pause :WAITON15 getword CURRENTLINE $WHEREAT 1 killalltriggers goto :FINISHEDENTRY :COMMANDPRMT setvar $PLACE24 ":commandprmt" setvar $ACCESSMODE 0 savevar $ACCESSMODE if (CURRENTSECTOR = 1) and ($NEW <> 1) goto :FINISHEDENTRY end if (CURRENTSECTOR = STARDOCK) if ($DOCKFAST = "Y") send "p s gyg qh 'ONLINE!*" setvar $PSF 1 goto :FINISHEDENTRY end end if (CURRENTSECTOR <> 1) and (CURRENTSECTOR <> STARDOCK) loadvar $PLANET if ($LANDONPLANET = "Y") and ($PLANET > 1) killalltriggers send "l j" & $PLANET & "* n n m * * * * j c s* /#" goto :DONE end if (PORT.EXISTS[CURRENTSECTOR]) and ($PORTFAST = "Y") send "p" send "*" sound "DING_DONG.WAV" settexttrigger WAITON16 :WAITON16 "] (?=Help)? :" pause :WAITON16 end setvar $PLACE25 "commandprmt1" end setvar $PLACE19 ":Somewhere in command" killalltriggers send " * " settexttrigger WAITON17 :WAITON17 "?" pause :WAITON17 getword CURRENTLINE $WHEREAT 1 killalltriggers settexttrigger COMMS_ON1 :COMMS_ON1 "Displaying all messages." settexttrigger COMMS_OFF1 :COMMS_OFF1 "Silencing all messages." send "|" pause :COMMS_OFF1 killtrigger "COMMS_ON1" send "|" :COMMS_ON1 killtrigger "COMMS_OFF1" setvar $PLACE99 ": Goto :DonePlusWait" goto :DONEPLUSWAIT :FIGPRMT killalltriggers setvar $PLACE33 ":figprmt" setvar $ACCESSMODE 0 savevar $ACCESSMODE send " a z 99887766 y z n p a z 99887766 y * z n a z 99887766 * * /" settexttrigger WAITON18 :WAITON18 "hip" pause :WAITON18 send " f z 1 * z c d * /" settexttrigger WAITON19 :WAITON19 "hip" pause :WAITON19 send #145 settexttrigger WAITON20 :WAITON20 #145 & #8 pause :WAITON20 getword CURRENTLINE $WHEREAT 1 loadvar $PLANET if ($LANDONPLANET = "Y") and ($PLANET > 1) killalltriggers send "l j" & $PLANET & "* n n m * * * * j c s* /#" sound "ALERT" goto :DONE end if (PORT.EXISTS[CURRENTSECTOR]) and ($PORTFAST = "Y") send "p " send "*" end sound "ALERT" goto :FINISHEDENTRY :ONPLANET killtrigger "HOLDIN" setvar $PLACE32 ":onplanet" setvar $ACCESSMODE 0 savevar $ACCESSMODE send " c c q s* @" settexttrigger WAITON21 :WAITON21 "Average Interval Lag" pause :WAITON21 settexttrigger WAITON22 :WAITON22 "elp" pause :WAITON22 getword CURRENTLINE $WHEREAT 1 goto :DONE :FINISHEDENTRY setvar $PLACE40 ":FinishedEntry" setvar $BEENINBEFORE 1 savevar $BEENINBEFORE if ($NEW <> 1) and (CURRENTSECTOR = 1) and ($LANDONTERRA = "Y") setvar $ONTERRA 1 settexttrigger SCANNER :SCANNER "Land on which planet" settexttrigger ONTERRA :ONTERRA "(T)ake Colonists? [T] (Q to leave)" send "l " pause :SCANNER killtrigger "ONTERRA" send "1* " :ONTERRA killtrigger "SCANNER" send "'ONLINE , Landed on Terra!*" settexttrigger WAITON23 :WAITON23 "ub-space c" pause :WAITON23 gosub :TERRAKIT~TERRA_KITS setvar $KILLKIT $TERRAKIT~KILLKIT if ($KILLKIT = 1) setvar $ONTERRA 0 send "*" settexttrigger WAITON24 :WAITON24 "elp" pause :WAITON24 getword CURRENTLINE $WHEREAT 1 goto :DONE end goto :DONEPLUSWAIT end if ($PSF = 1) sound "DING_DONG.WAV" halt end if ($NEW <> 1) and (CURRENTSECTOR = 1) and ($LANDONTERRA = "N") send "*" settexttrigger WAITON25 :WAITON25 "elp" pause :WAITON25 getword CURRENTLINE $WHEREAT 1 goto :DONE end if ($NEW = 1) stop "_vid_startup" if ($SSCOMM <> 0) send "c n 4 " & $SSCOMM & " * *q* " settexttrigger WAITON26 :WAITON26 "" pause :WAITON26 settexttrigger WAITON27 :WAITON27 "] (" pause :WAITON27 end gosub :_VID_STARTUP~TOP if ($BOT_NAME = 0) and ($MAKEORJOIN <> "N") gosub :_VID_PREGAME~STARTUP end goto :DONE end :DONE setvar $PLACE98 ":Done" send #145 settexttrigger WAITON28 :WAITON28 #145 & #8 pause :WAITON28 getword CURRENTLINE $WHEREAT 1 if ($WHEREAT = "Planet") send "c/s*#" end if ($WHEREAT = "Command") end send #145 settexttrigger WAITON29 :WAITON29 #145 & #8 pause :WAITON29 getword CURRENTLINE $WHEREAT 1 if ($WHEREAT = "Citadel") if ($CLEARMESSAGES = "Y") send ":y" end send "'ONLINE!*" settexttrigger WAITON30 :WAITON30 "ub-space c" pause :WAITON30 fileexists $YN "scripts/" & $BOTUSING if ($ONLINEBOT = "Y") if ($YN = TRUE) load $BOTUSING setdelaytrigger BOTGOING2 :BOTGOING2 5500 pause end end :BOTGOING2 killtrigger "BOTGOING2" sound "DING" halt end gosub :SCRIPTCHECK setvar $LOGONFILE2 "scripts/_ph_chargera.cts" fileexists $TEST2 $LOGONFILE2 if ($TEST2) if ($_PH_CHARGERA = 0) send "/" settexttrigger WAITON31 :WAITON31 "hip " pause :WAITON31 settexttrigger WAITON32 :WAITON32 "] (?=Help)?" pause :WAITON32 getword CURRENTLINE $WHEREAT 1 load "_PH_CHARGERA.CTS" end setvar $CHARGER 1 end setvar $LOGONFILE3 "scripts/_ph_charger.cts" fileexists $TEST3 $LOGONFILE3 if ($TEST3) if ($_PH_CHARGER = 0) and ($CHARGER <> 1) load "_PH_CHARGER.CTS" end end if ($ONTERRA <> 1) killalltriggers send "ctq* /" settexttrigger WAITON33 :WAITON33 "hip" pause :WAITON33 settexttrigger WAITON34 :WAITON34 "elp" pause :WAITON34 getword CURRENTLINE $WHEREAT 1 setvar $LOGONFILE4 "scripts\_ck_equip_haggle_tracker.cts" fileexists $TEST4 $LOGONFILE4 striptext $LOGONFILE4 "scripts\" if ($TEST4) if ($HAGGLETRACKER = 0) and ($WHEREAT = "Citadel") or ($WHEREAT = "Command") load "_CK_EQUIP_HAGGLE_TRACKER" settexttrigger WAITON35 :WAITON35 "Credits :" pause :WAITON35 settexttrigger WAITON36 :WAITON36 "elp" pause :WAITON36 end end if ($CLEARMESSAGES = "Y") send ":y" end killalltriggers settexttrigger COMMS_ON3 :COMMS_ON3 "Displaying all messages." settexttrigger COMMS_OFF3 :COMMS_OFF3 "Silencing all messages." send "|" pause :COMMS_OFF3 killtrigger "COMMS_ON3" send "|" :COMMS_ON3 killtrigger "COMMS_OFF3" send "'ONLINE!*" settexttrigger WAITON37 :WAITON37 "ub-space c" pause :WAITON37 end fileexists $YN "scripts/" & $BOTUSING if ($ONLINEBOT = "Y") if ($YN = TRUE) load $BOTUSING setdelaytrigger BOTGOING1 :BOTGOING1 5500 pause end end :BOTGOING1 sound "DING" setvar $BEENINBEFORE 1 savevar $BEENINBEFORE halt :DONEPLUSWAIT setvar $PLACE97 ":DonePlusWait" setdelaytrigger DONEPLUSWAIT :FINISHEDENTRY 2000 setvar $ONCETHRU 1 pause halt :SCRIPTCHECK listactivescripts $SCRIPTS listactivescripts $SCRIPTSX :DUPLICATES setvar $A 1 :DUPLICATES0 :170 if ($A <= $SCRIPTS) setvar $B 1 lowercase $SCRIPTS[$A] lowercase $SCRIPTSX[$A] getwordpos $SCRIPTS[$A] $MOM "mom_b" if ($MOM > 0) stop $SCRIPTS[$A] end if ($SCRIPTS[$A] = "_vid_fighits.cts") setvar $FIGHITSRUNNING 1 end if ($SCRIPTS[$A] = "_ph_chargera.cts") setvar $_PH_CHARGERA 1 end if ($SCRIPTS[$A] = "_ph_charger.cts") setvar $_PH_CHARGER 1 end if ($SCRIPTS[$A] = "_ck_equip_haggle_tracker.cts") setvar $HAGGLETRACKER 1 end if ($SCRIPTS[$A] = "k_background.cts") setvar $ONLINE_TEST 1 end if ($SCRIPTS[$A] = "_vid_mom_overdrive.cts") setvar $ONLINE_TEST10 1 end if ($SCRIPTS[$A] = "cn_background.cts") setvar $CN_BACKGROUND_RUNNING 1 end :188 if ($B <= $SCRIPTS) lowercase $SCRIPTSX[$B] if ($A <> $B) and ($SCRIPTS[$A] = $SCRIPTSX[$B]) stop $SCRIPTS[$A] goto :SCRIPTCHECK end add $B 1 goto :188 end add $A 1 goto :170 end return :INITSTARTUP if (PASSWORD = "") echo "**" & ANSI_12 & "Fill in your TWX : " & ANSI_11 & "PassWord" & ANSI_12 & " before continuing!*" sound "FAILED" disconnect halt end if (LOGINNAME = "") echo "**" & ANSI_12 & "Fill in your TWX : " & ANSI_11 & "Login Name" & ANSI_12 & " before continuing!*" sound "FAILED" disconnect halt end if (GAME = " ") or (GAME = "") echo "**" & ANSI_12 & "Fill in your TWX : " & ANSI_11 & "GameLetter" & ANSI_12 & " before continuing!*" :LOST sound "FAILED" disconnect halt end return :GLOBALS setvar $GLOBALS "Globals.cfg" setvar $TEMPCONFIG GAMENAME & "_" & $GLOBALS fileexists $EXISTS $TEMPCONFIG if ($EXISTS = 1) setvar $_VID_PREGAME~GLOBALS $TEMPCONFIG readtoarray $TEMPCONFIG $LINECOUNT goto :CLEANUP end fileexists $CHECK $GLOBALS if ($CHECK = 1) and ($EXISTS <> 1) setvar $_VID_PREGAME~GLOBALS $GLOBALS readtoarray $GLOBALS $LINECOUNT goto :CLEANUP goto :201 end if ($CHECK <> 1) killalltriggers disconnect gosub :MAKEGLOBLES~MAKEFILE echo "**" & ANSI_11 & "You need to " & ANSI_14 & "Edit the FILE " & ANSI_11 & ": " & ANSI_14 $GLOBALS & "*" echo "*" & ANSI_11 & "In your TWX Root Directory*" halt end :201 halt :CLEANUP setvar $PORTFAST $LINECOUNT[1] striptext $PORTFAST "Port Fast: " uppercase $PORTFAST setvar $DOCKFAST $LINECOUNT[2] striptext $DOCKFAST "Dock Fast: " uppercase $DOCKFAST setvar $LANDONTERRA $LINECOUNT[3] striptext $LANDONTERRA "Land On Terra: " uppercase $LANDONTERRA setvar $LANDONPLANET $LINECOUNT[4] striptext $LANDONPLANET "Land On Planet: " uppercase $LANDONPLANET setvar $READDAILIES $LINECOUNT[5] striptext $READDAILIES "Read Dailies: " uppercase $READDAILIES setvar $READLOGS $LINECOUNT[6] striptext $READLOGS "Read Todays Log: " uppercase $READLOGS setvar $CLEARMESSAGES $LINECOUNT[7] striptext $CLEARMESSAGES "Clear Messages: " uppercase $CLEARMESSAGES setvar $CLEARVOIDS $LINECOUNT[8] striptext $CLEARVOIDS "Clear Avoids: " uppercase $CLEARVOIDS setvar $ALLOWALIAS $LINECOUNT[9] striptext $ALLOWALIAS "UseAlias: " uppercase $ALLOWALIAS setvar $ALIAS $LINECOUNT[10] striptext $ALIAS "Alias Name: " setvar $SSCOMM $LINECOUNT[11] striptext $SSCOMM "SSComms: " setvar $SHIPNAME $LINECOUNT[12] striptext $SHIPNAME "ShipName: " setvar $PLANETNAME $LINECOUNT[13] striptext $PLANETNAME "PlanetName: " setvar $MAKEORJOIN $LINECOUNT[14] striptext $MAKEORJOIN "Make or Join Corp: " uppercase $MAKEORJOIN setvar $WHOS_ONLINE $LINECOUNT[17] striptext $WHOS_ONLINE "Show Who's Online: " uppercase $WHOS_ONLINE setvar $WANTSTATS $LINECOUNT[18] striptext $WANTSTATS "GetMeStatsNow: " uppercase $WANTSTATS setvar $HIGHSCORES $LINECOUNT[19] striptext $HIGHSCORES "High Scores: " uppercase $HIGHSCORES setvar $STOPATTMENU $LINECOUNT[20] striptext $STOPATTMENU "Stop @ Tmenu: " uppercase $STOPATTMENU setvar $EXITSERVER $LINECOUNT[21] striptext $EXITSERVER "Exit Server: " uppercase $EXITSERVER setvar $WANTAUTOSTART $LINECOUNT[22] striptext $WANTAUTOSTART "AutoStart: " uppercase $WANTAUTOSTART setvar $LPORTOVERRIDE $LINECOUNT[23] striptext $LPORTOVERRIDE "Listening Port OverRide: " uppercase $LPORTOVERRIDE setvar $PRIVATEPW $LINECOUNT[24] striptext $PRIVATEPW "Private Game Password: " setvar $TWPASSPORT $LINECOUNT[25] striptext $TWPASSPORT "TradeWars Passport: " uppercase $TWPASSPORT setvar $ONLINEBOT $LINECOUNT[26] striptext $ONLINEBOT "Start with Bot ONLINE: " setvar $BOTUSING $LINECOUNT[27] striptext $BOTUSING "BotUsing: " return :LSD_STATS readtoarray $LSDSTATS $LSD striptext $LSD[1] "$LSD_LIMPREMOVALCOST=" setvar $LSD_LIMPREMOVALCOST $LSD[1] savevar $LSD_LIMPREMOVALCOST striptext $LSD[2] "$LSD_REREGISTERCOST=" setvar $LSD_REREGISTERCOST $LSD[2] savevar $LSD_REREGISTERCOST striptext $LSD[3] "$LSD_GENCOST=" setvar $LSD_GENCOST $LSD[3] savevar $LSD_GENCOST striptext $LSD[4] "$LSD_ARMIDCOST=" setvar $LSD_ARMIDCOST $LSD[4] savevar $LSD_ARMIDCOST striptext $LSD[5] "$LSD_LIMPCOST=" setvar $LSD_LIMPCOST $LSD[5] savevar $LSD_LIMPCOST striptext $LSD[6] "$LSD_BEACON=" setvar $LSD_BEACON $LSD[6] savevar $LSD_BEACON striptext $LSD[7] "$LSD_TWARPICOST=" setvar $LSD_TWARPICOST $LSD[7] savevar $LSD_TWARPICOST striptext $LSD[8] "$LSD_TWARPIICOST=" setvar $LSD_TWARPIICOST $LSD[8] savevar $LSD_TWARPIICOST striptext $LSD[9] "$LSD_TWARPUPCOST=" setvar $LSD_TWARPUPCOST $LSD[9] savevar $LSD_TWARPUPCOST striptext $LSD[10] "$LSD_PSCAN=" setvar $LSD_PSCAN $LSD[10] savevar $LSD_PSCAN striptext $LSD[11] "$LSD_ATOMICCOST=" setvar $LSD_ATOMICCOST $LSD[11] savevar $LSD_ATOMICCOST striptext $LSD[12] "$LSD_CORBOCOST=" setvar $LSD_CORBOCOST $LSD[12] savevar $LSD_CORBOCOST striptext $LSD[13] "$LSD_EPROBE=" setvar $LSD_EPROBE $LSD[13] savevar $LSD_EPROBE striptext $LSD[14] "$LSD_PHOTONCOST=" setvar $LSD_PHOTONCOST $LSD[14] savevar $LSD_PHOTONCOST striptext $LSD[15] "$LSD_CLOAKCOST=" setvar $LSD_CLOAKCOST $LSD[15] savevar $LSD_CLOAKCOST striptext $LSD[16] "$LSD_DISRUPTCOST=" setvar $LSD_DISRUPTCOST $LSD[16] savevar $LSD_DISRUPTCOST striptext $LSD[17] "$LSD_HOLOCOST=" setvar $LSD_HOLOCOST $LSD[17] savevar $LSD_HOLOCOST striptext $LSD[18] "$LSD_DSCANCOST=" setvar $LSD_DSCANCOST $LSD[18] savevar $LSD_DSCANCOST delete $LSDSTATS return :_GAMESTATS~GAMESTATS setvar $_GAMESTATS~GAME GAME uppercase $_GAMESTATS~GAME setvar $_GAMESTATS~GAMESTATS GAMENAME & "-" & $_GAMESTATS~GAME & "-Stats.txt" setvar $_GAMESTATS~LSDSTATS GAMENAME & "-" & $_GAMESTATS~GAME & "-LSDStats.txt" delete $_GAMESTATS~LSDSTATS delete $_GAMESTATS~GAMESTATS write $_GAMESTATS~GAMESTATS DATE & " " & TIME settextlinetrigger MAJOR :_GAMESTATS~MAJOR "Major Version=" settextlinetrigger MINOR :_GAMESTATS~MINOR "Minor Version=" settextlinetrigger GOLD :_GAMESTATS~GOLD "Gold Enabled=" settextlinetrigger SEKTORS :_GAMESTATS~SEKTORS "Sectors=" settextlinetrigger BUBBLES :_GAMESTATS~BUBBLES "Bubbles=" settextlinetrigger START :_GAMESTATS~START "Start Day=" settextlinetrigger DEFINED :_GAMESTATS~DEFINED "Defined Start Day=" settextlinetrigger ALIENS :_GAMESTATS~ALIENS "Internal Aliens=" settextlinetrigger FERRENGI :_GAMESTATS~FERRENGI "Internal Ferrengi=" settextlinetrigger MBBS :_GAMESTATS~MBBS "MBBS Compatibility=" settextlinetrigger TURNS :_GAMESTATS~TURNS4ME "Turn Base=" settextlinetrigger ONLINE :_GAMESTATS~ONLINES2 "Time Online=" settextlinetrigger TERRAREGEN :_GAMESTATS~TERRAREGEN "Colonist Regen Rate=" settextlinetrigger MAXPLANETS :_GAMESTATS~MAXPLANETS "Max Planet Sector=" settextlinetrigger MAXCORP :_GAMESTATS~MAXCORP "Max Corp Members=" settextlinetrigger SQUATTER :_GAMESTATS~SQUATTER "FedSpace Ship Limit=" settextlinetrigger FEDPHOTONS :_GAMESTATS~FEDPHOTONS "FedSpace Photons=" settextlinetrigger FOTONDISABLE :_GAMESTATS~FOTONDISABLE "Photons Disable Players=" settextlinetrigger DEBRISLOSS :_GAMESTATS~DEBRISLOSS "Debris Loss Percent=" settextlinetrigger PRODRATE :_GAMESTATS~PRODRATE "Production Rate=" settextlinetrigger PRODUCTION :_GAMESTATS~PRODUCTION "Max Production Regen=" settextlinetrigger MULTIPHOTON :_GAMESTATS~MULTIPHOTON "Multiple Photons=" settextlinetrigger BUST :_GAMESTATS~BUST "Clear Bust Days=" settextlinetrigger RADIATION :_GAMESTATS~RADIATION "Radiation Lifetime=" settextlinetrigger DECAYLOCK :_GAMESTATS~DECAYLOCK "Fighter Lock Decay=" settextlinetrigger INVINCIBLE :_GAMESTATS~INVINCIBLE "Invincible Ferengal=" settextlinetrigger SCOREUPDATE :_GAMESTATS~SCOREUPDATE "High Scores Update Mode=" settextlinetrigger VIEWDELAY :_GAMESTATS~VIEWDELAY "Startup Log View Delay=" settextlinetrigger COMBAT :_GAMESTATS~COMBAT "MBBS Combat=" settextlinetrigger DEATH :_GAMESTATS~DEATH "Death Delay=" settextlinetrigger WHOS :_GAMESTATS~WHOS "Show Whos Online=" settextlinetrigger SUB_PROMPTS :_GAMESTATS~SUB_PROMPTS "Interactive Sub-prompts=" settextlinetrigger ALIASES :_GAMESTATS~ALIASES "Allow Aliases=" settextlinetrigger SLEEP :_GAMESTATS~SLEEP "Alien Sleep Mode=" settextlinetrigger MEGAROB :_GAMESTATS~MEGAROB "Allow MBBS MegaRob Bug=" settextlinetrigger MINIMUM :_GAMESTATS~MINIMUM "Minimum Login Time=" settextlinetrigger ACCUMULATION :_GAMESTATS~ACCUMULATION "Turn Accumulation Days=" settextlinetrigger PODLESS :_GAMESTATS~PODLESS "Podless Captures=" settextlinetrigger CAPTURE :_GAMESTATS~CAPTURE "Capture Fail Percent=" settextlinetrigger BANK :_GAMESTATS~BANK "Max Bank Credits=" settextlinetrigger PLANETTRADE :_GAMESTATS~PLANETTRADE "Trade Percent=" settextlinetrigger STEALFAC :_GAMESTATS~STEALFAC "Steal Factor=" settextlinetrigger ROBFAC :_GAMESTATS~ROBFAC "Rob Factor=" settextlinetrigger PORT_MAX :_GAMESTATS~PORT_MAX "Port Production Max=" settextlinetrigger COSTS :_GAMESTATS~COSTS "[Costs]" settextlinetrigger LIMPREMOVE :_GAMESTATS~LIMPREMOVE "Limpet Removal=" settextlinetrigger REREG :_GAMESTATS~REREG "Reregister Ship=" settextlinetrigger MAKEBWARP :_GAMESTATS~MAKEBWARP "Citadel Transport Unit=" settextlinetrigger UPBWARP :_GAMESTATS~UPBWARP "Citadel Transport Upgrade=" settextlinetrigger GENESIS :_GAMESTATS~GENESIS "Genesis Torpedo=" settextlinetrigger ARMID :_GAMESTATS~ARMID "Armid Mine=" settextlinetrigger LIMPET :_GAMESTATS~LIMPET "Limpet Mine=" settextlinetrigger BEACON :_GAMESTATS~BEACON "Beacon=" settextlinetrigger TWARPI :_GAMESTATS~TWARPI "Type I TWarp=" settextlinetrigger TWARPII :_GAMESTATS~TWARPII "Type II TWarp=" settextlinetrigger TWARPUPGRADE :_GAMESTATS~TWARPUPGRADE "TWarp Upgrade=" settextlinetrigger PSCANNER :_GAMESTATS~PSCANNER "Planet Scanner=" settextlinetrigger DETS :_GAMESTATS~DETS "Atomic Detonator=" settextlinetrigger CORBO :_GAMESTATS~CORBO "Corbomite=" settextlinetrigger PROBES :_GAMESTATS~PROBES "Ether Probe=" settextlinetrigger PHOTON :_GAMESTATS~PHOTON "Photon Missile=" settextlinetrigger CLOAK :_GAMESTATS~CLOAK "Cloaking Device=" settextlinetrigger DISRUPTORS :_GAMESTATS~DISRUPTORS "Mine Disruptor=" settextlinetrigger HOLO :_GAMESTATS~HOLO "Holographic Scanner=" settextlinetrigger DENSITY :_GAMESTATS~DENSITY "Density Scanner=" settextlinetrigger TOURNAMENT :_GAMESTATS~TOURNAMENT "[Tournament]" settextlinetrigger MODE :_GAMESTATS~MODE "Tournament Mode=" settextlinetrigger DAYSTOENTER :_GAMESTATS~DAYSTOENTER "Days To Enter=" settextlinetrigger BLOWNUP :_GAMESTATS~BLOWNUP "Max Times Blown Up=" settextlinetrigger SHIPDELAY :_GAMESTATS~SHIPDELAY "Ship Delay=" settextlinetrigger PLANETDELAY :_GAMESTATS~PLANETDELAY "Planet Delay=" settextlinetrigger OTHERDELAY :_GAMESTATS~OTHERDELAY "Other Attacks Delay=" settextlinetrigger EPROBDELAY :_GAMESTATS~EPROBDELAY "EProbe Delay=" settextlinetrigger CRIMEDELAY :_GAMESTATS~CRIMEDELAY "Crime Delay=" settextlinetrigger PHOTONLAUNCH :_GAMESTATS~PHOTONLAUNCH "Photon Launch Delay=" settextlinetrigger PHOTONDELAY :_GAMESTATS~PHOTONDELAY "Photon Wave Delay=" settextlinetrigger GENESISDELAY :_GAMESTATS~GENESISDELAY "Genesis Launch Delay=" settextlinetrigger ICDELAY :_GAMESTATS~ICDELAY "IC Powerup Delay=" settextlinetrigger PIGDELAY :_GAMESTATS~PIGDELAY "PIG Powerup Delay=" settextlinetrigger PLANDELAY :_GAMESTATS~PLANDELAY "Planet Landing/Takeoff Delay=" settextlinetrigger PORTDELAY :_GAMESTATS~PORTDELAY "Port Dock/Depart Delay=" settextlinetrigger XPORTDELAY :_GAMESTATS~XPORTDELAY "Ship Transporter Delay=" settextlinetrigger BWARPDELAY :_GAMESTATS~BWARPDELAY "Planet Transporter Delay=" settextlinetrigger FIGDELAY :_GAMESTATS~FIGDELAY "Take/Drop Fighters Delay=" settextlinetrigger MINEDELAY :_GAMESTATS~MINEDELAY "Drop/Take Mines Delay=" settexttrigger RAPUP :_GAMESTATS~RAPUP "End Stats." settextlinetrigger REPORTS :_GAMESTATS~REPORTS "[Reports]" settextlinetrigger SCOREMODE :_GAMESTATS~SCOREMODE "High Score Mode=" settextlinetrigger SCORETYPE :_GAMESTATS~SCORETYPE "High Score Type=" settextlinetrigger RANKMODE :_GAMESTATS~RANKMODE "Rankings Mode=" settextlinetrigger RANKTYPE :_GAMESTATS~RANKTYPE "Rankings Type=" settextlinetrigger ENTRYBLACKOUT :_GAMESTATS~ENTRYBLACKOUT "Entry Log Blackout=" settextlinetrigger GAMEBLACKOUT :_GAMESTATS~GAMEBLACKOUT "Game Log Blackout=" settextlinetrigger PORTREPORTDELAY :_GAMESTATS~PORTREPORTDELAY "Port Report Delay=" settextlinetrigger EMULATION :_GAMESTATS~EMULATION "[Emulation]" settextlinetrigger INPUTBANDWIDTH :_GAMESTATS~INPUTBANDWIDTH "Input Bandwidth=" settextlinetrigger OUTPUTBANDWIDTH :_GAMESTATS~OUTPUTBANDWIDTH "Output Bandwidth=" settextlinetrigger LATENCY :_GAMESTATS~LATENCY "Latency=" send #42 & "*" pause :_GAMESTATS~REPORTS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SCOREMODE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SCORETYPE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~RANKMODE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~RANKTYPE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~ENTRYBLACKOUT write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~GAMEBLACKOUT write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PORTREPORTDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~EMULATION write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~INPUTBANDWIDTH write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~OUTPUTBANDWIDTH write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~LATENCY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PLANETTRADE gettext CURRENTLINE $_GAMESTATS~PTRADESETTING "=" "%" setvar $_GAMESTATS~_CK_PTRADESETTING $_GAMESTATS~PTRADESETTING pause :_GAMESTATS~STEALFAC gettext CURRENTLINE $_GAMESTATS~STEAL_FACTOR "=" "%" setvar $_GAMESTATS~STEAL_DIVISOR (($_GAMESTATS~STEAL_FACTOR * 30) / 100) pause :_GAMESTATS~ROBFAC gettext CURRENTLINE $_GAMESTATS~ROB_FACTOR "=" "%" setvar $_GAMESTATS~ROB_MULTIPLIER (3 * (100 / $_GAMESTATS~ROB_FACTOR)) pause :_GAMESTATS~MAJOR write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MINOR write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~GOLD write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SEKTORS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~BUBBLES write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~DEFINED :_GAMESTATS~START write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~ALIENS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~FERRENGI write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MBBS write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~MBBS CURRENTLINE striptext $_GAMESTATS~MBBS "MBBS Compatibility=" uppercase $_GAMESTATS~MBBS pause :_GAMESTATS~TURNS4ME write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~ONLINES2 write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~TERRAREGEN write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MAXPLANETS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MAXCORP setvar $_GAMESTATS~MAX_CORPIES CURRENTLINE striptext $_GAMESTATS~MAX_CORPIES "Max Corp Members=" write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SQUATTER write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~FEDPHOTONS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~FOTONDISABLE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~DEBRISLOSS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PORT_MAX setvar $_GAMESTATS~TEMP CURRENTLINE striptext $_GAMESTATS~TEMP "Port Production Max=" setvar $_GAMESTATS~PORT_MAX $_GAMESTATS~TEMP setvar $_GAMESTATS~TEMP "" pause :_GAMESTATS~PRODRATE write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~TEMP CURRENTLINE striptext $_GAMESTATS~TEMP "Production Rate=" setvar $_GAMESTATS~PRODUCTIONRATE $_GAMESTATS~TEMP setvar $_GAMESTATS~TEMP "" pause :_GAMESTATS~PRODUCTION write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~TEMP CURRENTLINE striptext $_GAMESTATS~TEMP "Max Production Regen=" setvar $_GAMESTATS~MAXPRODREGEN $_GAMESTATS~TEMP setvar $_GAMESTATS~TEMP "" pause :_GAMESTATS~MULTIPHOTON write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~BUST write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~BUSTCLEAR CURRENTLINE striptext $_GAMESTATS~BUSTCLEAR "Clear Bust Days=" striptext $_GAMESTATS~BUSTCLEAR " Days" pause :_GAMESTATS~RADIATION write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~DECAYLOCK write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~INVINCIBLE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SCOREUPDATE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~VIEWDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~COMBAT write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~DEATH write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~WHOS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~ALIASES write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SLEEP write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SUB_PROMPTS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MEGAROB write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~MEGABUG CURRENTLINE striptext $_GAMESTATS~MEGABUG "Allow MBBS MegaRob Bug=" uppercase $_GAMESTATS~MEGABUG pause :_GAMESTATS~MINIMUM write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~ACCUMULATION write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~CAPTURE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PODLESS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~BANK write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~COSTS write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~LIMPREMOVE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Limpet Removal=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_LIMPREMOVALCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~REREG setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Reregister Ship=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_REREGISTERCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~GENESIS getword CURRENTLINE $_GAMESTATS~GTORPS 2 striptext $_GAMESTATS~GTORPS "Torpedo=" striptext $_GAMESTATS~GTORPS "," write $_GAMESTATS~GAMESTATS CURRENTLINE write $_GAMESTATS~LSDSTATS "$LSD_GENCOST=" & $_GAMESTATS~GTORPS pause :_GAMESTATS~ARMID write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Armid Mine=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_ARMIDCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~LIMPET write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Limpet Mine=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_LIMPCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~MAKEBWARP write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~TEMP CURRENTLINE striptext $_GAMESTATS~TEMP "Citadel Transport Unit=" striptext $_GAMESTATS~TEMP "," striptext $_GAMESTATS~TEMP " cr" setvar $_GAMESTATS~MAKEBWARP $_GAMESTATS~TEMP setvar $_GAMESTATS~TEMP "" pause :_GAMESTATS~UPBWARP write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~TEMP CURRENTLINE striptext $_GAMESTATS~TEMP "Citadel Transport Upgrade=" striptext $_GAMESTATS~TEMP "," striptext $_GAMESTATS~TEMP " cr" setvar $_GAMESTATS~UPBWARP $_GAMESTATS~TEMP setvar $_GAMESTATS~TEMP "" pause :_GAMESTATS~BEACON setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Beacon=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_BEACON=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~TWARPI write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Type I TWarp=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_TWARPICOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~TWARPII write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Type II TWarp=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_TWARPIICOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~TWARPUPGRADE write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "TWarp Upgrade=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_TWARPUPCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~PSCANNER write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Planet Scanner=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_PSCAN=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~DETS getword CURRENTLINE $_GAMESTATS~DETPRICE 2 striptext $_GAMESTATS~DETPRICE "Detonator=" striptext $_GAMESTATS~DETPRICE "," write $_GAMESTATS~LSDSTATS "$LSD_ATOMICCOST=" & $_GAMESTATS~DETPRICE setvar $_GAMESTATS~FOUR " @ 4 GTorps & 4 Dets" setvar $_GAMESTATS~SEVEN " @ 7 GTorps & 7 Dets" setvar $_GAMESTATS~FOURTEEN " @ 14 GTorps & 14 Dets" setvar $_GAMESTATS~300_EXP (($_GAMESTATS~GTORPS * 4) + ($_GAMESTATS~DETPRICE * 4)) setvar $_VID_LIB~COMMASADDED $_GAMESTATS~300_EXP gosub :_VID_LIB~ADDCOMMAS setvar $_GAMESTATS~300_EXP $_VID_LIB~COMMASADDED setvar $_GAMESTATS~525_EXP (($_GAMESTATS~GTORPS * 7) + ($_GAMESTATS~DETPRICE * 7)) setvar $_VID_LIB~COMMASADDED $_GAMESTATS~525_EXP gosub :_VID_LIB~ADDCOMMAS setvar $_GAMESTATS~525_EXP $_VID_LIB~COMMASADDED setvar $_GAMESTATS~1050_EXP (($_GAMESTATS~GTORPS * 14) + ($_GAMESTATS~DETPRICE * 14)) setvar $_VID_LIB~COMMASADDED $_GAMESTATS~1050_EXP gosub :_VID_LIB~ADDCOMMAS setvar $_GAMESTATS~1050_EXP $_VID_LIB~COMMASADDED write $_GAMESTATS~GAMESTATS CURRENTLINE write $_GAMESTATS~GAMESTATS " " write $_GAMESTATS~GAMESTATS #9 & "300 EXP for " & $_GAMESTATS~300_EXP & " creds" & $_GAMESTATS~FOUR write $_GAMESTATS~GAMESTATS #9 & "525 EXP for " & $_GAMESTATS~525_EXP & " creds" & $_GAMESTATS~SEVEN write $_GAMESTATS~GAMESTATS #9 & "1050 EXP for " & $_GAMESTATS~1050_EXP & " creds" & $_GAMESTATS~FOURTEEN & "*" write $_GAMESTATS~GAMESTATS " " pause :_GAMESTATS~CORBO write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Corbomite=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_CORBOCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~PROBES write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Ether Probe=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_EPROBE=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~PHOTON write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Photon Missile=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_PHOTONCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~CLOAK write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Cloaking Device=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_CLOAKCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~DISRUPTORS write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Mine Disruptor=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_DISRUPTCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~HOLO write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Holographic Scanner=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_HOLOCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~DENSITY write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~PRICE CURRENTLINE striptext $_GAMESTATS~PRICE "Density Scanner=" striptext $_GAMESTATS~PRICE "," striptext $_GAMESTATS~PRICE " cr" write $_GAMESTATS~LSDSTATS "$LSD_DSCANCOST=" & $_GAMESTATS~PRICE setvar $_GAMESTATS~PRICE "" pause :_GAMESTATS~TOURNAMENT write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MODE write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~DAYSTOENTER write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~BLOWNUP write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~SHIPDELAY write $_GAMESTATS~GAMESTATS "[Timing]" write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PLANETDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~OTHERDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~EPROBDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~CRIMEDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PHOTONLAUNCH write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PHOTONDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~GENESISDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~ICDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PIGDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PLANDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~PORTDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~XPORTDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~BWARPDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~FIGDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~MINEDELAY write $_GAMESTATS~GAMESTATS CURRENTLINE pause :_GAMESTATS~RAPUP killalltriggers write $_GAMESTATS~GAMESTATS CURRENTLINE setvar $_GAMESTATS~STATSRUN 1 return :_VID_LIB~VALUE uppercase $_VID_LIB~VALUE striptext $_VID_LIB~VALUE "," getwordpos $_VID_LIB~VALUE $_VID_LIB~PERIODPOS "." getwordpos $_VID_LIB~VALUE $_VID_LIB~BILLIONSPOS "B" getwordpos $_VID_LIB~VALUE $_VID_LIB~MILLIONSPOS "M" getwordpos $_VID_LIB~VALUE $_VID_LIB~T_THOUSANDSPOS "T" getwordpos $_VID_LIB~VALUE $_VID_LIB~K_THOUSANDSPOS "K" striptext $_VID_LIB~VALUE "B" striptext $_VID_LIB~VALUE "M" striptext $_VID_LIB~VALUE "T" striptext $_VID_LIB~VALUE "K" isnumber $_VID_LIB~FORREAL $_VID_LIB~VALUE if ($_VID_LIB~PERIODPOS = 0) if ($_VID_LIB~FORREAL <> 1) setvar $_VID_LIB~VALUE "ERROR" return end :_VID_LIB~:206 :_VID_LIB~PERIOD if ($_VID_LIB~BILLIONSPOS > 0) and ($_VID_LIB~MILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 000000000 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:208 end if ($_VID_LIB~MILLIONSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 000000 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:208 end if ($_VID_LIB~T_THOUSANDSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~MILLIONSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 000 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:208 end if ($_VID_LIB~K_THOUSANDSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~MILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 000 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:208 end if ($_VID_LIB~MILLIONSPOS < 1) and ($_VID_LIB~BILLIONSPOS < 1) and ($_VID_LIB~T_THOUSANDSPOS < 1) and ($_VID_LIB~K_THOUSANDSPOS < 1) setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:208 end setvar $_VID_LIB~VALUE "ERROR" return :_VID_LIB~:212 :_VID_LIB~:208 goto :_VID_LIB~:204 end if ($_VID_LIB~PERIODPOS = 1) striptext $_VID_LIB~VALUE "." isnumber $_VID_LIB~FORREAL $_VID_LIB~VALUE if ($_VID_LIB~FORREAL <> 1) setvar $_VID_LIB~VALUE "ERROR" return end :_VID_LIB~:215 :_VID_LIB~ONE_PERIOD getlength $_VID_LIB~VALUE $_VID_LIB~LEN if ($_VID_LIB~BILLIONSPOS > 0) and ($_VID_LIB~MILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) if ($_VID_LIB~LEN = 1) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 00000000 goto :_VID_LIB~:219 end if ($_VID_LIB~LEN = 2) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 0000000 goto :_VID_LIB~:219 end if ($_VID_LIB~LEN = 3) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 000000 end :_VID_LIB~:219 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:217 end if ($_VID_LIB~MILLIONSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) if ($_VID_LIB~LEN = 1) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 00000 goto :_VID_LIB~:224 end if ($_VID_LIB~LEN = 2) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 0000 goto :_VID_LIB~:224 end if ($_VID_LIB~LEN = 3) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 000 end :_VID_LIB~:224 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:217 end if ($_VID_LIB~T_THOUSANDSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~MILLIONSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) if ($_VID_LIB~LEN = 1) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 00 goto :_VID_LIB~:229 end if ($_VID_LIB~LEN = 2) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 0 goto :_VID_LIB~:229 end if ($_VID_LIB~LEN > 3) setvar $_VID_LIB~VALUE "ERROR" return end :_VID_LIB~:229 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:217 end if ($_VID_LIB~K_THOUSANDSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~MILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) if ($_VID_LIB~LEN = 1) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 00 goto :_VID_LIB~:234 end if ($_VID_LIB~LEN = 2) setvar $_VID_LIB~VALUE $_VID_LIB~VALUE & 0 goto :_VID_LIB~:234 end if ($_VID_LIB~LEN > 3) setvar $_VID_LIB~VALUE "ERROR" return end :_VID_LIB~:234 setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:217 end if ($_VID_LIB~MILLIONSPOS > 0) and ($_VID_LIB~BILLIONSPOS = 0) and ($_VID_LIB~T_THOUSANDSPOS = 0) and ($_VID_LIB~K_THOUSANDSPOS = 0) setvar $_VID_LIB~COMMASADDED $_VID_LIB~VALUE gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return goto :_VID_LIB~:217 end setvar $_VID_LIB~VALUE "ERROR" return :_VID_LIB~:237 :_VID_LIB~:217 goto :_VID_LIB~:204 end if ($_VID_LIB~PERIODPOS > 1) replacetext $_VID_LIB~VALUE "." " " getword $_VID_LIB~VALUE $_VID_LIB~1ST_DIGITS 1 getword $_VID_LIB~VALUE $_VID_LIB~2ND_DIGITS 2 isnumber $_VID_LIB~1ST_REAL $_VID_LIB~1ST_DIGITS isnumber $_VID_LIB~2ND_REAL $_VID_LIB~2ND_DIGITS if ($_VID_LIB~1ST_REAL <> 1) setvar $_VID_LIB~VALUE "ERROR" return goto :_VID_LIB~:240 end if ($_VID_LIB~1ST_REAL = TRUE) and ($_VID_LIB~1ST_DIGITS = 0) end :_VID_LIB~:240 setvar $_VID_LIB~VALUE $_VID_LIB~1ST_DIGITS gosub :PERIOD setvar $_VID_LIB~1ST_DIGITS $_VID_LIB~VALUE setvar $_VID_LIB~VALUE "" striptext $_VID_LIB~1ST_DIGITS "," if ($_VID_LIB~2ND_REAL <> TRUE) setvar $_VID_LIB~VALUE "ERROR" return goto :_VID_LIB~:243 end if ($_VID_LIB~2ND_REAL = TRUE) and ($_VID_LIB~2ND_DIGITS > 0) setvar $_VID_LIB~VALUE "" setvar $_VID_LIB~VALUE $_VID_LIB~2ND_DIGITS gosub :ONE_PERIOD setvar $_VID_LIB~2ND_DIGITS $_VID_LIB~VALUE setvar $_VID_LIB~VALUE "" striptext $_VID_LIB~2ND_DIGITS "," end :_VID_LIB~:243 setvar $_VID_LIB~COMMASADDED ($_VID_LIB~1ST_DIGITS + $_VID_LIB~2ND_DIGITS) gosub :ADDCOMMAS setvar $_VID_LIB~VALUE $_VID_LIB~COMMASADDED return end :_VID_LIB~:204 setvar $_VID_LIB~VALUE "ERROR" return :_VID_LIB~ADDCOMMAS getlength $_VID_LIB~COMMASADDED $_VID_LIB~LEN setvar $_VID_LIB~I $_VID_LIB~LEN setvar $_VID_LIB~K 0 setvar $_VID_LIB~COMMAS "" :_VID_LIB~:245 if ($_VID_LIB~I > 0) cuttext $_VID_LIB~COMMASADDED $_VID_LIB~NUMBER $_VID_LIB~I 1 setvar $_VID_LIB~COMMAS $_VID_LIB~NUMBER & $_VID_LIB~COMMAS setvar $_VID_LIB~K ($_VID_LIB~K + 1) if ($_VID_LIB~K = 3) and ($_VID_LIB~I > 1) setvar $_VID_LIB~K 0 setvar $_VID_LIB~COMMAS "," & $_VID_LIB~COMMAS end :_VID_LIB~:248 setvar $_VID_LIB~I ($_VID_LIB~I -1) goto :_VID_LIB~:245 end setvar $_VID_LIB~COMMASADDED $_VID_LIB~COMMAS setvar $_VID_LIB~COMMAS "" return :_VID_LIB~ROUNDTO setvar $_VID_LIB~ROUNDTORESULT $_VID_LIB~ROUNDTOVAL if ($_VID_LIB~ROUNDTOVAL < 1) or ($_VID_LIB~ROUNDTODIV < 1) goto :ENDROUNDTO end :_VID_LIB~:250 setvar $_VID_LIB~RTEMP $_VID_LIB~ROUNDTOVAL :_VID_LIB~:251 if ($_VID_LIB~RTEMP >= $_VID_LIB~ROUNDTODIV) setvar $_VID_LIB~RTEMP ($_VID_LIB~RTEMP -$_VID_LIB~ROUNDTODIV) setvar $_VID_LIB~RVAL ($_VID_LIB~RVAL + 1) goto :_VID_LIB~:251 end setvar $_VID_LIB~ROUNDTORESULT ($_VID_LIB~RVAL * $_VID_LIB~ROUNDTODIV) if ($_VID_LIB~RTEMP <> 0) setvar $_VID_LIB~ROUNDTORESULT ($_VID_LIB~ROUNDTORESULT + $_VID_LIB~ROUNDTODIV) end :_VID_LIB~:254 :_VID_LIB~ENDROUNDTO return :_VID_LIB~ANYKEY echo "*" & ANSI_10 & "Press any key to continue..." getconsoleinput $_VID_LIB~ANYKEY "SINGLEKEY" return :_VID_LIB~PAUSE if ($_VID_LIB~PAUSEKEY = "") or ($_VID_LIB~PAUSEKEY = 0) setvar $_VID_LIB~PAUSEKEY #42 end :_VID_LIB~:256 echo "**" & ANSI_11 & "" & "PAUSED: " & "" & ANSI_15 & "Press " & ANSI_12 & "[" & ANSI_14 & $_VID_LIB~PAUSEKEY & ANSI_12 & "]" & ANSI_15 & " to continue...**" settextouttrigger PAUS :_VID_LIB~UNPAUSEKEYPRESSED $_VID_LIB~PAUSEKEY pause :_VID_LIB~UNPAUSEKEYPRESSED killtrigger "PAUS" echo "**" & ANSI_13 & "" & "UNPAUSED: " & "" & ANSI_15 & "Continuing..." return :_VID_LIB~CLEARSCREEN echo "" echo "" return :_VID_LIB~COMMS_ON send "|" killalltriggers settexttrigger WAITON38 :_VID_LIB~WAITON38 "all messages." pause :_VID_LIB~WAITON38 getword CURRENTLINE $_VID_LIB~MESSAGES 1 if ($_VID_LIB~MESSAGES <> "Displaying") send "|" killalltriggers settexttrigger WAITON39 :_VID_LIB~WAITON39 "all messages." pause :_VID_LIB~WAITON39 end :_VID_LIB~:258 return :_VID_LIB~COMMS_OFF send "|" killalltriggers settexttrigger WAITON40 :_VID_LIB~WAITON40 "all messages." pause :_VID_LIB~WAITON40 getword CURRENTLINE $_VID_LIB~MESSAGES 1 if ($_VID_LIB~MESSAGES <> "Silencing") send "|" killalltriggers settexttrigger WAITON41 :_VID_LIB~WAITON41 "all messages." pause :_VID_LIB~WAITON41 end :_VID_LIB~:260 return :_VID_LIB~DIAL echo "**" ANSI_10 "Creating list... [" & ANSI_15 & #249 & ANSI_10 & "]" setvar $_VID_LIB~METER 0 setarray $_VID_LIB~DIAL 8 setvar $_VID_LIB~DIAL[1] "/" setvar $_VID_LIB~DIAL[2] "-" setvar $_VID_LIB~DIAL[3] "\" setvar $_VID_LIB~DIAL[4] #179 setvar $_VID_LIB~DIAL[5] "/" setvar $_VID_LIB~DIAL[6] "-" setvar $_VID_LIB~DIAL[7] "\" setvar $_VID_LIB~DIAL[8] #179 setvar $_VID_LIB~UNSORTEDCOUNT 0 setvar $_VID_LIB~KEEPCOUNT 0 setvar $_VID_LIB~COUNT 1 setvar $_VID_LIB~COUNT ($_VID_LIB~COUNT + 1) setvar $_VID_LIB~METER ($_VID_LIB~METER + 1) if ($_VID_LIB~METER > 8) setvar $_VID_LIB~METER 1 end :_VID_LIB~:262 echo #27 & "[2D" & ANSI_15 & $_VID_LIB~DIAL[$_VID_LIB~METER] & #27 & "[1C" send #27 return halt if ($_GAMESTATS~TEST1) striptext $_GAMESTATS~LOGONFILE1 "scripts/" savevar $_GAMESTATS~LOGONFILE1 goto :_GAMESTATS~:264 end echo "*" & ANSI_10 $_GAMESTATS~LOGONFILE1 & " Not Found " & $_GAMESTATS~TEST1 :_GAMESTATS~:263 :_GAMESTATS~:264 if ($_GAMESTATS~TEST2) striptext $_GAMESTATS~LOGONFILE2 "scripts/" savevar $_GAMESTATS~LOGONFILE2 goto :_GAMESTATS~:266 end echo "*" & ANSI_10 $_GAMESTATS~LOGONFILE2 & " Not Found " & $_GAMESTATS~TEST2 :_GAMESTATS~:265 :_GAMESTATS~:266 if ($_GAMESTATS~TEST3) striptext $_GAMESTATS~LOGONFILE3 "scripts/" savevar $_GAMESTATS~LOGONFILE3 goto :_GAMESTATS~:268 end echo "*" & ANSI_10 $_GAMESTATS~LOGONFILE3 & " Not Found " & $_GAMESTATS~TEST3 :_GAMESTATS~:267 :_GAMESTATS~:268 if ($_GAMESTATS~TEST4) and ($_GAMESTATS~TEST4 <> 0) striptext $_GAMESTATS~LOGONFILE4 "scripts/" savevar $_GAMESTATS~LOGONFILE4 if ($_GAMESTATS~CHK = 0) end :_GAMESTATS~:272 goto :_GAMESTATS~:270 end :_GAMESTATS~:269 :_GAMESTATS~:270 if ($_GAMESTATS~TEST5) striptext $_GAMESTATS~LOGONFILE5 "scripts/" savevar $_GAMESTATS~LOGONFILE5 goto :_GAMESTATS~:274 end echo "*" & ANSI_10 $_GAMESTATS~LOGONFILE5 & " Not Found " & $_GAMESTATS~TEST5 :_GAMESTATS~:273 :_GAMESTATS~:274 if ($_GAMESTATS~TEST6) and ($_GAMESTATS~TEST6 <> 0) striptext $_GAMESTATS~LOGONFILE6 "scripts/" savevar $_GAMESTATS~LOGONFILE6 goto :_GAMESTATS~:276 end if ($_GAMESTATS~TEST6 = 0) echo "*" & ANSI_10 $_GAMESTATS~LOGONFILE6 & " Not Found " & $_GAMESTATS~TEST6 end :_GAMESTATS~:276 savevar $_GAMESTATS~CKOPTOUTCNSETTINGS savevar $_GAMESTATS~CKSURROUNDFIGTYPE savevar $_GAMESTATS~CKSURROUNDFIGAMOUNT savevar $_GAMESTATS~CKSURROUNDARMIDAMOUNT savevar $_GAMESTATS~CKSURROUNDLIMPETAMOUNT savevar $_GAMESTATS~CKSHIPCAPAUTOLOAD savevar $_GAMESTATS~BOT_TURN_LIMIT savevar $_GAMESTATS~USER_COMMAND_LINE setvar $_GAMESTATS~STATSRUN 1 setvar $_GAMESTATS~FIRSTRUN 1 savevar $_GAMESTATS~FIRSTRUN savevar $_GAMESTATS~SERVERTYPE loadvar $_GAMESTATS~LOGONFILE1 loadvar $_GAMESTATS~LOGONFILE2 loadvar $_GAMESTATS~LOGONFILE3 loadvar $_GAMESTATS~LOGONFILE5 loadvar $_GAMESTATS~LOGONFILE6 loadvar $_GAMESTATS~SERVERTYPE return :_VID_PREGAME~TOPS setvar $_VID_PREGAME~STANDALONE 1 :_VID_PREGAME~STARTUP setvar $_VID_PREGAME~VERSION "1.21" gosub :COLORS loadvar $_VID_PREGAME~BOT_NAME loadvar $_VID_PREGAME~QSSCORP fileexists $_VID_PREGAME~CHECK $_VID_PREGAME~GLOBALS if ($_VID_PREGAME~CHECK = TRUE) readtoarray $_VID_PREGAME~GLOBALS $_VID_PREGAME~LINECOUNT striptext $_VID_PREGAME~LINECOUNT[15] "CorpName: " striptext $_VID_PREGAME~LINECOUNT[16] "PassWord: " setvar $_VID_PREGAME~CORPNAME $_VID_PREGAME~LINECOUNT[15] getlength $_VID_PREGAME~CORPNAME $_VID_PREGAME~CORPNAMELENGTH setvar $_VID_PREGAME~CORPPASS $_VID_PREGAME~LINECOUNT[16] goto :TOPSIE goto :_VID_PREGAME~:279 end setvar $_VID_PREGAME~GLOBALS "Globals.cfg" echo "****" & ANSI_11 echo $_VID_PREGAME~GREEN & "Do you want to Port Fast ? " & $_VID_PREGAME~ENDANSI & "*" getconsoleinput $_VID_PREGAME~FILLPFAST "SINGLEKEY" uppercase $_VID_PREGAME~FILLPFAST echo $_VID_PREGAME~GREEN & "*Do you want to Dock Fast ? " & $_VID_PREGAME~ENDANSI & "*" getconsoleinput $_VID_PREGAME~FILLDFAST "SINGLEKEY" uppercase $_VID_PREGAME~FILLDFAST echo $_VID_PREGAME~GREEN & "Do you want to Land On Terra ? " & $_VID_PREGAME~ENDANSI & "*" getconsoleinput $_VID_PREGAME~FILLLFAST "SINGLEKEY" uppercase $_VID_PREGAME~FILLLFAST echo $_VID_PREGAME~GREEN & "Do you want to Clear Messages ? " & $_VID_PREGAME~ENDANSI & "*" getconsoleinput $_VID_PREGAME~FILLCMESSAGES "SINGLEKEY" uppercase $_VID_PREGAME~FILLCMESSAGES echo $_VID_PREGAME~GREEN & "Do you want to Clear Avoids ? " & $_VID_PREGAME~ENDANSI & "*" getconsoleinput $_VID_PREGAME~FILLCAVOIDS "SINGLEKEY" uppercase $_VID_PREGAME~FILLCAVOIDS echo $_VID_PREGAME~GREEN & "*Do you want to Use an Alias ? " & $_VID_PREGAME~ENDANSI & "*" getconsoleinput $_VID_PREGAME~FILLUALIAS "SINGLEKEY" uppercase $_VID_PREGAME~FILLUALIAS getinput $_VID_PREGAME~FILLALIAS "*WHAT alias name to use ? " getinput $_VID_PREGAME~FILLSSCOMM "*WHAT SS Comms channel to use ? " getinput $_VID_PREGAME~FILLSHIPNAME "*WHAT Ship name to use ? " getinput $_VID_PREGAME~FILLPLANETNAME "*WHAT Planet name to use ? " getinput $_VID_PREGAME~FILLCORPNAME "*WHAT Corp Name to use ? " getinput $_VID_PREGAME~FILLCORPPASSWORD "*WHAT Corp PassWord to use ? " setvar $_VID_PREGAME~CORPNAME $_VID_PREGAME~FILLCORPNAME setvar $_VID_PREGAME~CORPPASS $_VID_PREGAME~FILLCORPPASSWORD write $_VID_PREGAME~GLOBALS $_VID_PREGAME~PFAST write $_VID_PREGAME~GLOBALS $_VID_PREGAME~DFAST write $_VID_PREGAME~GLOBALS $_VID_PREGAME~LFAST setvar $_VID_PREGAME~REDAILIES "Read Dailies: N" write $_VID_PREGAME~GLOBALS $_VID_PREGAME~REDAILIES setvar $_VID_PREGAME~READLOGS "Read Todays Log: Y" write $_VID_PREGAME~GLOBALS $_VID_PREGAME~READLOGS write $_VID_PREGAME~GLOBALS $_VID_PREGAME~CMESSAGES write $_VID_PREGAME~GLOBALS $_VID_PREGAME~CAVOIDS write $_VID_PREGAME~GLOBALS $_VID_PREGAME~UALIAS write $_VID_PREGAME~GLOBALS $_VID_PREGAME~ALIAS write $_VID_PREGAME~GLOBALS $_VID_PREGAME~SSCOMM write $_VID_PREGAME~GLOBALS $_VID_PREGAME~SHIPNAME write $_VID_PREGAME~GLOBALS $_VID_PREGAME~PLANETNAME setvar $_VID_PREGAME~MAKEJOIN "Make or Join Corp: Y" write $_VID_PREGAME~GLOBALS $_VID_PREGAME~MAKEJOIN write $_VID_PREGAME~GLOBALS $_VID_PREGAME~CORPNAME write $_VID_PREGAME~GLOBALS $_VID_PREGAME~CORPPASSWORD write $_VID_PREGAME~GLOBALS "Stop @ Tmenu: N" write $_VID_PREGAME~GLOBALS "GetMeStatsNow: N" write $_VID_PREGAME~GLOBALS "AutoStart: Y" write $_VID_PREGAME~GLOBALS "TradeWars Passport: 0A0-0B-440" write $_VID_PREGAME~GLOBALS "Listening Port OverRide: N" write $_VID_PREGAME~GLOBALS "Private Game Password: Private" disconnect :_VID_PREGAME~:278 :_VID_PREGAME~:279 echo "**All Done , now log in again*" goto :STANDALONE :_VID_PREGAME~TOPSIE gosub :PLAYERINFO~INFOQUICK settexttrigger WAITON42 :_VID_PREGAME~WAITON42 "ommand" pause :_VID_PREGAME~WAITON42 setvar $_VID_PREGAME~CORPNIM $PLAYERINFO~CORP if ($_VID_PREGAME~CORPNIM = 0) goto :NOCORPS goto :_VID_PREGAME~:281 end goto :DONEDEAL :_VID_PREGAME~:280 :_VID_PREGAME~:281 echo "**" ANSI_7 & "Error in pregame*" goto :STANDALONE :_VID_PREGAME~NOCORPS send "td" settexttrigger WAITON43 :_VID_PREGAME~WAITON43 "Rank Corporations" pause :_VID_PREGAME~WAITON43 settextlinetrigger CHECKCORP1 :_VID_PREGAME~CHECKCORP $_VID_PREGAME~CORPNAME settextlinetrigger CHECKCORP2 :_VID_PREGAME~CHECKCORP $_VID_PREGAME~CORPNAME settextlinetrigger CHECKCORP3 :_VID_PREGAME~CHECKCORP $_VID_PREGAME~CORPNAME settextlinetrigger CHECKCORP4 :_VID_PREGAME~CHECKCORP $_VID_PREGAME~CORPNAME settexttrigger CHECKCORP5 :_VID_PREGAME~CHECKCORP $_VID_PREGAME~CORPNAME setdelaytrigger DELAYC :_VID_PREGAME~DONECORP 5000 settexttrigger DONECORP :_VID_PREGAME~DONECORP "Corporate command" settexttrigger LOOP :_VID_PREGAME~ONLINENOT "CONNECTION LOST" send "rq" pause :_VID_PREGAME~CHECKCORP getword CURRENTLINE $_VID_PREGAME~CORPNIM 2 cuttext CURRENTLINE $_VID_PREGAME~TEXT 9 24 setvar $_PAD_LIB~TEXT $_VID_PREGAME~TEXT gosub :_PAD_LIB~TRAIL setvar $_VID_PREGAME~WHOLE $_PAD_LIB~TEXT getlength $_VID_PREGAME~WHOLE $_VID_PREGAME~BSIZE if ($_VID_PREGAME~CORPNAMELENGTH <> $_VID_PREGAME~BSIZE) setvar $_VID_PREGAME~CORPNIM 0 pause end :_VID_PREGAME~:283 killalltriggers :_VID_PREGAME~DONECORP killalltriggers striptext $_VID_PREGAME~CORPNIM "#" striptext $_VID_PREGAME~CORPNIM " " striptext $_VID_PREGAME~CORPNIM "C" isnumber $_VID_PREGAME~ISITCORPNUM $_VID_PREGAME~CORPNIM if ($_VID_PREGAME~ISITCORPNUM = FALSE) or ($_VID_PREGAME~CORPNIM = 0) send "tm" settexttrigger WAITON44 :_VID_PREGAME~WAITON44 "" pause :_VID_PREGAME~WAITON44 settexttrigger WAITON45 :_VID_PREGAME~WAITON45 "Enter Corp name" pause :_VID_PREGAME~WAITON45 send $_VID_PREGAME~CORPNAME & "*" waitfor " is what you want?" send "y" settexttrigger WAITON46 :_VID_PREGAME~WAITON46 "Enter Corp password" pause :_VID_PREGAME~WAITON46 send $_VID_PREGAME~CORPPASS & "*" settexttrigger WAITON47 :_VID_PREGAME~WAITON47 "is what you want?" pause :_VID_PREGAME~WAITON47 send "y*" waitfor "Corporate command" send " * " settexttrigger WAITON48 :_VID_PREGAME~WAITON48 "elp)? :" pause :_VID_PREGAME~WAITON48 send "co*cqd" settexttrigger WAITON49 :_VID_PREGAME~WAITON49 "] (?" pause :_VID_PREGAME~WAITON49 gettext CURRENTLINE $_VID_PREGAME~ENTRYPOINT "]:[" "] (?=" if ($_VID_PREGAME~ENTRYPOINT > 10) and ($_VID_PREGAME~ENTRYPOINT <> STARDOCK) send "locq * fz1*zcd" end :_VID_PREGAME~:287 goto :DONEDEAL goto :_VID_PREGAME~:285 end if ($_VID_PREGAME~ISITCORPNUM) and ($_VID_PREGAME~CORPNAMELENGTH = $_VID_PREGAME~BSIZE) send "tj" settexttrigger WAITON50 :_VID_PREGAME~WAITON50 "Which Corp number do you wish to join?" pause :_VID_PREGAME~WAITON50 send $_VID_PREGAME~CORPNIM & "*" settexttrigger WAITON51 :_VID_PREGAME~WAITON51 "Enter the Password to join -" pause :_VID_PREGAME~WAITON51 settextlinetrigger BREAKIN :_VID_PREGAME~BREAKIN "break into this Corp" settextlinetrigger ONACORPALREADY :_VID_PREGAME~ONACORP "You may only be on one Corp at a time." settextlinetrigger WRONGALIGN :_VID_PREGAME~WRONGALIGN "Sorry, you can only join a Corporation" settextlinetrigger CORPFULL :_VID_PREGAME~CORPFULL "Regulations prohibit more" settextlinetrigger YOURIN :_VID_PREGAME~YOURIN "Welcome aboard!" send $_VID_PREGAME~CORPPASS & "*" end :_VID_PREGAME~:285 pause :_VID_PREGAME~WRONGALIGN killalltriggers send "*'I'm wrong alignment to join*" settexttrigger WAITON52 :_VID_PREGAME~WAITON52 "ub-space c" pause :_VID_PREGAME~WAITON52 goto :STANDALONE :_VID_PREGAME~BREAKIN killalltriggers send "*'I have Wrong password to join*" settexttrigger WAITON53 :_VID_PREGAME~WAITON53 "ub-space c" pause :_VID_PREGAME~WAITON53 goto :STANDALONE :_VID_PREGAME~CORPFULL killalltriggers send "*'The corp is too full to join*" settexttrigger WAITON54 :_VID_PREGAME~WAITON54 "ub-space c" pause :_VID_PREGAME~WAITON54 goto :STANDALONE :_VID_PREGAME~ONACORP killalltriggers send " * " goto :STANDALONE :_VID_PREGAME~YOURIN killalltriggers send "q q *co*cq * " settexttrigger WAITON55 :_VID_PREGAME~WAITON55 "] (?" pause :_VID_PREGAME~WAITON55 gettext CURRENTLINE $_VID_PREGAME~ENTRYPOINT "]:[" "] (?=" if ($_VID_PREGAME~ENTRYPOINT > 10) and ($_VID_PREGAME~ENTRYPOINT <> STARDOCK) send "locq * fz1*zcd" end :_VID_PREGAME~:290 send "'In Game & Maybe All Corp'd Up!*" settexttrigger WAITON56 :_VID_PREGAME~WAITON56 "ub-space c" pause :_VID_PREGAME~WAITON56 sound "DING_DONG" goto :STANDALONE :_VID_PREGAME~DONEDEAL send "'In Game & All Ready Corp'd Up!*" settexttrigger WAITON57 :_VID_PREGAME~WAITON57 "ub-space c" pause :_VID_PREGAME~WAITON57 sound "DING_DONG" goto :STANDALONE :_VID_PREGAME~COLORS setvar $_VID_PREGAME~GREEN #27 & "[0;32m" setvar $_VID_PREGAME~CYAN #27 & "[1;36m" setvar $_VID_PREGAME~WHITE #27 & "[0;1;37;40m" setvar $_VID_PREGAME~YELLOW #27 & "[1;33m" setvar $_VID_PREGAME~FLASHYGREEN #27 & "[1;5;32m" setvar $_VID_PREGAME~FLASHYCYAN #27 & "[1;5;36m" setvar $_VID_PREGAME~FLASHYWHITE #27 & "[1;5;37m" setvar $_VID_PREGAME~FLASHYYELLOW #27 & "[1;5;33m" setvar $_VID_PREGAME~ENDANSI #27 & "[0m" return :_VID_PREGAME~STANDALONE if ($_VID_PREGAME~STANDALONE <> 1) return end :_VID_PREGAME~:292 halt :PLAYERINFO~INFOQUICK send "/" setvar $PLAYERINFO~LINE "" settextlinetrigger LINE :PLAYERINFO~LINE pause :PLAYERINFO~LINE getwordpos CURRENTLINE $PLAYERINFO~POS #179 getword CURRENTLINE $PLAYERINFO~TEST 1 if ($PLAYERINFO~POS = 0) and ($PLAYERINFO~TEST <> "Ship") if ($PLAYERINFO~LINE <> "") return end :PLAYERINFO~:296 settextlinetrigger LINE :PLAYERINFO~LINE pause end :PLAYERINFO~:294 setvar $PLAYERINFO~LINE CURRENTLINE striptext $PLAYERINFO~LINE "," replacetext $PLAYERINFO~LINE #179 " " setvar $PLAYERINFO~PARAM 1 :PLAYERINFO~NEXT getword $PLAYERINFO~LINE $PLAYERINFO~WORD $PLAYERINFO~PARAM getword $PLAYERINFO~LINE $PLAYERINFO~VALUE (($PLAYERINFO~PARAM + 1)) if ($PLAYERINFO~WORD = 0) settextlinetrigger LINE :PLAYERINFO~LINE pause end :PLAYERINFO~:298 if ($PLAYERINFO~WORD = "Sect") setvar $PLAYERINFO~SECTOR $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Turns") setvar $PLAYERINFO~TURNS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Creds") setvar $PLAYERINFO~CREDITS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Figs") setvar $PLAYERINFO~FIGHTERS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Shlds") setvar $PLAYERINFO~SHIELDS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Hlds") setvar $PLAYERINFO~HOLDS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Ore") setvar $PLAYERINFO~ORE $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Org") setvar $PLAYERINFO~ORG $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Equ") setvar $PLAYERINFO~EQUIP $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Col") setvar $PLAYERINFO~COLONISTS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Phot") setvar $PLAYERINFO~PHOTONS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Armd") setvar $PLAYERINFO~MINES $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Lmpt") setvar $PLAYERINFO~LIMPETS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "GTorp") setvar $PLAYERINFO~GENTORPS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "TWarp") if ($PLAYERINFO~VALUE = "No") setvar $PLAYERINFO~TWARP 0 goto :PLAYERINFO~:316 end setvar $PLAYERINFO~TWARP $PLAYERINFO~VALUE :PLAYERINFO~:315 :PLAYERINFO~:316 goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Clks") setvar $PLAYERINFO~CLOAKS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Beacns") setvar $PLAYERINFO~BEACONS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "AtmDt") setvar $PLAYERINFO~DETS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Crbo") setvar $PLAYERINFO~CORBO $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "EPrb") setvar $PLAYERINFO~PROBES $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "MDis") setvar $PLAYERINFO~DISRUPTORS $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "PsPrb") if ($PLAYERINFO~VALUE = "Yes") setvar $PLAYERINFO~PSIPROBE 1 goto :PLAYERINFO~:325 end setvar $PLAYERINFO~PSIPROBE 0 :PLAYERINFO~:324 :PLAYERINFO~:325 goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "PlScn") if ($PLAYERINFO~VALUE = "Yes") setvar $PLAYERINFO~PLANETSCANNER 1 goto :PLAYERINFO~:328 end setvar $PLAYERINFO~PLANETSCANNER 0 :PLAYERINFO~:327 :PLAYERINFO~:328 goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "LRS") if ($PLAYERINFO~VALUE = "None") setvar $PLAYERINFO~SCANNER 0 goto :PLAYERINFO~:331 end if ($PLAYERINFO~VALUE = "Holo") setvar $PLAYERINFO~SCANNER 2 goto :PLAYERINFO~:331 end setvar $PLAYERINFO~SCANNER 1 :PLAYERINFO~:332 :PLAYERINFO~:331 goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Aln") setvar $PLAYERINFO~ALIGN $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Exp") setvar $PLAYERINFO~EXPERIENCE $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Corp") setvar $PLAYERINFO~CORP $PLAYERINFO~VALUE goto :PLAYERINFO~:300 end if ($PLAYERINFO~WORD = "Ship") setvar $PLAYERINFO~SHIP $PLAYERINFO~VALUE end :PLAYERINFO~:300 add $PLAYERINFO~PARAM 2 goto :NEXT :_PAD_LIB~TRAIL setvar $_PAD_LIB~TEXT $_PAD_LIB~TEXT & "^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT " ^^^" striptext $_PAD_LIB~TEXT "^^^" return :_PAD_LIB~LEADIN setvar $_PAD_LIB~TEXT "^^^" & $_PAD_LIB~TEXT striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^ " striptext $_PAD_LIB~TEXT "^^^" return :_PAD_LIB~RFORMAT getlength $_PAD_LIB~FORMAT $_PAD_LIB~LEN :_PAD_LIB~:337 if ($_PAD_LIB~LEN < $_PAD_LIB~FORMATLEN) setvar $_PAD_LIB~FORMAT $_PAD_LIB~FORMAT & " " add $_PAD_LIB~LEN 1 goto :_PAD_LIB~:337 end setvar $_PAD_LIB~FORMATLEN 0 return :_PAD_LIB~LFORMAT getlength $_PAD_LIB~FORMAT $_PAD_LIB~LEN :_PAD_LIB~:339 if ($_PAD_LIB~LEN < $_PAD_LIB~FORMATLEN) setvar $_PAD_LIB~FORMAT " " & $_PAD_LIB~FORMAT add $_PAD_LIB~LEN 1 goto :_PAD_LIB~:339 end setvar $_PAD_LIB~FORMATLEN 0 return :_PAD_LIB~NUMFORMAT getlength $_PAD_LIB~FORMAT $_PAD_LIB~LENGTH_TOTAL if ($_PAD_LIB~LENGTH_TOTAL > 3) setvar $_PAD_LIB~LMARKER $_PAD_LIB~LENGTH_TOTAL add $_PAD_LIB~LMARKER 1 :_PAD_LIB~:343 if ($_PAD_LIB~LMARKER > 0) subtract $_PAD_LIB~LMARKER 3 cuttext $_PAD_LIB~FORMAT $_PAD_LIB~NUM1 $_PAD_LIB~LMARKER 9999999 cuttext $_PAD_LIB~FORMAT $_PAD_LIB~NUM2 1 ($_PAD_LIB~LMARKER -1) if ($_PAD_LIB~NUM2 <> "") setvar $_PAD_LIB~NUM1 $_PAD_LIB~NUM2 & "," & $_PAD_LIB~NUM1 setvar $_PAD_LIB~FORMAT $_PAD_LIB~NUM1 end :_PAD_LIB~:346 goto :_PAD_LIB~:343 end end :_PAD_LIB~:342 if ($_PAD_LIB~FORMAT = "0, ") striptext $_PAD_LIB~NUM1 "," setvar $_PAD_LIB~NUM1 $_PAD_LIB~NUM1 & " " setvar $_PAD_LIB~FORMAT $_PAD_LIB~NUM1 end :_PAD_LIB~:348 return setvar $_VID_STARTUP~VERSION "1.09include" :_VID_STARTUP~TOP send " * " settexttrigger WAITON58 :_VID_STARTUP~WAITON58 "]:[" pause :_VID_STARTUP~WAITON58 cuttext CURRENTLINE $_VID_STARTUP~LOCATION 1 12 if ($_VID_STARTUP~LOCATION <> "Command [TL=") send ANSI_15 "**This script must be run from the Command Prompt" return halt end :_VID_STARTUP~:350 :_VID_STARTUP~SETGAMEPREFS send "cn" settexttrigger WAITON59 :_VID_STARTUP~WAITON59 "" pause :_VID_STARTUP~WAITON59 settextlinetrigger ANSI :_VID_STARTUP~ANSI "ANSI graphics" settextlinetrigger ANIMATION :_VID_STARTUP~ANIMATION "Animation display" settextlinetrigger PAGEMESSAGES :_VID_STARTUP~PAGEMESSAGES "Page on messages" settextlinetrigger SUBSPACE :_VID_STARTUP~SUBCHK "Sub-space radio channel" settextlinetrigger FEDCOM :_VID_STARTUP~FEDCOM "Federation comm-link" settextlinetrigger HAILS :_VID_STARTUP~HAILS "Receive private hails" settextlinetrigger SILENCEMESSAGES :_VID_STARTUP~SILENCEMESSAGES "Silence ALL messages" settextlinetrigger ABORTDISPLAYALL :_VID_STARTUP~ABORTDISPLAYALL "Abort display on keys" settextlinetrigger MESSAGEDISPLAYLONG :_VID_STARTUP~MESSAGEDISPLAYLONG "Message Display Mode" settextlinetrigger SCREENPAUSES :_VID_STARTUP~SCREENPAUSES "Screen Pauses" settextlinetrigger AUTOFLEE :_VID_STARTUP~AUTOFLEE "Online Auto Flee" settexttrigger DISPLAYDONE :_VID_STARTUP~DISPLAYDONE "Settings command (?=Help)" pause :_VID_STARTUP~ANSI getword CURRENTLINE $_VID_STARTUP~ANSI 5 uppercase $_VID_STARTUP~ANSI pause :_VID_STARTUP~ANIMATION getword CURRENTLINE $_VID_STARTUP~ANIMATION 5 uppercase $_VID_STARTUP~ANIMATION pause :_VID_STARTUP~PAGEMESSAGES getword CURRENTLINE $_VID_STARTUP~PAGEMESSAGES 6 uppercase $_VID_STARTUP~PAGEMESSAGES pause :_VID_STARTUP~SUBCHK getword CURRENTLINE $_VID_STARTUP~SUBSPAC 6 pause :_VID_STARTUP~FEDCOM getword CURRENTLINE $_VID_STARTUP~FEDCOM 5 uppercase $_VID_STARTUP~FEDCOM pause :_VID_STARTUP~HAILS getword CURRENTLINE $_VID_STARTUP~HAILS 6 uppercase $_VID_STARTUP~HAILS pause :_VID_STARTUP~SILENCEMESSAGES getword CURRENTLINE $_VID_STARTUP~SILENCEMESSAGES 6 uppercase $_VID_STARTUP~SILENCEMESSAGES pause :_VID_STARTUP~ABORTDISPLAYALL getword CURRENTLINE $_VID_STARTUP~ABORTDISPLAYALL 7 uppercase $_VID_STARTUP~ABORTDISPLAYALL pause :_VID_STARTUP~MESSAGEDISPLAYLONG getword CURRENTLINE $_VID_STARTUP~MESSAGEDISPLAYLONG 6 uppercase $_VID_STARTUP~MESSAGEDISPLAYLONG pause :_VID_STARTUP~SCREENPAUSES getword CURRENTLINE $_VID_STARTUP~SCREENPAUSES 5 uppercase $_VID_STARTUP~SCREENPAUSES pause :_VID_STARTUP~AUTOFLEE getword CURRENTLINE $_VID_STARTUP~AUTOFLEE 6 uppercase $_VID_STARTUP~AUTOFLEE pause :_VID_STARTUP~DISPLAYDONE killalltriggers setvar $_VID_STARTUP~SEND "" if ($_VID_STARTUP~ANSI <> "ON") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 1 end :_VID_STARTUP~:352 if ($_VID_STARTUP~ANIMATION <> "OFF") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 2 end :_VID_STARTUP~:354 if ($_VID_STARTUP~PAGEMESSAGES <> "OFF") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 3 end :_VID_STARTUP~:356 if ($_VID_STARTUP~SUBSPAC = 0) getrnd $_VID_STARTUP~SSCHAN 1 60000 setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 4 & $_VID_STARTUP~SSCHAN & " *" end :_VID_STARTUP~:358 if ($_VID_STARTUP~FEDCOM <> "ON") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 5 end :_VID_STARTUP~:360 if ($_VID_STARTUP~HAILS <> "YES") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 6 end :_VID_STARTUP~:362 if ($_VID_STARTUP~SILENCEMESSAGES <> "NO") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 7 end :_VID_STARTUP~:364 if ($_VID_STARTUP~ABORTDISPLAYALL <> "SPACE") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & 9 end :_VID_STARTUP~:366 if ($_VID_STARTUP~MESSAGEDISPLAYLONG <> "COMPACT") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & " a " end :_VID_STARTUP~:368 if ($_VID_STARTUP~SCREENPAUSES <> "NO") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & " b " end :_VID_STARTUP~:370 if ($_VID_STARTUP~AUTOFLEE <> "OFF") setvar $_VID_STARTUP~SEND $_VID_STARTUP~SEND & " c " end :_VID_STARTUP~:372 send $_VID_STARTUP~SEND "q" send " u y q" settexttrigger WAITON60 :_VID_STARTUP~WAITON60 "elp" pause :_VID_STARTUP~WAITON60 settexttrigger WAITON61 :_VID_STARTUP~WAITON61 "elp" pause :_VID_STARTUP~WAITON61 send #145 return halt :TERRAKIT~TERRA_KITS setvar $TERRAKIT~LOOP 0 :TERRAKIT~TERRA_KIT killalltriggers setdelaytrigger TERRA0 :TERRAKIT~TERRA0 10000 send #145 settexttrigger WAITON62 :TERRAKIT~WAITON62 #145 & #8 pause :TERRAKIT~WAITON62 killalltriggers getwordpos CURRENTLINE $TERRAKIT~TERRA_PROMPT "Colonists" if ($TERRAKIT~TERRA_PROMPT = 0) echo ANSI_13 "MUST BE AT TERRA PROMPT*" send #145 return end :TERRAKIT~:374 killalltriggers if ($TERRAKIT~LOOP = 0) setdelaytrigger TERRA0 :TERRAKIT~TERRA0 10000 settexttrigger PSCAN :TERRAKIT~PSCAN "PlScn" settexttrigger PRO :TERRAKIT~PRO "(L)eave or (T)ake" send "/" pause :TERRAKIT~PSCAN killalltriggers gettext CURRENTLINE $TERRAKIT~PSCAN "PlScn" "LRS" striptext $TERRAKIT~PSCAN " " striptext $TERRAKIT~PSCAN #179 uppercase $TERRAKIT~PSCAN if ($TERRAKIT~PSCAN = "YES") setvar $TERRAKIT~LAND "l 1* " goto :TERRAKIT~:378 end setvar $TERRAKIT~LAND "l " :TERRAKIT~:377 :TERRAKIT~:378 add $TERRAKIT~LOOP 1 end :TERRAKIT~:376 :TERRAKIT~PRO killalltriggers echo "**" & ANSI_12 " -=(" ANSI_14 " Terra Survival Toolkit" ANSI_12 " )=-*" echo "*" & ANSI_12 " -=(" ANSI_14 " Check for Twarp Before using Twarp Macros" ANSI_12 " )=-*" echo ANSI_13 " ----------------------------------------------------------------------*" echo ANSI_13 " <" ANSI_10 1 ANSI_13 "> " ANSI_14 "display Terra sector" ANSI_11 ", land " ANSI_13 "<" ANSI_10 5 ANSI_13 "> " ANSI_14 "check twarp lock" ANSI_11 ", land*" echo ANSI_13 " <" ANSI_10 2 ANSI_13 "> " ANSI_14 "holoscan" ANSI_11 ", land " ANSI_13 "<" ANSI_10 6 ANSI_13 "> " ANSI_14 "lift, twarp out*" echo ANSI_13 " <" ANSI_10 3 ANSI_13 "> " ANSI_14 "density scan" ANSI_11 ", land " ANSI_13 "<" ANSI_10 7 ANSI_13 "> " ANSI_14 "lift, lock tow, twarp out*" echo ANSI_13 " <" ANSI_10 4 ANSI_13 "> " ANSI_14 "get xport list" ANSI_11 ", land " ANSI_13 "<" ANSI_10 8 ANSI_13 "> " ANSI_14 "xport" ANSI_11 ", land*" echo "*" echo ANSI_13 " <" ANSI_10 "A" ANSI_13 "> " ANSI_14 "set avoid" ANSI_11 "(Interrogation mode) " ANSI_13 "<" ANSI_10 "E" ANSI_13 "> " ANSI_14 "lift, cloak out*" echo ANSI_13 " <" ANSI_10 "B" ANSI_13 "> " ANSI_14 "clear all voids" ANSI_11 ", land " ANSI_13 "<" ANSI_10 "F" ANSI_13 "> " ANSI_14 "C U Y (enable t-warp)" ANSI_11 " ,land*" echo ANSI_13 " <" ANSI_10 "C" ANSI_13 "> " ANSI_14 "plot course" ANSI_11 ", land " ANSI_13 "<" ANSI_10 "G" ANSI_13 "> " ANSI_14 "toggle c n 9*" echo ANSI_13 " <" ANSI_10 "D" ANSI_13 "> " ANSI_14 "get corpie locations" ANSI_11 ", land " ANSI_13 "<" ANSI_10 "H" ANSI_13 "> " ANSI_14 "xport , twarp out*" echo ANSI_13 " <" ANSI_10 "I" ANSI_13 "> " ANSI_14 "get OFF a CORP " ANSI_11 ", land " ANSI_13 "<" ANSI_10 "J" ANSI_13 "> " ANSI_14 "get ON a CORP " ANSI_11 ", land *" echo ANSI_13 " <" ANSI_10 "#" ANSI_13 "> " ANSI_14 "Check Who's Online" ANSI_11 " " ANSI_13 "<" ANSI_10 "Z" ANSI_13 "> " ANSI_14 "C B Y and Die*" echo ANSI_13 "* <" ANSI_10 "Q" ANSI_13 "> " ANSI_14 " Quit " & ANSI_15 & "-" & ANSI_12 & " and Continue Login in Sector 1*" echo ANSI_13 " ----------------------------------------------------------------------*" :TERRAKIT~ASK_TERRA echo "*" & ANSI_10 "Your choice? (" & ANSI_15 #34 ANSI_14 & "$" & ANSI_15 #34 ANSI_10 & " to abort) " getconsoleinput $TERRAKIT~CHOICE "SINGLEKEY" uppercase $TERRAKIT~CHOICE setvar $TERRAKIT~SECTOR "" setvar $TERRAKIT~SHIP "" if ($TERRAKIT~CHOICE <> "Q") and ($TERRAKIT~CHOICE <> 1) and ($TERRAKIT~CHOICE <> 2) and ($TERRAKIT~CHOICE <> 3) and ($TERRAKIT~CHOICE <> 4) and ($TERRAKIT~CHOICE <> 5) and ($TERRAKIT~CHOICE <> 6) and ($TERRAKIT~CHOICE <> 7) and ($TERRAKIT~CHOICE <> 8) and ($TERRAKIT~CHOICE <> "A") and ($TERRAKIT~CHOICE <> "B") and ($TERRAKIT~CHOICE <> "C") and ($TERRAKIT~CHOICE <> "D") and ($TERRAKIT~CHOICE <> "E") and ($TERRAKIT~CHOICE <> "F") and ($TERRAKIT~CHOICE <> "G") and ($TERRAKIT~CHOICE <> "H") and ($TERRAKIT~CHOICE <> "I") and ($TERRAKIT~CHOICE <> "J") and ($TERRAKIT~CHOICE <> "#") and ($TERRAKIT~CHOICE <> "Z") goto :TERRA_KIT end :TERRAKIT~:380 if ($TERRAKIT~CHOICE = "Q") send "q " setvar $TERRAKIT~KILLKIT 1 return end :TERRAKIT~:382 if ($TERRAKIT~CHOICE = 1) send "q d" & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 2) send "q szh*" & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 3) send "q sd" & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 4) send "q x ** " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 5) getinput $TERRAKIT~SECTOR "What sector to check for lock? " uppercase $TERRAKIT~SECTOR if ($TERRAKIT~SECTOR = "Q") return end :TERRAKIT~:390 gosub :SECTOR_CHECK_TERRA send "q m " & $TERRAKIT~SECTOR & "* yn * " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 6) getinput $TERRAKIT~SECTOR "What sector to twarp to? " uppercase $TERRAKIT~SECTOR if ($TERRAKIT~SECTOR = "Q") return end :TERRAKIT~:393 gosub :SECTOR_CHECK_TERRA send "q m " & $TERRAKIT~SECTOR & "*yy * " return goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 7) getinput $TERRAKIT~SECTOR "What sector to twarp to? ('Q' to abort) " uppercase $TERRAKIT~SECTOR if ($TERRAKIT~SECTOR = "Q") return end :TERRAKIT~:396 gosub :SECTOR_CHECK_TERRA getinput $TERRAKIT~SHIP "What ship number to tow? ('Q' to abort) " uppercase $TERRAKIT~SHIP if ($TERRAKIT~SHIP = "Q") return end :TERRAKIT~:398 gosub :SHIP_CHECK echo "*Engage? (Y/N)? " getconsoleinput $TERRAKIT~ENGAGE "SINGLEKEY" uppercase $TERRAKIT~ENGAGE if ($TERRAKIT~ENGAGE = "Y") send "q w n " & $TERRAKIT~SHIP & "* m " & $TERRAKIT~SECTOR & "*yy * " goto :TERRAKIT~:400 end return :TERRAKIT~:399 :TERRAKIT~:400 return goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = 8) getinput $TERRAKIT~SHIP "What ship number to xport to? ('Q' to abort) " if ($TERRAKIT~SHIP = "Q") or ($TERRAKIT~SHIP = "q") return end :TERRAKIT~:403 gosub :SHIP_CHECK settexttrigger LAND1 :TERRAKIT~LAND1 "ready to leave Terra" settexttrigger LAND2 :TERRAKIT~LAND2 "Land on which planet" setdelaytrigger LAND3 :TERRAKIT~LAND2 10000 send "q x * " & $TERRAKIT~SHIP & " * * " & $TERRAKIT~LAND pause :TERRAKIT~LAND2 killalltriggers send "1* " :TERRAKIT~LAND1 killalltriggers setdelaytrigger TERRA1 :TERRAKIT~TERRA0 10000 settexttrigger PSCAN1 :TERRAKIT~PSCAN0 "PlScn" send "/" pause :TERRAKIT~PSCAN0 killalltriggers gettext CURRENTLINE $TERRAKIT~PSCAN "PlScn" "LRS" striptext $TERRAKIT~PSCAN " " striptext $TERRAKIT~PSCAN #179 uppercase $TERRAKIT~PSCAN if ($TERRAKIT~PSCAN = "YES") setvar $TERRAKIT~LAND "l 1* " goto :TERRAKIT~:405 end setvar $TERRAKIT~LAND "l " :TERRAKIT~:404 :TERRAKIT~:405 setdelaytrigger TERRA2 :TERRAKIT~TERRA0 10000 send #145 settexttrigger WAITON63 :TERRAKIT~WAITON63 #145 & #8 pause :TERRAKIT~WAITON63 killalltriggers getword CURRENTLINE $TERRAKIT~TEST 1 lowercase $TERRAKIT~TEST if ($TERRAKIT~TEST = "how") send "0* " & $TERRAKIT~LAND goto :TERRAKIT~:407 end if ($TERRAKIT~TEST = "do") goto :TERRAKIT~:407 end send "0* 0* q q zn " & $TERRAKIT~LAND :TERRAKIT~:408 :TERRAKIT~:407 goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "A") getinput $TERRAKIT~SECTOR "What sector to void? ('Q' to abort) " uppercase $TERRAKIT~SECTOR if ($TERRAKIT~SECTOR = "Q") return end :TERRAKIT~:411 gosub :SECTOR_CHECK_TERRA send "^?s" & $TERRAKIT~SECTOR "*q" goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "B") send "q cv0*yyq " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "C") getinput $TERRAKIT~SECTOR "What sector to check plot? ('Q' to abort) " uppercase $TERRAKIT~SECTOR if ($TERRAKIT~SECTOR = "Q") return end :TERRAKIT~:415 gosub :SECTOR_CHECK_TERRA send "qcf1*" & $TERRAKIT~SECTOR & "*q" & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "D") send "q t aq " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "E") send "q q y y?*" goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "F") send "q c u y q " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "G") send "q c n 9 q q " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "I") settextlinetrigger CHECK4AIT :TERRAKIT~CHECK4AIT "Corp " settextlinetrigger CHECK4ACORP :TERRAKIT~CHECK4ACORP "Ship" send "/" pause :TERRAKIT~CHECK4ACORP killalltriggers goto :TERRA_KIT :TERRAKIT~CHECK4AIT killalltriggers send "q txy* " & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "J") settextlinetrigger CHECK4IT :TERRAKIT~CHECK4IT "Corp " settextlinetrigger CHECK4CORP :TERRAKIT~CHECK4CORP "Ship" send "/" pause :TERRAKIT~CHECK4IT killtrigger "CHECK4CORP" gettext CURRENTLINE $TERRAKIT~ONCORP "Corp " "³" echo "**" ANSI_11 "Your on Corp " & ANSI_14 $TERRAKIT~ONCORP "*" killalltriggers goto :TERRA_KIT :TERRAKIT~CHECK4CORP killalltriggers echo ANSI_14 "*What Corp Number ?" getconsoleinput $TERRAKIT~CORPNUM "SINGLEKEY" getinput $TERRAKIT~CORPPWORD "*What is corp password? " send "q tj" & $TERRAKIT~CORPNUM & "*" & $TERRAKIT~CORPPWORD & "**" & $TERRAKIT~LAND goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "#") send "#" goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "Z") send "q c b y " goto :TERRA_KIT goto :TERRAKIT~:384 end if ($TERRAKIT~CHOICE = "H") getinput $TERRAKIT~SECTOR "What sector to twarp to? ('Q' to abort) " uppercase $TERRAKIT~SECTOR if ($TERRAKIT~SECTOR = "Q") return end :TERRAKIT~:426 gosub :SECTOR_CHECK_TERRA getinput $TERRAKIT~SHIP "What ship number to xport to? ('Q' to abort) " uppercase $TERRAKIT~SHIP if ($TERRAKIT~SHIP = "Q") return end :TERRAKIT~:428 gosub :SHIP_CHECK echo "*Engage? (Y/N)? " getconsoleinput $TERRAKIT~ENGAGE "SINGLEKEY" uppercase $TERRAKIT~ENGAGE if ($TERRAKIT~ENGAGE = "Y") send "q x * " & $TERRAKIT~SHIP & " * * m " & $TERRAKIT~SECTOR & "*yy " send #145 settexttrigger WAITON64 :TERRAKIT~WAITON64 #145 & #8 pause :TERRAKIT~WAITON64 goto :TERRAKIT~:430 end return :TERRAKIT~:429 :TERRAKIT~:430 goto :TERRA_KIT end :TERRAKIT~:384 return :TERRAKIT~SHIP_CHECK isnumber $TERRAKIT~CK0 $TERRAKIT~SHIP if ($TERRAKIT~CK0 = 0) goto :TERRA_KIT end :TERRAKIT~:432 return :TERRAKIT~SECTOR_CHECK_TERRA uppercase $TERRAKIT~SECTOR isnumber $TERRAKIT~CK $TERRAKIT~SECTOR if ($TERRAKIT~CK = 0) send #145 goto :TERRA_KIT goto :TERRAKIT~:434 end if ($TERRAKIT~SECTOR = 0) send #145 goto :TERRA_KIT goto :TERRAKIT~:434 end if ($TERRAKIT~SECTOR > SECTORS) send #145 goto :TERRA_KIT end :TERRAKIT~:434 return :TERRAKIT~TERRA0 return :PLAYERINFO~INFOQUICK send "/" setvar $PLAYERINFO~LINE "" settextlinetrigger LINE :PLAYERINFO~LINE pause :PLAYERINFO~LINE getwordpos CURRENTLINE $PLAYERINFO~POS #179 getword CURRENTLINE $PLAYERINFO~TEST 1 if ($PLAYERINFO~POS = 0) and ($PLAYERINFO~TEST <> "Ship") if ($PLAYERINFO~LINE <> "") return end :PLAYERINFO~:440 settextlinetrigger LINE :PLAYERINFO~LINE pause end :PLAYERINFO~:438 setvar $PLAYERINFO~LINE CURRENTLINE striptext $PLAYERINFO~LINE "," replacetext $PLAYERINFO~LINE #179 " " setvar $PLAYERINFO~PARAM 1 :PLAYERINFO~NEXT getword $PLAYERINFO~LINE $PLAYERINFO~WORD $PLAYERINFO~PARAM getword $PLAYERINFO~LINE $PLAYERINFO~VALUE (($PLAYERINFO~PARAM + 1)) if ($PLAYERINFO~WORD = 0) settextlinetrigger LINE :PLAYERINFO~LINE pause end :PLAYERINFO~:442 if ($PLAYERINFO~WORD = "Sect") setvar $PLAYERINFO~SECTOR $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Turns") setvar $PLAYERINFO~TURNS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Creds") setvar $PLAYERINFO~CREDITS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Figs") setvar $PLAYERINFO~FIGHTERS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Shlds") setvar $PLAYERINFO~SHIELDS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Hlds") setvar $PLAYERINFO~HOLDS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Ore") setvar $PLAYERINFO~ORE $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Org") setvar $PLAYERINFO~ORG $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Equ") setvar $PLAYERINFO~EQUIP $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Col") setvar $PLAYERINFO~COLONISTS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Phot") setvar $PLAYERINFO~PHOTONS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Armd") setvar $PLAYERINFO~MINES $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Lmpt") setvar $PLAYERINFO~LIMPETS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "GTorp") setvar $PLAYERINFO~GENTORPS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "TWarp") if ($PLAYERINFO~VALUE = "No") setvar $PLAYERINFO~TWARP 0 goto :PLAYERINFO~:460 end setvar $PLAYERINFO~TWARP $PLAYERINFO~VALUE :PLAYERINFO~:459 :PLAYERINFO~:460 goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Clks") setvar $PLAYERINFO~CLOAKS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Beacns") setvar $PLAYERINFO~BEACONS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "AtmDt") setvar $PLAYERINFO~DETS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Crbo") setvar $PLAYERINFO~CORBO $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "EPrb") setvar $PLAYERINFO~PROBES $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "MDis") setvar $PLAYERINFO~DISRUPTORS $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "PsPrb") if ($PLAYERINFO~VALUE = "Yes") setvar $PLAYERINFO~PSIPROBE 1 goto :PLAYERINFO~:469 end setvar $PLAYERINFO~PSIPROBE 0 :PLAYERINFO~:468 :PLAYERINFO~:469 goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "PlScn") if ($PLAYERINFO~VALUE = "Yes") setvar $PLAYERINFO~PLANETSCANNER 1 goto :PLAYERINFO~:472 end setvar $PLAYERINFO~PLANETSCANNER 0 :PLAYERINFO~:471 :PLAYERINFO~:472 goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "LRS") if ($PLAYERINFO~VALUE = "None") setvar $PLAYERINFO~SCANNER 0 goto :PLAYERINFO~:475 end if ($PLAYERINFO~VALUE = "Holo") setvar $PLAYERINFO~SCANNER 2 goto :PLAYERINFO~:475 end setvar $PLAYERINFO~SCANNER 1 :PLAYERINFO~:476 :PLAYERINFO~:475 goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Aln") setvar $PLAYERINFO~ALIGN $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Exp") setvar $PLAYERINFO~EXPERIENCE $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Corp") setvar $PLAYERINFO~CORP $PLAYERINFO~VALUE goto :PLAYERINFO~:444 end if ($PLAYERINFO~WORD = "Ship") setvar $PLAYERINFO~SHIP $PLAYERINFO~VALUE end :PLAYERINFO~:444 add $PLAYERINFO~PARAM 2 goto :NEXT :MAKEGLOBLES~MAKEFILE setvar $MAKEGLOBLES~GLOBALS "Globals.cfg" write $MAKEGLOBLES~GLOBALS "Port Fast: N" write $MAKEGLOBLES~GLOBALS "Dock Fast: N" write $MAKEGLOBLES~GLOBALS "Land On Terra: Y" write $MAKEGLOBLES~GLOBALS "Land On Planet: N" write $MAKEGLOBLES~GLOBALS "Read Dailies: Y" write $MAKEGLOBLES~GLOBALS "Read Todays Log: Y" write $MAKEGLOBLES~GLOBALS "Clear Messages: Y" write $MAKEGLOBLES~GLOBALS "Clear Avoids: N" write $MAKEGLOBLES~GLOBALS "UseAlias: N" write $MAKEGLOBLES~GLOBALS "Alias Name: My Alias" write $MAKEGLOBLES~GLOBALS "SSComms: 2" write $MAKEGLOBLES~GLOBALS "ShipName: New Ship" write $MAKEGLOBLES~GLOBALS "PlanetName: Home Sweet Home" write $MAKEGLOBLES~GLOBALS "Make or Join Corp: Y" write $MAKEGLOBLES~GLOBALS "CorpName: Newbies" write $MAKEGLOBLES~GLOBALS "PassWord: password" write $MAKEGLOBLES~GLOBALS "Show Who's Online: Y" write $MAKEGLOBLES~GLOBALS "GetMeStatsNow: N" write $MAKEGLOBLES~GLOBALS "High Scores: N" write $MAKEGLOBLES~GLOBALS "Stop @ Tmenu: N" write $MAKEGLOBLES~GLOBALS "Exit Server: N" write $MAKEGLOBLES~GLOBALS "AutoStart: Y" write $MAKEGLOBLES~GLOBALS "Listening Port OverRide: N" write $MAKEGLOBLES~GLOBALS "Private Game Password: Private" write $MAKEGLOBLES~GLOBALS "TradeWars Passport: 0A0-0B-440" write $MAKEGLOBLES~GLOBALS "Start with Bot ONLINE: N" write $MAKEGLOBLES~GLOBALS "BotUsing: __mom_bot3_1045.cts" write $MAKEGLOBLES~GLOBALS "<<<-=[VK]=->>>" write $MAKEGLOBLES~GLOBALS "Don't forget to log on to :" write $MAKEGLOBLES~GLOBALS "http:\/\/www.classictw.com/" write $MAKEGLOBLES~GLOBALS "and look for your TW Passport ID" write $MAKEGLOBLES~GLOBALS "In that area of that page." write $MAKEGLOBLES~GLOBALS "<<<-=[VK]=->>> out" write $MAKEGLOBLES~GLOBALS "Galactic Scrooge" return