REM SHUNT.AGT

command turn switch
nounpresent
nounisnumber [switch 1]
addtovariable [shunt 1] 1
variablegt [shunt 1] [shunt at skip]
setvariableto [shunt 1] [shunt at open]
end_command

command turn switch
nounpresent
nounisnumber [switch 2]
addtovariable [shunt 2] 1
variablegt [shunt 2] [shunt at skip]
setvariableto [shunt 2] [shunt at open]
end_command

rem do not allow both switches to be on same position

command turn switch
variableequals [shunt 1] [shunt at skip]
variableequals [shunt 2] [shunt at skip]
setvariableto [shunt 1] [shunt at open]
setvariableto [shunt 2] [shunt at open]
printmessage "With a loud BANG, the switch jumps past this position."
end_command

command turn switch
variableequals [shunt 1] [shunt at normal]
variableequals [shunt 2] [shunt at normal]
setvariableto [shunt 1] [shunt at open]
setvariableto [shunt 2] [shunt at open]
printmessage "With a loud BANG, the switch jumps past this position."
end_command

command examine switch
nounpresent
nounisnumber [switch 1]
printvariablemessage [shunt 1]
end_command

command examine switch
nounpresent
nounisnumber [switch 2]
printvariablemessage [shunt 2]
end_command