######################################################## # HHT 2018 - Post bang - By MicroBlaster v1842a # # Run this script after connecting to the admin console, # and opening the game slot in tedit. ######################################################## setVar $Nebula "Haunted Space" setVar $Beacon "HHT 2018!" setVar $SolName "Haunted Toys-R-US!" setVar $AlphaName "Haunted Radio Shack" setVar $RylosName "Haunted Blockbuster" setVar $DockName "Haunted Circuit City" setVar $TerraName "Earth Prime" setVar $TerraClass 7 setVar $TerraColos 1,000,000,000 setVar $EasyDock FALSE setVar $WarpFix TRUE setVar $BlackHoles 13 setVar $MaxCourse 20 ######################################################## setVar $Sysop "Space Ghost" setVar $TournMode TRUE setVar $EntryDays 3 setVar $MaxDeaths 15 setVar $CountPods TRUE setVar $GameOpen TRUE ######################################################## killalltriggers setTextLineTrigger v1detect :setV1 "BBS node editor" setTextLineTrigger v2detect :setV2 "Emulation Editor" setDelayTrigger timeout :timeout 3000 send "*" pause :setv1 setVar $TWGS 1 goto :start :setv2 setVar $TWGS 2 goto :start :timeout echo ANSI_12 & "***--- This script must be run from the TEDIT menu.---***" & ANSI_15 halt :start gosub :getClass0 gosub :setFedspace gosub :setPortNames gosub :setTerra if ($WarpFix = TRUE) gosub :setWarpFix end if ($EasyDock = TRUE) gosub :setEasyDock end if ($BlackHoles > 0) gosub :setBlackHoles end ######################################################## # General Editor One ######################################################## killalltriggers setTextLineTrigger tMode1 :tModeOn "Tournament Mode : On" setTextLineTrigger tMode2 :tModeOFF "Tournament Mode : Off" send "*g" pause :tModeOn killalltriggers if ($TournMode = FALSE) send "r*" WaitFor "General Editor One:" end goto :tMode :tModeOFF killalltriggers if ($TournMode = TRUE) send "r*" WaitFor "General Editor One:" end goto :tMode :tMode if ($TournMode = TRUE) send "s" & $EntryDays & "*" WaitFor "General Editor One:" send "t" & $MaxDeaths & "*" WaitFor "General Editor One:" if ($TWGS = 2) if ($CountPods = TRUE) send "u1" else send "u2" end WaitFor "General Editor One:" end else if ($TWGS = 1) send "s0*" WaitFor "General Editor One:" send "t0*" WaitFor "General Editor One:" end end send "x" WaitFor "Enter the Sysopname" send $Sysop & "**" WaitFor "Trade Wars 2002" ######################################################## # General Editor Two ######################################################## send "*h[" WaitFor "closed game (Y/N)" if ($GameOpen = TRUE) send "n" else send "y" end WaitFor "General Editor Two:" # Enable Interactive Sub-Prompts send "0y" WaitFor "General Editor Two:" send ":" & $MaxCourse & "**" WaitFor "Trade Wars 2002" ######################################################## # That's all Folks! ######################################################## echo ANSI_15 & "***----- HHT 2018 - Post Bang completed.**" echo "Sol Sector : 1*" echo "Alpha Sector : " & $AlphaSector & "*" echo "Rylos Sector : " & $RylosSector & "*" echo "Stardock Sector : " & $DockSector & "**" if ($TournMode = FALSE) echo "Tournament Mode : Off*" echo "Days to Enter : N/A*" echo "Maximum Deaths : N/A*" echo "Lock-out Mode : N/A**" else echo "Tournament Mode : On*" if ($EntryDays = 0) echo "Days to Enter : Unlimited" & "*" else echo "Days to Enter : " & $EntryDays & "*" end if ($MaxDeaths = 0) echo "Maximum Deaths : Unlimited" & "*" else echo "Maximum Deaths : " & $MaxDeaths & "*" end if (TWGS = 1) echo "Lock-out Mode : N/A**" else if ($CountPods = TRUE) echo "Lock-out Mode : Pods + Deaths**" else echo "Lock-out Mode : Deaths Only**" end end end if ($EasyDock = TRUE) echo "Easy Dock : Yes*" else echo "Easy Dock : No*" end if ($WarpFix = TRUE) echo "Warp Fix : Yes*" else echo "Warp Fix : No*" end echo "Black Holes : " & $BlackHoles & "*" echo "Maximum Course : " & $MaxCourse & "**" if ($GameOpen = TRUE) echo "Closed Game : No**" else echo "Closed Game : Yes**" end If ($BlackHoles > 0) echo "Known Black Holes:*" readToArray BlackHoles.txt $holes setVar $i 1 while ($i <= $holes) echo $holes[$i] & " " setVar $row $i divide $row 7 multiply $row 7 if ($row = $i) echo "*" end add $i 1 end echo "**List of Black Holes saved to BlackHoles.txt**" end echo "***" halt ######################################################## # TEDIT Library ######################################################## #### Call from TEDIT. Returns all Class 0 port locations. :getClass0 killalltriggers Send "*h" WaitFor "General Editor Two:" # Get Alpha Centauri Sector setDelayTrigger wait1 :getAlpha 1000 pause :getAlpha killalltriggers Send "G*" WaitFor "Enter new sector" getText CURRENTLINE $AlphaSector "[" "]" WaitFor "General Editor Two:" echo "**Alpha Sector : " & $AlphaSector & "*" # Get Rylos Sector setDelayTrigger wait2 :getRylos 1000 pause :getRylos killalltriggers Send "F*" WaitFor "Enter new sector" getText CURRENTLINE $RylosSector "[" "]" WaitFor "General Editor Two:" echo "**Rylos Sector : " & $RylosSector & "*" # Get Starsock Sector setDelayTrigger wait3 :getDock 1000 pause :getDock killalltriggers Send "E*" WaitFor "Enter new sector" getText CURRENTLINE $DockSector "[" "]" WaitFor "General Editor Two:" echo "**Stardock Sector : " & $DockSector & "**" setDelayTrigger wait4 :finished 1000 pause :finished send "*" WaitFor "Trade Wars 2002" return #### Call from TEDIT. Sets all Fedspace Nebulas and Beacons :setFedspace killalltriggers # Open Sector Editor Send "*s1*" WaitFor "(X=Exit)" # Set Sectors 1 - 10. setVar $Sector 1 while ($Sector <= 10) send "z" & $Nebula & "*" send "n" & $Beacon & "*" send "." WaitFor "(X=Exit)" add $Sector 1 end # Set Alpha Centauri Sector Send "*s" & $AlphaSector & "*" WaitFor "(X=Exit)" send "z" & $Nebula & "*" send "n" & $Beacon & "**" # Set Rylos Sector Send "s" & $RylosSector & "*" WaitFor "(X=Exit)" send "z" & $Nebula & "*" send "n" & $Beacon & "**" # Set StarDock Sector Send "s" & $DockSector & "*" WaitFor "(X=Exit)" send "z" & $Nebula & "*" send "n" & $Beacon & "**" WaitFor "Trade Wars 2002" return #### Call from TEDIT. Sets all Class 0 / 9 Port Names. :setPortNames # Open Port Editor Send "*p1*" WaitFor "(X=Exit)" # Set Sol Port Name Send "a" & $SolName & "*." WaitFor "(X=Exit)" # Set Alpha Centauri Port Name Send "a" & $AlphaName & "*." WaitFor "(X=Exit)" # Set Rylos Port Name Send "a" & $RylosName & "*." WaitFor "(X=Exit)" # Set Stardock Port Name Send "a" & $DockName & "**" WaitFor "Trade Wars 2002" return #### Call from TEDIT. Sets Terra Name and Colos on hand. :setTerra # Open Planet Editor Send "*n1*" WaitFor "(X=Exit)" # Set Terra Planet Name Send "a" & $TerraName & "*" WaitFor "(X=Exit)" # Set Terra Class (V1 ONLY) if ($TWGS = 1) Send "h" & $TerraClass WaitFor "(X=Exit)" end # Set Colos stripText $TerraColos "," Send "b" & $TerraColos & "*x" WaitFor "Trade Wars 2002" return #### Call from TEDIT. Creates a Two-Way warp from Sector 10 to StarDock :setEasyDock # Add Warp from 10 to Stardock send "s10*c" & $DockSector & "**" #WaitFor "Sector number" WaitFor "Trade Wars 2002" # Add Warp from Stardock to 10 send "s" & $DockSector & "*a10**" #WaitFor "Sector number" WaitFor "Trade Wars 2002" return #### Call from TEDIT. Remaps Fedspace around Stardock, Alpha Centauri, and Rylos. :setWarpFix Send "s" WaitFor "Sector number" getWord CURRENTLINE $TotalSectors 6 stripText $TotalSectors ")" stripText $TotalSectors "," subtract $TotalSectors 1 # Randomize Sector 1 Warps. getRnd $RND 11 $TotalSectors send "1*B" & $RND & "*x" WaitFor "Trade Wars 2002" getRnd $RND 11 $TotalSectors send "s1*C" & $RND & "*x" WaitFor "Trade Wars 2002" getRnd $RND 11 $TotalSectors send "s1*D" & $RND & "*x" WaitFor "Trade Wars 2002" getRnd $RND 11 $TotalSectors send "s1*E" & $RND & "*x" WaitFor "Trade Wars 2002" getRnd $RND 11 $TotalSectors send "s1*F" & $RND & "*x" WaitFor "Trade Wars 2002" killalltriggers setTextLineTrigger delwarps :alphaWarps "Warps lead to:" setDelayTrigger sectortimeout :alphaTimeout 500 Send "S" & $AlphaSector pause :alphaTimeout send "*" pause :alphaWarps killalltriggers setVar $line CURRENTLINE send "A6*X" WaitFor "Trade Wars 2002" getWord $line $sector 5 if ($sector <> 0) gosub :fixSector end killalltriggers setTextLineTrigger delwarps :rylosWarps "Warps lead to:" setDelayTrigger sectortimeout :rylosTimeout 250 Send "S" & $RylosSector pause :rylosTimeout send "*" pause :rylosWarps killalltriggers setVar $line CURRENTLINE send "A8*X" WaitFor "Trade Wars 2002" getWord $line $sector 5 if ($sector <> 0) gosub :fixSector end killalltriggers setTextLineTrigger delwarps :dockWarps "Warps lead to:" setDelayTrigger sectortimeout :dockTimeout 250 Send "S" & $DockSector pause :dockTimeout send "*" pause :dockWarps killalltriggers setVar $line CURRENTLINE send "A2*B9*C3*D7*E4*F5*X" WaitFor "Trade Wars 2002" getWord $line $sector 5 if ($sector <> 0) gosub :fixSector end getWord $line $sector 7 if ($sector <> 0) gosub :fixSector end getWord $line $sector 9 if ($sector <> 0) gosub :fixSector end getWord $line $sector 11 if ($sector <> 0) gosub :fixSector end getWord $line $sector 13 if ($sector <> 0) gosub :fixSector end getWord $line $sector 15 if ($sector <> 0) gosub :fixSector end return :setBlackHoles Send "s" WaitFor "Sector number" getWord CURRENTLINE $TotalSectors 6 stripText $TotalSectors ")" stripText $TotalSectors "," subtract $TotalSectors 1 send "*" WaitFor "Trade Wars 2002" delete BlackHoles.txt #setArray $VoidSectors $BlackHoles setVar $i 1 While ($i <= $BlackHoles) killalltriggers setTextLineTrigger delwarps :delWarps "Warps lead to:" setDelayTrigger sectortimeout :setcorTimeout 250 getRnd $RND 11 $TotalSectors send "S" & $RND pause :setcorTimeout send "*" pause :delWarps setVar $line CURRENTLINE send "A0*B0*C0*D0*E0*F0*X" WaitFor "Trade Wars 2002" write "BlackHoles.txt" $RND getWord $line $sector 5 if ($sector <> 0) gosub :fixSector end getWord $line $sector 7 if ($sector <> 0) gosub :fixSector end getWord $line $sector 9 if ($sector <> 0) gosub :fixSector end getWord $line $sector 11 if ($sector <> 0) gosub :fixSector end getWord $line $sector 13 if ($sector <> 0) gosub :fixSector end getWord $line $sector 15 if ($sector <> 0) gosub :fixSector end add $i 1 end # Double check black holes - no warpfix readToArray BlackHoles.txt $holes setVar $i 1 while ($i <= $holes) killalltriggers setTextLineTrigger dblwarps :dblWarps "Warps lead to:" setDelayTrigger dbltimeout :dblTimeout 250 send "S" & $holes[$i] pause :dblTimeout send "*" pause :dblWarps killalltriggers setVar $line CURRENTLINE send "A0*B0*C0*D0*E0*F0*X" WaitFor "Trade Wars 2002" add $i 1 end return :fixSector killalltriggers setTextLineTrigger warps :getWarps "Warps lead to:" setDelayTrigger warptimeout :warpTimeout 250 getRnd $RND 11 $TotalSectors send "S" & $RND pause :warpTimeout send "*" pause :getWarps killalltriggers getWord CURRENTLINE $warpA 5 getWord CURRENTLINE $warpB 7 getWord CURRENTLINE $warpC 9 getWord CURRENTLINE $warpD 11 getWord CURRENTLINE $warpE 13 getWord CURRENTLINE $warpF 15 if ($warpA = 0) send "A" & $sector "*X" WaitFor "Trade Wars 2002" elseif ($warpB = 0) send "B" & $sector "*X" WaitFor "Trade Wars 2002" elseif ($warpC = 0) send "C" & $sector "*X" WaitFor "Trade Wars 2002" elseif ($warpD = 0) send "D" & $sector "*X" WaitFor "Trade Wars 2002" elseif ($warpE = 0) send "E" & $sector "*X" WaitFor "Trade Wars 2002" elseif ($warpF = 0) send "F" & $sector "*X" WaitFor "Trade Wars 2002" else send "X" WaitFor "Trade Wars 2002" goto :fixSector end killalltriggers setTextLineTrigger reversewarps :reverseWarp "Warps lead to:" setDelayTrigger reversetimeout :reverseTimeout 250 send "S" & $sector pause :reverseTimeout send "*" pause :reverseWarp killalltriggers getWord CURRENTLINE $warpA 5 getWord CURRENTLINE $warpB 7 getWord CURRENTLINE $warpC 9 getWord CURRENTLINE $warpD 11 getWord CURRENTLINE $warpE 13 getWord CURRENTLINE $warpF 15 if ($warpA = 0) send "A" & $RND "*X" WaitFor "Trade Wars 2002" elseif ($warpB = 0) send "B" & $RND "*X" WaitFor "Trade Wars 2002" elseif ($warpC = 0) send "C" & $RND "*X" WaitFor "Trade Wars 2002" elseif ($warpD = 0) send "D" & $RND "*X" WaitFor "Trade Wars 2002" elseif ($warpE = 0) send "E" & $RND "*X" WaitFor "Trade Wars 2002" elseif ($warpF = 0) send "F" & $RND "*X" WaitFor "Trade Wars 2002" else send "X" WaitFor "Trade Wars 2002" end return