SetVar $Key "."
LoadVar $SS_Channel
:Top
KillAllTriggers
Echo ANSI_11 "*Use "& ANSI_10 $KEY ANSI_11 &" to Activate Change_SS*"
SetTextOutTrigger ChangeSS :ChangeSS $KEY
Pause

:ChangeSS
Send "* "
WaitOn "elp)"
:LookSee
GetWord CURRENTLINE $Prompt 1
IF (($Prompt <> "Command") and ($Prompt <> "Planet") and ($Prompt <> "Citadel"))
GoTo :Top
End
GetRnd $rnd 1 60000
IF ($Prompt = "Command") or ($Prompt = "Citadel")
SetTextLineTrigger OOPs :OOPs "You cannot change the sub-space radio channel for another"
SetTextTrigger CHNG :CHNG "Tune to which sub-space channel?"
Send "c n 4"
Pause
:OOPs
KillAllTriggers
Send "qq"
WaitOn "<Computer deactivated>"
WaitOn "elp)"
GoTo :Top

:CHNG
KillAllTriggers
GetWord CURRENTLINE $MainChannel 6
StripText $MainChannel "["
StripText $MainChannel "]"
          IF ($SS_Channel = "0")
          SetVar $SS_Channel $MainChannel
          SaveVar $SS_Channel
          End
Echo ANSI_11 "*"& $MainChannel &"*"
ElseIF ($Prompt = "Planet")
Send "c"
WaitOn "Citadel"
SetTextLineTrigger OOPs :OOPs "You cannot change the sub-space radio channel for another"
SetTextTrigger CHNG_it :CHNG_it "Tune to which sub-space channel?"
Send "c n 4"
Pause

:CHNG_it
KillAllTriggers
GetWord CURRENTLINE $MainChannel 6
StripText $MainChannel "["
StripText $MainChannel "]"
Echo ANSI_11 "*"& $MainChannel &"*"
End
          IF ($SS_Channel <> $MainChannel)
          Send $SS_Channel &"* q q"
          Else
          Send $rnd &"* q q"
          End
          WaitOn "<Computer deactivated>"
:Back
KillAllTriggers
Echo ANSI_11 "*Use "& ANSI_10 $KEY ANSI_11 &" to Activate Change_Back_SS*"
SetTextOutTrigger Change_BackSS :Change_BackSS $KEY
Pause

:Change_BackSS
KillAllTriggers
Send "* "
WaitOn "elp)"
GetWord CURRENTLINE $Prompt 1
IF (($Prompt <> "Command") and ($Prompt <> "Planet") and ($Prompt <> "Citadel"))
GoTo :Back
End
IF ($Prompt = "Command") or ($Prompt = "Citadel")
SetTextLineTrigger OOPs2 :OOPs2 "You cannot change the sub-space radio channel for another"
SetTextTrigger CHNG_Back :CHNG_Back "Tune to which sub-space channel?"
Send "c n 4"
Pause
:OOPs2
KillAllTriggers
Send "qq"
WaitOn "<Computer deactivated>"
WaitOn "elp)"
GoTo :Back

:CHNG_Back
Send $SS_Channel &"* q q"
WaitOn "<Computer deactivated>"
ElseIF ($Prompt = "Planet")
Send "c"
WaitOn "Citadel"
SetTextLineTrigger OOPs2 :OOPs2 "You cannot change the sub-space radio channel for another"
SetTextTrigger CHNG_Back2 :CHNG_Back2 "Tune to which sub-space channel?"
Send "c n 4"
Pause

:CHNG_Back2
KillAllTriggers
Send $SS_Channel &"* q q"
WaitOn "<Computer deactivated>"
End
GoTo :Top