# I don't remember who wrote this.. but I'm amazed that it worked at all. # Working in TEDIT is bad enough, but scripting for TEDIT is a nightmare # Promethius Beacon Editor for # BigD , LoneStar and Kaus (aka Mad Hatter)'s SpaceBall edit SetVar $beacon "SKROOB SPACE, SPACEBALL ENFORCED" SetVar $nebulae "SKROOB SPACE" SetVar $UnderGround_PassWord "GOOD IS DUMB" SetVar $Sol "SpaceBalls The Movie" SetVar $DockPort "SpaceBalls Merchandise" Send "?" :Rylos WaitFor "Standard Editors" Send "hf" settexttrigger sects :sects "0 port (11 to " pause :sects setvar $Temp currentline gettext $Temp $SECTS "11 to" ") [" striptext $SECTS "," striptext $SECTS " " GetWord CURRENTLINE $rylos 12 StripText $rylos "[" StripText $rylos "," StripText $rylos "]" Send "*" WaitFor " Alpha Centauri Sector" Send "g" WaitFor "Enter new sector for Alpha Centauri class" GetWord CURRENTLINE $Alpha 13 StripText $Alpha "[" StripText $Alpha "," StripText $Alpha "]" Send "*" WaitFor " Stardock Sector" Send "e" WaitFor "Enter new sector for StarDock class" GetWord CURRENTLINE $Dock 12 StripText $Dock "[" StripText $Dock "," StripText $Dock "]" Send "*q" WaitFor " - Quit editor" :Rylos Send "s" WaitFor "(0=Abort)" Send $rylos setvar $TEMP $rylos gosub :TO_SEND WaitFor "(X=Exit): [X]" Send "z" waitfor "Enter new Nebulae name:" Send $nebulae "*" WaitFor "(<>) (X=Exit):" Send "n" waitfor "Marker Beacon:" Send $beacon "*" Send "x" Waitfor "Quit editor" :Alpha Send "s" WaitFor "(0=Abort)" Send $Alpha setvar $TEMP $alpha gosub :TO_SEND WaitFor "(X=Exit): [X]" Send "z" waitfor "Enter new Nebulae name:" Send $nebulae "*" waitfor "(<>) (X=Exit):" Send "n" waitfor "Marker Beacon:" Send $beacon "*" Send "x" :StarDock WaitFor "(?=Help) [?] :" Send "s" WaitFor "Sector number (0=Abort)" Send $Dock setvar $TEMP $dock gosub :TO_SEND WaitFor "(<>) (X=Exit):" Send "z" waitfor "Enter new Nebulae name:" Send $nebulae "*" WaitFor "(<>) (X=Exit):" Send "n" waitfor "Marker Beacon:" Send $beacon "*" WaitFor " Port :" Send "g" WaitFor "Edit port? (Y/N)" Send "y4*" WaitFor " Name:" Send "a" WaitFor "New name:" Send $DockPort & "*" WaitFor "Port editor: (?)" Send "xx" WaitFor "Quit editor" :fedTerra SetVar $i 1 Send "?" While ($i <= 10) WaitFor "Change game time" Send "s" Send $i "*" WaitFor " Nebulae :" Send "z" WaitFor "Enter new Nebulae name:" Send $nebulae "*" WaitFor " Beacon :" Send "n" WaitFor "Enter new Marker Beacon:" Send $beacon & "*x" Add $i 1 End WaitFor "Change game time" Send "s" Send "1*" WaitFor " Port :" Send "g" WaitFor "Edit port? (Y/N)" Send "y1*" WaitFor " Name:" Send "a" WaitFor "New name:" Send $Sol &"*" WaitFor "Port editor: (?)" Send "xx" WaitFor "Change game time" Send "g" WaitFor " Tournament Mode :" Send "o" WaitFor "Enter the Password Phrase" Send $UnderGround_PassWord "*" WaitFor "General Editor One:" Send "q" Sound din halt :TO_SEND getlength $SECTS $LEN1 getlength $TEMP $LEN2 if ($LEN1 <> $LEN2) send "*" end return