% Team Robot

ROBOT "Team Robot"

AUTHOR "SANYA"

  COLOR 000000

  image F 0 0 0 0 0 0 F
  image 0 E 0 0 0 0 E 0
  image 0 0 E C C E 0 0
  image 0 0 C 4 4 C 0 0
  image 0 0 C 4 4 C 0 0
  image 0 0 E C C E 0 0
  image 0 E 0 0 0 0 E 0
  image F 0 0 0 0 0 0 F

  FRONT EYE
  LEFT  GUN
  RIGHT GUN

START:
  def our[10]
start1:
  if E<=3 : start2
  say "searching"
  send 1973
  tt=T+50
  nn=0
  ee=E
 l1:
    recv rr
    if T>tt : l2
    if E<ee : alert
    if rr!=1973 : l1
    our[nn]=N
%    print N
    nn=nn+1
    goto l1
l2:
  t2=T+500
  code=0
  say " "
start2:
  recv rr
  if rr==1974 : radio1
  act front
  if N==6 : attack
  if N==5 : attack
  ee=E
  if E<ee : alert
  if D==1 : log
stepp:
  step
ttime:
  if T>t2 : start1
  goto start2
log:
  if N==3 : stepp
  if N==4 : react
rott:
  if R<500 : log2
     right
     goto ttime
  log2:
     left
     goto ttime
react:
  say "R E A C T O R !"
  ee=E
 wait:
  if E<ee : alert
  if E<13 : wait
  code=1974
  call send_our
  goto rott

% GETTING INFO ABOUT REACTOR
radio1:
  say "REACTOR FOUND"
  if E==13 : start2
  ee=E
  xx=X
  yy=Y
  if yy>0 : upp
  left
  left
  yy=-yy
  xx=-xx
  if E<ee : alert
 upp:
  act front
  if d==1 : rd1_log
  goto rd1_st
 rd1_log:
  if n==1 : start2
  if n==2 : astone
  if n==6 : attack
  if n==5 : attack
 rd1_st:
  if E<ee : alert
  step
  yy=yy-1
  if yy>0 : upp
  if xx==0 : start2
  if xx<0 : rd1_l
     right
     yy=xx
     xx=0
     goto upp
 rd1_l:
     left
     yy=-xx
     xx=0
     goto upp

 astone:
  if M==0 : start2
  left
  act right
  act right
  act right
  act right
  act right
  right
  goto  rd1_st


% SEND_OUR   (code - number for sending)
send_our:
  if E<=nn : sl2
  kk=0
 sl1:
     send code our[kk]
     if E<=3 : start2
     kk=kk+1
     if kk<nn : sl1
 sl2:
   ret

%ALERT

alert1:
  pop
alert:
  if E<=3 : letsgo
  radar 5
  if y!=0 : alert2
     if x>0 : rattack
     goto lattack
  alert2:
     right
     if y>0 : lattack
     goto rattack

  attack:
     right
  lattack:
     act left
     act left
     act left
     act left
     act left
     if M==0 : start2
     act left
     act left
     act left
     act left
     act left
     act left
     act left
     act left
     act left
     act left
     goto start2

  rattack:
     act right
     act right
     act right
     act right
     act right
     if M==0 : start2     
     act right
     act right
     act right
     act right
     act right
     act right
     act right
     act right
     act right
     act right
     goto start2

  letsgo:
     step
     right
     step
     goto start2

end