home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64 / ship_einleitung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  88 lines
  1. 10 poke 53280,0:poke 53281,0
  2. 15 poke 53043,27:poke 53128,27:rem werte in splitroutine fuer neuen zs poken
  3. 20 sys 52480,8,"[b]ship/grafik3",1
  4. 25 print"[147]"
  5. 30 sys 52480,8,"",0
  6. 35 sys 52912
  7. 40 for n=1 to 13:print:next
  8. 45 print"[158]  dein abenteurer hat einen weiteren   "
  9. 50 print"  mysterioesen ort gefunden: ein       "
  10. 55 print"  kleines dorf mit nur wenigen wohn-   "
  11. 60 print"  haeusern und einer kleinen schenke   "
  12. 65 print"  nahe an der endlosen see. es geht    "
  13. 70 print"  das geruecht um, dass ein phantom-   "
  14. 75 print"  schiff oefters an der kueste vorbei- "
  15. 80 print"  segelt. einmal zwang ein skelett     "
  16. 85 print"  einige fischer, mit ihm in ein boot  "
  17. 90 print"  zu steigen. sie kehrten nie zurueck. "
  18. 95 print"  du versprichst zu helfen.";
  19. 100 poke 198,0:wait 198,1
  20. 105 print"[147]"
  21. 106 sys 53103
  22. 108 print"als spieler hast du die aufgabe, das"
  23. 109 print"abenteuer zu loesen. zusaetzlich sollst"
  24. 110 print"du alle orte gruendlich erforschen, um"
  25. 111 print"die volle punktezahl zu erreichen..."
  26. 112 print"[156]    credits:"
  27. 113 print"[159]programm[164][164][164][164][164][164][164][164]peter braun"
  28. 114 print"[156]wiederentdeckung"
  29. 115 print"[156]des spieles[164][164][164][164][164]marc kayser"
  30. 116 print"[159]musik[164][164][164][164][164][164][164][164][164][164][164]volker meitz"
  31. 117 print"[156]grafische"
  32. 118 print"[156]ueberarbeitung[164][164]thomas kneissler"
  33. 120 :
  34. 125 v=53248:ld=52300
  35. 130 ry=204:l=50
  36. 135 a$="":poke 198,0
  37. 140 pokev+21,3
  38. 145 pokev+39,1:pokev+40,1
  39. 147 :
  40. 150 ad=192
  41. 155 poke 2040,ad:poke 2041,ad+1
  42. 160 gosub 180
  43. 165 ad=ad+2:if ad=208 goto 150
  44. 170 goto 155
  45. 175 return
  46. 180 sys ld,l,ry,0
  47. 185 sys ld,l,ry+21,1
  48. 190 for a=1 to 16:next a
  49. 195 l=l+2
  50. 200 geta$:ifa$=" "goto 345
  51. 205 if l>290 goto 220
  52. 210 return
  53. 215 :
  54. 220 ad=208:poke 2040,ad:poke 2041,ad+1
  55. 225 for a=1 to 100
  56. 230 geta$:ifa$=" "goto 345
  57. 235 next a
  58. 240 :
  59. 245 ad=210
  60. 250 poke 2040,ad:poke 2041,ad+1
  61. 255 gosub 275
  62. 260 ad=ad+2:if ad=226 goto 245
  63. 265 goto 250
  64. 270 return
  65. 275 sys ld,l,ry,0
  66. 280 sys ld,l,ry+21,1
  67. 285 for a=1 to 16:next a
  68. 290 l=l-2
  69. 295 geta$:ifa$=" "goto 345
  70. 300 if l<50 goto 315
  71. 305 return
  72. 310 :
  73. 315 ad=208:poke 2040,ad:poke 2041,ad+1
  74. 320 for a=1 to 100
  75. 325 geta$:ifa$=" "goto 345
  76. 330 next a
  77. 335 goto150
  78. 340 :
  79. 345 poke v+21,0:print"[147]"
  80. 350 poke 53043,21:poke 53128,21:poke 53272,21
  81. 355 print"[158] das spiel wird geladen..."
  82. 360 sys 52480,8,"[b]ship/grafik4",1
  83. 365 sys 52480,8,"",0
  84. 370 print"[144]load";chr$(34);"ship/ad3/main";chr$(34);",8"
  85. 375 print"[144]run"
  86. 380 print""
  87. 385 poke 631,13:poke 632,13:poke 198,2:end
  88.