#

Serpentone

Il sorgente del programma
 
1 REM ****************************
2 REM *** il serpentone per 64 ***
3 REM *** di roberto ceccarelli***
4 REM ****************************
5 REM digitato da saver71 il 25 aprile 2011
100 FORx=1TO10:n$(x)="{-*6}":NEXT
120 si=54272:FORt=0TO23:POKEsi+t,0:NEXT
130 POKEsi+24,15:POKEsi+6,240:POKEsi+3,5:POKEsi+8,250:POKEsi+12,10
140 d%(0)=1:d%(1)=-1:d%(2)=40:d%(3)=-40:GOTO1100
160 a%=3:dt%=0:tl%=1120:lc%=1105:GOSUB20000:gm=gm+1
180 PRINT"{home}{brown}":PRINT"{down}{right}{reverse on}{V*15}{reverse off}Q":IFf=0THENGOSUB25000
190 GOSUB21000
200 p=0:IFPEEK(tl%+d%(dt%))=214THEN1000
205 IFPEEK(tl%+d%(dt%))=42THENsc=sc+100:a%=a%+2:GOTO220
210 IFPEEK(tl%+d%(dt%))=32THEN220
213 POKEsi+11,33:x%=2+2*(dt%>1):p=PEEK(tl%+d%(x%)):IFp=32ORp=42THENdt%=x%:GOTO220
216 dt%=x%+1:p=PEEK(tl%+d%(dt%))
220 POKElc%,32:POKEtl%,214:tl%=tl%+d%(dt%):POKEtl%,81
230 IFp=42THENsc=sc+100:a%=a%+2
240 IFa%<>0THENa%=a%-1:POKEsi+4,65:GOTO300
260 FORk=0TO3:IFPEEK(lc%+d%(k))=214THENlc%=lc%+d%(k):k=3
280 NEXT
300 POKEsi+4,64:POKEsi+11,32:IFsc=ts*100THEN160
310 p=PEEK(197)
320 IFp=23ANDPEEK(tl%+40)<43THENdt%=2
340 IFp=13ANDPEEK(tl%-1)<43THENdt%=1
360 IFp=18ANDPEEK(tl%+1)<43THENdt%=0
380 IFp=14ANDPEEK(tl%-40)<43THENdt%=3
390 PRINT"{home}{blue}"TAB(8);sc;
400 GOTO200
1000 PRINT"{home}"TAB(25)"{red}game over{space*3}"
1020 FORk=1TOsc/100:POKEsi+1,RND(1)*230+5
1040 POKEsi+4,17:FORt=1TO100:NEXT:POKEsi+4,16
1060 FORt=1TO10:NEXT:NEXT
1100 POKE53281,2:POKE53280,3:PRINT"{ct i}{142}{ct h}{clear}{cyan}{down} il serpentone"TAB(25)"game #";gg
1120 PRINT"{down}{reverse on}{red}{space*13}the top 10"
1140 FORx=1TO10:IFsc(x)<scTHENGOSUB2000
1160 NEXT
1180 FORx=1TO10:PRINT" "n$(x)TAB(35-LEN(STR$(sc(x))))sc(x):NEXT
1200 POKE198,0:INPUT"{down*9}{white}{up*5} what's your name";n$:n$=LEFT$(n$,15)
1220 gg=gg+1:POKE53280,1
1240 gm=0:sc=0:ts=0:GOTO160
2000 FORk=9TOxSTEP-1
2020 n$(k+1)=n$(k):sc(k+1)=sc(k):NEXT
2040 n$(x)=n$:sc(x)=sc:x=10:RETURN
20000 POKE53281,9:PRINT"{brown}{clear} score ="sc;TAB(25)"{pink}serpentone{green}":POKE53281,1
20020 PRINT"{cm a}{sh asterisk*16}{cm r}{sh asterisk*10}{cm r}{sh asterisk*10}{cm s}";
20040 PRINT"{sh -}{right*16}{sh -}{right*10}{sh -}{right*10}{sh -}";
20060 PRINT"{sh -}{right}{cm a}{sh asterisk*2}{cm s}{right}{cm a}{sh asterisk*7}{cm s}{right}{sh -}{right}{cm a}{sh asterisk*2}{cm s}{right}{cm a}{sh asterisk}{cm s}{right}{sh -}{right}{cm a}{sh asterisk}{cm s}{right}{cm a}{sh asterisk*2}{cm s}{right}{sh -}";
20080 PRINT"{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}{cm +*7}{sh -}{right}{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}{cm +}{sh -}{right}{sh -}{right}{sh -}{cm +}{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}";
20100 PRINT"{sh -}{right}{sh -}{cm +*2}{sh -}{right}{cm z}{sh asterisk*7}{cm x}{right}{sh -}{right}{cm z}{sh asterisk*2}{cm x}{right}{sh -}{cm +}{sh -}{right}{sh -}{right}{cm z}{sh asterisk}{cm x}{right}{sh -}{cm +*2}{sh -}{right}{sh -}";
20120 PRINT"{sh -}{right}{sh -}{cm +*2}{sh -}{right*11}{sh -}{right*6}{sh -}{cm +}{sh -}{right}{sh -}{right*5}{cm z}{sh asterisk*2}{cm x}{right}{sh -}";
20140 PRINT"{sh -}{right}{cm z}{sh asterisk*2}{cm x}{right}{cm a}{sh asterisk*7}{cm s}{right}{cm q}{sh asterisk*4}{cm s}{right}{sh -}{cm +}{sh -}{right}{cm q}{sh asterisk*3}{cm s}{right*6}{sh -}";
20160 PRINT"{sh -}{right*6}{sh -}{cm +*7}{sh -}{right}{sh -}{cm +*4}{sh -}{right}{cm z}{sh asterisk}{cm x}{right}{sh -}{cm +*3}{sh -}{right}{cm a}{sh asterisk}{cm s}{right}{cm a}{cm w}";
20180 PRINT"{cm q}{sh asterisk}{cm s}{right}{cm a}{sh asterisk*2}{cm x}{cm +}{cm a}{sh asterisk*5}{cm x}{right}{cm z}{sh asterisk*4}{cm x}{right*5}{sh -}{cm +*3}{sh -}{right}{sh -}{cm +}{sh -}{right}{cm z}{cm w}";
20200 PRINT"{sh -}{cm +}{sh -}{right}{sh -}{cm +*4}{sh -}{right*14}{cm a}{sh asterisk*3}{sh +}{sh asterisk*3}{cm x}{right}{sh -}{cm +}{sh -}{right*2}{sh -}";
20220 PRINT"{cm q}{sh asterisk}{cm x}{right}{sh -}{cm +*4}{sh -}{right}{cm a}{sh asterisk*6}{cm s}{right}{cm a}{sh asterisk*3}{cm x}{cm +*3}{sh -}{right*5}{sh -}{cm +}{cm z}{cm s}{right}{sh -}";
20240 PRINT"{sh -}{right*3}{sh -}{cm +*4}{sh -}{right}{sh -}{cm +*6}{sh -}{right}{sh -}{cm +*4}{cm a}{sh asterisk*2}{cm x}{right}{cm a}{sh asterisk*3}{cm x}{cm +*2}{sh -}{right}{sh -}";
20260 PRINT"{sh -}{right}{cm a}{sh asterisk}{sh +}{sh asterisk*4}{cm x}{right}{cm z}{sh asterisk*6}{cm x}{right}{cm z}{sh asterisk*4}{cm x}{right*4}{sh -}{cm +*6}{sh -}{right}{sh -}";
20280 PRINT"{sh -}{right}{sh -}{cm +}{sh -}{right*22}{cm a}{sh asterisk*2}{cm x}{cm +}{cm a}{sh asterisk*4}{cm x}{right}{sh -}";
20300 PRINT"{sh -}{right}{sh -}{cm +}{sh -}{right}{cm a}{sh asterisk*3}{cm s}{right}{cm a}{sh asterisk}{cm s}{right}{cm a}{sh asterisk*2}{cm s}{right}{cm a}{sh asterisk*3}{cm s}{right}{sh -}{cm +*4}{sh -}{right*6}{sh -}";
20320 PRINT"{sh -}{right}{sh -}{cm +}{sh -}{right}{sh -}{cm +*3}{sh -}{right}{sh -}{cm +}{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}{cm +*3}{sh -}{right}{sh -}{cm +*4}{sh -}{right}{cm a}{sh asterisk*2}{cm s}{right}{sh -}";
20340 PRINT"{sh -}{right}{cm z}{sh asterisk}{cm x}{right}{sh -}{cm +*3}{sh -}{right}{sh -}{cm +}{sh -}{right}{cm z}{sh asterisk*2}{cm x}{right}{cm q}{sh asterisk*3}{cm x}{right}{cm z}{sh asterisk*4}{cm x}{right}{sh -}{cm +*2}{sh -}{right}{sh -}";
20360 PRINT"{sh -}{right*5}{sh -}{cm +*3}{sh -}{right}{sh -}{cm +}{sh -}{right*6}{sh -}{right*12}{sh -}{cm +*2}{sh -}{right}{sh -}";
20380 PRINT"{sh -}{right}{cm a}{sh asterisk*3}{cm x}{cm +*3}{sh -}{right}{sh -}{cm +}{sh -}{right}{cm a}{sh asterisk*2}{cm s}{right}{sh -}{right}{cm a}{sh asterisk*3}{cm s}{right}{cm a}{sh asterisk*2}{cm s}{right}{sh -}{cm +*2}{sh -}{right}{sh -}";
20400 PRINT"{sh -}{right}{sh -}{cm +*7}{sh -}{right}{sh -}{cm +}{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}{right}{sh -}{cm +*3}{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}{cm +*2}{sh -}{right}{sh -}";
20420 PRINT"{sh -}{right}{cm z}{sh asterisk*7}{cm x}{right}{cm z}{sh asterisk}{cm x}{right}{cm z}{sh asterisk*2}{cm x}{right}{sh -}{right}{cm z}{sh asterisk*3}{cm x}{right}{cm z}{sh asterisk*2}{cm x}{right}{cm z}{sh asterisk*2}{cm x}{right}{sh -}";
20440 PRINT"{sh -}{right*20}{sh -}{right*17}{sh -}";
20460 PRINT"{cm z}{sh asterisk*20}{cm e}{sh asterisk*17}{cm x}";
20480 PRINTSPC(15-LEN(n$)/2)"{purple}player is "n$;
20500 RETURN
21000 POKEsi+4,17:FORk=1TOgm+5:x%=RND(1)*283:POKEsi+1,50+k*5
21020 IFPEEK(pr%(x%))<>32THENx%=RND(1)*283:GOTO21020
21040 POKEpr%(x%),42:NEXT:ts=ts+k-1:RETURN
25000 DIMpr%(282):k=-1:f=1:POKEsi+4,16:POKEsi+1,100
25020 FORx=1121TO1942:IFPEEK(x)=32THENk=k+1:pr%(k)=x
25040 NEXT:RETURN
 
Inizio pagina
Home page
 
Creative Commons  License BY-NC-SA
Ove non diversamente specificato i contenuti del sito sono rilasciati con licenza Creative Commons BY-NC-SA 4.0 

Copyright © 2007-2020 The Strawberry Field - Roberto Ceccarelli