home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 60 / 64er_Magazin_Sonderheft_60_19xx_Markt__Technik_de_Side_A.d64 / adv geruest (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.5 KB  |  95 lines
  1. 1 rem ******************************
  2. 2 rem *     adventuregeruest       *
  3. 3 rem *      c 64 --- basic        *
  4. 4 rem ******************************
  5. 5 :
  6. 6 rem initialisieren
  7. 7 :
  8. 10 dim r$(4),r(4),ob$(20),ob(20)
  9. 20 r$(1)="norden ":r$(2)="osten "
  10. 25 r$(3)="sueden ":r$(4)="westen "
  11. 30 oa=2 :rem anzahl der objekte !!!
  12. 34 :
  13. 35 rem objekte lesen
  14. 36 :
  15. 40 restore
  16. 41 readzz$:ifzz$<> "#" then41
  17. 45 for t=1 to oa:read ob(t),ob$(t):next
  18. 60 rem zimmer 1 ist anfang
  19. 65 zn=1:gosub 8000
  20. 70 gosub 8100
  21. 75 gosub 8200
  22. 97 :
  23. 98 rem hauptschleife
  24. 99 :
  25. 100 input"befehl";a$
  26. 110 if len(a$) >1 then 200
  27. 120 for t=1 to 4
  28. 130 if left$(r$(t),1)=a$ then 150
  29. 140 next t: goto 100
  30. 150 if r(t)=0then100:rem nicht zulaessig
  31. 152 if r(t)=128thenend:rem tot
  32. 155 zn=r(t)
  33. 160 gosub 8000
  34. 170 gosub 8100
  35. 180 gosub 8200
  36. 190 goto  100
  37. 200 gosub 8400
  38. 210 gosub 1000:goto 100
  39. 997 :
  40. 998 rem vokabular und logik
  41. 999 :
  42. 1000 if v$="holen" and o$="bleistift" and zn=ob(2) then ob(2)=0
  43. 1100 if v$="hinlegen" and o$="bleistift" and ob(2)=0 then ob(2)=zn
  44. 7900 gosub 8100:gosub 8200
  45. 7910 return
  46. 7998 :
  47. 7999 :
  48. 8000 restore
  49. 8001 readzz$:ifzz$<>"$"then8001
  50. 8010 for t=1 to zn
  51. 8020 for t1=1 to4
  52. 8030 read r(t1)
  53. 8040 next t1
  54. 8050 read tx$
  55. 8060 next t
  56. 8070 return
  57. 8098 :
  58. 8099 :
  59. 8100 print"[147]";
  60. 8110 printtx$""
  61. 8120 print"ausgaenge:"
  62. 8130 for t=1 to 4
  63. 8140 if r(t) >0 then print r$(t);
  64. 8150 next t
  65. 8160 print""
  66. 8170 return
  67. 8198 :
  68. 8199 :
  69. 8200 :
  70. 8205 print"du siehst"
  71. 8210 for t=1 to oa
  72. 8220 if ob(t)<>zn then 8240
  73. 8230 print ob$(t);" ";
  74. 8240 next t
  75. 8245 print""
  76. 8250 return
  77. 8398 :
  78. 8399 :
  79. 8400 for t=1 to len(a$)
  80. 8410 if mid$(a$,t,1)=" " then 8430
  81. 8420 next t:v$="":o$="":return
  82. 8430 o$=left$(a$,t-1)
  83. 8440 v$=right$(a$,len(a$)-t)
  84. 8450 return
  85. 9998 :
  86. 9999 :
  87. 10000 data "$"
  88. 10001 data 2,3,0,128,"zimmer 1"
  89. 10002 data 0,4,1,0,"zimmer 2"
  90. 10003 data 4,0,0,1,"zimmer 3"
  91. 10004 data 0,0,3,2,"zimmer 4"
  92. 12000 data "#"
  93. 12001 data 0,"papier"
  94. 12002 data 1,"bleistift
  95.