Publicité
1810 IF dir=2 T H E N xp=6:yp=miny(rm)
1820 IF dir*3 T H E N xp=minx(rm)syp=13
1830 IF dir»4 T H E N xp=maxx(rm):yp=13
1840 R E T U R N
18S0 IF xp >5 A N D xp<8 T H E N 1880
1860 IF xp<6 T H E N dir=4 E L SE dir=3
1870 G O T O 1780
1880 IF yp>13 T H E N dir = 2 E L SE dir = 1
1890 G O T O 1780
1900 PA PE R 0:CLS:PEN 1
1910 L O C A T E 3,3:PRINT"vous vous en tirez ! " ;
1920 L O C A T E 9,5: PRINT"avec" ;
1930 IF gems=vol T H E N L O C A T E 8,7 ï P R IN T '' T O U T !"; ELSE L O C A T E
9,7
1940 PR IN T U SIN G " M";vol)
1950 P E N 5: L O C A T E 8,9s PR IN T "Bijoux'1!
1960 mort=l:R E T U R N
1970 L O C A T E xp,ypsPRINT " 1 1 ; : xp = xp + xf : yp=yp+yf
1980 i-0
1990 i=i+l
2000 IF i >gems(rm) T H E N 1510
2010 IF gem x (rm,i)<>xp O R gemy(rm,i)<>yp T H E N 1990
2020 IF i=gems(rm) T H E N 2050
2030 gemx(rm,i)=gemx(rm,gems(rm))
2040 gemy(rm,i)=gemy(rm,gems(rm))
2050 gems(rm)=gems(rm)-1 : vol=vol + 1
2060 M O V E 400, 150+(volt2),1,1 : D R A W 560,150+(vol 12),1,1
2070 SO U N D 129,248,10,12,0,1
2080 G O T O 1980
2090 bruit=INT(RNDI15)
2100 SO U N D 1,3000,10,bruit,0,0,10
2110 PA PE R 0: L O C A T E 15,5iPRINT"CRACK!" PA PE R 8
2120 IF bruit<10 O R delais=50 T H E N 1630
2130 delais=delais-50
2140 feint=REMAIN(1)
2150 A FT E R delais*4,l G O SU B 310
2160 G O T O 1630
2170 '
2180 ' dessin des portes
2190 '
2200 R E A D no,dr$
2210 IF d r $ = "V" T H E N dr = 2 E L SE dr = l
2220 P E N 2
Publicité
