vive le train

lemanoirdudocteurgenius/apple2/_FileInformation.txt

@@ -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)

lemanoirdudocteurgenius/oric/code_oric copie.bas

@@ -24,17 +24,6 @@
 570 GOSUB 6000
 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 
 1010 NL=0
 1100 NL=NL+1
@@ -52,107 +41,6 @@
 1220 IF Y$<>"00" AND Y$<>MO$(2) THEN 1100
 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
 4001 PRINT"Vous avez gardez la lampe trop        longtemps allumee,elle a explose"
 4005 WAIT400:RETURN
@@ -326,6 +214,7 @@
 
 4550 PRINT"A l'interieur du placard,le No "PL"   est inscrit":WAIT300
 4555 PRINT"Le placard se referme.":WAIT150:RETURN
+
 4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200
 4565 RETURN
 
@@ -336,6 +225,7 @@
 4582 WAIT300:PRINT"un pot plein":WAIT100
 4585 PRINT"d'eau qui vous a permis d'eteindre ce feu"
 4586 WAIT400:RETURN
+
 4590 HIRES:INPUT"No DE CODE";ZC
 4595 IF ZC<>PL THEN GOTO 4570