|
|
|
@ -1,4 +1,4 @@
|
|
|
|
rem Drugwar//e - Version 1.0
|
|
|
|
rem Drugwar//e - Version 1.01
|
|
|
|
rem 19-OCT-2018
|
|
|
|
rem 19-OCT-2018
|
|
|
|
rem Copyright 2018 Jay Moore
|
|
|
|
rem Copyright 2018 Jay Moore
|
|
|
|
rem Released under GPL v3
|
|
|
|
rem Released under GPL v3
|
|
|
|
@ -7,26 +7,42 @@ rem twitter: _nq4t
|
|
|
|
|
|
|
|
|
|
|
|
goto @instructions {because we're sticking subroutines up here}
|
|
|
|
goto @instructions {because we're sticking subroutines up here}
|
|
|
|
£titlebar {this literally just draws the game title at the top of the screen}
|
|
|
|
£titlebar {this literally just draws the game title at the top of the screen}
|
|
|
|
HTAB 16 : print "Drugwar//e",
|
|
|
|
HTAB 16 : print "Drugwar//e"
|
|
|
|
|
|
|
|
inverse:print" ":normal
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£wait {ubiquitious "Press ENTER to continue}
|
|
|
|
£wait {ubiquitious "Press ENTER to continue}
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
input "Press enter to continue.";x$
|
|
|
|
input "Press enter to continue.";x$
|
|
|
|
return
|
|
|
|
return
|
|
|
|
|
|
|
|
£twofifteen
|
|
|
|
|
|
|
|
vtab 2 : htab 15
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
£twosixteen
|
|
|
|
|
|
|
|
vtab 2:htab 16
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
£twoseventeen
|
|
|
|
|
|
|
|
vtab 2:htab 17
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
£twoeighteen
|
|
|
|
|
|
|
|
vtab 2: htab 18
|
|
|
|
|
|
|
|
return
|
|
|
|
|
|
|
|
£twonineteen
|
|
|
|
|
|
|
|
vtab 2:htab 19
|
|
|
|
|
|
|
|
return
|
|
|
|
£jetalthere
|
|
|
|
£jetalthere
|
|
|
|
inverse:print" Jet ":normal
|
|
|
|
inverse:vtab 2: htab 19:print"Jet":normal
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£timera
|
|
|
|
£timera
|
|
|
|
for j = 1 to 500
|
|
|
|
for j = 1 to 2500
|
|
|
|
next j
|
|
|
|
next j
|
|
|
|
k = int(rnd(2)+.5)
|
|
|
|
k = int(rnd(2)+.5)
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£timerb
|
|
|
|
£timerb
|
|
|
|
for j = 1 to 300
|
|
|
|
for j = 1 to 1000
|
|
|
|
next j
|
|
|
|
next j
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£timerc
|
|
|
|
£timerc
|
|
|
|
for j = 1 to 1000
|
|
|
|
for j = 1 to 2000
|
|
|
|
next j
|
|
|
|
next j
|
|
|
|
return
|
|
|
|
return
|
|
|
|
[
|
|
|
|
[
|
|
|
|
@ -55,16 +71,16 @@ This has cleaned the code up a bit
|
|
|
|
return
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
|
|
£freespace
|
|
|
|
£freespace
|
|
|
|
f=int(i-(m+n+o+u+t+p))
|
|
|
|
f=int(i-((g*5)-m+n+o+u+t+p))
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£chase
|
|
|
|
£chase
|
|
|
|
inverse:print" Being Chased ":normal
|
|
|
|
inverse:vtab 2: htab 15: print"Being Chased":normal
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£gmod
|
|
|
|
£gmod
|
|
|
|
inverse:print" Game Over ":normal
|
|
|
|
speed=100:vtab 2: htab 16:inverse:print"Game Over":normal:speed=255
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£bronxcheck
|
|
|
|
£bronxcheck
|
|
|
|
if p$ = "THE BRONX " then return
|
|
|
|
if p$ = "THE BRONX" then return
|
|
|
|
print "you need to head to the bronx"
|
|
|
|
print "you need to head to the bronx"
|
|
|
|
print "to take care of this business."
|
|
|
|
print "to take care of this business."
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerc
|
|
|
|
@ -95,7 +111,7 @@ This has cleaned the code up a bit
|
|
|
|
w=2000
|
|
|
|
w=2000
|
|
|
|
e=0
|
|
|
|
e=0
|
|
|
|
v=5000
|
|
|
|
v=5000
|
|
|
|
p$="The Bronx "
|
|
|
|
p$="The Bronx"
|
|
|
|
g=0
|
|
|
|
g=0
|
|
|
|
i=100
|
|
|
|
i=100
|
|
|
|
m=0
|
|
|
|
m=0
|
|
|
|
@ -111,10 +127,10 @@ This has cleaned the code up a bit
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @freespace
|
|
|
|
gosub @freespace
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : print " Day: "D" Location: "p$: normal
|
|
|
|
inverse : vtab 2:htab 4:print "Day: "D : vtab 2:htab 18:print"Location: "p$ :normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print "(C)heck Prices"
|
|
|
|
print "(C)heck Prices"
|
|
|
|
print "(I)nventory"
|
|
|
|
print "(T)renchcoat"
|
|
|
|
print "(B)uy"
|
|
|
|
print "(B)uy"
|
|
|
|
print "(S)ell"
|
|
|
|
print "(S)ell"
|
|
|
|
print "(J)et"
|
|
|
|
print "(J)et"
|
|
|
|
@ -123,17 +139,34 @@ This has cleaned the code up a bit
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
input "Please make your selection: ";x$
|
|
|
|
input "Please make your selection: ";x$
|
|
|
|
if x$ = "C" goto @prices
|
|
|
|
if x$ = "C" goto @prices
|
|
|
|
if x$ = "I" goto @inventory
|
|
|
|
if x$ = "T" goto @inventory
|
|
|
|
if x$ = "B" goto @buy
|
|
|
|
if x$ = "B" goto @buy
|
|
|
|
if x$ = "S" goto @sell
|
|
|
|
if x$ = "S" goto @sell
|
|
|
|
if x$ = "J" goto @jet
|
|
|
|
if x$ = "J" goto @jet
|
|
|
|
if x$ = "L" goto @loan
|
|
|
|
if x$ = "L" goto @loan
|
|
|
|
if x$ = "V" goto @bank
|
|
|
|
if x$ = "V" goto @bank
|
|
|
|
|
|
|
|
{if x$="debug" goto @debug}
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
|
|
|
£debug
|
|
|
|
|
|
|
|
print "Testing Screen"
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
|
|
|
|
print "(w)allet,(g)uns,(v)debt,(e)savings,(i)nventory space"
|
|
|
|
|
|
|
|
input "What to change?";db$
|
|
|
|
|
|
|
|
input "To?";dx
|
|
|
|
|
|
|
|
if db$ = "w" then w=dx
|
|
|
|
|
|
|
|
if db$ = "g" then g=dx
|
|
|
|
|
|
|
|
if db$="v" then v=dx
|
|
|
|
|
|
|
|
if db$="e" then e=dx
|
|
|
|
|
|
|
|
if db$="i" then i=dx
|
|
|
|
|
|
|
|
goto @menu
|
|
|
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
|
|
£prices
|
|
|
|
£prices
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Prices ":normal
|
|
|
|
inverse:vtab 2:htab 18:print"Prices":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print"cocaine:","$"c
|
|
|
|
print"cocaine:","$"c
|
|
|
|
print"heroin:","$"h
|
|
|
|
print"heroin:","$"h
|
|
|
|
@ -147,7 +180,7 @@ This has cleaned the code up a bit
|
|
|
|
£inventory
|
|
|
|
£inventory
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Inventory ":normal
|
|
|
|
inverse:vtab 2: htab 16:print"Trenchcoat":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print"cocaine:",m
|
|
|
|
print"cocaine:",m
|
|
|
|
print"heroin:",n
|
|
|
|
print"heroin:",n
|
|
|
|
@ -161,7 +194,7 @@ This has cleaned the code up a bit
|
|
|
|
£buy
|
|
|
|
£buy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy ":normal
|
|
|
|
inverse:vtab 2: htab 19: print"Buy":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print"What do you want to buy?"
|
|
|
|
print"What do you want to buy?"
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
@ -183,7 +216,7 @@ This has cleaned the code up a bit
|
|
|
|
£sell
|
|
|
|
£sell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell ":normal
|
|
|
|
inverse: vtab 2: htab 18: print"Sell":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print "What would you like to sell?"
|
|
|
|
print "What would you like to sell?"
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
@ -217,16 +250,17 @@ This has cleaned the code up a bit
|
|
|
|
print "Broo(K)lyn"
|
|
|
|
print "Broo(K)lyn"
|
|
|
|
print "(O)ops...stay!"
|
|
|
|
print "(O)ops...stay!"
|
|
|
|
input "Where to dude? ";x$
|
|
|
|
input "Where to dude? ";x$
|
|
|
|
if x$="B" then y$ = "The Bronx " : GOTO @jetb {we can use strings}
|
|
|
|
if x$="B" then y$ = "The Bronx" : GOTO @jetb {we can use strings}
|
|
|
|
if x$="G" then y$ = "The Ghetto " : GOTO @jetb
|
|
|
|
if x$="G" then y$ = "The Ghetto" : GOTO @jetb
|
|
|
|
if x$="C" then y$ = "Central Park " : GOTO @jetb
|
|
|
|
if x$="C" then y$ = "Central Park" : GOTO @jetb
|
|
|
|
if x$="M" then y$ = "Manhattan " : goto @jetb
|
|
|
|
if x$="M" then y$ = "Manhattan" : goto @jetb
|
|
|
|
if x$="I" then y$ = "Coney Island " : goto @jetb
|
|
|
|
if x$="I" then y$ = "Coney Island" : goto @jetb
|
|
|
|
if x$="K" then y$ = "Brooklyn " : goto @jetb
|
|
|
|
if x$="K" then y$ = "Brooklyn" : goto @jetb
|
|
|
|
if x$="O" then goto @menu
|
|
|
|
if x$="O" then goto @menu
|
|
|
|
{if x$="COPTEST" then b = 5 : goto @police}
|
|
|
|
{if x$="COPTEST" then b = 5 : goto @police}
|
|
|
|
goto @jet
|
|
|
|
goto @jet
|
|
|
|
£jetb
|
|
|
|
£jetb
|
|
|
|
|
|
|
|
{input "event: ";ev testing/debug}
|
|
|
|
if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
|
|
|
|
if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
|
|
|
|
p$ = y$ {it's valid, copy it and move along} : y$ = ""
|
|
|
|
p$ = y$ {it's valid, copy it and move along} : y$ = ""
|
|
|
|
goto @subway
|
|
|
|
goto @subway
|
|
|
|
@ -234,7 +268,7 @@ This has cleaned the code up a bit
|
|
|
|
£loan
|
|
|
|
£loan
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : print " Loan Shark ":normal
|
|
|
|
inverse : vtab 2: htab 16:print "Loan Shark":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
gosub @bronxcheck
|
|
|
|
gosub @bronxcheck
|
|
|
|
print "Your debt is: $";v
|
|
|
|
print "Your debt is: $";v
|
|
|
|
@ -249,7 +283,7 @@ This has cleaned the code up a bit
|
|
|
|
£bank
|
|
|
|
£bank
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : print" Bank O'Murica ":normal
|
|
|
|
inverse : vtab 2 : htab 15: print"Bank O'Murica":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
gosub @bronxcheck
|
|
|
|
gosub @bronxcheck
|
|
|
|
print "Your balance: $";e
|
|
|
|
print "Your balance: $";e
|
|
|
|
@ -259,59 +293,60 @@ This has cleaned the code up a bit
|
|
|
|
if x$ = "d" then goto @deposit
|
|
|
|
if x$ = "d" then goto @deposit
|
|
|
|
if x$ = "w" then goto @mymoney
|
|
|
|
if x$ = "w" then goto @mymoney
|
|
|
|
if x$ = "l" then goto @menu
|
|
|
|
if x$ = "l" then goto @menu
|
|
|
|
|
|
|
|
if x$ = eg$ then goto @egg
|
|
|
|
goto @bank
|
|
|
|
goto @bank
|
|
|
|
|
|
|
|
|
|
|
|
£cokebuy
|
|
|
|
£cokebuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy Cocaine ":normal
|
|
|
|
inverse:vtab 2: htab 16: print"Buy Cocaine":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=w/c {calculate how many we can buy}
|
|
|
|
j=int(w/c) {calculate how many we can buy}
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
m=m+k : w=w-(c*k) {when the subroutine sends us back when the purchase is valid}
|
|
|
|
m=m+k : w=w-(c*k) {when the subroutine sends us back when the purchase is valid}
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
£herbuy
|
|
|
|
£herbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy Heroin ":normal
|
|
|
|
inverse:vtab 2: htab 16: print"Buy Heroin":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=w/h
|
|
|
|
j=int(w/h)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
n=n+k : w=w-(h*k)
|
|
|
|
n=n+k : w=w-(h*k)
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
£acidbuy
|
|
|
|
£acidbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy Acid ":normal
|
|
|
|
inverse:vtab 2: htab 17:print"Buy Acid":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=w/a
|
|
|
|
j=int(w/a)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
o=o+k : w=w-(a*k)
|
|
|
|
o=o+k : w=w-(a*k)
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
£weedbuy
|
|
|
|
£weedbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy Weed ":normal
|
|
|
|
inverse:vtab 2: htab 17: print"Buy Weed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=w/z
|
|
|
|
j=int(w/z)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
u=u+k : w=w-(z*k)
|
|
|
|
u=u+k : w=w-(z*k)
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
£spdbuy
|
|
|
|
£spdbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy Speed ":normal
|
|
|
|
inverse:vtab 2: htab 17: print"Buy Speed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=w/s
|
|
|
|
j=int(w/s)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
t=t+k : w=w-(s*k)
|
|
|
|
t=t+k : w=w-(s*k)
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
£ludbuy
|
|
|
|
£ludbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Buy Ludes ":normal
|
|
|
|
inverse:vtab 2: htab 17: print"Buy Ludes":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=w/l
|
|
|
|
j=int(w/l)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
q=q+k : w=w-(l*k)
|
|
|
|
q=q+k : w=w-(l*k)
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
@ -320,7 +355,7 @@ This has cleaned the code up a bit
|
|
|
|
£cokesell
|
|
|
|
£cokesell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell Cocaine ":normal
|
|
|
|
inverse:vtab 2: htab 15:print"Sell Cocaine":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=m {write amount to variable}
|
|
|
|
j=m {write amount to variable}
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -331,7 +366,7 @@ This has cleaned the code up a bit
|
|
|
|
£hersell
|
|
|
|
£hersell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell Heroin ":normal
|
|
|
|
inverse:vtab 2 : htab 17:print"Sell Heroin":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=n
|
|
|
|
j=n
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -342,7 +377,7 @@ This has cleaned the code up a bit
|
|
|
|
£acidsell
|
|
|
|
£acidsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell Acid ":normal
|
|
|
|
inverse:vtab2: htab 17: print"Sell Acid":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=o
|
|
|
|
j=o
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -353,7 +388,7 @@ This has cleaned the code up a bit
|
|
|
|
£weedsell
|
|
|
|
£weedsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell Weed ":normal
|
|
|
|
inverse:vtab 2: htab 17:print"Sell Weed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=u
|
|
|
|
j=u
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -364,7 +399,7 @@ This has cleaned the code up a bit
|
|
|
|
£spdsell
|
|
|
|
£spdsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell Speed ":normal
|
|
|
|
inverse:vtab 2: htab 16:print"Sell Speed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=t
|
|
|
|
j=t
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -375,7 +410,7 @@ This has cleaned the code up a bit
|
|
|
|
£ludsell
|
|
|
|
£ludsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Sell Ludes ":normal
|
|
|
|
inverse:vtab 2: htab 16:print"Sell Ludes":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=q
|
|
|
|
j=q
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -396,10 +431,11 @@ This has cleaned the code up a bit
|
|
|
|
£subway
|
|
|
|
£subway
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @daily
|
|
|
|
gosub @daily
|
|
|
|
|
|
|
|
{b=ev debugging code}
|
|
|
|
V=int(V*1.1+.5) {loan calculation}
|
|
|
|
V=int(V*1.1+.5) {loan calculation}
|
|
|
|
E=int(E*1.06+.5) {savings calculation}
|
|
|
|
E=int(E*1.06+.5) {savings calculation}
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:print" Subway ":normal
|
|
|
|
inverse:vtab 2: htab 18:print"Subway":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
if b=1 then goto @cheapludes
|
|
|
|
if b=1 then goto @cheapludes
|
|
|
|
if b=2 then goto @cheepweed
|
|
|
|
if b=2 then goto @cheepweed
|
|
|
|
@ -466,7 +502,7 @@ This has cleaned the code up a bit
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerc
|
|
|
|
gosub @menu
|
|
|
|
gosub @menu
|
|
|
|
£cops
|
|
|
|
£cops
|
|
|
|
k=m+n+u+o+t+p {cops only active when inventory < 50}
|
|
|
|
k=m+n+u+o+t+p {cops only active when inventory > 50}
|
|
|
|
[
|
|
|
|
[
|
|
|
|
my improved revisions will likely add some additional
|
|
|
|
my improved revisions will likely add some additional
|
|
|
|
conditions on how/when we run cops
|
|
|
|
conditions on how/when we run cops
|
|
|
|
@ -618,7 +654,7 @@ conditions on how/when we run cops
|
|
|
|
if x$ <> "Y" then goto @menu
|
|
|
|
if x$ <> "Y" then goto @menu
|
|
|
|
g = g+1
|
|
|
|
g = g+1
|
|
|
|
w = w-400
|
|
|
|
w = w-400
|
|
|
|
i = int(i-5) {I kept having problems calculating this with free space as guns * 5. gave up. put it here}
|
|
|
|
{i = int(i-5) I kept having problems calculating this with free space as guns * 5. gave up. put it here}
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
£dedweed {don't smoke the weed}
|
|
|
|
£dedweed {don't smoke the weed}
|
|
|
|
print "There's some weed here that smells"
|
|
|
|
print "There's some weed here that smells"
|
|
|
|
@ -628,7 +664,7 @@ conditions on how/when we run cops
|
|
|
|
If X$ = "Y" THEN GOTO @weedend
|
|
|
|
If X$ = "Y" THEN GOTO @weedend
|
|
|
|
goto@menu
|
|
|
|
goto@menu
|
|
|
|
£newcoat
|
|
|
|
£newcoat
|
|
|
|
if w<300 then return {only if you can afford it}
|
|
|
|
if w<300 then goto @nothinghappens {only if you can afford it}
|
|
|
|
print "Will you buy a new trenchcoat"
|
|
|
|
print "Will you buy a new trenchcoat"
|
|
|
|
input "with more pockets for $200? (Y/N)";X$
|
|
|
|
input "with more pockets for $200? (Y/N)";X$
|
|
|
|
if X$ <> "Y" then goto @menu
|
|
|
|
if X$ <> "Y" then goto @menu
|
|
|
|
@ -669,6 +705,7 @@ conditions on how/when we run cops
|
|
|
|
GOSUB @timerc
|
|
|
|
GOSUB @timerc
|
|
|
|
GOTO @MENU
|
|
|
|
GOTO @MENU
|
|
|
|
£borrow
|
|
|
|
£borrow
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
Input "How much do you want? ";K
|
|
|
|
Input "How much do you want? ";K
|
|
|
|
print
|
|
|
|
print
|
|
|
|
j=int((rnd(10)*10000)+5000)
|
|
|
|
j=int((rnd(10)*10000)+5000)
|
|
|
|
@ -676,30 +713,43 @@ conditions on how/when we run cops
|
|
|
|
if K > J then print "He doesn't feel like it." : gosub @timerb : goto @menu
|
|
|
|
if K > J then print "He doesn't feel like it." : gosub @timerb : goto @menu
|
|
|
|
v=v+k
|
|
|
|
v=v+k
|
|
|
|
w=w+k
|
|
|
|
w=w+k
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
print "Here's your money." : PRINT CHR$(10) : PRINT "Remember, I break thumbs."
|
|
|
|
print "Here's your money." : PRINT CHR$(10) : PRINT "Remember, I break thumbs."
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerc
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
|
|
|
|
|
|
|
|
£deposit
|
|
|
|
£deposit
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
INPUT "How much? ";j
|
|
|
|
INPUT "How much? ";j
|
|
|
|
If j>w then print "You don't have that much cash." : goto @deposit
|
|
|
|
If j>w then print "You don't have that much cash." : goto @deposit
|
|
|
|
e=e+j
|
|
|
|
e=e+j
|
|
|
|
w=w-j
|
|
|
|
w=w-j
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
Print "Thank you for your deposit."
|
|
|
|
Print "Thank you for your deposit."
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerc
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
|
|
|
|
[
|
|
|
|
|
|
|
|
£egg
|
|
|
|
|
|
|
|
print "You found the easter egg!"
|
|
|
|
|
|
|
|
print
|
|
|
|
|
|
|
|
print "$1,000,000 has been deposited in to your account."
|
|
|
|
|
|
|
|
gosub @timerc
|
|
|
|
|
|
|
|
goto @bank
|
|
|
|
|
|
|
|
]
|
|
|
|
£mymoney
|
|
|
|
£mymoney
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
INPUT "How much? ";j
|
|
|
|
INPUT "How much? ";j
|
|
|
|
If j>e then print "You don't have sufficient funds." : goto @mymoney
|
|
|
|
If j>e then print "You don't have sufficient funds." : goto @mymoney
|
|
|
|
e=e-j
|
|
|
|
e=e-j
|
|
|
|
w=w+j
|
|
|
|
w=w+j
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
print "Thank you for your business."
|
|
|
|
print "Thank you for your business."
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerc
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
|
|
|
|
|
|
|
|
£instructions
|
|
|
|
£instructions
|
|
|
|
home
|
|
|
|
home
|
|
|
|
vtab 2:htab10:print "Welcome to Drugwar//e":htab15:print"Version 1.0"
|
|
|
|
vtab 2:htab10:print "Welcome to Drugwar//e":htab14:print"Version 1.01"
|
|
|
|
vtab 8:htab 3:print "Based on the classic TI-BASIC clone":htab2:print"of John E. Dell's 1984 IBM/TRS80 game."
|
|
|
|
vtab 8:htab 3:print "Based on the classic TI-BASIC clone":htab2:print"of John E. Dell's 1984 IBM/TRS80 game."
|
|
|
|
vtab12:htab6:print "Applesoft version by: Jay Moore"
|
|
|
|
vtab12:htab6:print "Applesoft version by: Jay Moore"
|
|
|
|
vtab19:input "Would you like instructions? (Y/N): ";X$
|
|
|
|
vtab19:input "Would you like instructions? (Y/N): ";X$
|
|
|
|
@ -723,13 +773,13 @@ conditions on how/when we run cops
|
|
|
|
£weedend
|
|
|
|
£weedend
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : print " SMOKE Weed " : NORMAL
|
|
|
|
inverse : vtab 2: htab 15: print "SMOKE Weed" : NORMAL
|
|
|
|
print "You hallucinate on the wildest trip"
|
|
|
|
speed = 50 :print "You hallucinate on the wildest trip"
|
|
|
|
print "of your life, stumble on to the tracks,"
|
|
|
|
print "of your life, stumble on to the tracks,"
|
|
|
|
print "and get creamed by a train!"
|
|
|
|
print "and get creamed by a train!"
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print "Just say NO to drugs!"
|
|
|
|
htab 10:print "Just say NO to drugs!":speed=255
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerc
|
|
|
|
gosub @timerb
|
|
|
|
gosub @timerb
|
|
|
|
goto @ironicend
|
|
|
|
goto @ironicend
|
|
|
|
@ -753,19 +803,14 @@ conditions on how/when we run cops
|
|
|
|
£ironicend
|
|
|
|
£ironicend
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @scorecalculate
|
|
|
|
|
|
|
|
gosub @gmod
|
|
|
|
gosub @gmod
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print "Your final score is: ";k
|
|
|
|
speed = 50 : print "You died from smoking weed."
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
gosub @timerc
|
|
|
|
print chr$(10)
|
|
|
|
print "But you died from smoking weed?":gosub @timerc:print "In a"
|
|
|
|
gosub @timerc: print"See? Games are totally fake." : speed = 255
|
|
|
|
print "game about dealing drugs?":gosub @timerb: print"Buddy, no"
|
|
|
|
|
|
|
|
print "score can redeem that stupidity."
|
|
|
|
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
input "Would you like to play again? ";x$
|
|
|
|
input "Would you like to play again? ";x$
|
|
|
|
if x$= "Y" THEN GOTO @GAMESTART
|
|
|
|
if x$= "Y" THEN GOTO @GAMESTART
|
|
|
|
if x$= "N" THEN PRINT "I don't blame you." : end
|
|
|
|
|
|
|
|
print "What? If you're that dumb, I'm leaving."
|
|
|
|
|
|
|
|
clear
|
|
|
|
clear
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
