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