drugwar2e.baz 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817
  1. rem Drugwar//e - Version 1.03
  2. rem 20-OCT-2018
  3. rem Copyright 2018 Jay Moore
  4. rem Released under GPL v3
  5. rem drugwar2e.sourceforge.io
  6. rem twitter: _nq4t
  7. rv=1.03
  8. goto @instructions {because we're sticking subroutines up here}
  9. £titlebar {this literally just draws the game title at the top of the screen}
  10. HTAB 16 : print "Drugwar//e"
  11. inverse:print" ":normal
  12. return
  13. £wait {ubiquitious "Press ENTER to continue}
  14. print chr$(10)
  15. input "Press enter to continue.";x$
  16. return
  17. £twofifteen
  18. vtab 2 : htab 15
  19. return
  20. £twosixteen
  21. vtab 2:htab 16
  22. return
  23. £twoseventeen
  24. vtab 2:htab 17
  25. return
  26. £twoeighteen
  27. vtab 2: htab 18
  28. return
  29. £twonineteen
  30. vtab 2:htab 19
  31. return
  32. £jetalthere
  33. inverse:gosub @twonineteen:print"Jet":normal
  34. return
  35. £timera
  36. for j = 1 to 2500
  37. next j
  38. k = int(rnd(2)+.5)
  39. return
  40. £timerb
  41. for j = 1 to 1000
  42. next j
  43. return
  44. £timerc
  45. for j = 1 to 2000
  46. next j
  47. return
  48. [
  49. "Common logic" has been moved to buy/sell subroutines.
  50. This has cleaned the code up a bit
  51. ]
  52. £howmuchbuy {some common purchase code}
  53. print "You can afford ";j
  54. print "You can carry ";f
  55. £howmanybuy
  56. print chr$(10)
  57. input "How many? (Enter 0 cancel): ";k
  58. if K=0 goto @menu
  59. if k>f THEN inverse : print "You can't carry that much!" : normal : goto @howmanybuy
  60. if k>j THEN inverse : print "You can't afford that much!" : normal : goto @howmanybuy
  61. return
  62. £howmuchsell {common sell code}
  63. print "You can sell: ";j
  64. print chr$(10)
  65. £howmanysell
  66. input "How many? (Enter 0 to cancel.): ";k
  67. If k>j then print "You don't have that many!" : goto @howmanysell
  68. if K=0 goto @menu
  69. return
  70. £freespace
  71. f=i-((g*5)+m+n+o+u+t+q)
  72. return
  73. £chase
  74. inverse:gosub @twofifteen: print"Being Chased":normal
  75. return
  76. £gmod
  77. speed=100:gosub @twosixteen:inverse:print"Game Over":normal:speed=255
  78. return
  79. £bronxcheck
  80. if p$ = "THE BRONX" then return
  81. print "you need to head to the bronx"
  82. print "to take care of this business."
  83. gosub @timerc
  84. goto @menu
  85. £daily {randomizes drug prices, adds a day, calculates interests, checks day number}
  86. c=int(rnd(5)*12000+16000.5)
  87. h=int(rnd(5)*7000+5000.5)
  88. a=int((rnd(5)*34+10)*100+.5)
  89. z=int((rnd(5)*42+33)*10+.5)
  90. s=int((rnd(5)*15+7)*10+.5)
  91. l=int((rnd(5)*4+1)*10+.5)
  92. b=int(rnd(5)*20+.5)
  93. d=d+1
  94. £checkday {so I can check the day by itself}
  95. if D >= 31 GOTO @endgame
  96. return
  97. £scorecalculate
  98. k=(w+e)-v
  99. if k<0 THEN k=0 : return
  100. k=int(sqr((k/31.5)+.5))
  101. if k>100 then k=100
  102. return
  103. £gamestart {set wallet, debt, location, inventory space, zero out inventory}
  104. w=2000
  105. e=0
  106. v=5000
  107. p$="The Bronx"
  108. g=0
  109. i=100
  110. m=0
  111. n=0
  112. o=0
  113. u=0
  114. t=0
  115. q=0
  116. gosub @daily {the only time we'll call this outside of the subway}
  117. goto @menu {the real start of the game}
  118. £menu {main menu. everything should loop back here}
  119. home
  120. gosub @freespace
  121. gosub @titlebar
  122. inverse : vtab 2:htab 4:print "Day: "D : vtab 2:htab 18:print"Location: "p$ :normal
  123. print chr$(10)
  124. print "(C)heck Prices"
  125. print "(T)renchcoat"
  126. print "(B)uy"
  127. print "(S)ell"
  128. print "(J)et"
  129. print "See (L)oan shark"
  130. print "(V)isit Bank"
  131. print chr$(10)
  132. input "Please make your selection: ";x$
  133. if x$ = "C" goto @prices
  134. if x$ = "T" goto @inventory
  135. if x$ = "B" goto @buy
  136. if x$ = "S" goto @sell
  137. if x$ = "J" goto @jet
  138. if x$ = "L" goto @loan
  139. if x$ = "V" goto @bank
  140. {if x$="debug" goto @debug}
  141. goto @menu
  142. [
  143. £debug
  144. print "Testing Screen"
  145. print chr$(10)
  146. print "(w)allet,(g)uns,(v)debt,(e)savings,(i)nventory space"
  147. input "What to change?";db$
  148. input "To?";dx
  149. if db$ = "w" then w=dx
  150. if db$ = "g" then g=dx
  151. if db$="v" then v=dx
  152. if db$="e" then e=dx
  153. if db$="i" then i=dx
  154. goto @menu
  155. ]
  156. £prices
  157. home
  158. gosub @titlebar
  159. inverse:gosub @twoeighteen:print"Prices":normal
  160. print chr$(10)
  161. print"cocaine:","$"c
  162. print"heroin:","$"h
  163. print"acid:","$"a
  164. print"weed:","$"z
  165. print"speed:","$"s
  166. print"ludes:","$"l
  167. print"wallet:","$"w
  168. gosub @wait
  169. goto @menu
  170. £inventory
  171. home
  172. gosub @titlebar
  173. inverse:gosub @twosixteen :print"Trenchcoat":normal
  174. print chr$(10)
  175. print"cocaine:",m
  176. print"heroin:",n
  177. print"acid:",o
  178. print"weed:",u
  179. print"speed:",t
  180. print"ludes:",q
  181. print"free space:",f
  182. gosub @wait
  183. goto @menu
  184. £buy
  185. home
  186. gosub @titlebar
  187. inverse:gosub @twonineteen: print"Buy":normal
  188. print chr$(10)
  189. print"What do you want to buy?"
  190. print chr$(10)
  191. print "(C)ocaine"
  192. print "(H)eroin"
  193. print "(A)cid"
  194. print "(W)eed"
  195. print "(S)peed"
  196. print "(L)udes"
  197. input "Enter Selection: ";x$
  198. if x$="c" goto @cokebuy
  199. if x$="h" goto @herbuy
  200. if x$="a" goto @acidbuy
  201. if x$="w" goto @weedbuy
  202. if x$="s" goto @spdbuy
  203. if x$="l" goto @ludbuy
  204. goto @menu
  205. £sell
  206. home
  207. gosub @titlebar
  208. inverse: gosub @twoeighteen: print"Sell":normal
  209. print chr$(10)
  210. print "What would you like to sell?"
  211. print chr$(10)
  212. print "(C)ocaine"
  213. print "(H)eroin"
  214. print "(A)cid"
  215. print "(W)eed"
  216. print "(S)peed"
  217. print "(L)udes"
  218. £sellsel
  219. input "Enter Selection: (0 to cancel)";x$
  220. if x$="c" goto @cokesell
  221. if x$="h" goto @hersell
  222. if x$="a" goto @acidsell
  223. if x$="w" goto @weedsell
  224. if x$="s" goto @spdsell
  225. if x$="l" goto @ludsell
  226. if x$="0" goto @menu
  227. print "Invalid Selection!"
  228. goto @sellsel
  229. £jet
  230. home
  231. gosub @titlebar
  232. gosub @jetalthere
  233. print chr$(10)
  234. print "(B)ronx"
  235. print "(G)hetto"
  236. print "(C)entral Park
  237. print "(M)anhattan"
  238. print "Coney (I)sland"
  239. print "Broo(K)lyn"
  240. print "(O)ops...stay!"
  241. input "Where to dude? ";x$
  242. if x$="B" then y$ = "The Bronx" : GOTO @jetb {we can use strings}
  243. if x$="G" then y$ = "The Ghetto" : GOTO @jetb
  244. if x$="C" then y$ = "Central Park" : GOTO @jetb
  245. if x$="M" then y$ = "Manhattan" : goto @jetb
  246. if x$="I" then y$ = "Coney Island" : goto @jetb
  247. if x$="K" then y$ = "Brooklyn" : goto @jetb
  248. if x$="O" then goto @menu
  249. {if x$="COPTEST" then b = 5 : goto @police}
  250. goto @jet
  251. £jetb
  252. {input "event: ";ev testing/debug}
  253. if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
  254. p$ = y$ {it's valid, copy it and move along} : y$ = ""
  255. goto @subway
  256. £loan
  257. home
  258. gosub @titlebar
  259. inverse : gosub @twosixteen:print "Loan Shark":normal
  260. print chr$(10)
  261. gosub @bronxcheck
  262. print "Your debt is: $";v
  263. print "You have: $";w
  264. print chr$(10)
  265. input "(R)epay, (B)orrow, (L)eave: ";X$
  266. If X$ = "R" THEN goto @payme
  267. If X$ = "B" Then goto @borrow
  268. If X$ = "L" then goto @Menu
  269. goto @loan
  270. £bank
  271. home
  272. gosub @titlebar
  273. inverse : gosub @twofifteen: print"Bank O'Murica":normal
  274. print chr$(10)
  275. gosub @bronxcheck
  276. print "Your balance: $";e
  277. print "Your wallet: $";w
  278. print chr$(10)
  279. INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
  280. if x$ = "d" then goto @deposit
  281. if x$ = "w" then goto @mymoney
  282. if x$ = "l" then goto @menu
  283. if x$ = eg$ then goto @egg
  284. goto @bank
  285. £cokebuy
  286. home
  287. gosub @titlebar
  288. inverse:gosub @twosixteen: print"Buy Cocaine":normal
  289. print chr$(10)
  290. j=int(w/c) {calculate how many we can buy}
  291. gosub @howmuchbuy
  292. m=m+k : w=w-(c*k) {when the subroutine sends us back when the purchase is valid}
  293. goto @menu
  294. £herbuy
  295. home
  296. gosub @titlebar
  297. inverse:gosub @twosixteen: print"Buy Heroin":normal
  298. print chr$(10)
  299. j=int(w/h)
  300. gosub @howmuchbuy
  301. n=n+k : w=w-(h*k)
  302. goto @menu
  303. £acidbuy
  304. home
  305. gosub @titlebar
  306. inverse:gosub @twoseventeen:print"Buy Acid":normal
  307. print chr$(10)
  308. j=int(w/a)
  309. gosub @howmuchbuy
  310. o=o+k : w=w-(a*k)
  311. goto @menu
  312. £weedbuy
  313. home
  314. gosub @titlebar
  315. inverse:gosub @twoseventeen: print"Buy Weed":normal
  316. print chr$(10)
  317. j=int(w/z)
  318. gosub @howmuchbuy
  319. u=u+k : w=w-(z*k)
  320. goto @menu
  321. £spdbuy
  322. home
  323. gosub @titlebar
  324. inverse:gosub @twoseventeen: print"Buy Speed":normal
  325. print chr$(10)
  326. j=int(w/s)
  327. gosub @howmuchbuy
  328. t=t+k : w=w-(s*k)
  329. goto @menu
  330. £ludbuy
  331. home
  332. gosub @titlebar
  333. inverse:gosub @twoseventeen: print"Buy Ludes":normal
  334. print chr$(10)
  335. j=int(w/l)
  336. gosub @howmuchbuy
  337. q=q+k : w=w-(l*k)
  338. goto @menu
  339. £cokesell
  340. home
  341. gosub @titlebar
  342. inverse:gosub @twofifteen:print"Sell Cocaine":normal
  343. print chr$(10)
  344. j=m {write amount to variable}
  345. gosub @howmuchsell {some buy logic}
  346. m=m-k {sub sends back here if valid, adjusts inventory}
  347. w=w+(c*k) {adds money to wallet}
  348. goto @menu
  349. £hersell
  350. home
  351. gosub @titlebar
  352. inverse:gosub @twoseventeen:print"Sell Heroin":normal
  353. print chr$(10)
  354. j=n
  355. gosub @howmuchsell
  356. n=n-k
  357. w=w+(h*k)
  358. goto @menu
  359. £acidsell
  360. home
  361. gosub @titlebar
  362. inverse:gosub @twoseventeen: print"Sell Acid":normal
  363. print chr$(10)
  364. j=o
  365. gosub @howmuchsell
  366. o=o-k
  367. w=w+(a*k)
  368. goto @menu
  369. £weedsell
  370. home
  371. gosub @titlebar
  372. inverse:gosub @twoseventeen:print"Sell Weed":normal
  373. print chr$(10)
  374. j=u
  375. gosub @howmuchsell
  376. u=u-k
  377. w=w+(z*k)
  378. goto @menu
  379. £spdsell
  380. home
  381. gosub @titlebar
  382. inverse:gosub @twosixteen:print"Sell Speed":normal
  383. print chr$(10)
  384. j=t
  385. gosub @howmuchsell
  386. t=t-k
  387. w=w+(s*k)
  388. goto @menu
  389. £ludsell
  390. home
  391. gosub @titlebar
  392. inverse:gosub @twosixteen:print"Sell Ludes":normal
  393. print chr$(10)
  394. j=q
  395. gosub @howmuchsell
  396. q=q-k
  397. w=w+(l*k)
  398. goto @menu
  399. £alreadythere
  400. home
  401. gosub @titlebar
  402. gosub @jetalthere
  403. print chr$(10)
  404. print "You're already in:"
  405. print " ";p$
  406. gosub @timerc
  407. goto @jet
  408. £subway
  409. home
  410. gosub @daily
  411. {b=ev debugging code}
  412. V=int(V*1.1+.5) {loan calculation}
  413. E=int(E*1.06+.5) {savings calculation}
  414. gosub @titlebar
  415. inverse:gosub @twoeighteen:print"Subway":normal
  416. print chr$(10)
  417. if b=1 then goto @cheapludes
  418. if b=2 then goto @cheepweed
  419. if b=3 then goto @pigheroin
  420. if b=4 then goto @heroinbust
  421. if b=5 then goto @heroinbust
  422. if b=6 then goto @cokebust
  423. if b=7 then goto @cokebust
  424. if b=8 then goto @mugged
  425. if b=9 then goto @cops
  426. if b=10 then goto @cops
  427. if b=11 then goto @cops
  428. if b=12 then goto @gunbuy
  429. if b=13 then goto @gunbuy
  430. if b=14 then goto @dedweed
  431. if b=15 then goto @newcoat
  432. if b=16 then goto @dedguy
  433. if b=17 then goto @homeacid
  434. £nothinghappened
  435. £nothinghappens
  436. print chr$(10) {the only way you should wind up here is if nothing happens}
  437. print "Welcome to ";p$ {i hope}
  438. print chr$(10)
  439. gosub @timerc
  440. goto @menu
  441. £cheapludes
  442. print "Rival dealers are selling cheap ludes!"
  443. l=2
  444. gosub @timerc
  445. goto @menu
  446. £cheepweed
  447. print "Weed prices have bottomed-out!"
  448. z=122
  449. gosub @timerc
  450. goto @menu
  451. £pigheroin
  452. print "Pigs are selling cheap heroin"
  453. print "from last week's raid!"
  454. h=int((rnd(9)*1150)+850.5)
  455. gosub @timerc
  456. goto @menu
  457. £heroinbust
  458. print "Addicts are buying heroin"
  459. print "at outrageous prices!"
  460. h=int((rnd(9)*25000)+18000.5)
  461. gosub @timerc
  462. goto @menu
  463. £cokebust
  464. print "Pigs made a big coke bust!"
  465. print "Prices are outrageous!!!!"
  466. c=int((rnd(9)*60000)+80000.5) {the infamous line 930}
  467. gosub @timerc
  468. goto @menu
  469. £mugged
  470. print "You got mugged!"
  471. print chr$(10)
  472. j=int(w/3)
  473. j=int(j*2)
  474. k=int(w-j)
  475. print "You lost $";k
  476. w=j
  477. gosub @timerc
  478. gosub @menu
  479. £cops
  480. k=m+n+u+o+t+p {cops only active when inventory > 50}
  481. [
  482. my improved revisions will likely add some additional
  483. conditions on how/when we run cops
  484. ]
  485. if k<50 then goto @nothinghappened
  486. if b=9 then b = 2
  487. if b=10 then b=4
  488. if b=11 then b=5
  489. print "It's the cops!"
  490. print chr$(10)
  491. print "Officer Hardass and ";B-1;" of his"
  492. print "deputies are after you!"
  493. print
  494. gosub @timerc
  495. goto @police
  496. £police
  497. home
  498. gosub @titlebar
  499. gosub @chase
  500. print
  501. print
  502. print "View (G)uns"
  503. print "View (D)amage"
  504. print "(N)umber of pigs"
  505. print "(R)un"
  506. print "(F)ight"
  507. print
  508. input "What do you want to do? ";x$
  509. if x$="G" goto @pgun
  510. if x$ = "D" goto @damage
  511. if x$ = "N" goto @ncops
  512. if x$ = "R" goto @run
  513. if X$="F" goto @fight
  514. goto @police
  515. £pgun
  516. home
  517. gosub @titlebar
  518. gosub @chase
  519. print
  520. print
  521. print "You have ";g;" guns.
  522. print
  523. gosub @wait
  524. goto @police
  525. £damage
  526. home
  527. gosub @titlebar
  528. gosub @chase
  529. print
  530. print
  531. print "Your current damage is ";bb;"."
  532. print
  533. print "50 and you die!"
  534. print
  535. gosub @wait
  536. goto @police
  537. £ncops
  538. home
  539. gosub @titlebar
  540. gosub @chase
  541. print
  542. print
  543. print "There are ";b;" pigs still chasing you!"
  544. print
  545. print
  546. gosub @wait
  547. goto @police
  548. £run
  549. home
  550. gosub @titlebar
  551. gosub @chase
  552. print
  553. print
  554. print "RUNNING..."
  555. gosub @timera
  556. if k = 0 then print "You lost them in an alley!" : goto @loserun
  557. print "You can't shake them!"
  558. print
  559. gosub @wait
  560. goto @police
  561. £loserun
  562. print
  563. gosub @wait
  564. goto @menu
  565. £fight
  566. if g<=0 then print : print : print "YOU DON'T HAVE ANY GUNS!" : gosub @wait : goto @police
  567. home
  568. gosub @titlebar
  569. gosub @chase
  570. print
  571. print "You shoot!"
  572. gosub @timera
  573. If K=0 THEN GOTO @miss
  574. print "You got one!" : b = b-1 : goto @next
  575. £miss
  576. print "You missed!"
  577. £next
  578. print
  579. print
  580. If b <= 0 THEN goto @allgone
  581. gosub @timerb
  582. print "They're firing at you!"
  583. gosub @timera
  584. if k=0 then goto @theymiss
  585. print "You've been hit!"
  586. bb=bb+3
  587. if bb >= 50 goto @ded
  588. goto @nexta
  589. £theymiss
  590. print "They missed!"
  591. £nexta
  592. gosub @wait
  593. goto @police
  594. £ded
  595. print
  596. print "You've been killed!"
  597. gosub @wait
  598. goto @endgame
  599. £allgone
  600. print "You killed all of them!"
  601. print
  602. gosub @timera
  603. j=int(((rnd(7)*1250)+750)+.5)
  604. w=w+j
  605. print "You found $";j;" on officer Hardass'"
  606. print "carcass!"
  607. if w>=1200 then goto @doctor
  608. goto @menu
  609. £doctor
  610. gosub @timerc
  611. print
  612. print "Will you pay $1000 for a doctor"
  613. input "to sew you up? (Y/N)";x$
  614. if X$ <> "Y" then goto @menu
  615. w=w-1000
  616. bb=0
  617. £gunbuy
  618. if w < 500 THEN goto @nothinghappened
  619. gosub @freespace
  620. if f < 5 THEN goto @nothinghappened
  621. j=int((rnd(4)*2)+.5)
  622. if j = 0 then y$ = "Baretta"
  623. if j = 1 then y$ = "Saturday Night Special"
  624. if j = 2 then y$ = ".44 Magnum"
  625. print "Will you buy a ";y$
  626. input "for $400? (Y/N)";x$
  627. if x$ <> "Y" then goto @menu
  628. g = g+1
  629. w = w-400
  630. {i = i-5}
  631. goto @menu
  632. £dedweed {don't smoke the weed}
  633. print "There's some weed here that smells"
  634. print "like good stuff!!"
  635. print chr$(10)
  636. input "Will you smoke it? (Y/N)";X$
  637. If X$ = "Y" THEN GOTO @weedend
  638. goto@menu
  639. £newcoat
  640. if w<300 then goto @nothinghappens {only if you can afford it}
  641. print "Will you buy a new trenchcoat"
  642. input "with more pockets for $200? (Y/N)";X$
  643. if X$ <> "Y" then goto @menu
  644. i=i+10
  645. w=w-200
  646. goto @menu
  647. £dedguy
  648. gosub @freespace
  649. If f<8 THEN goto @nothinghappens {only if you have enough freespace}
  650. j=int((rnd(3)*7)+1.5)
  651. k=int(rnd(3)*5+.5)
  652. if k=0 THEN q=q+j : y$ = "Ludes"
  653. if k=1 THEN t=t+j : y$ = "Speed"
  654. if k=2 THEN u=u+j : y$ = "Weed"
  655. if k=3 THEN o=o+j : y$ = "Acid"
  656. if k=4 THEN n=n+j : y$ = "Heroin"
  657. if k=5 THEN m=m+j : y$ = "Cocaine"
  658. print "You found ";j;" units of"
  659. print " ";y$
  660. print "on a dead dude in the subway!"
  661. print chr$(10)
  662. gosub @timerc
  663. goto @menu
  664. £homeacid
  665. print "The market has been flooded"
  666. print "with cheap home-made acid!"
  667. a=int((rnd(4)*550)+250.5)
  668. gosub @timerc
  669. goto @menu
  670. £payme
  671. INPUT "Repay how much? ";k
  672. IF k>w THEN PRINT:PRINT "YOU DON'T HAVE THAT MUCH!" : GOSUB @timerb : GOTO @LOAN
  673. IF k>v THEN PRINT:PRINT "YOU DON'T OWE THAT MUCH!" : GOSUB @timerb : GOTO @LOAN
  674. W=W-k
  675. v=v-k
  676. PRINT:PRINT "THANK YOU."
  677. GOSUB @timerc
  678. GOTO @MENU
  679. £borrow
  680. print chr$(10)
  681. Input "How much do you want? ";K
  682. print
  683. j=int((rnd(10)*10000)+5000)
  684. if K>14000 then print "He's not that stupid!" : gosub @timerc : goto @menu
  685. if K > J then print "He doesn't feel like it." : gosub @timerb : goto @menu
  686. v=v+k
  687. w=w+k
  688. print chr$(10)
  689. print "Here's your money." : PRINT CHR$(10) : PRINT "Remember, I break thumbs."
  690. gosub @timerc
  691. goto @menu
  692. £deposit
  693. print chr$(10)
  694. INPUT "How much? ";j
  695. If j>w then print "You don't have that much cash." : goto @deposit
  696. e=e+j
  697. w=w-j
  698. print chr$(10)
  699. Print "Thank you for your deposit."
  700. gosub @timerc
  701. goto @menu
  702. [
  703. £egg
  704. print "You found the easter egg!"
  705. print
  706. print "$1,000,000 has been deposited in to your account."
  707. gosub @timerc
  708. goto @bank
  709. ]
  710. £mymoney
  711. print chr$(10)
  712. INPUT "How much? ";j
  713. If j>e then print "You don't have sufficient funds." : goto @mymoney
  714. e=e-j
  715. w=w+j
  716. print chr$(10)
  717. print "Thank you for your business."
  718. gosub @timerc
  719. goto @menu
  720. £instructions
  721. home
  722. vtab 2:htab10:print "Welcome to Drugwar//e":htab14:print"Version ";rv
  723. vtab 8:htab 3:print "Based on the classic TI-BASIC clone":htab2:print"of John E. Dell's 1984 IBM/TRS80 game."
  724. vtab12:htab6:print "Applesoft version by: Jay Moore"
  725. vtab19:input "Would you like instructions? (Y/N): ";X$
  726. j =RND(-1 *(PEEK(78)+256*PEEK(79)))
  727. If X$ = "Y" THEN GOTO @inst
  728. GOTO @gamestart
  729. £inst
  730. home
  731. gosub @titlebar
  732. print chr$(10)
  733. print "This is a game of buying and selling."
  734. print "Your goal is to pay off your debt and"
  735. print "make as much money as possible in a one"
  736. print "month period. Prices fluctuate every dayand interest on your loan is calculated as well."
  737. print:print "If you deal too heavily, you'll attract the attention of the police."
  738. print CHR$(10)
  739. print "Commands are entered using the letter highlighted (L)ike (S)o. Y is yes and anything counts as no."
  740. gosub @wait
  741. goto @gamestart
  742. £weedend
  743. home
  744. gosub @titlebar
  745. inverse : gosub @twofifteen: print "SMOKE Weed" : NORMAL
  746. speed = 50 :print "You hallucinate on the wildest trip"
  747. print "of your life, stumble on to the tracks,"
  748. print "and get creamed by a train!"
  749. print chr$(10)
  750. print chr$(10)
  751. htab 10:print "Just say NO to drugs!":speed=255
  752. gosub @timerc
  753. gosub @timerb
  754. goto @ironicend
  755. £endgame
  756. home
  757. gosub @titlebar
  758. gosub @scorecalculate
  759. gosub @gmod
  760. print chr$(10)
  761. print "Your score on a scale of 1 to 100: ";k
  762. print chr$(10)
  763. input "Would you like to play again? (Y/N)";x$
  764. if x$ = "Y" then goto @gamestart
  765. print "Thanks for playing."
  766. print "Remember, watch your back."
  767. print "Have a nice day!"
  768. clear
  769. end
  770. £ironicend
  771. home
  772. gosub @titlebar
  773. gosub @gmod
  774. print chr$(10)
  775. speed = 50 : print "You died from smoking weed."
  776. print chr$(10)
  777. print chr$(10)
  778. gosub @timerc: print"See? Games are totally fake." : speed = 255
  779. print chr$(10)
  780. input "Would you like to play again? ";x$
  781. if x$= "Y" THEN GOTO @GAMESTART
  782. clear
  783. end