TFT.FILL TFT.COLOR(BLACK)
x = 10
y = 10
tempo = 0

dim paredesx(19)
dim paredesy(19)
for i=0 to 19
  randx = rnd(11)
  randy = rnd(15)
  'print randx, randy
  TFT.RECT randx*20, randy*20, 20, 20, TFT.RGB(79, 244, 150), 1
  paredesx(i) = randx*10
  paredesy(i) = randy*10
  print "PAREDE", paredesx(i), paredesy(i)
next i


while 1=1
  tempo = tempo + 1
  TFT.TEXT.POS 0, 310
  TFT.PRINT "Tempo: "+str$(tempo)
  TFT.LINE 0, 320, 240, 319, TFT.RGB(255, 0, 0) 
  'print adc(34) 'horz
  'print adc(35) 'vert
  TFT.CIRCLE x, y, 10, TFT.RGB(0, 0, 0), 1
  IF (adc(34) > 2048) THEN
    x = x - 20
  ENDIF
  IF (adc(34) < 2048) THEN
    x = x + 20
  ENDIF
  IF (adc(35) > 2048) THEN
    y = y - 20
  ENDIF
  IF (adc(35) < 2048) THEN
    y = y + 20
  ENDIF

  IF (x<10) THEN
    x=10
  ENDIF
  IF (x>230) THEN
    x=230
  ENDIF
  IF (y<10) THEN
    y=10
  ENDIF
  IF (y>310) THEN
    y=310
  ENDIF

  checacolisao x, y

  if y = 310 then
    PRINT "ganhoules"
      TFT.FILL TFT.COLOR(BLACK)
      pause 50
      TFT.CIRCLE 120,160, 30, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE 120,160, 100, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE 120,160, 40, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE 120,160, 100, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE 120,160, 50, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE 120,160, 100, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE 120,160, 60, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE 120,160, 100, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE 120,160, 70, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE 120,160, 100, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE 120,160, 80, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE 120,160, 100, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE 120,160, 90, TFT.RGB(0, 255, 0), 1
      pause 50
      TFT.CIRCLE x, y, 100, TFT.RGB(0, 0, 0), 1
      TFT.FILL TFT.COLOR(BLACK)
      TFT.TEXT.POS 60, 160
      TFT.PRINT "Você ganhou! ";
      while 1=1
        
      wend
    while 1=1
      pause 10000
    wend
  endif

  TFT.CIRCLE x, y, 10, TFT.RGB(176, 11, 105), 1
  
  pause 1000
  TFT.RECT 35, 310, 20, 10, TFT.RGB(0, 0, 0),  1 
wend

end

sub checacolisao(x,y)
  print " "
  print "BOLA", x-10, y-10
  for i=0 to 19
    'print "PAREDE",paredesx(i), paredesy(i)
    if ((paredesx(i) = (y-10)) and (paredesy(i) = (x-10))) then
      PRINT "Colidiu"
      TFT.RECT paredesx(i), paredesy(i), 20, 20, TFT.RGB(0, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 6, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE x, y, 8, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE x, y, 10, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE x, y, 12, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE x, y, 10, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE x, y, 8, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.CIRCLE x, y, 6, TFT.RGB(255, 0, 0), 1
      pause 50
      TFT.CIRCLE x, y, 12, TFT.RGB(0, 0, 0), 1
      TFT.FILL TFT.COLOR(BLACK)
      TFT.TEXT.POS 60, 160
      TFT.PRINT "Você Perdeu! Melhore! ";
      while 1=1
        
      wend
    endif
  next i
end sub