mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-06 17:29:39 +00:00
vive le train
This commit is contained in:
parent
3f68e04eaf
commit
69898d223c
|
@ -1 +1 @@
|
||||||
drgenius=Type(06),AuxType(4000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
drgenius=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||||
|
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
@ -24,17 +24,6 @@
|
||||||
570 GOSUB 6000
|
570 GOSUB 6000
|
||||||
580 IF MO$(1)="00" THEN PRINT"Je ne comprends pas...":WAIT 200:GOTO100
|
580 IF MO$(1)="00" THEN PRINT"Je ne comprends pas...":WAIT 200:GOTO100
|
||||||
|
|
||||||
900 REM CONTROLE Mvt
|
|
||||||
910 Z=1
|
|
||||||
920 T$=MID$(M$(SALLE),Z,2)
|
|
||||||
930 IF T$="00" THEN 980
|
|
||||||
940 IF T$<>MO$(1) THEN 970
|
|
||||||
950 SALLE=VAL(MID$(M$(SALLE),Z+2,2))
|
|
||||||
960 GOTO 100
|
|
||||||
970 Z=Z+4:GOTO920
|
|
||||||
980 T=0
|
|
||||||
990 A1=0
|
|
||||||
|
|
||||||
1000 REM CONTROLE
|
1000 REM CONTROLE
|
||||||
1010 NL=0
|
1010 NL=0
|
||||||
1100 NL=NL+1
|
1100 NL=NL+1
|
||||||
|
@ -52,107 +41,6 @@
|
||||||
1220 IF Y$<>"00" AND Y$<>MO$(2) THEN 1100
|
1220 IF Y$<>"00" AND Y$<>MO$(2) THEN 1100
|
||||||
1230 E$=MID$(A$(NL),5)
|
1230 E$=MID$(A$(NL),5)
|
||||||
|
|
||||||
1400 REM CONDITIONS
|
|
||||||
1410 E=1
|
|
||||||
1420 IF MID$(E$,E,1)="." THEN 1700
|
|
||||||
1430 LI=ASC(MID$(E$,E,1))-65
|
|
||||||
1440 N=VAL(MID$(E$,E+1,2))
|
|
||||||
1450 GOSUB 1500+LI*10
|
|
||||||
1460 IF OK=0 THEN 1100
|
|
||||||
1470 E=E+3:GOTO1420
|
|
||||||
1500 IF N=SALLE THEN OK=1 ELSE OK=0
|
|
||||||
1505 RETURN
|
|
||||||
|
|
||||||
1510 IF O(N)=-1 OR O(N)=SALLE THEN OK=1 ELSE OK=0
|
|
||||||
1515 RETURN
|
|
||||||
|
|
||||||
1520 IF O(N)<>SALLE AND O(N)<>-1 THEN OK=1 ELSE OK=0
|
|
||||||
1525 RETURN
|
|
||||||
|
|
||||||
1530 IF O(N)=-1 THEN OK=1 ELSE OK=0
|
|
||||||
1535 RETURN
|
|
||||||
|
|
||||||
1540 IF P(N)=1 THEN OK=1 ELSE OK=0
|
|
||||||
1545 RETURN
|
|
||||||
|
|
||||||
1550 IF P(N)=0 THEN OK=1 ELSE OK=0
|
|
||||||
1555 RETURN
|
|
||||||
|
|
||||||
1560 IF C(N)=1 THEN OK=1 ELSE OK=0
|
|
||||||
1565 RETURN
|
|
||||||
|
|
||||||
1570 IF INT(RND(1)*99+1)<N THEN OK=1 ELSE OK=0
|
|
||||||
1575 RETURN
|
|
||||||
|
|
||||||
1580 IF N<>SALLE THEN OK=1 ELSE OK=0
|
|
||||||
1585 RETURN
|
|
||||||
|
|
||||||
1700 REM ACTIONS
|
|
||||||
1705 E=E+1:A1=1
|
|
||||||
1710 IF MID$(E$,E,1)="." THEN 1100
|
|
||||||
1720 LI=ASC(MID$(E$,E,1))-65
|
|
||||||
1730 IF MID$(E$,E+1,1)<>"." THEN N=VAL(MID$(E$,E+1,2))
|
|
||||||
1740 BREAK=0
|
|
||||||
1750 GOSUB 1800+LI*100
|
|
||||||
1760 IF BREAK<>0 THEN GOTO BREAK
|
|
||||||
1780 E=E+3
|
|
||||||
1790 GOTO 1710
|
|
||||||
|
|
||||||
1800 G=0:HH=0
|
|
||||||
1810 G=G+1
|
|
||||||
1820 IF O(G)=-1 THEN GOTO 1840
|
|
||||||
1830 IF G<O THEN GOTO 1810 ELSE GOTO1870
|
|
||||||
1840 IF HH=0 THEN PRINT"Vous detenez:":WAIT 100
|
|
||||||
1850 HH=1
|
|
||||||
1860 PRINTO$(G);:PRINT" ";:WAIT150
|
|
||||||
1865 IF G<V THEN 1810
|
|
||||||
1870 IF HH=1 THEN PRINT".":RETURN
|
|
||||||
1880 PRINT"Vous ne detenez absolument rien!!!":WAIT 200:RETURN
|
|
||||||
|
|
||||||
1900 IF S(1)<5 THEN 1930
|
|
||||||
1910 PRINT"Il parait evident que vous ne pouvez portez tant de chose!!"
|
|
||||||
1920 WAIT 250:BREAK=100:RETURN
|
|
||||||
1930 IF O(N)<>-1 THEN 1960
|
|
||||||
1940 PRINT"Vous l'avez deja,vous etes etourdit etdans cette maison ce n'est pas"
|
|
||||||
1945 WAIT400
|
|
||||||
1950 PRINT"tres conseille...":GOTO1920
|
|
||||||
1960 O(N)=-1:S(1)=S(1)+1:RETURN
|
|
||||||
|
|
||||||
2000 IF O(N)=-1 THEN 2030
|
|
||||||
2010 PRINT"Comment voulez vous poser ce que vous n'avez pas"
|
|
||||||
2020 GOTO 1920
|
|
||||||
2030 O(N)=SALLE:S(1)=S(1)-1:RETURN
|
|
||||||
|
|
||||||
2100 CLS:GOSUB 4000+N*10
|
|
||||||
2110 RETURN
|
|
||||||
|
|
||||||
2200 P(N)=1:RETURN
|
|
||||||
|
|
||||||
2300 P(N)=0:RETURN
|
|
||||||
|
|
||||||
2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN
|
|
||||||
|
|
||||||
2500 IF O(N)=-1 THEN S(1)=S(1)-1
|
|
||||||
2510 O(N)=0 :RETURN
|
|
||||||
|
|
||||||
2600 SALLE=N:RETURN
|
|
||||||
|
|
||||||
2700 PRINT"D'accord..."
|
|
||||||
2710 WAIT150:BREAK=300:RETURN
|
|
||||||
|
|
||||||
2800 BREAK=500
|
|
||||||
2810 RETURN
|
|
||||||
|
|
||||||
2900 BREAK=530:RETURN
|
|
||||||
|
|
||||||
3000 BREAK=100:RETURN
|
|
||||||
|
|
||||||
3100 POP:GOTO20000
|
|
||||||
|
|
||||||
3200 O(N)=SALLE:RETURN
|
|
||||||
|
|
||||||
3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN
|
|
||||||
|
|
||||||
4000 HIRES:FORN=1TO20:EXPLODE:WAIT4:NEXT
|
4000 HIRES:FORN=1TO20:EXPLODE:WAIT4:NEXT
|
||||||
4001 PRINT"Vous avez gardez la lampe trop longtemps allumee,elle a explose"
|
4001 PRINT"Vous avez gardez la lampe trop longtemps allumee,elle a explose"
|
||||||
4005 WAIT400:RETURN
|
4005 WAIT400:RETURN
|
||||||
|
@ -326,6 +214,7 @@
|
||||||
|
|
||||||
4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300
|
4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300
|
||||||
4555 PRINT"Le placard se referme.":WAIT150:RETURN
|
4555 PRINT"Le placard se referme.":WAIT150:RETURN
|
||||||
|
|
||||||
4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200
|
4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200
|
||||||
4565 RETURN
|
4565 RETURN
|
||||||
|
|
||||||
|
@ -336,6 +225,7 @@
|
||||||
4582 WAIT300:PRINT"un pot plein":WAIT100
|
4582 WAIT300:PRINT"un pot plein":WAIT100
|
||||||
4585 PRINT"d'eau qui vous a permis d'eteindre ce feu"
|
4585 PRINT"d'eau qui vous a permis d'eteindre ce feu"
|
||||||
4586 WAIT400:RETURN
|
4586 WAIT400:RETURN
|
||||||
|
|
||||||
4590 HIRES:INPUT"No DE CODE";ZC
|
4590 HIRES:INPUT"No DE CODE";ZC
|
||||||
4595 IF ZC<>PL THEN GOTO 4570
|
4595 IF ZC<>PL THEN GOTO 4570
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user