LOGO Game that I built in high school.

gistfile1.txt

TO RANDOMBATTLE
  MAKE "VARFIGHT RANDOM 4
  IF :LEVELONE = 1 THEN LEVELONEDMG
  IF :LEVELTWO = 1 THEN LEVELTWODMG
  IF :LEVELTHREE = 1 THEN LEVELTHREEDMG
  IF :LEVELFOUR = 1 THEN LEVELFOURDMG
  IF :VARFIGHT = 0 THEN ELVENWARRIORS
  IF :VARFIGHT = 1 THEN WEASEL
  IF :VARFIGHT = 2 THEN TROGLODYTEADEPT
  IF :VARFIGHT = 3 THEN ETTIN
END

TO LEVELONEDMG
  IF :PLRWEAPON = 1 THEN MAKE "PLRDMG RANDOM 11
  IF :PLRWEAPON = 2 THEN MAKE "PLRDMG RANDOM 13
  IF :PLRWEAPON = 3 THEN MAKE "PLRDMG RANDOM 9
END

TO LEVELTWO
  MAKE "PLRHP :PLRHP + RANDOM 10
  MAKE "LEVELONE :LEVELONE - 1
  MAKE "LEVELTWO 1
  LEVELTWODMG
END

TO LEVELTWODMG
  IF :PLRWEAPON = 1 THEN MAKE "PLRDMG RANDOM 14
  IF :PLRWEAPON = 2 THEN MAKE "PLRDMG RANDOM 16
  IF :PLRWEAPON = 3 THEN MAKE "PLRDMG RANDOM 12
END

TO LEVELTHREE
  MAKE "PLRHP :PLRHP + RANDOM 20
  MAKE "LEVELTWO :LEVELTWO - 1
  MAKE "LEVELTHREE 1
  LEVELTHREEDMG
END

TO LEVELTHREEDMG
  IF :PLRWEAPON = 1 THEN MAKE "PLRDMG RANDOM 17
  IF :PLRWEAPON = 2 THEN MAKE "PLRDMG RANDOM 19
  IF :PLRWEAPON = 3 THEN MAKE "PLRDMG RANDOM 15
END

TO LEVELFOUR
  MAKE "PLRHP :PLRHP + RANDOM 40
  MAKE "LEVELTHREE :LEVELTHREE - 1
  MAKE "LEVELFOUR 1
  LEVELFOURDMG
END

TO LEVELFOURDMG
  IF :PLRWEAPON = 1 THEN MAKE "PLRDMG RANDOM 20
  IF :PLRWEAPON = 2 THEN MAKE "PLRDMG RANDOM 22
  IF :PLRWEAPON = 3 THEN MAKE "PLRDMG RANDOM 18
END

TO ELVENWARRIORS
  PR [YOU ENCOUNTER 2 ELVEN WARRIORS!]
  MAKE "VARHP1 RANDOM 16
  MAKE "VARHP2 RANDOM 16
  MAKE "VARDMG RANDOM 11
  MAKE "ADDXP 300
  MAKE "VARRAM :VARRUN
  ATTACK
  ENDFIGHTPROCEDURE
END

TO WEASEL
  PR [YOU ENCOUNTER A WEASEL!]
  MAKE "VARHP1 RANDOM 11
  MAKE "VARHP2 0
  MAKE "VARDMG RANDOM 9
  MAKE "ADDXP 200
  MAKE "VARRAM :VARRUN
  ATTACK
  ENDFIGHTPROCEDURE
END

TO TROGLODYTEADEPT
  PR [YOU ENCOUNTER A TROGLODYTE ADEPT!]
  MAKE "VARHP1 RANDOM 19
  MAKE "VARHP2 0
  MAKE "VARDMG RANDOM 13
  MAKE "ADDXP 400
  MAKE "VARRAM :VARRUN
  ATTACK
  ENDFIGHTPROCEDURE
END

TO ETTIN
  PR [YOU ENCOUNTER AN ETTIN!]
  MAKE "VARHP1 RANDOM 26
  MAKE "VARHP2 0
  MAKE "VARDMG RANDOM 11
  MAKE "ADDXP 600
  MAKE "VARRAM :VARRUN
ATTACK
ENDFIGHTPROCEDURE
END

TO ATTACK
IF :VARCHALLENGER = 1 THEN MAKE "PLRDMG RANDOM 100
IF :VARCHALLENGER = 0 THEN DAMAGE
PR [OPTIONS (1) ATTACK WITH WEAPON (2) MAGIC ATTACK (3) RUN]
MAKE "PLRATTACK READ
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
IF :PLRATTACK = 1 THEN PLRATTACK ENEMYATTACK ATTACK
IF :PLRATTACK = 2 THEN MAGICATTACK ATTACK
IF :PLRATTACK = 3 THEN PR [YOU RUN AWAY FROM THE BATTLE.] MAKE "VARRUN :VARRUN + 1 STOP
IF :VARHP1 < 1 THEN MAKE "VARDEAD :VARDEAD + 1
IF :VARHP2 < 1 THEN MAKE "VARDEAD :VARDEAD + 2
IF :VARDEAD > 2 THEN MAKE "VARDEAD 0 MAKE "VARHP1 0 MAKE "VARHP2 0 PR [ENEMY DEFEATED!] STOP
END

TO ENDFIGHTPROCEDURE
IF :VARRUN = :VARRAM THEN MAKE "VARXP :VARXP + :ADDXP
IF :VARRUN > :VARRAM THEN STOP
IF :PLRHP < 1 THEN STOPALL STOP
IF :VARXP > 999 THEN LEVELTWO
IF :VARXP > 2999 THEN LEVELTHREE
IF :VARXP > 5999 THEN LEVELFOUR
IF :VARXP > 9999 THEN LEVELFIVE
IF :VARXP > 14999 THEN LEVELSIX
END

TO DAMAGE
IF :LEVELONE = 1 THEN LEVELONEDMG
IF :LEVELTWO = 1 THEN LEVELTWODMG
IF :LEVELTHREE = 1 THEN LEVELTHREEDMG
IF :LEVELFOUR = 1 THEN LEVELFOURDMG
IF :LEVELFIVE = 1 THEN LEVELFIVEDMG
IF :LEVELSIX = 1 THEN LEVELSIXDMG
END

TO PLRATTACK
PR [YOU HIT WITH YOUR WEAPON.] MAKE "VARHP1 RANDOM 30 - :PLRDMG - 1 MAKE "VARHP2 :VARHP2 - :PLRDMG - 1
END

TO ENEMYATTACK
PR [THE ENEMY ATTACKS! YOUR CURRENT HP IS] MAKE "PLRHP :PLRHP - :VARDMG - 1 SHOW :PLRHP
END

TO MAGICATTACK
IF :PLRMAGIC = 1 THEN PR [YOU CAST FIREBALL, SCORCHING THE OPPOSING FORCE!] MAKE "VARHP1 :VARHP1 - :PLRDMG MAKE "VARHP2 :VARHP2 - :PLRDMG PR [THE ENEMY ATTACKS! YOUR CURRENT HP IS] MAKE "PLRHP :PLRHP - :VARDMG SHOW :PLRHP
IF :PLRMAGIC = 2 THEN PR [YOU CAST LIGHTNING BLAST, SENDING A SHOCK THROUGH THE ENEMY!] MAKE "VARHP1 :VARHP1 - :PLRDMG MAKE "VARHP2 :VARHP2 - :PLRDMG PR [THE ENEMY ATTACKS! YOUR CURRENT HP IS] MAKE "PLRHP :PLRHP - :VARDMG SHOW :PLRHP
IF :PLRMAGIC = 3 THEN PR [YOU CAST WATER BLAST - BLASTING THE ENEMY BACK!] MAKE "VARHP1 :VARHP1 - :PLRDMG MAKE "VARHP2 :VARHP2 - :PLRDMG PR [THE ENEMY ATTACKS! YOUR CURRENT HP IS] MAKE "PLRHP :PLRHP - :VARDMG SHOW :PLRHP
END

TO HIGHSCORES
MAKE "PLRSCORE :VARXP - (:VARRUN * 10) - (:VARCHEATS * 10)
IF :LEVELTWO = 1 THEN MAKE "PLRSCORE :PLRSCORE + 200
IF :LEVELTHREE = 1 THEN MAKE "PLRSCORE :PLRSCORE + 300
IF :LEVELFOUR = 1 THEN MAKE "PLRSCORE :PLRSCORE + 400
IF :LEVELFIVE = 1 THEN MAKE "PLRSCORE :PLRSCORE + 500
IF :LEVELSIX = 1 THEN MAKE "PLRSCORE :PLRSCORE + 600
IF :PLRSCORE > :HIGHSCOREONE THEN MAKE "HIGHSCORETWO :HIGHSCOREONE MAKE "HIGHSCORETHREE :HIGHSCORETWO MAKE "HIGHSCOREONE :PLRNAME + PLRSCORE
PR [HIGH SCORES]
SHOW :HIGHSCOREONE
SHOW :HIGHSCORETWO
SHOW :HIGHSCORETHREE
PR [THANKS FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.]
END

TO STOPALL
MAKE "VARSTOPALL 1
END

TO LEVELFIVE
MAKE "PLRHP :PLRHP + RANDOM 80
MAKE "LEVELFOUR :LEVELFOUR - 1
MAKE "LEVELFIVE 1
LEVELFIVEDMG
END

TO LEVELSIX
MAKE "PLRHP :PLRHP + RANDOM 160
MAKE "LEVELFIVE :LEVELFIVE - 1
MAKE "LEVELSIX 1
LEVELSIXDMG
END

TO LEVELFIVEDMG
IF :PLRWEAPON = 1 THEN MAKE "PLRDMG RANDOM 23
IF :PLRWEAPON = 2 THEN MAKE "PLRDMG RANDOM 25
IF :PLRWEAPON = 3 THEN MAKE "PLRDMG RANDOM 21
END

TO LEVELSIXDMG
IF :PLRWEAPON = 1 THEN MAKE "PLRDMG RANDOM 26
IF :PLRWEAPON = 2 THEN MAKE "PLRDMG RANDOM 28
IF :PLRWEAPON = 3 THEN MAKE "PLRDMG RANDOM 24
END

TO DWARVENFIGHTERSQUAD
PR [YOU ENCOUNTER A DWARVEN FIGHTER SQUAD!]
MAKE "VARHP1 250
MAKE "VARHP2 0
MAKE "VARDMG RANDOM 50
MAKE "ADDXP 1000
MAKE "VARRAM :VARRUN
ATTACK
ENDFIGHTPROCEDURE
END

TO CHALLENGER
PR [YOU ENCOUNTER THE MYSTERIOUS 'CHALLENGER'! BE CAREFUL - THE GREAT RED WYRM EORWARI IS NOTHING COMPARED TO THIS BEAST!]
PR [- = HEIRONEOUS WISHES YOU LUCK! = - (YOUR WEAPON AND MAGICAL POWER HAS BEEN BLESSED FOR ADDITIONAL DAMAGE!)]
MAKE "VARHP1 9999
MAKE "VARHP2 0
MAKE "VARDMG RANDOM 100
MAKE "ADDXP 8000
MAKE "VARRAM :VARRUN
MAKE "VARCHALLENGER 1
ATTACK
ENDFIGHTPROCEDURE
MAKE "VARCHALLENGER 0
END

TO POWER :M [:N 2] 2
LOCAL "RES
MAKE "RES :M
REPEAT :N - 1 [MAKE "RES :RES * :M]
OUTPUT :RES
END

TO WEASELTWO
PR [YOU ENCOUNTER TWO WEASELS!]
MAKE "VARHP1 RANDOM 11
MAKE "VARHP2 RANDOM 11
MAKE "VARDMG RANDOM 9
MAKE "ADDXP 300
MAKE "VARRAM :VARRUN
ATTACK
ENDFIGHTPROCEDURE
END

TO BOSSEORWARI
PR [YOU ENCOUNTER A RED DRAGON!]
PR ["FOOLISH HUMAN, " YOU HEAR IT BELLOW, "YOU SHALL PERISH UNDER THE WRATH OF EORWARI! "]
PR [CAREFUL, MANY HAVE PERISHED FROM THE FLAMES OF THIS HIDEOUS BEAST.]
MAKE "VARHP1 150
MAKE "VARHP2 0
MAKE "VARDMG RANDOM 19
MAKE "ADDXP 1800
MAKE "VARRAM :VARRUN
ATTACK
ENDFIGHTPROCEDURE
END

TO PLRCONFIG
MAKE "PLRPOTIONS 3
MAKE "PLRHP 35
MAKE "LEVELONE 1
MAKE "VARRUN 0
PR [WHAT IS YOUR NAME?]
MAKE "PLRNAME READ
PR [CHOOSE YOUR WEAPON.]
PR [(1) LONGSWORD (2) HEAVY MACE (3) LONGSPEAR]
MAKE "PLRWEAPON READ
PR [CHOOSE A SPELL.]
PR [(1) FIREBALL (2) WATER BLAST (3) LIGHTNING BOLT]
MAKE "PLRMAGIC READ
LEVELONEDMG
PR [CONFIGURATION COMPLETE.]
END

TO TAKEPOTION
MAKE "PLRHP :PLRHP + 10
MAKE "PLRPOTIONS :PLRPOTIONS - 1
PR [YOU HAVE RECOVERED 10 HP.]
END

TO PARTONE
PR [YOU ARE IN THE THE LARGE ENTRANCE HALL OF THE PELARAK TRAINING FACILITY. HERE YOU CAN PRACTICE A MISSION OR FIGHT AGAINST MONSTERS.]
PR [THERE IS A LARGE DOOR WITH 'ENTER' TO THE NORTH AND TO THE EAST THERE IS A IRON DOOR WITH 'TRAINING' ON IT.]
PR [OPTIONS (1) CONTINUE ON (2) TAKE A POTION (3) TRAINING (4) EXIT GAME]
MAKE "PLROPTIONS READ
IF :PLROPTIONS = 1 THEN FD 125 STOP
IF :PLROPTIONS = 2 THEN TAKEPOTION PARTONE
IF :PLROPTIONS = 3 THEN FD 50 RT 90 FD 50 TRAININGZONE
IF :PLROPTIONS = 4 THEN PR [THANKYOU FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.] MAKE "STOPALL 1
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
END

TO TRAININGZONE
PR [WELCOME THE THE TRAINING AREA. CHOOSE A MONSTER TO FIGHT AGAISNT. WARNING! YOU MIGHT DIE IF YOU TRAIN TOO MUCH!]
PR [OPTIONS (1) ELVEN WARRIORS (2) ETTIN (3) TROGLODYTE ADEPT (4) WEASEL (5) RANDOM (6) RECEIVE HEALING (7) BACK]
MAKE "VARTRAINING READ
IF :VARTRAINING = 1 THEN ELVENWARRIORS TRAININGZONE
IF :VARTRAINING = 2 THEN ETTIN TRAININGZONE
IF :VARTRAINING = 3 THEN TROGLODYTEADEPT TRAININGZONE
IF :VARTRAINING = 4 THEN WEASEL TRAININGZONE
IF :VARTRAINING = 5 THEN RANDOMBATTLE TRAININGZONE
IF :VARTRAINING = 6 THEN MAKE "PLRHP 30 TRAININGZONE
IF :VARTRAINING = 7 THEN PE BK 50 LT 90 PARTONE
IF :VARTRAINING = D279F7 THEN DWARVENFIGHTERSQUAD MAKE "PLRCHEATS :PLRCHEATS + 1 TRAININGZONE
IF :VARTRAINING = 4.72E+32 THEN BOSSEORWARI MAKE "PLRCHEATS :PLRCHEATS + 1 TRAININGZONE
IF :VARTRAINING = 819D72 THEN MAKE "PLRHP :PLRHP + 50 MAKE "PLRCHEATS :PLRCHEATS + 1 TRAININGZONE
IF :VARTRAINING = 873EFC THEN CHALLENGER MAKE "PLRCHEATS :PLRCHEATS + 1 TRAININGZONE
IF :VARTRAINING = 9E3BFF THEN MAKE "PLRPOTIONS :PLRPOTIONS + 1 MAKE "PLRCHEATS :PLRCHEATS + 1 TRAININGZONE
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
END

TO PARTTWO
FD 25
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PR [A DAMP, ROTTING SMELL INVADES YOUR NOSTRILLS AS YOU ENTER THIS CHAMBER. YOU SOON NOTICE WET CARBOARD BOXES - AND...]
WEASELTWO
PR [THERE IS A LARGE DOOR WITH 'CONTINUE' TO THE NORTH AND A DOOR WITH 'EXIT' TO THE SOUTH.]
PR [OPTIONS (1) CONTINUE ON (2) TAKE A POTION (3) EXIT GAME]
IF :PLROPTIONS = 1 THEN STOP
IF :PLROPTIONS = 2 THEN TAKEPOTION PARTTWO
IF :PLROPTIONS = 3 THEN PR [THANKYOU FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.] STOPALL
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PARTTHREE
END

TO PARTTHREE
FD 25
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PR [YOU ENTER A VERY LARGE CHAMBER FULL WITH EXOTIC PLANTS AND TREES. YOU FEEL SWORDS HIT YOUR ARMOUR FROM BEHIND.]
MAKE "PLRHP :PLRHP - 3
ELVENWARRIORS
PR [THERE IS A LARGE DOOR WITH 'CONTINUE' TO THE NORTH AND A DOOR WITH 'EXIT' TO THE SOUTH.]
PR [OPTIONS (1) CONTINUE ON (2) TAKE A POTION (3) EXIT GAME]
IF :PLROPTIONS = 1 THEN STOP
IF :PLROPTIONS = 2 THEN TAKEPOTION PARTTHREE
IF :PLROPTIONS = 3 THEN PR [THANKYOU FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.] STOPALL
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PARTFOUR
END

TO PARTFOUR
FD 25
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PR [AFTER WALKING THROUGH THE LARGE DOOR, YOU FIND A CAVERN WITH TWO GIANT BOOTS ON THE GROUND. YOU LOOK UP AND YOU SEE THE REST OF A TWO - HEADED GIANT.]
ETTIN
PR [THERE IS A LARGE DOOR WITH 'CONTINUE' TO THE NORTH AND A DOOR WITH 'EXIT' TO THE SOUTH.]
PR [OPTIONS (1) CONTINUE ON (2) TAKE A POTION (3) EXIT GAME]
IF :PLROPTIONS = 1 THEN STOP
IF :PLROPTIONS = 2 THEN TAKEPOTION PARTFOUR
IF :PLROPTIONS = 3 THEN PR [THANKYOU FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.] STOPALL
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PARTFIVE
END

TO PARTFIVE
FD 25
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PR [YOU ENTER A CHAMBER WHICH IS TOTALLY BARE EXCEPT FOR A CHAIR IN THE CENTER. AFTER STUDYING THE CHAIR FOR A MOMENT, YOU SEE IT CHANGE BEFORE YOUR EYES...]
TROGLODYTEADEPT
PR [THERE IS A LARGE DOOR WITH 'CONTINUE' TO THE NORTH AND A DOOR WITH 'EXIT' TO THE SOUTH. YOU FIND A POTION.]
MAKE "PLRPOTIONS :PLRPOTIONS + 1
PR [OPTIONS (1) CONTINUE ON (2) TAKE A POTION (3) EXIT GAME]
IF :PLROPTIONS = 1 THEN STOP
IF :PLROPTIONS = 2 THEN TAKEPOTION PARTFIVE
IF :PLROPTIONS = 3 THEN PR [THANKYOU FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.] STOPALL
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PARTSIX
END

TO PARTSIX
FD 25
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
PR [FOR A MOMENT, IT APPEARED THE SIXTH CHAMBER WAS BUILT OF GOLD - THEN YOU NOTICED IT WAS A MASSIVE TREASURE HOARD. THE ONLY THING BETWEEN YOU AND TAKING THE BUNCH IS A GIANT, HIDEOUS BEAST. THIS LOOKS BY FAR THE BIGGEST CHALLENGE YOU'VE FACED.]
BOSSEORWARI
PR [YOU DEFEATED THE GREAT RED WYRM EORWARI! DOING THIS, YOU HAVE COMPLETED THE TRAINING MISSION ON KALADIA'S QUEST.]
PR [THERE IS A LARGE DOOR WITH 'CONTINUE' TO THE NORTH AND A DOOR WITH 'EXIT' TO THE SOUTH.]
PR [OPTIONS (1) CONTINUE (2) HIGH SCORES (3) EXIT]
IF :PLROPTIONS = 1 THEN PARTONE
IF :PLROPTIONS = 2 THEN HIGHSCORES
IF :PLROPTIONS = 3 THEN PR [THANKYOU FOR PLAYING KALADIA'S QUEST. CREATED BY JARED FRASER 8G1.] STOPALL
IF :PLRHP < 1 THEN PR [YOU DIED.] STOPALL STOP
END

TO INTRODUCTION
PR [KALADIA'S QUEST]
PR [WELCOME TO KALADIA'S QUEST, A ROLE - PLAYING GAME CREATED IN THE LOGO PROGRAMMING ENVIROMENT.]
PR [TO WIN, YOU MUST ENTER THE CAVERN OF PELARAK IN THE PELARAK TRAINING INSTITUTE, AND DEFEAT THE EVIL WITHIN. CAN YOU DO IT?]
PR [WE SHALL SEE.]
PR [GOOD LUCK, AND MAY THE FORCE BE WITH YOU.]
PR []
MAKE "LEVELONE 1
MAKE "LEVELTWO 0
MAKE "LEVELTHREE 0
MAKE "LEVELFOUR 0
MAKE "LEVELFIVE 0
MAKE "LEVELSIX 0
MAKE "VARCHALLENGER 0
MAKE "VARDEAD 0
MAKE "VARXP 0
MAP
END

TO MAP
HT
RT 90
REPEAT 2 [FD 350 LT 90 FD 50 LT 90]
FD 100 LT 90 FD 50 RT 90
REPEAT 2 [RT 90 FD 50 LT 90 FD 50 LT 90 FD 50 RT 90 FD 50]
RT 90 FD 50 LT 90 FD 50 LT 90 FD 50 LT 90 FD 250 LT 90 BK 50 RT 90 FD 100 LT 90 FD 50 LT 90 FD 100 RT 90 FD 25 LT 90 PE BK 100 PD
END

TO KALADIASQUEST
INTRODUCTION
PLRCONFIG
PARTONE
PARTTWO
PARTTHREE
PARTFOUR
PARTFIVE
PARTSIX
HIGHSCORES
IF :VARSTOPALL = 1 THEN STOP
IF :PLRHP < 1 THEN PR [YOU DIED.] STOP
END

TO HEXDESIGN
REPEAT 12 [REPEAT 6 [FD 40 LT 60] RT 30]
END

MAKE "VARFIGHT 3
MAKE "LEVELONE 1
MAKE "LEVELTWO 0
MAKE "LEVELTHREE 0
MAKE "LEVELFOUR 0
MAKE "PLRWEAPON 2
MAKE "PLRDMG 6
MAKE "PLRHP -4
MAKE "VARHP1 7
MAKE "VARHP2 15
MAKE "VARDMG 1
MAKE "ADDXP 300
MAKE "VARRAM 0
MAKE "VARRUN 0
MAKE "VARCHALLENGER 0
MAKE "PLRATTACK 1
MAKE "VARDEAD 0
MAKE "STOPALL 1
MAKE "LEVELFIVE 0
MAKE "LEVELSIX 0
MAKE "PLRMAGIC 2
MAKE "PLRSCORE 300
MAKE "VARXP 300
MAKE "VARCHEATS 0
MAKE "HIGHSCOREONE 0
MAKE "HIGHSCORETWO 0
MAKE "HIGHSCORETHREE 0
MAKE "PLRNAME "J
MAKE "VARSTOPALL 1
MAKE "PLRPOTIONS 3
MAKE "PLROPTIONS 1
MAKE "VARTRAINING "ATTACK