gistfile1.txt

//           Game design by Rachel Possen
//           Programmed by Ryan Govostes
//           Draw the maze
GROWBY 50 % 20 [COLOR 7 [FD 20 RT 90 ] ]
JT 12 4 COLOR 5 [BOX 10 14 ] FILL 5
JT -100 -100 COLOR 1 [FD 18 ]
JT 30 -40 COLOR 10 [MT 49 -40 ]
JT 0 0 COLOR 14 [BOX 500 400 ] JT 260 0 FILL 14 JT 12 4
//           Draw the shapes
MAKESHAPE 0 [COLOR 0 [CIRCLE 3 ] ]
MAKESHAPE 1 [COLOR 6 [CIRCLE 3 ] FILL 6 ]
MAKESHAPE 2 [COLOR 4 [CIRCLE 2 ] FILL 4 ]
MAKESHAPE 3 []
//           Other initialization code
D = 0
//           Program for robot zero
ROBOT 0 [
  USESHAPE 0 RON JT -94 -44 SPEED 3
  KEY " " [TS H V Z
    ROBOT 2 [
      USESHAPE 2 RON SPEED 7
      SETXY H V TT Z
      CRASH 14 [USESHAPE 3 ROFF ]
      CRASH 7 [USESHAPE 3 ROFF ]
      CRASH 1 [USESHAPE 3 ROFF ]
    ]
  ]
  KEYPAD "8" [TT 0 ]
  KEYPAD "6" [TT 90 ]
  KEYPAD "4" [TT -90 ]
  KEYPAD "2" [TT 180 ]
  CRASH 7 [SETXY -94 -44 ]
  CRASH 14 [RT 180 ]
  CRASH 5 [
    ROBOT 0 [USESHAPE 3 ROFF ]
    ROBOT 1 [USESHAPE 3 ROFF ]
    ROBOT 2 [USESHAPE 3 ROFF ]
    JT -70 -102 STRETCH 77 % [SIZE 229 % [WR "You win!!" ] ]
  ]
  CRASH 1 [SETXY -94 -44 ]
  CRASH 6 [JT -94 -44 ]
  CRASH 10 [JT -94 -44 ]
  CRASH 11 [JT -94 -44 ]
]
//           Program for robot one (enemy 1)
ROBOT 1 [
  USESHAPE 1 RON JT 12 4 SPEED 4 TT 180
  CRASH 7 [IF ( D == 0 ) [GOBK 9 RT 90 ] ]
  NEAR 2 5 [USESHAPE 3 ROFF
  ROBOT 2 [USESHAPE 3 ROFF ] ]
  CRASH 1 [USESHAPE 3 JT 12 4 TT 180 USESHAPE 1 ]
  CRASH 10 [GOBK 9 RT 90
  ROBOT 3 [USESHAPE 1 RON JT 12 4 SPEED 4 TT 180 ] ]
]
//           Program for robot three (enemy 2)
ROBOT 3 [
  USESHAPE 1 JT 12 4 SPEED 4 TT 180
  CRASH 7 [IF ( D == 0 ) [GOBK 9 RT 90 ] ]
  NEAR 2 5 [USESHAPE 3 ROFF
  ROBOT 2 [USESHAPE 3 ROFF ] ]
  CRASH 1 [USESHAPE 3 JT 12 4 TT 180 USESHAPE 1 ]
  CRASH 10 [GOBK 9 RT 90
  ROBOT 4 [USESHAPE 1 RON JT 12 4 SPEED 4 TT 180 ] ]
]
//           Program for robot four (enemy 3)
ROBOT 4 [
  USESHAPE 1 JT 12 4 SPEED 4 TT 180
  CRASH 7 [IF ( D == 0 ) [GOBK 9 RT 90 ] ]
  NEAR 2 5 [USESHAPE 3 ROFF
  ROBOT 2 [USESHAPE 3 ROFF ] ]
  CRASH 1 [USESHAPE 3 JT 12 4 TT 180 USESHAPE 1 ]
  CRASH 10 [GOBK 9 RT 90
  ROBOT 5 [USESHAPE 1 RON JT 12 4 SPEED 4 TT 180 ] ]
]
//           Program for robot five (enemy 4)
ROBOT 5 [
  USESHAPE 1 JT 12 4 SPEED 4 TT 180
  CRASH 7 [IF ( D == 0 ) [GOBK 9 RT 90 ] ]
  NEAR 2 5 [USESHAPE 3 ROFF
  ROBOT 2 [USESHAPE 3 ROFF ] ]
  CRASH 1 [USESHAPE 3 JT 12 4 TT 180 USESHAPE 1 ]
  CRASH 10 [GOBK 9 RT 90
  ROBOT 6 [USESHAPE 1 RON JT 12 4 SPEED 4 TT 180 ] ]
]
//           Program for robot six (enemy 5)
ROBOT 6 [
  USESHAPE 1 JT 12 4 SPEED 4 TT 180
  CRASH 7 [IF ( D == 0 ) [GOBK 9 RT 90 ] ]
  NEAR 2 5 [USESHAPE 3 ROFF
  ROBOT 2 [USESHAPE 3 ROFF ] ]
  CRASH 1 [USESHAPE 3 JT 12 4 TT 180 USESHAPE 1 ]
  CRASH 10 [GOBK 9 RT 90
  ROBOT 7 [USESHAPE 1 RON JT 12 4 SPEED 4 TT 180 ] ]
]
//           Program for robot seven (enemy 7)
ROBOT 7 [
  USESHAPE 1 JT 12 4 SPEED 4 TT 180
  CRASH 7 [IF ( D == 0 ) [GOBK 9 RT 90 ] ]
  NEAR 2 5 [USESHAPE 3 ROFF
  ROBOT 2 [USESHAPE 3 ROFF ] ]
  CRASH 1 [USESHAPE 3 JT 12 4 TT 180 USESHAPE 1 ]
  CRASH 10 [GOBK 9 RT 90 ]
]