home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 45 / Tiger_Disk_045_1997-12_Tiger-Crew-Disk_de_Side_A.d64 / streichholz-game (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  2KB  |  63 lines
  1. 1 gosub 2500
  2. 10 print"[147] kennst du die spielregeln (j/n)?"
  3. 20 geta$:ifa$=""ora$<>"j"anda$<>"n"then20
  4. 30 ifa$="n"thengosub1000
  5. 40 ho=26
  6. 50 gosub5000
  7. 70 print"[147]"
  8. 80 print" noch"ho"hoelzer."
  9. 90 print" wieviele nimmst du ?":a=0
  10. 100 geta$:ifa$=""then100
  11. 105 ifval(a$)>4orval(a$)<1then100
  12. 110 ho=ho-val(a$)
  13. 120 print"[147]":ifho<=0then250
  14. 130 print" noch"ho"hoelzer."
  15. 140 gosub500
  16. 150 print" ich nehme"a".":fori=1to2000:next
  17. 160 ho=ho-a
  18. 170 ifho<=0then190
  19. 180 goto70
  20. 190 print"[147]"
  21. 200 print" diesmal habe ich gewonnen !"
  22. 210 print" nochmal (j/n)?"
  23. 220 geta$:ifa$=""then220
  24. 230 ifa$="j"thenrun40
  25. 240 ifa$="n"thenprint"[147]":end
  26. 245 goto220
  27. 250 print" kompliment !!!"
  28. 260 print" du hast gewonnen !"
  29. 270 goto210
  30. 500 onrgoto700,501,600
  31. 501 ifho=19orho=24orho=4orho=9thena=4:return
  32. 510 ifho=23orho=18orho=8orho=3thena=3:return
  33. 520 ifho=22orho=20orho=12orho=17orho=7orho=2thena=2:return
  34. 530 a=1:return
  35. 600 ifho=20thena=1:return
  36. 610 goto501
  37. 700 a=int(4*rnd(1)+1):return
  38. 1000 print"[147]"
  39. 1010 print" auf einem tisch liegen 26 "
  40. 1020 print" streichhoelzer. man muss zwischen "
  41. 1030 print" einem und vier nehmen."
  42. 1040 print" der, der das letzte hoelzchen nimmt,"
  43. 1050 print" hat gewonnen."
  44. 1060 print">> taste <<"
  45. 1070 geta$:ifa$=""then1070
  46. 1080 return
  47. 2500 print"[147]":poke53281,6:poke53280,14
  48. 2510 fori=1to20
  49. 2520 co=int(15*rnd(1)):ifco=6then2520
  50. 2530 poke646,co
  51. 2540 print"      streichholz-game"
  52. 2550 next
  53. 2560 print"[144]  geschrieben von klaus gruebener"
  54. 2580 fori=1to5000:next:print"":return
  55. 5000 print"[147] bitte waehlen sie nun die"
  56. 5010 print" spielstufe aus :"
  57. 5020 print" 1) anfaenger"
  58. 5030 print" 2) normal"
  59. 5040 print" 3) profi"
  60. 5050 getr$:ifr$=""then5050
  61. 5060 r=val(r$):ifr>3orr<1then5050
  62. 5070 return
  63.