Rem --------
Rem COCONUTS
Rem --------
Dim C%(10,3)
Coco1$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Coco1$=Coco1$+Mki$(Data%)
Next I%
Data 0,28672,64540,56895
Data 36723,865,15169,32752
Data 64248,58556,51486,35086
Data 4366,6924,5384,4352
Coco2$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Coco2$=Coco2$+Mki$(Data%)
Next I%
Data 6912,5376,4352,4352
Data 6912,5376,4352,4352
Data 6912,5376,4352,4352
Data 6912,5376,4352,4352
Coco3$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Coco3$=Coco3$+Mki$(Data%)
Next I%
Data 6912,5376,4352,4352
Data 6912,5376,4352,4352
Data 23296,13636,4424,39248
Data 38176,21328,12680,65534
Noix$=Mki$(0)+Mki$(0)+Mki$(&H0008)
For I%=1 To 8
 Read Data%
 Noix$=Noix$+Mki$(Data%)
Next I%
Data 15360,32256,65280,65280
Data 65280,65280,65280,32256
Singe$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Singe$=Singe$+Mki$(Data%)
Next I%
Data 65534,21844,27308,16376
Data 51142,50502,26572,13208
Data 8176,1984,1984,1984
Data 1728,1088,3168,7280
Del_Noix$=Mki$(0)+Mki$(0)+Mki$(&H0208)
For I%=1 To 16
  Del_Noix$=Del_Noix$+Mki$(0)+Mki$(0)
Next I%
Del_Singe$=Mki$(0)+Mki$(0)+Mki$(&H0210)
For I%=1 To 16
  Del_Singe$=Del_Singe$+Mki$(0)+Mki$(0)
Next I%
Cls
Sprite Coco1$,0,0
Sprite Coco2$,0,16
Get 0,15,8,31,Coco2$
Put 0,32,Coco2$
Put 0,48,Coco2$
Sprite Coco3$,0,64
Get 0,0,15,79,Coco$
Clr Coco1$,Coco2$,Coco3$
Cls
Setfont F_6X8
Pos%=1
Q%=1
D%=1
Score%=0
Vies%=5
N=0.1
Rem ------
Rem LE JEU
Rem ------
Cls
'Dessine palmiers
For I%=1 To 3
  Put (I%*5-1)*8,8,Coco$
Next I%
Sprite Singe$,(1+Pos%*5)*8+1,84
Jeu:
Print At(1,1);"SCORE:";Score%'''"VIES:";Vies%
J%=1
Repeat
  Pause 4
  Key%=Getkey
  If Key%=KEY_ESC Then
    Goto Fin
  Elseif Key% 
    Pos%=Pos%+(Key%=KEY_RIGHT)*(Pos%<3)-(Key%=KEY_LEFT)*(Pos%>1)
    For I%=1 To 3
      Sprite Del_Singe$,(1+I%*5)*8+1,84
    Next I%
    Sprite Singe$,(1+Pos%*5)*8+1,84
  Endif
  Q%=D%
  For I%=1 To 9
   
    If C%(Q%,J%)
      Sprite Noix$,(J%*5+2)*8,(I%-1)*8+12
    Else
      Sprite Del_Noix$,(J%*5+2)*8,(I%-1)*8+12
    Endif
    Inc Q%
    If Q%=11 Then
      Q%=1
    Endif
  Next I%
  If C%(Q%,J%)=0
    Goto Suite
  Endif
  If Pos%<>J% Then
    Goto Suite1
  Endif
  Inc Score%
  If Score%/5=Score% Div 5
    Add N,0.02
  Endif
  If Score%/12=Score%\12
    Inc Vies%
  Endif
  C%(Q%,J%)=0
  Suite:
  Inc J%
Until J%=4
D%=Q%
If (Rnd()>N) Then
  Goto Jeu
Endif
C%(Q%,Random(3)+1)=1
Goto Jeu
Suite1:
Dec Vies%
If Vies%
  Goto Suite
Endif
Print At(1,1);"Vous avez perdu!!!"
Print "Appuyez sur ESC."
Repeat
Until RR_ESC
Fin: