Posted By
Jakec
on 2009-04-02
00:14:09
|  Re: Tojasgyujtes game (basic game)
Tojásgyüjtés vs Digi Süni
My opinion the Tojásgyüjtés older.
REM C64 BASIC LISTER V1.1F
REM (C) 2004-05 LUIGI DI FRAIA
REM LISTING OF FILE: D:/JAKAB ZSOLT/SAJáT/COMMY/DOWNLOADS/TOJASGYU.PRG
REM START ADDRESS: $1001
REM END ADDRESS+1: $1DBA
REM SIZE (BYTES): 3513
10 CLR:DIMA(100),G(100),P(100),SZ(100):IK=66:J5=64
20 OSZ=150:O=0:ISZ=0:TSZ=10:SZ=1:PO=0:E=3:J5=64
30 ç0,1:ç4,1:ç1,2:Ű8:č
40 OX=OSZ:OSZ=OSZ+5:I=1:J2=1
50 FORD=1TOISZ:P(D)=32:NEXTD:J4=32
60 POKE56,47:V=65280:RESTORE960
70 POKEV+18,PEEK(V+18)AND251
80 POKEV+19,PEEK(V+19)AND3OR48
90 FORT=832TO849:READA:POKET,A:NEXT:SYS832
100 FORT=12800TO13000:READA:IFA>-1THENPOKET,A:NEXT
110 GOSUB730:č:GOSUB820:GOSUB750
120 FORD=1TOISZ:G(D)=2*INT(RND(1)*2)-1
130 NEXT:GOTO460
140 IFG(I)=1ORG(I)=-1THEN160
150 IFG(I)=40ORG(I)=-40THEN210
160 IFP(I)=71THENG(I)=40:GOTO220
170 IFP(I)=68THEN600
180 IFP(I)=69THEN600
190 IFP(I)=70THENG(I)=-G(I)
200 GOTO220
210 IFP(I)=68ORP(I)=69ORP(I)=72THEN600
220 POKEA(I)-1024,SZ(I):POKEA(I),P(I):A(I)=A(I)+G(I)
230 IFA(I)<3151ORA(I)>4030THENA(I)=A(I)-G(I)
240 P(I)=PEEK(A(I)):SZ(I)=PEEK(A(I)-1024):POKEA(I)-1024,103:POKEA(I),IK
250 IFA(I)=J1THEN790
260 IFP(I)=66ORP(I)=67THENGOSUB1100
270 I=I+1:IFI>ISZTHENI=1:IK=133-IK:ŐGOTO140
280 OX=OX-1:GOSUB750:IFOX<0THEN790
290 P=PEEK(J1+40)
300 IFP=32ORP=72ORP=66ORP=67THENJ2=40:GOTO590
310 GETA$:IFA$=""THEN140
320 IFA$=CHR$(13)THENPOKE239,0:GOTO330:Ő340
330 IFJ2=1ORJ2=-1THEN510:Ő140
340 IFA$="T"ORĎ(1)=1THENJ2=-40:GOTO390
350 IFA$="G"ORĎ(1)=3THENJ2=1:GOTO390
360 IFA$="F"ORĎ(1)=7THENJ2=-1:GOTO390
370 IFA$="V"ORĎ(1)=5THENJ2=40:GOTO390
380 POKE239,0:GOTO140
390 POKE239,0:FORD=1TOISZ:IFJ1+J2=A(D)THEN590:ŐNEXT
400 IFJ2=1ORJ2=-1THEN420
410 IFJ2=40ORJ2=-40THEN440:Ő140
420 J=PEEK(J1+J2)
430 IFJ=70ORJ=74THEN490:Ő460
440 J=PEEK(J1+J2)
450 IFJ=73ORJ=68ORJ=69THEN460:Ő490
460 POKEJ1-1024,J3:POKEJ1,J4:J1=J1+J2
470 J3=PEEK(J1-1024):J4=PEEK(J1):POKEJ1-1024,113:POKEJ1,J5
480 J5=129-J5:GOTO490
490 IFJ4<>75THEN140
500 J4=32:J3=0:Ú1,882,5:O=O+1:PO=PO+5:GOSUB750:IFO=TSZTHEN700:Ő140
510 IFPEEK(J1+J2)=70ORPEEK(J1+J2*2)=70THEN140
520 POKEJ1-1024,J3:POKEJ1,J4:J1=J1-40+J2
530 J3=PEEK(J1-1024):J4=PEEK(J1):POKEJ1-1024,113:POKEJ1,J5
540 Ú1,882,10:FORD=1TO30:NEXT
550 POKEJ1,J4:POKEJ1-1024,J3:J1=J1+40+J2
560 J3=PEEK(J1-1024):J4=PEEK(J1):POKEJ1-1024,113:POKEJ1,J5
570 J5=129-J5:Ú3,600,5:FORD=1TOISZ:IFJ1=A(D)THEN790:ŐNEXT
580 GOTO490
590 POKEJ1-1024,J3:POKEJ1,J4:J1=J1+J2:GOTO560
600 K=INT(RND(1)*5)+1:ONK-1GOTO620,630,640,640
610 G(I)=1:GOTO650
620 G(I)=-1:GOTO650
630 G(I)=-40
640 G(I)=40
650 IFG(I)=1ORG(I)=-1THEN220
660 IFP(I)=68THENG(I)=40:GOTO220
670 IFP(I)=69THENG(I)=-40:GOTO220
680 IFP(I)=72THENG=G/40
690 GOTO270
700 IFTSZ=20THENISZ=ISZ+1:TSZ=10:O=0:ŐTSZ=TSZ+1:O=0
710 Ú1,698,5:Ú1,712,5:Ú1,798,5:Ú1,812,10
720 č:SZ=SZ+1:GOTO30
730 ç1,14,5:FORD=30TO0STEP-1:ŕ,D,13,STR$(SZ)+".MENET ":FORW=1TO5
740 NEXTW,D:RETURN
750 PRINT"źMENET:"SZ" TOJAS:"O" ELET:"E" PONT:"PO
760 W1=INT(OX/10):IFW1>30THENW1=30
770 ŕ1,0,24,"źOXIGEN ":FORW=0TOW1:PRINT"ś ’";:NEXT
780 FORW=W1+1TO31:PRINT" ";:NEXT:RETURN
790 FORD=1TO5:ç0,3,INT(RND(1)*7):Ú1,810+5*D,5:NEXT
800 E=E-1:O=0:ç0,1:GOSUB750:IFE=0THENGOSUB1120
810 GOTO30
820 ç1,3,5:č
830 FORD=1TO24:ŕ,0,D,"Ż":ŕ,39,D,"Ż":NEXT
840 FORD=4TO24STEP4:ŕ,0,D,"ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘ":NEXT
850 RESTORE870:ç1,6:FORD=1TO13:READX,Y:Y=Y-1:ŕ,X,Y,"Ĺ":ŕ,X,Y+4,"Ĺ"
860 ŕ,X,Y+1,"É":ŕ,X,Y+2,"É":ŕ,X,Y+3,"É":NEXT
870 DATA6,3,22,3,36,3,10,7,23,7,2,11,31,11,34,11,4,15,16,15,38,15,10,19,34,19
880 RESTORE890:FORD=1TO7:READX,Y:ŕ,X,Y,"Ç":ŕ,X,Y+1," ":ŕ,X,Y+4,"Č":NEXT
890 DATA14,2,27,6,17,10,8,14,28,14,18,18,37,18
900 FORD=1TOISZ:GOSUB940:A(D)=K:P(I)=PEEK(K):SZ(I)=PEEK(K-1024):POKEK-1024,103
910 POKEK,IK:NEXT
920 FORD=1TOTSZ:GOSUB940:POKEK-1024,103:POKEK,75:NEXT
930 GOSUB940:J1=K:J3=PEEK(K-1024):J4=PEEK(K):RETURN
940 Y=INT(RND(1)*6)+1:Y=Y*4-2:X=INT(RND(1)*39)
950 K=3072+Y*40+X:IFPEEK(K)<>32THEN940:ŐRETURN
960 DATA162,0,189,0,208,157,0,48,189,0,209,157,0,49,202,208,241,96
970 DATA56,56,16,254,56,56,40,40
980 DATA56,56,16,254,56,56,68,130
990 DATA24,24,126,90,90,24,36,36
1000 DATA24,24,126,90,90,36,66,129
1010 DATA0,0,0,0,0,0,0,0
1020 DATA129,129,129,255,255,129,129,129
1030 DATA0,0,0,0,0,0,0,0
1040 DATA0,0,0,0,0,0,0,0
1050 DATA0,0,0,0,0,0,0,0
1060 DATA129,129,129,255,255,129,129,129
1070 DATA0,127,127,127,0,239,239,239
1080 DATA0,0,0,16,56,56,124,56
1090 DATA-1
1100 FORD=1TOISZ:IFA(D)=A(I)ANDD<>ITHENP(I)=P(D):SZ(I)=SZ(D):ŐNEXT
1110 RETURN
1120 SZ=1:E=3:TSZ=10:ISZ=4:OSZ=150:ŕ1,6,13,"žVEGE A JATEKNAK!"
1130 ŕ1,6,16,"PONTSZAM:":PRINTPO:GETůA$:RETURN
REM C64 BASIC LISTER V1.1F
REM (C) 2004-05 LUIGI DI FRAIA
REM LISTING OF FILE: D:/JAKAB ZSOLT/SAJáT/COMMY/DOWNLOADS/DIGI¤SUNI.PRG
REM START ADDRESS: $1001
REM END ADDRESS+1: $202D
REM SIZE (BYTES): 4140
1 ç4,6,0:ç0,4,0:GOSUB13:::::::::::PRINT"“ś DIGI SUNI":PRINT" KERSZ JATEKSZABALYT? <I/N>"
2 GETH$:IFH$="I"THEN77
3 IFH$="N"THEN4:Ő2
4 CLR:DIMA(100),G(100),P(100),SZ(100):IK=66:J5=64:L=1024:C=10:SZ=1:OSZ=200:M=1:B=3
5 O=0:PO=0:E=3:J5=64:Ű4
6 FORI=1TO3:M(I)=0:N(I)=0:NEXT:IFM>4THENM=1
7 ONMGOTO8,9,10,11
8 ç4,1:ç0,1:S=103:Z=113:GOTO12
9 ç0,10,0:ç4,7,0:S=110:Z=115:GOTO12
10 ç4,10:ç0,9:S=68:Z=1:GOTO12
11 ç0,15,1:ç4,14,1:S=111:Z=120
12 PO=PP:T=OSZ:I=1:U=1:ç1,2:č:FORD=1TOB:P(D)=32:NEXT:J4=32:GOTO15
13 POKE56,47:V=65280:RESTORE71:POKEV+18,PEEK(V+18)AND251:POKEV+19,PEEK(V+19)AND3OR48:FORT=832TO849:READA:POKET,A:NEXT:SYS832:FORT=12800TO13000:READA:IFA>-1THENPOKET,A:NEXT
14 RETURN
15 GOSUB52:č:GOSUB57:GOSUB53:POKE239,0:ŕ1,0,24,"źOXIGEN":FORW=7TOW+T/15:ŕ,W,24,"ś ’":NEXT:FORD=1TOB:G(D)=2*INT(RND(1)*2)-1:NEXT:GOTO44
16 IFP(I)=32THEN27
17 IFG(I)=1ORG(I)=-1THEN19
18 IFG(I)=40ORG(I)=-40THEN23
19 IFP(I)=71THENG(I)=40:GOTO26
20 IFP(I)=70THENG(I)=-G(I)
21 IFP(I)=69ORP(I)=76THEN81
22 GOTO26
23 IFP(I)=72THENG(I)=SGN(RND(0)-.5)
24 IFN(I)>3THENG(I)=SGN(RND(O)-.5):M(I)=0:N(I)=0
25 IFM(I)=1THENN(I)=N(I)+1
26 POKEA(I)-L,SZ(I)
27 POKEA(I),P(I):A(I)=A(I)+G(I):P(I)=PEEK(A(I)):SZ(I)=PEEK(A(I)-L):POKEA(I)-L,S:POKEA(I),IK:IFP(I)=32THEN30
28 IFA(I)=QTHEN54
29 IFP(I)=66ORP(I)=67THENGOSUB73
30 I=I+1:IFI>BTHENI=1:IK=133-IK:Ő16
31 T=T-1:POKE4040+T/15,32:IFT<0THEN54
32 P=PEEK(Q+40):IFP=72ORP=32THENU=40:GOTO50
33 IFPEEK(Q+U)=66ORPEEK(Q+U)=67THEN54
34 GETA$:IFA$=""THEN16
35 IFA$=" "ORĎ(1)>10THENPOKE239,0:GOTO36:Ő37
36 IFU=1ORU=-1THEN48:Ő16
37 IFA$=";"ORĎ(1)=1THENU=-40:GOTO43
38 IFA$="X"ORĎ(1)=3THENU=1:GOTO42
39 IFA$="Z"ORĎ(1)=7THENU=-1:GOTO42
40 IFA$="/"ORĎ(1)=5THENU=40:GOTO43
41 GOTO16
42 J=PEEK(Q+U):IFJ=70ORJ=74THEN45:Ő44
43 J=PEEK(Q+U):IFJ=73ORJ=68ORJ=69ORJ=76THEN44:Ő45
44 POKEQ-L,J3:POKEQ,J4:Q=Q+U:J3=PEEK(Q-L):J4=PEEK(Q):POKEQ-L,Z:POKEQ,J5:J5=129-J5:Ú3,1003,1:IFJ4=32THEN16
45 IFJ4=66ORJ4=67THEN54
46 IFJ4<>75THEN16
47 J4=32:J3=0:Ú1,882,5:O=O+1:PO=PO+5:GOSUB53:IFO=CTHEN51:Ő16
48 IFPEEK(Q+U)=70ORPEEK(Q+U*2)=70THEN16
49 POKEQ-L,J3:POKEQ,J4:Q=Q-40+U:J3=PEEK(Q-L):J4=PEEK(Q):POKEQ-L,Z:POKEQ,J5:Ú1,982,2:FORD=1TO3:NEXT:POKEQ,J4:POKEQ-L,J3:Q=Q+40+U:J3=PEEK(Q-L):J4=PEEK(Q):POKEQ-L,Z:POKEQ,J5:J5=129-J5:Ú3,900,1:GOTO45
50 POKEQ-L,J3:POKEQ,J4:Q=Q+U:J4=PEEK(Q):POKEQ-L,Z:POKEQ,J5:Ú3,1,1:GOTO45
51 C=C+1:O=0:FORA=0TO3:Ú1,698,5:Ú1,712,5:Ú1,798,5:Ú1,812,10:NEXTA:M=M+1:č:SZ=SZ+1:OSZ=OSZ+5:PP=PO:GOTO5
52 ç1,14:FORD=30TO0STEP-1:ŕ,D,13,STR$(SZ)+".MENET ":FORW=1TO5:NEXTW,D:RETURN
53 ŕ,0,0,"śMENET:":ŕ,6,0,STR$(SZ):ŕ,14,0,"TOJAS:":ŕ,20,0,STR$(O):ŕ,26,0,"PONT:":ŕ,31,0,STR$(PO):ŕ,29,24,"ELET:":ŕ,34,24,STR$(E):RETURN
54 FORD=1TO15:ç0,3,INT(RND(1)*7):Ú1,710+5*D,5:NEXT:IFE>1THENPO=0
55 E=E-1:O=0:ç0,1:GOSUB53:IFE=0THENGOSUB75
56 GOTO6
57 IFZ=1THENç1,3,6
58 IFZ=113THENç1,3,INT(3*RND(0))+1
59 IFZ=115THENç1,10,3
60 IFZ=120THENç1,1
61 FORD=1TO24:ŕ,0,D,"Ć":ŕ,39,D,"Ć":NEXT:FORD=4TO24STEP4:ŕ,0,D,"ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘ":NEXT:ç1,INT(15*RND(0)+2),2:NN=INT(3*RND(0))+1:ONNNGOTO62,63,64
62 RESTORE66:GOTO65
63 RESTORE67:GOTO65
64 RESTORE68
65 FORD=1TO13:READX,Y:Y=Y-1:ŕ,X,Y,"Ĺ":ŕ,X,Y+4,"Ě":ŕ,X,Y+1,"É":ŕ,X,Y+2,"É":ŕ,X,Y+3,"É":NEXT
66 DATA6,3,22,3,36,3,10,7,23,7,2,11,31,11,34,11,4,15,16,15,38,15,10,19,34,19
67 DATA7,3,28,3,6,7,15,7,25,7,5,11,22,11,30,11,4,19,20,15,33,15,15,19,31,19
68 DATA6,7,21,7,36,7,10,3,23,3,2,15,31,15,34,15,4,11,16,11,38,11,14,19,24,19:RESTORE69:FORD=1TO7:READX,Y:ŕ,X,Y,"Ç":ŕ,X,Y+1," ":ŕ,X,Y+4,"Č":NEXT
69 DATA14,2,27,6,17,10,8,14,28,14,18,18,37,18:FORD=1TOB:GOSUB70:A(D)=K:P(I)=PEEK(K):SZ(I)=PEEK(K-L):POKEK-L,S:POKEK,IK:NEXT:FORD=1TOC:GOSUB70:POKEK-L,S:POKEK,75:NEXT:GOSUB70:Q=K:J3=PEEK(K-L):J4=PEEK(K):RETURN
70 Y=INT(RND(1)*6)+1:Y=Y*4-2:X=INT(RND(1)*39):K=3072+Y*40+X:IFPEEK(K)<>32THEN70:ŐRETURN
71 DATA162,,189,,208,157,,48,189,,209,157,,49,202,208,241,96:DATA56,56,16,254,56,56,40,40:DATA56,56,16,254,56,56,68,130:DATA60,78,78,60,24,36,102,66:DATA60,114,114,60,24,24,52,36:DATA,,,,,,,:DATA129,129,129,255,255,129,129,129:DATA,,,,,,,,,,,,,,,,,,,,,,,
72 DATA129,129,129,255,255,129,129,129:DATA,127,127,127,0,239,239,239:DATA,,,16,56,56,124,56:DATA129,129,129,255,255,129,129,129:DATA-1
73 FORD=1TOB:IFA(D)=A(I)ANDD<>ITHENP(I)=P(D):SZ(I)=SZ(D):ŐNEXT
74 RETURN
75 č:SZ=1:E=3:C=10:B=3:OSZ=200:M=1:N(I)=0:M(I)=0:ŕ1,6,13,"žVEGE A JATEKNAK!":ŕ1,6,16,"PONTSZAM:":PRINTPO:PO=0:PP=0:PRINT" UJRAKEZDESHEZ NYOMD MEG AZ 'S' GOMBOT!"
76 GETůS$:IFS$<>"S"THEN76:ŐRETURN
77 PRINT"“ A JATEKOSNAK AZ ELSO MENETBEN 10 DB":PRINT" TOJAST KELL OSSZESZEDNI, A TOBBI":PRINT" MENETBEN MINDIG EGGYEL TOBBET.":PRINT" IRANYITO GOMBOK:":PRINT" ; = FEL, / = LEFELE, Z = BALRA":PRINT" X = JOBBRA, UGRAS A SZOKOZ GOMBBAL"
78 PRINT" JATSZHATO JOYSTICKKEL IS !":PRINT" MEHET? <IGEN = 'I' GOMB>"
79 GETG$:IFG$<>"I"THEN79
80 GOTO4
81 IFRND(0)>.4THENG(I)=-(SGN(-75+P(I)))*40:M(I)=1:ŐG(I)=SGN(RND(0)-.5)
82 IFRND(0)>.4ANDP(I)=76THENG(I)=-40:M(I)=1
83 GOTO24
|
