Centipede for Alice 4K

Cette catégorie traite de développements récents pour nos vieilles machines, applications, jeux ou démos... Amis programmeurs, c'est ici que vous pourrez enfin devenir célèbres!

Modérateurs : Papy.G, fneck, Carl

Avatar de l’utilisateur
Carl
Modérateur
Messages : 13253
Inscription : 08 avr. 2007 13:21
Localisation : http://www.doledujura.fr
Contact :

Centipede for Alice 4K

Message par Carl »

Centipede for Alice 4K (c) JIM GERRIE

Code : Tout sélectionner

0 CLS:GOSUB9200:DIMA(11),D(11),X(11),Y(11),Q(11),H(255),K(255),U1,U2,U3,U4:GOSUB9300:CLS0
1 DIMT,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,U,V,W,X,Y,Z,N,MC,LV,HT,HH,GG,SC,HS,SF,S1,S2,S3,SS,L$,A$,I$,C$,D$:GOSUB9000
2 FORC=ITOZ:FORT=ITOL:IFK(PEEK(D)ANDPEEK(W))THEN26
3 IFK(PEEK(K)ANDPEEK(W))THEN28
4 IFK(ASC(C$+INKEY$+A$))THEN9
5 ONH(PEEK(A(T)))GOSUB10,6,6,6,6,8,6:POKEX(T),R:POKEA(T),Q(T):X(T)=A(T):A(T)=A(T)+D(T):NEXT:NEXT:GOTO100
6 A(T)=A(T)-D(T)+Y(T):D(T)=D(T)*N:RETURN
7 U=SF:S=MC:RETURN
8 ONRND(W)GOSUB35,36:RETURN
9 C$=D$:U=R:FORS=J-RTOVSTEP-R:ONH(PEEK(S))GOSUB7,11,12,13,7,7,17:GOSUB16:NEXT:GOTO5
10 G=I:M=U4:POKEJ,M:SOUND1,2:C=Z+I:RETURN
11 U=U1:GOSUB14:RETURN
12 U=U2:GOSUB14:RETURN
13 U=R:GOSUB14:RETURN
14 POKES,U:U=SF:S=MC:SC=SC+S3:PRINT@O,SC;:RETURN
16 POKES,SS:POKES,SS:POKES,U:RETURN
17 FORP=ITOL:IFS=X(P)THENU=U3:POKES,U:ONRND(E)GOSUB20,21,21:U=SF:S=MC:PRINT@O,SC;:IFF=RTHENSC=SC+S2:PRINT@O,SC;
18 NEXT:RETURN
19 RETURN
20 F=D(P):X(P)=X(P)+R:A(P)=X(P)+R:D(P)=R:Y(P)=R:ONH(PEEK(X(P)))GOSUB34:POKES+R,O:SC=SC+S1:RETURN
21 F=D(P):GOSUB30:A(P)=X:X(P)=X:D(P)=O:Y(P)=O:Q(P)=SS:HT=HT+I:SC=SC+S1:IFHT=LTHENC=Z+I
22 RETURN
26 POKEJ,R:ONH(PEEK(J-I))GOSUB7,32,32,32,32,32,34:J=J-I:POKEJ,M:C$="":GOTO5
28 POKEJ,R:ONH(PEEK(J+I))GOSUB7,33,33,33,33,33,34:J=J+I:POKEJ,M:C$="":GOTO5
30 Y=VARPTR(L$):A=PEEK(Y+W):B=PEEK(Y+E):X=(A*HH)+B+P:RETURN
32 J=J+I:RETURN
33 J=J-I:RETURN
34 G=I:M=U4:POKEJ,M:SOUND1,2:POKEJ,R
35 SOUND200,1:C=Z+I:RETURN
36 IFX(T)>16863THENGOSUB35:RETURN
37 A(T)=X(T):D(T)=N:ONRND(W)GOSUB38,19:RETURN
38 D(T)=D(T)*N:RETURN
100 IFG=ITHEN200
105 IFHT=LTHEN120
110 L=L-I:IFL<ITHENL=I
120 GOSUB9100:GOTO2
200 PRINT@HH,"GAME OVER";:FORX=1TO10STEP-1:SOUND150-(10*T),1:SOUND200-(10*T),1:NEXT
205 IFSC>HSTHENHS=SC:SOUND200,2:SOUND100,2:GOSUB9170
210 PRINT@277,"PLAY AGAIN?";
220 I$=INKEY$:IFI$=""THEN220
230 IFI$="Y"THENGOSUB9050:GOTO2
240 IFI$="N"THENCLS:END
250 GOTO220
9000 O=0:I=1:W=2:E=3:F=0:Z=64000:MC=16384:V=MC+32:K=16948:R=32:HS=0:N=-1:C$="":D$="."
9005 D=16946:GG=254:HH=256:SF=96:Q=16952:S1=100:S2=150:S3=10:SS=42:U1=239:U2=255:U3=159:U4=31
9010 H(30)=1:H(159)=2:H(239)=3:H(255)=4:H(96)=5:H(143)=6:H(0)=7
9020 K(126)=1:K(123)=1:K(32)=1:A$="."
9030 L$="                                                                "
9050 L=10:SC=0
9100 FORT=16416TO16863:POKET,R:NEXT:FORX=0TO31:PRINT@X," ";:NEXT
9110 FORX=ITOLV*9:P=R+RND(416):PRINT@P,CHR$(159);:NEXT:FORX=ITOLV*1.5:P=R+RND(416):PRINT@P," ";:NEXT
9120 FORY=ITO15:PRINT@(Y*32)-1,"  ";:NEXT
9130 FORT=16864TO16895:POKET,143:NEXT
9140 C=16384+33+RND(19):FORT=1TOL:X(T)=C:A(T)=C-1:C=C+1:D(T)=-1:Y(T)=R:Q(T)=0:NEXT
9160 J=MC+448+16:M=30:POKEJ,M:HT=0:G=0
9170 PRINT@11,"LV";LV;"HIGH:";HS;:PRINT@O,SC;
9190 RETURN
9200 PRINT"  @@@@@@@@ CENTIPEDE @@@@@@@@ "
9202 PRINT"              FOR             "
9203 PRINT"           THE MC-10          "
9205 PRINT"         BY JIM GERRIE        "
9206 PRINT"            lV = 10           "
9207 PRINT"  10 PTS FOR EACH MUSHROOM    "
9208 PRINT"  (YELLOW, PURPLE, & ORANGE). "
9209 PRINT"  100 PTS FOR CENTIPEDE PARTS."
9210 PRINT"  250 PTS FOR FALLING PARTS.  "
9211 PRINT"  3 SHOTS TO CLEAR MUSHROOMS. "
9212 PRINT"  TO KEEP YOUR GUN READY TO   "
9213 PRINT"  FIRE, KEEP MOVING! QUICK    "
9214 PRINT"  BACK-AND-FORTH MOVEMENTS    "
9215 PRINT"  WORK BEST USING a & s KEYS. "
9216 PRINT:RETURN
9300 PRINT"  PRESS space TO FIRE & BEGIN ";:LV=10
9310 I$=INKEY$:X=RND(1000):IFI$=""THEN9310
9320 IFI$="L"THENIFLV>1THENLV=LV-1:PRINT@145,LV;
9330 IFI$=" "THENRETURN
9340 GOTO9310

Avatar de l’utilisateur
Patrice
Messages : 1518
Inscription : 14 janv. 2008 10:42
Localisation : https://www.ville-saintes.fr/
Contact :

Re: Centipede for Alice 4K

Message par Patrice »

Merci Carl, il faudrait voir si on peut ajouter ces programmes au wiki (avec autorisation des auteurs), qu'en penses-tu :?:
Répondre