home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RA / QUES_221.ZIP / SAMPLES.ZIP / TIMEBANK.ZIP / TIMEBANK.Q-A < prev   
Encoding:
Text File  |  1990-08-24  |  6.0 KB  |  304 lines
  1. :hoofd
  2. gosublabel logo
  3. changecolor 15 0
  4. display "                    <"
  5. changecolor 11 0
  6. display " 1 "
  7. changecolor 15 0
  8. display ">  "
  9. changecolor 14 0
  10. display "View your account|"
  11. changecolor 15 0
  12. display "                    <"
  13. changecolor 11 0
  14. display " 2 "
  15. changecolor 15 0
  16. display ">  "
  17. changecolor 14 0
  18. display "View all acounts in the timebank|"
  19. changecolor 15 0
  20. display "                    <"
  21. changecolor 11 0
  22. display " 3 "
  23. changecolor 15 0
  24. display ">  "
  25. changecolor 14 0
  26. display "Deposite time in your account|"
  27. changecolor 15 0
  28. display "                    <"
  29. changecolor 11 0
  30. display " 4 "
  31. changecolor 15 0
  32. display ">  "
  33. changecolor 14 0
  34. display "Redraw time from your account|"
  35. changecolor 15 0
  36. display "                    <"
  37. changecolor 11 0
  38. display " 5 "
  39. changecolor 15 0
  40. display ">  "
  41. changecolor 14 0
  42. display "Transfer time to a friend|"
  43. changecolor 15 0
  44. display "                    <"
  45. changecolor 11 0
  46. display " 6 "
  47. changecolor 15 0
  48. display ">  "
  49. changecolor 14 0
  50. display "Buy a lottery ticket|"
  51. changecolor 15 0
  52. display "                    <"
  53. changecolor 11 0
  54. display " 7 "
  55. changecolor 15 0
  56. display ">  "
  57. changecolor 14 0
  58. display "Borrow time from bank|"
  59. changecolor 15 0
  60. display "                    <"
  61. changecolor 11 0
  62. display " 8 "
  63. changecolor 15 0
  64. display ">  "
  65. changecolor 14 0
  66. display "Rob the bank|"
  67. changecolor 15 0
  68. display "                    <"
  69. changecolor 11 0
  70. display " 0 "
  71. changecolor 15 0
  72. display ">  "
  73. changecolor 14 0
  74. display "Quit|"
  75. display "|"
  76. display "                You have "
  77. changecolor 11 0
  78. listtimeleft
  79. changecolor 14 0
  80. display " minutes left|"
  81. display "                Your choice: "
  82. getchoice 123456780 1
  83. display "|"
  84. :
  85.  
  86. if 1 = "1" 
  87. clearscreen
  88. changecolor 4 0
  89. showaccount
  90. display "|"
  91. changecolor 4 0
  92. display "Press [ENTER] to continue:"
  93. ask 0 1
  94. gotolabel hoofd
  95. endif
  96.  
  97. if 1 = "2"
  98. clearscreen
  99. showclients
  100. changecolor 4 0
  101. display "Press [ENTER] to continue:"
  102. ask 0 1
  103. gotolabel hoofd
  104. endif
  105.  
  106. if 1 = "3"
  107. gosublabel deposit
  108. display "|"
  109. depostime 120
  110. display "|"
  111. changecolor 4 0
  112. display "Press [ENTER] to continue:"
  113. ask 0 1
  114. gotolabel hoofd
  115. endif
  116.  
  117. if 1 = "4"
  118. gosublabel redraw
  119. display "|"
  120. redrawtime
  121. display "|"
  122. changecolor 4 0
  123. display "Press [ENTER] to continue:"
  124. ask 0 1
  125. gotolabel hoofd
  126. endif
  127.  
  128. if 1 = "5"
  129. gosublabel transtime
  130. transtime
  131. display "|"
  132. changecolor 4 0
  133. display "Press [ENTER] to continue:"
  134. ask 0 1
  135. gotolabel hoofd
  136. endif
  137.  
  138. if 1 = "6"
  139. gosublabel lottery
  140. buyticket 5 3 20 60
  141. display "|"
  142. changecolor 4 0
  143. display "Press [ENTER] to continue:"
  144. ask 0 1
  145. gotolabel hoofd
  146. endif
  147.  
  148. if 1 = "7"
  149. gosublabel borrowtime
  150. display "|"
  151. borrowtime 30 10
  152. display "|"
  153. changecolor 4 0
  154. display "Press [ENTER] to continue:"
  155. ask 0 1
  156. gotolabel hoofd
  157. endif
  158.  
  159. if 1 = "0"
  160. clearscreen
  161. delete timebank.asw
  162. quit
  163. endif
  164.  
  165. if 1 = "8"
  166. gosublabel robbank
  167. display "|"
  168. robbank 10
  169. outputlog "Succesfully robbed the bank!"
  170. display "|"
  171. display "Press [ENTER] to continue:"
  172. ask 0 1
  173. gotolabel hoofd
  174. endif
  175.  
  176.  
  177.  
  178.  
  179.  
  180. :logo
  181. clearscreen
  182. displayfile timebank
  183. display "|"
  184. :
  185.  
  186.  
  187. :lottery
  188. clearscreen
  189. display "|"
  190. display "          "
  191. changecolor 14 4
  192. output "       QUESDOOR's TIMEBANK         "
  193. changecolor 7 0
  194. output " "
  195. output "                The local Lottery"
  196. output " "
  197. output "The local lottery sells lottery ticket for 5 minutes each."
  198. output "Whenever you buy one, this time will be substracted from your"
  199. output "account here."
  200. output "Everytime when there are 20 lottery tickets sold, this local"
  201. output "lottery will randomly choose a winning lottery ticket, and the"
  202. output "holder of that ticket will automaticly recieves his price in"
  203. output "his account."
  204. output " "
  205. changecolor 14 0
  206. display "The price during this lottery run is: "
  207. changecolor 15 0
  208. display "60"
  209. changecolor 14 0
  210. display " minutes!|"
  211. output " "
  212. output " "
  213. changecolor 15 0
  214. :
  215.  
  216.  
  217. :deposit
  218. clearscreen
  219. display "|"
  220. display "          "
  221. changecolor 14 4
  222. output "       QUESDOOR's TIMEBANK         "
  223. changecolor 7 0
  224. output " "
  225. output "                  Depositing time"
  226. output " "
  227. :
  228.  
  229.  
  230. :redraw
  231. clearscreen
  232. display "|"
  233. display "          "
  234. changecolor 14 4
  235. output "       QUESDOOR's TIMEBANK         "
  236. changecolor 7 0
  237. output " "
  238. output "                  Redraw time"
  239. output " "
  240. :
  241.  
  242. :transtime
  243. clearscreen
  244. display "|"
  245. display "          "
  246. changecolor 14 4
  247. output "       QUESDOOR's TIMEBANK         "
  248. changecolor 7 0
  249. output " "
  250. output "                   Transfer time"
  251. output " "
  252. output "When you transfer time to another timebank user, the next"
  253. output "time he or she logs on, their account will be that much"
  254. output "more."
  255. output "Once you lend someone some time, you will never see that"
  256. output "time again! Unless, of course, you decide to attempt a"
  257. output "robbery..."
  258. output " "
  259. output " "
  260. changecolor 15 0
  261. :
  262.  
  263.  
  264. :borrowtime
  265. clearscreen
  266. display "|"
  267. display "          "
  268. changecolor 14 4
  269. output "       QUESDOOR's TIMEBANK         "
  270. changecolor 7 0
  271. output " "
  272. output "                   Borrow time"
  273. output " "
  274. output "If you need extra time for a big download or to do other nice"
  275. output "things on the bbs, you could take a loan at this bank."
  276. output "You can only once borrow time!"
  277. output "Every deposite you make will be substracted from this loan, "
  278. output "and until this loan is payed back completely, you can't store"
  279. output "time in your account."
  280. output " " 
  281. :
  282.  
  283.  
  284. :robbank
  285. clearscreen
  286. display "|"
  287. display "          "
  288. changecolor 14 4
  289. output "       QUESDOOR's TIMEBANK         "
  290. changecolor 7 0
  291. output " "
  292. output "                  Rob the bank"
  293. output " "
  294. output "When you are really desperite in need of extra time, you"
  295. output "can try to rob the bank."
  296. output " "
  297. output "But to do that, you need to have a certain amount of luck,"
  298. output "because all sort of things can happen. And then the judge"
  299. output "will rule hard: you'll loss your account here as well as"
  300. output "all your time left for today on the bbs.."
  301. output " "
  302. :
  303.  
  304.