9462
GAME -> Actiontypeins
© Amstrad Computer User (1989)
 
 
 
Snake
Snakx
cpc
 
 

Last Update : Saturday 31 January 2015 at 21 h 56
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Keywords

INFOS

- CATEGORIES -
- NUMBER OF PLAYERS -
1 player
- DESCRIPTION -

I remember buying this game many years ago and it still manages to get me back to the keyboard. The aim is simple - just guide your snake round the arena eating the pills as you go but beware because colliding with either the walls or your tail is fatal. There is, of course, a catch to this game and that is your tail. The offending appendage grows with each pill consumed, thus making it more difficult to avoid.

- STAFF -

Paru sous forme de listing dans le magazine Amstrad Computer User (August 1989).
Auteur : R. MURPHY

- BUGS -

Le listing, comme publiƩ dans Amstrad Computer User, ne fonctionne qu'avec BASIC 1.1 parce qu'il utilise les commande FRAME et COPYCHR$, mais il est possible de le modifier afin de faire fonctionner avec BASIC 1.0 :

AVANT :
20 LOCATE#1,1,2:PEN#1,1:PRINT#1,"Score:";s%;TAB(30);"Hi:";hi%: WINDOW#0,1,40,4,26:x$="^T^T^T^T":y$="^I^J^K^L":dx%=0:dy%=-1:s%=0: fx%=0:fy%=0:ft%=0:k$="*":WHILE k$<>" " AND k$<>"Z" AND k$<>"X":k$=INKEY$:WEND:CLS#0:PEN 1:FRAME:EVERY 50 GOSUB 90:DI
40 PEN 1:IF x%=0 OR x%=41 OR y%=0 OR y%=23 THEN SOUND 1,999,25,15,,,31:GOTO 10 ELSE x$=CHR$(x%)+x$:y$=CHR$(y%)+y$:LOCATE x%,y%:IF COPYCHR$(#0)=CHR$(202) THEN SOUND 1,999,25,15,,,31:GOTO 10
100 LOCATE fx%,fy%:IF COPYCHR$(#0)=CHR$(202) OR (fx%=ox% AND fy%=oy%) THEN fx%=0:GOTO 90 ELSE ft%=10:LOCATE#1,15,3:PRINT#1,STRING$(10,CHR$(143)):PEN 2:PRINT CHR$(231);:PEN 1:LOCATE h%,v%:ak%=1:RETURN

APRES :
20 PRINT#1,"Score:";s%;TAB(30);"Hi:";hi%: WINDOW#0,1,40,4,26:x$="^T^T^T^T":y$="^I^J^K^L":dx%=0:dy%=-1:s%=0: fx%=0:fy%=0:ft%=0:k$="*":WHILE k$<>" " AND k$<>"Z" AND k$<>"X":k$=INKEY$:WEND:CLS:PEN 1:EVERY 50 GOSUB 90:DI:RESTORE:FOR a%=48 TO 54:READ p%:POKE a%,p%:NEXT
40 PEN 1:IF x%=0 OR x%=41 OR y%=0 OR y%=23 THEN SOUND 1,999,25,15,,,31:GOTO 10 ELSE x$=CHR$(x%)+x$:y$=CHR$(y%)+y$:LOCATE x%,y%:CALL 48:IF PEEK(55)=202 THEN SOUND 1,999,25,15,,,31:GOTO 10
100 LOCATE fx%,fy%:CALL 48:IF PEEK(55)=202 OR (fx%=ox% AND fy%=oy%) THEN fx%=0:GOTO 90 ELSE ft%=10:LOCATE#1,15,3:PRINT#1,STRING$(10,CHR$(143)):PEN 2:PRINT CHR$(231);:PEN 1:LOCATE h%,v%:ak%=1:RETURN:DATA 205,96,187,50,55,0,201

 

Goto Top
CPC-POWER/CPCSOFTS, programming by Kukulcan © 2007-2020 all rights reserved.
Reproduction forbidden without any express authorization. All the game titles used belong to their respective owners.
Hébergement Web, Mail et serveurs de jeux haute performance