CODINGLISTINGS ★ CECIL: THE CENTIPEDE ★

Game - Cecil - the Centipede|The Amstrad User)Coding Listings
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 


10 SPEED INK 10,10:MODE 1:BORDER 2:CLS:INK 0,0:INK 1,11,2:INK 2,18:INK 3,26:DIM scr%(40,25),posx(20),posy(20):FOR a=1 TO 100:x=INT(RND*38)+2:y=INT(RND*23)+2:scr%(x,y)=3:NEXT:FOR a=1 TO 200:x=INT(RND*38)+2:y=INT(RND*23)+2:scr%(x,y)=1:NEXT

20 c%(0)=32:c%(1)=227:c%(2)=224:c%(3)=238:c%(4)=231:FOR b=1 TO 25:FOR a=1 TO 39:IF scr%(a,b)=0 THEN 30 ELSE LOCATE a,b:PEN scr%(a,b):PRINT CHR$(c%(scr%(a,b)))
30 NEXT:NEXT:PEN 2:l%=10:x%=20:y%=13:FOR a=1 TO 10:posx(a)=x%+a:posy(a)=y%:NEXT:hx=x%:hy=y%:scr%(hx,hy)=2:LOCATE hx,hy:PRINT CHR$(224):FOR a=1 TO l%:LOCATE posx(a),posy(a):PRINT CHR$(231):scr%(posx(a),posy(a))=4:NEXT:WHILE INKEY$="":WEND
40 dead%=0:x1%=0:y1%=0:WHILE NOT(dead%):i$=UPPER$(INKEY$):IF i$="Z" AND hx>2 THEN x1%=-1:y1%=0 ELSE IF i$="X" AND hx2 THEN y1%=-1:x1%=0
50 t1=hx+x1%:t2=hy+y1%:IF t139 OR t224 THEN 90 ELSE IF scr%(hx+x1%,hy+y1%)=3 OR scr%(hx+x1%,hy+y1%)=4 THEN dead%=-1:GOTO 90 ELSE LOCATE hx+x1%,hy+y1%:PRINT CHR$(224):LOCATE hx,hy:PRINT CHR$(231)
60 IF scr%(hx+x1%,hy+y1%)=1 THEN h%=h%+1:IF l%70 IF h%>149 THEN dead%=-1:GOTO 90 ELSE IF x1%<>0 OR y1%<>0 THEN FOR a=l%-1 TO 1 STEP -1:posx(a+1)=posx(a):posy(a+1)=posy(a):NEXT::posx(1)=hx:posy(1)=hy:scr%(hx,hy)=4
80 LOCATE posx(l%),posy(l%):PRINT CHR$(32):scr%(posx(l%),posy(l%))=0:hx=hx+x1%:hy=hy+y1%
90 WEND:INK 1,6:PEN 3:INK 3,13,26:IF h%>149 THEN LOCATE 14,10:PRINT"Congratulations" ELSE PEN 2:LOCATE hx,hy:PRINT CHR$(225):PEN 3
100 LOCATE 7,12:PRINT"Press spacebar to play again":WHILE INKEY$<>" ":WEND:RUN

TAU

★ PUBLISHER: The Amstrad User (Australia)
★ YEAR: 1989
★ AUTHOR: Simon Mathews

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 096 millisecondes et consultée 634 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.