I was inspired by the SpaceBalls script , so I desided to bring this
beacon script to lite : So_Truce_Beacons.ts
Code:
Send "?"
WaitFor "<B> - Change game time"
:Set
GetInPut $days "*How many DAYS OF TRUCE ? " 0
IsNumber $right $days
IF ($right) and ($days <> "0")
SetVar $beacon $days &" Day Truce, Untill the 'V' Says Day "& ($days + 1)
Else
Goto :Set
End
Send "h"
WaitFor "<E> Stardock Sector"
Send "e"
WaitFor "Enter new sector for StarDock class"
GetWord CURRENTLINE $Dock 12
StripText $Dock "["
StripText $Dock ","
StripText $Dock "]"
Send "*"
WaitFor "<F> Rylos Sector"
Send "f"
WaitFor "Enter new sector for Rylos class"
GetWord CURRENTLINE $rylos 12
StripText $rylos "["
StripText $rylos ","
StripText $rylos "]"
Send "*"
WaitFor "<G> Alpha Centauri Sector"
Send "g"
WaitFor "Enter new sector for Alpha Centauri class"
GetWord CURRENTLINE $Alpha 13
StripText $Alpha "["
StripText $Alpha ","
StripText $Alpha "]"
Send "*q"
WaitFor "<B> - Change game time"
Send "s"
WaitFor "Sector number (0=Abort)"
Send $Dock &"*"
WaitFor "Sector :"
Send "n"
Send $beacon "*"
WaitFor "Sector :"
Send "x"
WaitFor "<B> - Change game time"
Send "s"
WaitFor "Sector number (0=Abort)"
Send $Rylos &"*"
WaitFor "Sector :"
Send "n"
Send $beacon "*"
WaitFor "Sector :"
Send "x"
WaitFor "<B> - Change game time"
Send "s"
WaitFor "Sector number (0=Abort)"
Send $Alpha &"*"
WaitFor "Sector :"
Send "n"
Send $beacon "*"
WaitFor "Sector :"
Send "x"
WaitFor "<B> - Change game time"
Send "s"
WaitFor "Sector number (0=Abort)"
Send "1*"
WaitFor "Sector :"
Send "n"
Send $beacon "*"
WaitFor "Sector :"
Send "x"
WaitFor "<B> - Change game time"
Sound ding