home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 88 / Tiger_Disk_088_20xx_Tiger-Crew-Disk_de_Side_D.d64 / latschkappe (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  131 lines
  1. 100 poke53280,0:poke53281,0:poke650,128
  2. 105 f=7:gosub685
  3. 110 print"[147]":gosub125:goto215
  4. 115 rem rahmen unterprogramm
  5. 120 forx=etob stepc:pokex,d:pokex+54272,f:nextx:return
  6. 125 e=1025:b=1062:c=1:d=64:gosub120
  7. 130 e=1063:b=2023:c=40:d=66:gosub120
  8. 135 e=2022:b=1985:c=-1:d=64:gosub120
  9. 140 e=1984:b=1024:c=-40:d=66:gosub120
  10. 145 poke1024,112:poke1063,110:poke2023,125:poke1984,109
  11. 150 return
  12. 155 rem eingabe - filter
  13. 160 a=a+1:ifa=3thenreturn
  14. 165 b=int(rnd(x)*3)+1
  15. 170 print" ";text$(b)
  16. 175 return
  17. 180 rem quit
  18. 185 print" punktestand:";sc
  19. 190 print" nochmal? (j/n)"
  20. 195 geta$:ifa$<>"j"anda$<>"n"goto195
  21. 200 ifa$="j"goto290
  22. 205 print"[147]":end
  23. 210 print"[147]":end
  24. 215 print"[158]    hallo! huhu! ist da jemand?"
  25. 220 print"        ist das nicht toll?"
  26. 225 print" jetzt hab ich schon zuviel verraten!"
  27. 230 geta$:if a$="" goto230
  28. 235 print"[147][153]":f=13:gosub125:a=0
  29. 240 print"        karamba soft presents:":poke646,a
  30. 245 print"           latschkappe & co":poke646,a+5
  31. 250 print"          ein strategiespiel"
  32. 255 print"        fuer die ganze familie"
  33. 260 print"[153]    wortschatz: schlumpfe + (ding)"
  34. 265 print"         cheat: bohre nase"
  35. 270 print"   this is a spacebrain produktion!"
  36. 275 geta$:ifa$<>""goto290
  37. 280 a=a+1:ifa=200thena=1
  38. 285 goto240
  39. 290 sc=0:a=0:ba=1:text$(1)="gell, ja?"
  40. 295 text$(2)="ich bin bobbin, bist du meine mutter?"
  41. 300 text$(3)="ich fuehl mich so leicht und kann doch nicht fliegen."
  42. 305 print"[147]":f=7:gosub125
  43. 310 poke646,ba:print"              szenario 1"
  44. 315 print"[158] vor dir liegt eine gruene tomate,"
  45. 320 print" neben dir eine rote und hinter dir"
  46. 325 print" noch eine. du bist umzingelt!"
  47. 330 print" du koenntest jetzt ein lied singen."
  48. 335 geta$:ba=ba+1:ifba=200thenba=1
  49. 340 ifa$=""goto310
  50. 345 print"[147]"
  51. 350 input"";a$
  52. 355 ifa$="bohre nase"goto375
  53. 360 ifa$="schlumpfe lied"goto385
  54. 365 ifleft$(a$,9)="schlumpfe"thengosub155:ifa<3goto350
  55. 370 print" die tomaten haben dich gefressen!":goto185
  56. 375 print" die drei tomaten schauen dir"
  57. 380 print" interessiert zu.":goto400
  58. 385 print" die tomaten sind gar nicht so gemein,"
  59. 390 print" wie es aussah. du nimmst alle drei"
  60. 395 print" mit.":sc=sc+100
  61. 400 geta$:ifa$=""goto400
  62. 405 print"[147]":a=0:gosub125
  63. 410 poke646,ba:print"              szenario 2"
  64. 415 print"[158] als du die tomaten spaeter suchst,"
  65. 420 print" findest du einen goldenen"
  66. 425 print" radiergummi!"
  67. 430 geta$:ba=ba+1:ifba=200thenba=1
  68. 435 ifa$=""goto410
  69. 440 print"[147]"
  70. 445 input" ";a$
  71. 450 ifa$="bohre nase"goto470
  72. 455 ifa$="schlumpfe radiergummi"goto490
  73. 460 ifleft$(a$,9)="schlumpfe"thengosub155:ifa<3goto445
  74. 465 print" der teppichboden hat dich erwischt!":goto185
  75. 470 print" du drehst dich um und siehst einen"
  76. 475 print" brunnen. dir wird schwarz vor augen."
  77. 480 print" nach einiger zeit kommst du wieder zu"
  78. 485 print" bewusstsein.":goto510
  79. 490 print" du pflanzt den radiergummi zu einem":sc=sc+100
  80. 495 print" gummibaum und entdeckst dahinter einen"
  81. 500 print" geheimgang. schade, dass du jetzt"
  82. 505 print" keine wachsmalkreiden hast."
  83. 510 geta$:ifa$=""goto510
  84. 515 a=0:print"[147]":gosub125
  85. 520 poke646,ba:print"              szenario 3"
  86. 525 print"[158] kleine flauschige blaue dinger"
  87. 530 print" kommen auf dich zu und wollen"
  88. 535 print" offenbar mit dir spielen."
  89. 540 geta$:ba=ba+1:ifba=200thenba=1
  90. 545 ifa$=""goto520
  91. 550 print"[147]"
  92. 555 input" ";a$
  93. 560 ifa$="bohre nase"goto590
  94. 565 ifa$="schlumpfe dinger"goto600
  95. 570 ifleft$(a$,9)="schlumpfe"thengosub155:ifa<3goto555
  96. 575 print" ein riesiger topflappen faellt vom"
  97. 580 print" himmel. du hattest wirklich keine"
  98. 585 print" chance!":goto185
  99. 590 print" 'schau mal', sagt ein blaues ding,"
  100. 595 print" 'ich kann auf drei beinen stehen!'":goto620
  101. 600 print" ein blaues ding streckt dir frech":sc=sc+100
  102. 605 print" die zunge heraus und nimmt dir nach"
  103. 610 print" einem kurzen handgemenge deine"
  104. 615 print" tomaten weg."
  105. 620 geta$:ifa$=""goto620
  106. 625 print"[147]":a=0:gosub125
  107. 630 poke646,ba
  108. 635 print"        herzlichen glueckwunsch!
  109. 640 [153]"         du hast es geschafft!"
  110. 645 [153]"sys vor dir tuermen sich";:[151]646,ba:[153]" schaetzesys,"
  111. 650 [151]646,ba:[153]" lochverstaerkersys und ueberhaupt,"
  112. 655 [151]646,ba:[153]" tolle stimmungsys!"
  113. 660 [153]" deine punktzahl:";:[151]646,ba:[153]sc;"von 300"
  114. 665 [161]a$:ba[178]ba[170]1:[139]ba[178]200[167]ba[178]1
  115. 670 [139]a$[178]""[137]630
  116. 675 [153]"loadsys":[128]
  117. 680 [143] hintergrund - info
  118. 685 [153]"load":[141]125
  119. 690 [153]"sys zum spiel:"
  120. 695 [153]" die originalfassung des spieles"
  121. 700 [153]" entstand anfang der 90er jahre in"
  122. 705 [153]" turbo basic geschrieben fuer den pc."
  123. 710 [153]" die vorliegende neufassung fuer den"
  124. 715 [153]" c64 im maerz 2001 ist der tiger disk"
  125. 720 [153]" gewidmet."
  126. 725 [153]" greetings to the stock, winni and"
  127. 730 [153]" red scorpion."
  128. 735 [153]" (c) by karamba soft"
  129. 740 [161]a$:[139]a$[178]""[137]740
  130. 745 [142]
  131.