Added TI-8x Basic
parent
d2582c6283
commit
931f074d31
@ -0,0 +1,550 @@
|
||||
While 0
|
||||
Fixed Version Used As Basis For DRUGWAR2e
|
||||
End
|
||||
Lbl G
|
||||
ClrHome
|
||||
Disp " DRUGWAR "," "," ","","ORIGINAL GAME","FOR IBM BY:"," JOHN E. DELL"
|
||||
2000→Z
|
||||
5000→Y
|
||||
0→V
|
||||
100→K
|
||||
1→B
|
||||
2→U
|
||||
0→I
|
||||
0→J
|
||||
100→T
|
||||
0→M
|
||||
0→N
|
||||
0→O
|
||||
0→P
|
||||
0→Q
|
||||
0→R
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "INSTRUCTIONS?"
|
||||
Input "(1=YES,2=NO)",X
|
||||
If X=1
|
||||
Then
|
||||
ClrHome
|
||||
Disp "THIS IS A GAME","OF BUYING AND","SELLING. YOUR","GOAL IS TO PAY-","OFF YOUR DEBT TO","THE LOAN SHARK,","AND THEN MAKE AS"
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "MUCH MONEY AS","POSSIBLE IN A 1","MONTH PERIOD.","WATCH-OUT FOR","THE POLICE IF","YOU DEAL TOO","HEAVILY!"
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "PRICES FOR DRUGS","ARE:","COCAINE:","15000-28000","HEROIN:","5000-12000","ACID: 1000-4200"
|
||||
Pause
|
||||
Disp "WEED: 300-720","SPEED: 70-220","LUDES: 10-50"
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "GENERALLY,TYPE","THE FIRST LETTER","OF WHAT YOU WANT","TO DO, I.E.:","W=WEED, L=LUDES","ETC. . ."
|
||||
Pause
|
||||
Disp "BUT, 1=YES AND","2=NO"
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "THE LAST NUMBER","IN THE PRICES","LIST IS YOUR","WALLET. THE LAST","NUMBER IN YOUR","TRENCHCOAT IS","FREE SPACE."
|
||||
Pause
|
||||
End
|
||||
Lbl θ
|
||||
round(rand*12000+16000,0)→C
|
||||
round(rand*7000+5000,0)→H
|
||||
round(rand*34+10,0)*100→A
|
||||
round(rand*42+33,0)*10→W
|
||||
round(rand*15+7,0)*10→S
|
||||
round(rand*4+1,0)*10→L
|
||||
round(rand*20,0)→D
|
||||
If D=1
|
||||
Then
|
||||
ClrHome
|
||||
Disp "RIVAL DEALERS","ARE SELLING","CHEAP LUDES!!!"
|
||||
Pause
|
||||
2→L
|
||||
End
|
||||
If D=2
|
||||
Then
|
||||
ClrHome
|
||||
Disp "WEED PRICES HAVE","BOTTOMED-OUT!!!"
|
||||
Pause
|
||||
122→W
|
||||
End
|
||||
If D=3
|
||||
Then
|
||||
ClrHome
|
||||
Disp "PIGS ARE SELLING","CHEAP HEROIN","FROM LAST WEEK'S","RAID!!!!"
|
||||
Pause
|
||||
rand→H
|
||||
(850+(H*1150))→H
|
||||
(int(H)→H
|
||||
End
|
||||
If D=4 or D=5
|
||||
Then
|
||||
ClrHome
|
||||
Disp "ADDICTS ARE","BUYING HEROIN","AT OUTRAGEOUS","PRICES!!!"
|
||||
Pause
|
||||
rand→H
|
||||
(18000+(H*25000))→H
|
||||
(int(H)→H
|
||||
End
|
||||
If D=6 or D=7
|
||||
Then
|
||||
ClrHome
|
||||
Disp "PIGS MADE A BIG","COKE BUST!","PRICES ARE","OUTRAGEOUS!!!!"
|
||||
Pause
|
||||
rand→C
|
||||
(80000+(C*60000))→C
|
||||
(int(C)→C
|
||||
End
|
||||
If D=8
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU WERE MUGGED","IN THE SUBWAY!"
|
||||
Pause
|
||||
(Z/3)→Z
|
||||
(int(Z)→Z
|
||||
(Z*2)→Z
|
||||
End
|
||||
If D=15 and Z≥300
|
||||
Then
|
||||
ClrHome
|
||||
Disp "WILL YOU BUY A","NEW TRENCHCOAT","WITH MORE","POCKETS FOR 200","BUCKS?"
|
||||
Input X
|
||||
If X=1
|
||||
Then
|
||||
(T+10)→T
|
||||
(T-M-N-O-P-Q-R)→K
|
||||
(Z-200)→Z
|
||||
End
|
||||
End
|
||||
If D=14
|
||||
Then
|
||||
ClrHome
|
||||
Disp "THERE'S SOME","WEED HERE THAT","SMELLS LIKE GOOD","STUFF!!"
|
||||
Pause
|
||||
Disp "WILL YOU SMOKE"
|
||||
Input "IT?",X
|
||||
If X=1
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU HALLUCINATE","ON THE WILDEST","TRIP OF YOUR","LIFE,"
|
||||
Pause
|
||||
Disp "STUMBLE ON TO","THE SUBWAY","TRACKS AND GET","CREAMED BY A","TRAIN."
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "JUST SAY NO TO","DRUGS."
|
||||
Pause
|
||||
Goto C
|
||||
End
|
||||
End
|
||||
If Z≥500 and K≥5
|
||||
Then
|
||||
If D=12 or D=13
|
||||
Then
|
||||
ClrHome
|
||||
Disp "WILL YOU BUY A"
|
||||
round(rand*2,0)→X
|
||||
If X=0
|
||||
Disp "BARRETTA"
|
||||
If X=1
|
||||
Disp "SATURDAY NIGHT","SPECIAL"
|
||||
If X=2
|
||||
Disp ".44 MAGNUM"
|
||||
Disp "FOR 400 DOLLARS?"
|
||||
Input X
|
||||
If X=1
|
||||
Then
|
||||
(I+1)→I
|
||||
(Z-400)→Z
|
||||
(T-5)→T
|
||||
(T-M-N-O-P-Q-R)→K
|
||||
End
|
||||
End
|
||||
End
|
||||
If D=16 and K≥8
|
||||
Then
|
||||
int((rand*7+1)→F
|
||||
ClrHome
|
||||
Disp "YOU FOUND:",F,"UNITS OF:"
|
||||
int((rand*5)→X
|
||||
If X=0
|
||||
Then
|
||||
Disp " LUDES"
|
||||
(R+F)→R
|
||||
End
|
||||
If X=1
|
||||
Then
|
||||
Disp " SPEED"
|
||||
(Q+F)→Q
|
||||
End
|
||||
If X=2
|
||||
Then
|
||||
Disp " WEED"
|
||||
(P+F)→P
|
||||
End
|
||||
If X=3
|
||||
Then
|
||||
Disp " ACID"
|
||||
(O+F)→O
|
||||
End
|
||||
If X=4
|
||||
Then
|
||||
Disp " HEROIN"
|
||||
(N+F)→N
|
||||
End
|
||||
If X=5
|
||||
Then
|
||||
Disp " COCAINE"
|
||||
(M+F)→M
|
||||
End
|
||||
Disp "ON A DEAD DUDE","IN THE SUBWAY!!!"
|
||||
(T-M-N-O-P-Q-R)→K
|
||||
Pause
|
||||
Goto A
|
||||
End
|
||||
If D=17
|
||||
Then
|
||||
ClrHome
|
||||
Disp "THE MARKET HAS","BEEN FLOODED","WITH CHEAP HOME-","MADE ACID!!!!"
|
||||
int((250+(rand*550))→A
|
||||
Pause
|
||||
Goto A
|
||||
End
|
||||
If D=9 or D=10 or D=11
|
||||
Then
|
||||
If (M+N+O+P+Q+R)≥50
|
||||
Then
|
||||
ClrHome
|
||||
If D=9
|
||||
1→D
|
||||
If D=10
|
||||
3→D
|
||||
If D=11
|
||||
4→D
|
||||
Disp "OFFICER HARDASS","AND",D,"OF HIS DEPUTIES","ARE AFTER YOU!"
|
||||
Pause
|
||||
ClrHome
|
||||
Lbl M
|
||||
Menu("BEING CHASED!!","VIEW GUNS",H,"VIEW DAMAGE",I,"NUMBER OF PIGS",J,"RUN",K,"FIGHT",L)
|
||||
Lbl H
|
||||
ClrHome
|
||||
Disp "NUMBER OF GUNS","YOU HAVE:"
|
||||
Disp I
|
||||
Pause
|
||||
Goto M
|
||||
Lbl I
|
||||
ClrHome
|
||||
Disp "YOUR DAMAGE="
|
||||
Disp J
|
||||
Disp "(50 DAMAGE AND","YOU DIE!)"
|
||||
Pause
|
||||
Goto M
|
||||
Lbl J
|
||||
ClrHome
|
||||
Disp "THERE ARE:"
|
||||
(D+1)→D
|
||||
Disp D
|
||||
(D-1)→D
|
||||
Disp "PIGS STILL","CHASING YOU!"
|
||||
Pause
|
||||
Goto M
|
||||
Lbl K
|
||||
ClrHome
|
||||
Disp "","","",""," RUNNING"
|
||||
round(rand*1,0)→X
|
||||
If X=0
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU LOST THEM IN","AN ALLEY!!"
|
||||
Pause
|
||||
If B=31
|
||||
Then
|
||||
Goto A
|
||||
Else
|
||||
Goto θ
|
||||
End
|
||||
End
|
||||
If X=1
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU CAN'T SHAKE","THEM!"
|
||||
Pause
|
||||
Goto O
|
||||
End
|
||||
Lbl L
|
||||
If I=0
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU DON'T HAVE","ANY GUNS!"
|
||||
Pause
|
||||
Disp "YOU HAVE TO RUN!"
|
||||
Pause
|
||||
Goto M
|
||||
Else
|
||||
round(rand*1,0)→X
|
||||
If X=0
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU MISSED!!!"
|
||||
Pause
|
||||
Else
|
||||
ClrHome
|
||||
Disp "YOU KILLED ONE!!"
|
||||
Pause
|
||||
(D-1)→D
|
||||
If D=(-1)
|
||||
Goto N
|
||||
End
|
||||
Lbl O
|
||||
round(rand*1,0)→X
|
||||
ClrHome
|
||||
Disp "THEY'RE FIRING","AT YOU!!"
|
||||
If X=0
|
||||
Then
|
||||
Disp "THEY MISSED!!"
|
||||
Pause
|
||||
Goto M
|
||||
Else
|
||||
Disp "YOU'VE BEEN HIT!"
|
||||
(J+3)→J
|
||||
Pause
|
||||
If J≥50
|
||||
Then
|
||||
Disp "YOU'VE BEEN ","KILLED!!"
|
||||
Pause
|
||||
Goto C
|
||||
End
|
||||
Goto M
|
||||
End
|
||||
Lbl N
|
||||
ClrHome
|
||||
Disp "YOU KILLED ALL","OF THEM!"
|
||||
int((rand*1250+750)→X
|
||||
(Z+X)→Z
|
||||
Pause
|
||||
Disp "YOU FOUND"
|
||||
Disp X
|
||||
Disp "DOLLARS ON","OFFICER HARDASS'","CARCASS!!"
|
||||
Pause
|
||||
If Z≥1200
|
||||
Then
|
||||
ClrHome
|
||||
Disp "WILL YOU PAY","1000 DOLLARS FOR","A DOCTOR TO SEW","YOU UP?"
|
||||
Input X
|
||||
If X=1
|
||||
Then
|
||||
(Z-1000)→Z
|
||||
0→J
|
||||
End
|
||||
End
|
||||
|
||||
End
|
||||
End
|
||||
End
|
||||
|
||||
Lbl A
|
||||
ClrHome
|
||||
Menu("DRUGWAR!","SEE PRICES",1,"TRENCHCOAT",2,"BUY",3,"SELL",4,"JET",5,"SEE LOAN SHARK",6,"VISIT BANK",7)
|
||||
Lbl 1
|
||||
ClrHome
|
||||
Disp C,H,A,W,S,L,Z
|
||||
Output(1,1,"COCAINE")
|
||||
Output(2,1,"HEROIN")
|
||||
Output(3,1,"ACID")
|
||||
Output(4,1,"WEED")
|
||||
Output(5,1,"SPEED")
|
||||
Output(6,1,"LUDES")
|
||||
Output(7,1,"WALLET")
|
||||
Pause
|
||||
Goto A
|
||||
Lbl 2
|
||||
ClrHome
|
||||
Disp M,N,O,P,Q,R,K
|
||||
Output(1,1,"COCAINE")
|
||||
Output(2,1,"HEROIN")
|
||||
Output(3,1,"ACID")
|
||||
Output(4,1,"WEED")
|
||||
Output(5,1,"SPEED")
|
||||
Output(6,1,"LUDES")
|
||||
Output(7,1,"FREE SPACE")
|
||||
Pause
|
||||
Goto A
|
||||
Lbl 3
|
||||
ClrHome
|
||||
Disp "DAY NUMBER:",B
|
||||
Input "WHAT TO BUY?",F
|
||||
If F≠C and F≠H and F≠A and F≠W and F≠S and F≠L
|
||||
Goto 3
|
||||
int((Z/F)→E
|
||||
Disp "HOW MUCH?","YOU CAN AFFORD:",E,"YOU CAN HOLD:",K
|
||||
Input G
|
||||
If G>K or G<0 or G>E
|
||||
Goto 3
|
||||
(Z-(FG))→Z
|
||||
If F=C
|
||||
(M+G)→M
|
||||
If F=H
|
||||
(N+G)→N
|
||||
If F=A
|
||||
(O+G)→O
|
||||
If F=W
|
||||
(P+G)→P
|
||||
If F=S
|
||||
(Q+G)→Q
|
||||
If F=L
|
||||
(R+G)→R
|
||||
(T-M-N-O-P-Q-R)→K
|
||||
Goto A
|
||||
Lbl 4
|
||||
ClrHome
|
||||
Disp "DAY NUMBER:",B
|
||||
Input "WHAT TO SELL?",F
|
||||
If F≠C and F≠H and F≠A and F≠W and F≠S and F≠L
|
||||
Goto 4
|
||||
If F=C
|
||||
M→E
|
||||
If F=H
|
||||
N→E
|
||||
If F=A
|
||||
O→E
|
||||
If F=W
|
||||
P→E
|
||||
If F=S
|
||||
Q→E
|
||||
If F=L
|
||||
R→E
|
||||
Disp "HOW MUCH?","YOU HAVE:",E
|
||||
Input G
|
||||
If G>E or G<0
|
||||
Goto 4
|
||||
If F=C
|
||||
(M-G)→M
|
||||
If F=H
|
||||
(N-G)→N
|
||||
If F=A
|
||||
(O-G)→O
|
||||
If F=W
|
||||
(P-G)→P
|
||||
If F=S
|
||||
(Q-G)→Q
|
||||
If F=L
|
||||
(R-G)→R
|
||||
(Z+FG)→Z
|
||||
(T-M-N-O-P-Q-R)→K
|
||||
Goto A
|
||||
Lbl 5
|
||||
ClrHome
|
||||
Menu("WHERE TO, DUDE?","BRONX",R,"GHETTO",B,"CENTRAL PARK",B,"MANHATTEN",B,"CONEY ISLAND",B,"BROOKLYN",B,"OOPS… STAY!",A)
|
||||
Lbl R
|
||||
If U=2
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU'RE ALREADY","IN THE BRONX!"
|
||||
Pause
|
||||
Goto 5
|
||||
End
|
||||
2→U
|
||||
|
||||
Goto S
|
||||
Lbl B
|
||||
1→U
|
||||
|
||||
Lbl S
|
||||
ClrHome
|
||||
Disp "","","",""," SUBWAY"
|
||||
(B+1)→B
|
||||
int((Y*1.1)→Y
|
||||
int((V*1.06)→V
|
||||
If B=31
|
||||
Goto C
|
||||
Goto θ
|
||||
Lbl 6
|
||||
If U=1
|
||||
Then
|
||||
ClrHome
|
||||
Disp "THE LOAN SHARK","ONLY DEALS IN","THE BRONX."
|
||||
Pause
|
||||
Goto A
|
||||
End
|
||||
ClrHome
|
||||
Menu("LOAN SHARK…","REPAY",P,"BORROW",Q)
|
||||
Lbl P
|
||||
ClrHome
|
||||
Disp "YOU'RE DEBT IS:",Y,"YOUR WALLET=",Z,"REPAY HOW MUCH?"
|
||||
Input F
|
||||
If F>Z or F<0 or F>Y
|
||||
Goto 6
|
||||
(Y-F)→Y
|
||||
(Z-F)→Z
|
||||
Goto A
|
||||
Lbl Q
|
||||
ClrHome
|
||||
Disp "YOUR DEBT=",Y,"YOUR WALLET=",Z,"BORROW HOW MUCH"
|
||||
Input "MORE?",F
|
||||
If F>5000
|
||||
Then
|
||||
ClrHome
|
||||
Disp "YOU THINK HE'S","CRAZY, MAN?!"
|
||||
Pause
|
||||
Goto Q
|
||||
End
|
||||
If F<0
|
||||
Goto 6
|
||||
(Y+F)→Y
|
||||
(Z+F)→Z
|
||||
Goto A
|
||||
Lbl 7
|
||||
If U=1
|
||||
Then
|
||||
ClrHome
|
||||
Disp "THE BANK IS IN","THE BRONX."
|
||||
Pause
|
||||
Goto A
|
||||
End
|
||||
Menu(" BANK ","VIEW ACCOUNT",D,"DEPOSIT",E,"WITHDRAW",F,"GOODBYE",A)
|
||||
Lbl D
|
||||
ClrHome
|
||||
Disp "YOUR ACCOUNT=",V
|
||||
Pause
|
||||
Goto 7
|
||||
Lbl E
|
||||
ClrHome
|
||||
Disp "HOW MUCH TO","DEPOSIT?","YOU HAVE:",Z
|
||||
Input G
|
||||
If G>Z or G<0
|
||||
Goto E
|
||||
(V+G)→V
|
||||
(Z-G)→Z
|
||||
Goto 7
|
||||
Lbl F
|
||||
ClrHome
|
||||
Disp "HOW MUCH TO","WITHDRAW?","ACCOUNT=",V
|
||||
Input X
|
||||
If X>V or X<0
|
||||
Goto F
|
||||
(V-X)→V
|
||||
(Z+X)→Z
|
||||
Goto 7
|
||||
Lbl C
|
||||
ClrHome
|
||||
Disp " GAME OVER!"
|
||||
(V+Z-Y)→V
|
||||
If V<0
|
||||
Then
|
||||
0→V
|
||||
Else
|
||||
(√(V/31.5)→V
|
||||
If V>100
|
||||
100→V
|
||||
End
|
||||
round(V,0)→V
|
||||
Disp "YOUR SCORE (ON A","SCALE OF 1 TO","100)=",V,""
|
||||
Pause
|
||||
Input "PLAY AGAIN?",V
|
||||
If V=1
|
||||
Goto G
|
||||
ClrHome
|
||||
Disp " THANKS FOR"," PLAYING!"
|
||||
Pause
|
||||
ClrHome
|
||||
Disp "","","REMEMBER:","","WATCH YOUR BACK."
|
||||
Pause
|
||||
Disp "","HAVE A NICE DAY!"
|
||||
Loading…
Reference in New Issue