# # ADRIFT Module # Exported 03-Nov-2006 # # Author: A.N. Onymous Version 4.00 Release 45 DEFINE Room "Room1" SHORTDESC = "Examination Room" LONGDESC = "Completely empty." END Room DEFINE Task "Task1" COMMAND "set a %number%" WHERE = All Rooms MESSAGE = "a = %a%" ACTION Change Variable "Var1" to Referenced Number REPEATABLE = True END Task DEFINE Task "Task2" COMMAND "set a res" WHERE = All Rooms MESSAGE = "a = %a%" ACTION Change Variable "Var1" to Expression "%res%" REPEATABLE = True END Task DEFINE Task "Task3" COMMAND "set x %number%" WHERE = All Rooms MESSAGE = "x = %x%" ACTION Change Variable "Var2" to Referenced Number REPEATABLE = True END Task DEFINE Task "Task4" COMMAND "set x res" WHERE = All Rooms MESSAGE = "x = %x%" ACTION Change Variable "Var2" to Expression "%res%" REPEATABLE = True END Task DEFINE Task "Task5" COMMAND "set y %number%" WHERE = All Rooms MESSAGE = "y = %y%" ACTION Change Variable "Var3" to Referenced Number REPEATABLE = True END Task DEFINE Task "Task6" COMMAND "set y res" WHERE = All Rooms MESSAGE = "y = %y%" ACTION Change Variable "Var3" to Expression "%res%" REPEATABLE = True END Task DEFINE Task "Task7" COMMAND "set res %number%" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Referenced Number REPEATABLE = True END Task DEFINE Task "Task8" COMMAND "add x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%+%y%" REPEATABLE = True END Task DEFINE Task "Task9" COMMAND "sub x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%-%y%" REPEATABLE = True END Task DEFINE Task "Task10" COMMAND "mul x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%*%y%" REPEATABLE = True END Task DEFINE Task "Task11" COMMAND "div x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%/%y%" REPEATABLE = True END Task DEFINE Task "Task12" COMMAND "mod x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%mod%y%" REPEATABLE = True END Task DEFINE Task "Task13" COMMAND "pwr x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%^%y%" REPEATABLE = True END Task DEFINE Task "Task14" COMMAND "min x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "min(%x%,%y%)" REPEATABLE = True END Task DEFINE Task "Task15" COMMAND "max x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "max(%x%,%y%)" REPEATABLE = True END Task DEFINE Task "Task16" COMMAND "either x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "either(%x%,%y%)" REPEATABLE = True END Task DEFINE Task "Task17" COMMAND "rand x y" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "rand(%x%,%y%)" REPEATABLE = True END Task DEFINE Task "Task18" COMMAND "abs x" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "abs(%x%)" REPEATABLE = True END Task DEFINE Task "Task19" COMMAND "neg x" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "-%x%" REPEATABLE = True END Task DEFINE Task "Task20" COMMAND "add x y mul a" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%+%y%*%a%" REPEATABLE = True END Task DEFINE Task "Task21" COMMAND "mul x y add a" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%*%y%+%a%" REPEATABLE = True END Task DEFINE Task "Task22" COMMAND "add_paren x y mul a" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "(%x%+%y%)*%a%" REPEATABLE = True END Task DEFINE Task "Task23" COMMAND "sub x y div a" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%-%y%/%a%" REPEATABLE = True END Task DEFINE Task "Task24" COMMAND "div x y sub a" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "%x%/%y%-%a%" REPEATABLE = True END Task DEFINE Task "Task25" COMMAND "sub_paren x y div a" WHERE = All Rooms MESSAGE = "res = %res%" ACTION Change Variable "Var4" to Expression "(%x%-%y%)/%a%" REPEATABLE = True END Task DEFINE Variable "Var1" NAME = "a" TYPE = Integer VALUE = 0 END Variable DEFINE Variable "Var2" NAME = "x" TYPE = Integer VALUE = 0 END Variable DEFINE Variable "Var3" NAME = "y" TYPE = Integer VALUE = 0 END Variable DEFINE Variable "Var4" NAME = "res" TYPE = Integer VALUE = 0 END Variable DEFINE Introduction MESSAGE = "" STARTROOM = "Room1" SHOWFIRST = True END Introduction DEFINE Winning MESSAGE = "" END Winning DEFINE Player NAME = "" GENDER = Male DESCRIPTION = "" INITIALPOSITION = Standing MAXBULK = 10 Normal Objects MAXWEIGHT = 10 Normal Objects END Player