Publicité
13919 P E N 6
1400 F O R i = l T O obj (rut)
1410 L O C A T E objx(rm,i) objy(rm,i)
1420 PR IN T obj*;
1430 N E X T
1440 P E N 5
1450 F O R i = l T O gems(rm)
1460 L O C A T E gemx(rm,i) , gemy(rm,i)
1470 PR IN T geint;
1480 N E X T
1490 P E N 1 :L O C A T E xp,yp:PRINT hom m e*;
1500 R E T U R N
1510 xf =0:yf = 0:P E N 1
1520 IF IN K E Y (0)0-1 O R IN K E Y (72)0-1 T H E N yf = -1
1530 IF IN K E Y (2)0-1 O R IN K E Y (73) < >-l T H E N yf = l
1540 IF IN K E Y (8)0-1 O R IN K E Y (74) < >-l T H E N x -f = -1
1550 IF IN K E Y (1)0-1 O R IN K E Y (75) < >-l T H E N x f = 1
1560 IF xf=0 A N D yt-0 T H E N 1630
1570 L O C A T E xp+xf, yp+yf:ht*=COPYCHR*(#0)
1580 IF ASC(ht*)>239 A N D ASC(ht*)<246 T H E N 1510
1590 IF ht*< > " • T H E N 1660
1600 L O C A T E xp.ypsPRINT" n;
1610 PA PE R 0:L O C A T E 15,5:PRINT"
1620 xp=xp+xf:yp=yp+yf
1630 L O C A T E xp,yp:PRINT hom m e*;
1640 IF chien>0 T H E N chien=chien M O D 2+1:IF chien=2 T H E N 255
0
1650 G O T O 1510
1660 coup*INSTR(coup*,ht*):char=ASC(MID*(coup*,coup,l))
1670 O N coup G O T O 1690,1690,1690,1690,1750,1750,1850,1900,19
70,2090,2650
1680
G O T O 1600
1690
IF coup>2 A N D coup<5 T H E N char=char-l
IF coup<3 T H E N char=char+l
1700
1710
P E N 3:L O C A T E xp+xf, yp+yf:PR IN T CHR*(char>;
1720
1umiere(rm)=lumiere(rm) X O R 1
1730
IF lumière(rm) T H E N IN K 7,10: IN K 8,10 E L SE IN K 7,0:INK
8 , 0
1740
G O T O 1510
1750
IF x f < >0 A N D yf< >0 T H E N 1630
1760
IF xf<0 T H E N dir = 4 E L SE IF xf>0 T H E N dir=3
1770
IF yf<0 T H E N dir = 1 E L SE IF yf>0 T H E N dir=2
IF dir(rm,dir)=-l T H E N 1630 EL SE rm=dir(rm,dir)
1780
1790
IF chien>0 T H E N G O SU B 310
1800
IF dir = 1 T H E N xp=6:yp=maxy(rm)
";:PAPER 8
Publicité
