start:                        # Main loop: turn or move
   enemiesdir 1
   ifgt radar 0 kaannaoikea
   enemiesdir 3
   ifgt radar 0 kaannavasen

   ifwall turn                 # turn if facing an obstacle
   iffriend turn
   fodderleft
   ifgt radar 0 liiku

   score
   iflt radar 0 liiku

   friendsnear
   iflt radar 3 liiku

   spin
   goto start


 liiku:
   move                        # move otherwise
   goto start                  # repeat the above

 turn:                         # Turn left or right at random
   ifrandom noswitch
   switch
   callsub vaihdamuisti3

 noswitch:
   spin
   goto start

 kaannaoikea:
  ifeq mem 0 vaihdamuisti
  spin
  goto liiku

 vaihdamuisti:
  set mem 1
  switch
  spin
  goto liiku

 kaannavasen:
  ifeq mem 1 vaihdamuisti2
  spin
  goto liiku

 vaihdamuisti2:
  set mem 0
  switch
  spin
  goto liiku

 vaihdamuisti3:
  ifeq mem 1 vaihda0
  set mem 1
  return

 vaihda0:
  set mem 0
  return