|
|
|
@ -1,10 +1,10 @@
|
|
|
|
rem Drugwar//e - Version 1.01
|
|
|
|
rem Drugwar//e - Version 1.02
|
|
|
|
rem 19-OCT-2018
|
|
|
|
rem 20-OCT-2018
|
|
|
|
rem Copyright 2018 Jay Moore
|
|
|
|
rem Copyright 2018 Jay Moore
|
|
|
|
rem Released under GPL v3
|
|
|
|
rem Released under GPL v3
|
|
|
|
rem drugwar2e.sourceforge.io
|
|
|
|
rem drugwar2e.sourceforge.io
|
|
|
|
rem twitter: _nq4t
|
|
|
|
rem twitter: _nq4t
|
|
|
|
|
|
|
|
rv=1.02
|
|
|
|
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"
|
|
|
|
@ -30,7 +30,7 @@ rem twitter: _nq4t
|
|
|
|
vtab 2:htab 19
|
|
|
|
vtab 2:htab 19
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£jetalthere
|
|
|
|
£jetalthere
|
|
|
|
inverse:vtab 2: htab 19:print"Jet":normal
|
|
|
|
inverse:gosub @twonineteen:print"Jet":normal
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£timera
|
|
|
|
£timera
|
|
|
|
for j = 1 to 2500
|
|
|
|
for j = 1 to 2500
|
|
|
|
@ -74,10 +74,10 @@ This has cleaned the code up a bit
|
|
|
|
f=int(i-((g*5)-m+n+o+u+t+p))
|
|
|
|
f=int(i-((g*5)-m+n+o+u+t+p))
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£chase
|
|
|
|
£chase
|
|
|
|
inverse:vtab 2: htab 15: print"Being Chased":normal
|
|
|
|
inverse:gosub @twofifteen: print"Being Chased":normal
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£gmod
|
|
|
|
£gmod
|
|
|
|
speed=100:vtab 2: htab 16:inverse:print"Game Over":normal:speed=255
|
|
|
|
speed=100:gosub @twosixteen:inverse:print"Game Over":normal:speed=255
|
|
|
|
return
|
|
|
|
return
|
|
|
|
£bronxcheck
|
|
|
|
£bronxcheck
|
|
|
|
if p$ = "THE BRONX" then return
|
|
|
|
if p$ = "THE BRONX" then return
|
|
|
|
@ -166,7 +166,7 @@ goto @menu
|
|
|
|
£prices
|
|
|
|
£prices
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2:htab 18:print"Prices":normal
|
|
|
|
inverse:gosub @twoeighteen:print"Prices":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print"cocaine:","$"c
|
|
|
|
print"cocaine:","$"c
|
|
|
|
print"heroin:","$"h
|
|
|
|
print"heroin:","$"h
|
|
|
|
@ -180,7 +180,7 @@ goto @menu
|
|
|
|
£inventory
|
|
|
|
£inventory
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 16:print"Trenchcoat":normal
|
|
|
|
inverse:gosub @twosixteen :print"Trenchcoat":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
print"cocaine:",m
|
|
|
|
print"cocaine:",m
|
|
|
|
print"heroin:",n
|
|
|
|
print"heroin:",n
|
|
|
|
@ -194,7 +194,7 @@ goto @menu
|
|
|
|
£buy
|
|
|
|
£buy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 19: print"Buy":normal
|
|
|
|
inverse:gosub @twonineteen: 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)
|
|
|
|
@ -216,7 +216,7 @@ goto @menu
|
|
|
|
£sell
|
|
|
|
£sell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse: vtab 2: htab 18: print"Sell":normal
|
|
|
|
inverse: gosub @twoeighteen: 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)
|
|
|
|
@ -268,7 +268,7 @@ goto @menu
|
|
|
|
£loan
|
|
|
|
£loan
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : vtab 2: htab 16:print "Loan Shark":normal
|
|
|
|
inverse : gosub @twosixteen:print "Loan Shark":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
gosub @bronxcheck
|
|
|
|
gosub @bronxcheck
|
|
|
|
print "Your debt is: $";v
|
|
|
|
print "Your debt is: $";v
|
|
|
|
@ -283,7 +283,7 @@ goto @menu
|
|
|
|
£bank
|
|
|
|
£bank
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : vtab 2 : htab 15: print"Bank O'Murica":normal
|
|
|
|
inverse : gosub @twofifteen: print"Bank O'Murica":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
gosub @bronxcheck
|
|
|
|
gosub @bronxcheck
|
|
|
|
print "Your balance: $";e
|
|
|
|
print "Your balance: $";e
|
|
|
|
@ -299,7 +299,7 @@ goto @menu
|
|
|
|
£cokebuy
|
|
|
|
£cokebuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 16: print"Buy Cocaine":normal
|
|
|
|
inverse:gosub @twosixteen: print"Buy Cocaine":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=int(w/c) {calculate how many we can buy}
|
|
|
|
j=int(w/c) {calculate how many we can buy}
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
@ -308,7 +308,7 @@ goto @menu
|
|
|
|
£herbuy
|
|
|
|
£herbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 16: print"Buy Heroin":normal
|
|
|
|
inverse:gosub @twosixteen: print"Buy Heroin":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=int(w/h)
|
|
|
|
j=int(w/h)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
@ -317,7 +317,7 @@ goto @menu
|
|
|
|
£acidbuy
|
|
|
|
£acidbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 17:print"Buy Acid":normal
|
|
|
|
inverse:gosub @twoseventeen:print"Buy Acid":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=int(w/a)
|
|
|
|
j=int(w/a)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
@ -326,7 +326,7 @@ goto @menu
|
|
|
|
£weedbuy
|
|
|
|
£weedbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 17: print"Buy Weed":normal
|
|
|
|
inverse:gosub @twoseventeen: print"Buy Weed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=int(w/z)
|
|
|
|
j=int(w/z)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
@ -335,7 +335,7 @@ goto @menu
|
|
|
|
£spdbuy
|
|
|
|
£spdbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 17: print"Buy Speed":normal
|
|
|
|
inverse:gosub @twoseventeen: print"Buy Speed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=int(w/s)
|
|
|
|
j=int(w/s)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
@ -344,7 +344,7 @@ goto @menu
|
|
|
|
£ludbuy
|
|
|
|
£ludbuy
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 17: print"Buy Ludes":normal
|
|
|
|
inverse:gosub @twoseventeen: print"Buy Ludes":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=int(w/l)
|
|
|
|
j=int(w/l)
|
|
|
|
gosub @howmuchbuy
|
|
|
|
gosub @howmuchbuy
|
|
|
|
@ -355,10 +355,10 @@ goto @menu
|
|
|
|
£cokesell
|
|
|
|
£cokesell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 15:print"Sell Cocaine":normal
|
|
|
|
inverse:gosub @twofifteen: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 {some buy logic}
|
|
|
|
m=m-k {sub sends back here if valid, adjusts inventory}
|
|
|
|
m=m-k {sub sends back here if valid, adjusts inventory}
|
|
|
|
w=w+(c*k) {adds money to wallet}
|
|
|
|
w=w+(c*k) {adds money to wallet}
|
|
|
|
goto @menu
|
|
|
|
goto @menu
|
|
|
|
@ -366,7 +366,7 @@ goto @menu
|
|
|
|
£hersell
|
|
|
|
£hersell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2 : htab 17:print"Sell Heroin":normal
|
|
|
|
inverse:gosub @twoseventeen:print"Sell Heroin":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=n
|
|
|
|
j=n
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -377,7 +377,7 @@ goto @menu
|
|
|
|
£acidsell
|
|
|
|
£acidsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab2: htab 17: print"Sell Acid":normal
|
|
|
|
inverse:gosub @twoseventeen: print"Sell Acid":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=o
|
|
|
|
j=o
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -388,7 +388,7 @@ goto @menu
|
|
|
|
£weedsell
|
|
|
|
£weedsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 17:print"Sell Weed":normal
|
|
|
|
inverse:gosub @twoseventeen:print"Sell Weed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=u
|
|
|
|
j=u
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -399,7 +399,7 @@ goto @menu
|
|
|
|
£spdsell
|
|
|
|
£spdsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 16:print"Sell Speed":normal
|
|
|
|
inverse:gosub @twosixteen:print"Sell Speed":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=t
|
|
|
|
j=t
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -410,7 +410,7 @@ goto @menu
|
|
|
|
£ludsell
|
|
|
|
£ludsell
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse:vtab 2: htab 16:print"Sell Ludes":normal
|
|
|
|
inverse:gosub @twosixteen:print"Sell Ludes":normal
|
|
|
|
print chr$(10)
|
|
|
|
print chr$(10)
|
|
|
|
j=q
|
|
|
|
j=q
|
|
|
|
gosub @howmuchsell
|
|
|
|
gosub @howmuchsell
|
|
|
|
@ -435,7 +435,7 @@ goto @menu
|
|
|
|
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:vtab 2: htab 18:print"Subway":normal
|
|
|
|
inverse:gosub @twoeighteen: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
|
|
|
|
@ -749,7 +749,7 @@ conditions on how/when we run cops
|
|
|
|
|
|
|
|
|
|
|
|
£instructions
|
|
|
|
£instructions
|
|
|
|
home
|
|
|
|
home
|
|
|
|
vtab 2:htab10:print "Welcome to Drugwar//e":htab14:print"Version 1.01"
|
|
|
|
vtab 2:htab10:print "Welcome to Drugwar//e":htab14:print"Version ";rv
|
|
|
|
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$
|
|
|
|
@ -773,7 +773,7 @@ conditions on how/when we run cops
|
|
|
|
£weedend
|
|
|
|
£weedend
|
|
|
|
home
|
|
|
|
home
|
|
|
|
gosub @titlebar
|
|
|
|
gosub @titlebar
|
|
|
|
inverse : vtab 2: htab 15: print "SMOKE Weed" : NORMAL
|
|
|
|
inverse : gosub @twofifteen: print "SMOKE Weed" : NORMAL
|
|
|
|
speed = 50 :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!"
|
|
|
|
|
