
cond
  *40
  29
  >
  *40
  29
  >
start
  0
  *.shootval
  div
  40
  store
stop

cond
  *.refeye
  0
  !=
  *.tie
  0
  !=
  *.refeye
  0
  !=
  *.tie
  0
  !=
start
  1
  .aimdx
  store
stop

cond
  *.eye6
  1
  >
start
  17
  .aimdx
  store
stop

cond
  *.eye8
  0
  !=
  *.eye8
 -1
  >
start
  17
  .up
  store
stop

cond
  *.pleas
  0
  !=
  *.eye3
  0
  >
  *.hitup
  0
  !=
  *.eye3
 -1
  !%=
start
  15
  *.eye1
  add
  .aimsx
  store
stop

cond
  *.eye1
 -2
  >
start
  15
  .aimsx
  store
stop

cond
  *.eye4
  0
  !=
  *.dn
  0
  =
start
 -1
  .shoot
  store
  9
  .shootval
  store
  10
  .up
  store
stop

cond
  *.repro
  0
  !=
  *.eye5
  2
  >
  *.shootval
 -1
  >
start
  11
  .dn
  store
stop

cond
  *.nrg
  10000
  >
  *.nrg
  9396
  >
start
  314
  *.refaimdx
  mult
  .aimdx
  store
  50
  .repro
  store
stop

cond
  *.vel
  6
  <
  *.vel
  3
  <
  *.vel
  5
  <
  *.refaimsx
  4
  <
start
  100
  *.hitsx
  div
  .aimdx
  store
stop
end
