home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_022_19xx_-_de_Disk_2_of_4_Side_A.d64
/
constr.game-tool
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
62 lines
1993 sys 58692:a=5:b=53280:pokeb,a:pokeb+1,a:printchr$(5):dima(48)
2000 print"rockfords b.d.construction spiele-tool"
2001 printtab(40)"fuer normale constr.spiele. nach dem"
2002 printtab(40)"starten des spieles einfach reset und"
2003 printtab(40)"dieses tool laden und starten, damit"
2004 printtab(40)"u.a. folgendes erreicht wird:"
2005 printtab(40)"1. bimmelmauer-ton (magic wall) ein!"
2006 printtab(40)"2. vermeintliche absturz-ursache"
2007 printtab(43)"beseitigen (created by marek)!"
2008 printtab(40)"3. farbe fuer 9, 19, 29, ..., 89, 99"
2009 printtab(43)"einzusammelnde diamanten einschalten!"
2010 print"4. genaue cave-anwahl mit dem joy!"
2011 printtab(48)"druecke taste zum start"
2012 geta$:ifa$=""then2012
3000 sys58692:a=22935:ifpeek(a)<>88orpeek(a+1)<>162then4000
3001 b=16413:ifpeek(b)=165andpeek(b+1)=210thenpokeb+1,229
3002 b=22115:ifpeek(b)=133andpeek(b+1)=41thenpokeb,234:pokeb+1,234
3003 b=16679:ifpeek(b)=25thenpokeb,26
3004 restore:fori=1to136:readx:y=y+x:next:ify=13545then3008
3005 print"fehler in den datas fuer joy-anwahl":printtab(40)"taste druecken"
3006 geta$:ifa$=""then3006
3007 goto3030
3008 b=21548:ifpeek(b-2)<>248orpeek(b-1)<>76then3030
3009 c=peek(21562):d=peek(21572):ifc=1orc=13then3020
3010 b=24202:fori=1to100:z=peek(b+i):ifz=25orz=14thenc=i:d=c-1:goto3020
3011 next:rem manchmal gehts nur mit peek($5e8b+1+i) zum berechnen
3020 b=21548:restore:fori=0to80:readx:pokeb+i,x:next
3021 b=11696:fori=0to54:readx:pokeb+i,x:next
3022 poke21562,c:poke11710,c:poke21572,d:poke11720,d
3023 poke18957,8:poke18963,15:rem evtl. geschwindigkeit bei cave-anwahl hoeher
3030 b=21420:fori=4to7:ifpeek(b)<>2^i+1thennext:goto3032
3031 pokeb,17:rem evtl.wellenform wieder dreieck bei titelmusic
3032 b=21695:ifpeek(b+1)=229andpeek(b+2)=93thenfori=0to6:pokeb+i,234:next
3033 rem return+restore-taste neu belegt nach einladen der screens
3040 b=24202:fori=1to48:e=b+i*c:f=peek(e):iff=25theng=g+1:a(g)=1:h=h+1:next
3041 iff=14theng=g+1:a(g)=2:j=j+1:next
3042 print"anzahl der screens:";g
3043 printtab(39)h;"anwaehlbar:":print:fori=1tog:ifa(i)=1thenprinti,:
3044 next:printtab(79)j;"nicht anwaehlbar:":print:fori=1tog:ifa(i)=2thenprinti,:
3045 next:printtab(80)"alle screens anwaehlen (j/n)?"
3046 geta$:ifa$=""then3046
3047 ifa$="n"then3050
3048 ifa$<>"j"then3046
3049 ifg>0thenfori=1tog:e=b+i*c:pokee,25:next
3050 sys a:rem start des abgebrochenen boulder-dash-construction-spieles
4000 print"das prg startet nicht mit sys";a
4001 printtab(40)"abbruch -> ende"
5000 data32,176,45,201,15,240,74,238,7,61
5001 data165,4,24,105,13,133,4,165,5,105
5002 data0,133,5,160,12,177,4,201,25,240
5003 data17,201,14,240,228,169,1,141,7,61
5004 data169,139,133,4,169,94,133,5,173,7
5005 data61,133,214,32,74,75,162,1,160,2
5006 data181,212,24,105,16,153,214,11,157,193
5007 data60,105,52,153,215,11,136,136,202,16,235
5008 data32,82,65,41,4,208,44,206,7,61
5009 data165,4,56,233,13,133,4,165,5,233
5010 data0,133,5,160,12,177,4,201,25,240
5011 data17,201,14,240,228,169,1,141,7,61
5012 data169,139,133,4,169,94,133,5,76,92,84,32,82,65,96
6000 rem 1.2.-7.2.1993 rockford