REM CCONSOLE.AGT

command vector any
not atlocation [control room]
or
flagoff [cconsole on]
printmessage "$Verb$ - not understood at this time."
donewithturn
end_command

command Vector any
atlocation [control room]
flagoff [normal course]
flagoff [skip course]
printmessage "$Verb$ - not understood at this time."
donewithturn
end_command

command Vector any
flagon [cconsole on]
turnflagon [course set]
turnflagon [normal course]
setvariableto [vector] 0
nountovariable [vector]
turnflagoff [good course]
end_command

command vector any
flagon [course set]
flagon [normal course]
variablelt [vector] 1000
or
variablegt [vector] 9999
printmessage "Vector out of range: 1000 - 9999"
turnflagoff [course set]
turnflagoff [normal course]
setvariableto [console page] 13
donewithturn
end_command

command vector any
flagon [course set]
flagon [skip course]
variablelt [vector] 1000
or
variablegt [vector] 9999
printmessage "Marker out of range: 1000 - 9999"
turnflagoff [course set]
turnflagoff [skip course]
setvariableto [console page] 13
donewithturn
end_command

command vector any
flagon [course set]
printmessage "Course laid in: #VAR[vector]#"
BLANKLINE
setvariableto [console page] 13
end_command

rem check for valid course

command vector any
flagon [course set]
flagon [normal course]
subtractvariables [vector] [alien vector]
variableequals [vector] 0
turnflagon [good course]
end_command

command vector any
donewithturn
end_command

command Distance any
not atlocation [control room]
or
flagoff [cconsole on]
not variableequals [console page] 13
printmessage "$Verb$ - not understood at this time."
donewithturn
end_command

command Distance any
flagon [cconsole on]
turnflagon [distance set]
setvariableto [distance] 0
nountovariable [distance]
turnflagoff [good distance]
end_command

command distance any
flagon [distance set]
variablelt [distance] 1
or
variablegt [distance] 100
printmessage "Distance out of range: 1 - 100 AU"
turnflagoff [distance set]
donewithturn
end_command

command distance any
flagon [distance set]
printmessage "Distance set: #VAR[distance]# AU"
subtractvariables [distance] [alien distance]
variableequals [distance] 0
turnflagon [good distance]
donewithturn
end_command

command distance any
donewithturn
end_command