Dope Wars

[Liquid Snake]

I've made a similar game to "Dope Wars" in QB. Here's the code. I'm all ears for suggestions.

Code:

REM DRUGWARS
REM BY TOM WHITE
REM STARTED 6/29/05
CLS
MONEY = 200
DAYS = 0
YDAY = 0
CIGS = 5
CIGARS = 50
POT = 100
COCAINE = 500
CTOBACCO = 30
SPECIALK = 100
METH = 300
PCP = 150
MORPHINE = 70
MOVE = 0
UCIGS = 0
UCIGARS = 0
UPOT = 0
UCOCAINE = 0
UCTOBACCO = 0
USPECIALK = 0
UMETH = 0
UPCP = 0
UMORPHINE = 0
OLDCIGS = 0
OLDCIGARS = 0
OLDPOT = 0
OLDCOCAINE = 0
OLDCTOBACCO = 0
OLDSPECIALK = 0
OLDMETH = 0
OLDPCP = 0
OLDMORPHINE = 0
PRINT
PRINT "                                    DRUG WARS"
PRINT
PRINT "                                   BY TOM WHITE"

PRINT
PRINT "THIS GAME IS AN IMITATION OF ' DOPEWARS ' EXCEPT THERE IS NO DAY LIMIT."
PRINT "MAKE AS MUCH MONEY AS POSSIBLE BY BUYING AND SELLING DRUGS."
PRINT "HAVE FUN"
PRINT
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO START"
SLEEP 200
DO
IF MOVE = 0 THEN GOSUB MAIN
IF MOVE = 1 THEN GOSUB MARKET
IF MOVE = 2 THEN GOSUB INVENTORY
IF MOVE = 3 THEN GOSUB SELL
IF MOVE = 4 THEN GOSUB STATS
IF MOVE = 5 THEN END

LOOP

MAIN:
CLS
PRINT "YOU ARE OUTSIDE THE MARKET AT THE MOMENT"
PRINT
PRINT "1. VIEW DRUG MARKET"
PRINT "2. VIEW DRUG INVENTORY"
PRINT "3. SELL DRUGS"
PRINT "4. VIEW STATS"
PRINT "5. QUIT"
PRINT "6. WAIT TILL TOMORROW"
INPUT X
IF X = 1 THEN MOVE = 1
IF X = 2 THEN MOVE = 2
IF X = 3 THEN MOVE = 3
IF X = 4 THEN MOVE = 4
IF X = 5 THEN END
IF X = 6 THEN
DAYS = DAYS + 1
YDAY = DAYS - 1
PRINT
PRINT "A DAY PASSES"
PRINT
SLEEP 10
END IF
RETURN

MARKET:
RANDOMIZE TIMER
IF (DAYS > 0) AND (DAYS > YDAY) THEN
CIGS = INT(RND * 30) + 4
CIGARS = INT(RND * 100) + 35
CTOBACCO = INT(RND * 60) + 20
MORPHINE = INT(RND * 100) + 40
POT = INT(RND * 200) + 75
PCP = INT(RND * 300) + 100
METH = INT(RND * 500) + 175
SPECIALK = INT(RND * 220) + 50
COCAINE = INT(RND * 800) + 300

C = INT(RND * 300) + 1
REM EXTREMES
IF C = 2 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CIGARETTS! PRICES HAVE GONE UP!"
CIGS = INT(RND * 200) + 50
SLEEP 2
ELSEIF C = 4 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CIGARS! PRICES HAVE GONE UP!"
CIGARS = INT(RND * 400) + 150
SLEEP 2
ELSEIF C = 7 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CHEWING TOBACCO! PRICES HAVE GONE UP!"
CTOBACCO = INT(RND * 300) + 75
SLEEP 2
ELSEIF C = 10 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON MORPHINE! PRICES HAVE GONE UP!"
MORPHINE = INT(RND * 210) + 100
SLEEP 2
ELSEIF C = 13 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON POT! PRICES HAVE GONE UP!"
POT = INT(RND * 500) + 300
SLEEP 2
ELSEIF C = 16 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON PCP! PRICES HAVE GONE UP!"
PCP = INT(RND * 700) + 300
SLEEP 2
ELSEIF C = 19 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CRYSTAL METH! PRICES HAVE GONE UP!"
METH = INT(RND * 1000) + 600
SLEEP 2
ELSEIF C = 30 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON SPECIAL K! PRICES HAVE GONE UP!"
SPECIALK = INT(RND * 600) + 400
SLEEP 2
ELSEIF C = 50 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON COCAINE! PRICES HAVE GONE UP!"
COCAINE = INT(RND * 3000) + 1500
SLEEP 2
ELSEIF C = 65 THEN
PRINT "THIEVES HAVE STOLEN CIGARETTES FROM THE LOCAL CONVENIENCE STORE AND"
PRINT "ARE SELLING IT CHEAP!"
CIGS = INT(RND * 5) + 1
SLEEP 3
ELSEIF C = 75 THEN
PRINT "THIEVES HAVE STOLEN CIGARS FROM THE LOCAL CONVENIENCE STORE AND"
PRINT "ARE SELLING IT CHEAP!"
CIGARS = INT(RND * 20) + 5
SLEEP 3
ELSEIF C = 78 THEN
PRINT "THIEVES HAVE STOLEN CHEWING TOBACCO FROM THE LOCAL CONVENIENCE STORE AND"
PRINT "ARE SELLING IT CHEAP!"
CTOBACCO = INT(RND * 20) + 3
SLEEP 3
ELSEIF (C = 90) OR (C = 91) THEN
PRINT "THIEVES HAVE STOLEN MORPHINE FROM THE LOCAL PHARMACY AND"
PRINT "ARE SELLING IT CHEAP!"
MORPHINE = INT(RND * 75) + 30
SLEEP 3
ELSEIF (C = 98) OR (C = 99) THEN
PRINT "THIEVES HAVE STOLEN POT FROM A LOCAL DRUG LORD AND ARE SELLING IT CHEAP!"
POT = INT(RND * 85) + 20
SLEEP 3
ELSEIF (C = 120) OR (C = 121) THEN
PRINT "THIEVES HAVE STOLEN PCP FROM THE LOCAL DRUG LORDS AND ARE SELLING IT CHEAP!"
PCP = INT(RND * 100) + 50
SLEEP 3
ELSEIF (C = 150) OR (C = 151) THEN
PRINT "SOMEONE IS MAKING CRYSTAL METH AND IS SELLING IT CHEAP!"
METH = INT(RND * 200) + 70
SLEEP 3
ELSEIF (C = 200) OR (C = 201) THEN
PRINT "SOMEONE IS MAKING SPECIAL K AND IS SELLING IT CHEAP!"
SPECIALK = INT(RND * 135) + 50
SLEEP 3
ELSEIF (C = 250) OR (C = 251) THEN
PRINT "SOMEONE STOLE COCAINE FROM A HIPPIE AND IS SELLING IT CHEAP!"
COCAINE = INT(RND * 300) + 50
SLEEP 3
ELSE
PRINT "THE USUAL INCREASES AND DECREASES..."
SLEEP 3
END IF
END IF

DO
CLS
PRINT "HERE ARE THE CURRENT VALUES OF DRUGS."
PRINT "NOTE, IF YOU BUY THE SAME PRODUCT WITH DIFFERENT PRICES, IT WILL"
PRINT "TAKE THE LATEST PRICE."
PRINT
PRINT "YOU HAVE "; MONEY; "DOLLARS."
PRINT
PRINT "1.CIGARETTES"; CIGS
PRINT "2.CIGARS"; CIGARS
PRINT "3.CHEWING TOBACCO"; CTOBACCO
PRINT "4.MORPHINE"; MORPHINE
PRINT "5.POT"; POT
PRINT "6.PCP"; PCP
PRINT "7.CRYSTAL METH"; METH
PRINT "8.SPECIAL K"; SPECIALK
PRINT "9.COCAINE"; COCAINE
PRINT
PRINT
PRINT "10. MAIN MENU"
PRINT
INPUT Y
IF (Y = 1) AND (MONEY > CIGS - 1) THEN
MONEY = MONEY - CIGS
UCIGS = UCIGS + 1
OLDCIGS = CIGS
PRINT "OK, YOU BOUGHT ONE BOX OF CIGARETTES."
ELSEIF (Y = 2) AND (MONEY > CIGARS - 1) THEN
MONEY = MONEY - CIGARS
UCIGARS = UCIGARS + 1
OLDCIGARS = CIGARS
PRINT "OK, YOU BOUGHT ONE BOX OF CIGARS."
ELSEIF (Y = 3) AND (MONEY > CTOBACCO - 1) THEN
MONEY = MONEY - CTOBACCO
UCTOBACCO = UCTOBACCO + 1
OLDCTOBACCO = CTOBACCO
PRINT "OK, YOU BOUGHT ONE BOX OF CHEWING TOBACCO."
ELSEIF (Y = 4) AND (MONEY > MORPHINE - 1) THEN
MONEY = MONEY - MORPHINE
UMORPHINE = UMORPHINE + 1
OLDMORPHINE = MORPHINE
PRINT "OK, YOU BOUGHT ONE BOX OF MORPHINE SYRINGES."
ELSEIF (Y = 5) AND (MONEY > POT - 1) THEN
MONEY = MONEY - POT
UPOT = UPOT + 1
OLDPOT = POT
PRINT "OK, YOU BOUGHT ONE BAG OF POT."
ELSEIF (Y = 6) AND (MONEY > PCP - 1) THEN
MONEY = MONEY - PCP
UPCP = UPCP + 1
OLDPCP = PCP
PRINT "OK, YOU BOUGHT PCP."
ELSEIF (Y = 7) AND (MONEY > METH - 1) THEN
MONEY = MONEY - METH
UMETH = UMETH + 1
OLDMETH = METH
PRINT "OK, YOU BOUGHT CRYSTAL METH."
ELSEIF (Y = 8) AND (MONEY > SPECIALK - 1) THEN
MONEY = MONEY - SPECIALK
USPECIALK = USPECIALK + 1
OLDSPECIALK = SPECIALK
PRINT "OK, YOU BOUGHT SOME SPECIAL K."
ELSEIF (Y = 9) AND (MONEY > COCAINE - 1) THEN
MONEY = MONEY - COCAINE
UCOCAINE = UCOCAINE + 1
OLDCOCAINE = COCAINE
PRINT "OK, YOU BOUGHT ONE BAG OF COCAINE."
ELSEIF (Y = 10) THEN
DAY = DAY + 1
MOVE = 0
ELSE
PRINT "EITHER A WRONG NUMBER OR YOU DON'T HAVE ENOUGH MONEY."
END IF
IF DAYS > YDAY THEN YDAY = DAYS
LOOP UNTIL Y = 10
RETURN

INVENTORY:
CLS
IF UCIGS > 0 THEN PRINT "CIGARETTES:      "; UCIGS; " BOUGHT AT "; OLDCIGS
IF UCIGARS > 0 THEN PRINT "CIGARS:          "; UCIGARS; " BOUGHT AT "; OLDCIGARS
IF UCTOBACCO > 0 THEN PRINT "CHEWING TOBACCO: "; UCTOBACCO; " BOUGHT AT "; OLDCTOBACCO
IF UMORPHINE > 0 THEN PRINT "MORPHINE:        "; UMORPHINE; " BOUGHT AT "; OLDMORPHINE
IF UPOT > 0 THEN PRINT "POT:             "; UPOT; " BOUGHT AT "; OLDPOT
IF UPCP > 0 THEN PRINT "PCP:             "; UPCP; " BOUGHT AT "; OLDPCP
IF UMETH > 0 THEN PRINT "CRYSTAL METH:   "; UMETH; "BOUGHT AT "; OLDMETH
IF USPECIALK > 0 THEN PRINT "SPECIAL K:       "; USPECIALK; " BOUGHT AT "; OLDSPECIALK
IF UCOCAINE > 0 THEN PRINT "COCAINE:        "; UCOCAINE; " BOUGHT AT "; OLDCOCAINE
PRINT
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
MOVE = 0
SLEEP 100
RETURN

SELL:
DO
CLS
PRINT "MONEY:      "; MONEY
PRINT
PRINT
PRINT "1. CIGARETTES       "; UCIGS
PRINT "2. CIGARS           "; UCIGARS
PRINT "3. CHEWING TOBACCO  "; UCTOBACCO
PRINT "4. MORPHINE         "; UMORPHINE
PRINT "5. POT              "; UPOT
PRINT "6. PCP              "; UPCP
PRINT "7. CRYSTAL METH     "; UMETH
PRINT "8. SPECIAL K        "; USPECIALK
PRINT "9. COCAINE          "; UCOCAINE
PRINT
PRINT "10. MAIN MENU"
PRINT
INPUT "WHAT DO YOU WANT TO SELL?"; Y
IF (Y = 1) AND (UCIGS > 0) THEN
MONEY = MONEY + CIGS
UCIGS = UCIGS - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 2) AND (UCIGARS > 0) THEN
MONEY = MONEY + CIGARS
UCIGARS = UCIGARS - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 3) AND (UCTOBACCO > 0) THEN
MONEY = MONEY + CTOBACCO
UCTOBACCO = UCTOBACCO - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 4) AND (UMORPHINE > 0) THEN
MONEY = MONEY + MORPHINE
UMORPHINE = UMORPHINE - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 5) AND (UPOT > 0) THEN
MONEY = MONEY + POT
UPOT = UPOT - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 6) AND (UPCP > 0) THEN
MONEY = MONEY + PCP
UPCP = UPCP - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 7) AND (UMETH > 0) THEN
MONEY = MONEY + METH
UMETH = UMETH - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 8) AND (USPECIALK > 0) THEN
MONEY = MONEY + SPECIALK
USPECIALK = USPECIALK - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 9) AND (UCOCAINE > 0) THEN
MONEY = MONEY + COCAINE
UCOCAINE = UCOCAINE - 1
PRINT "OK"
SLEEP 1
ELSEIF Y = 10 THEN
MOVE = 0
PRINT "OK"
SLEEP 1
ELSE
PRINT "EITHER YOU DON'T HAVE ANY OR YOU PICKED A WRONG NUMBER"
SLEEP 10
END IF
LOOP UNTIL Y = 10
RETURN

STATS:
CLS
PRINT
PRINT "MONEY:               "; MONEY
PRINT "DAYS GONE BY:        "; DAYS
IF UCIGS > 0 THEN PRINT "CIGARETTES:      "; UCIGS; " BOUGHT AT "; OLDCIGS
IF UCIGARS > 0 THEN PRINT "CIGARS:          "; UCIGARS; " BOUGHT AT "; OLDCIGARS
IF UCTOBACCO > 0 THEN PRINT "CHEWING TOBACCO  "; UCTOBACCO; " BOUGHT AT "; OLDCTOBACCO
IF UMORPHINE > 0 THEN PRINT "MORPHINE:        "; UMORPHINE; " BOUGHT AT "; OLDMORPHINE
IF UPOT > 0 THEN PRINT "POT:             "; UPOT; " BOUGHT AT "; OLDPOT
IF UPCP > 0 THEN PRINT "PCP:             "; UPCP; " BOUGHT AT "; OLDPCP
IF UMETH > 0 THEN PRINT "CRYSTAL METH:   "; UMETH; "BOUGHT AT "; OLDMETH
IF USPECIALK > 0 THEN PRINT "SPECIAL K:       "; USPECIALK; " BOUGHT AT "; OLDSPECIALK
IF UCOCAINE > 0 THEN PRINT "COCAINE:        "; UCOCAINE; " BOUGHT AT "; OLDCOCAINE
MOVE = 0
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 300
RETURN

[Dio]

good except having to go thru each menu to do something, instead of it all up front but hidden away for one to search for. if i wanted to buy/sell for more that one item, i couldn't. it had to be done one at a time. i think thats all...not so bad, this actually reminds me of my imitation Lemon aide stand game i made a while back. i liked it but i never finished because i couldn't get the buy/sell algorithm to work. to many buys, to little. Hmmm

[Liquid Snake]

If Qbasic could hold more memory, I might attempt something like that. I mean it's not that hard to get from place to place, just a little inconvenient. I've been trying to make an object to this game as well, but I can't think of one.

[Liquid Snake]

updated:

Code:

REM DRUGWARS
REM BY TOM WHITE
REM STARTED 6/29/05
CLS
RAID = 0
DISTANCE = 0
HITS = 0
HITSTAKEN = 0
MONEY = 200
DAYS = 0
YDAY = 0
CIGS = 5
CIGARS = 50
POT = 100
COCAINE = 500
CTOBACCO = 30
SPECIALK = 100
METH = 300
PCP = 150
MORPHINE = 70
MOVE = 0
UCIGS = 0
UCIGARS = 0
UPOT = 0
UCOCAINE = 0
UCTOBACCO = 0
USPECIALK = 0
UMETH = 0
UPCP = 0
UMORPHINE = 0
OLDCIGS = 0
OLDCIGARS = 0
OLDPOT = 0
OLDCOCAINE = 0
OLDCTOBACCO = 0
OLDSPECIALK = 0
OLDMETH = 0
OLDPCP = 0
OLDMORPHINE = 0
PRINT
PRINT "                                    DRUG WARS"
PRINT
PRINT "                                   BY TOM WHITE"

PRINT
PRINT "THIS GAME IS AN IMITATION OF ' DOPEWARS ' EXCEPT THERE IS NO DAY LIMIT."
PRINT "MAKE AS MUCH MONEY AS POSSIBLE BY BUYING AND SELLING DRUGS."
PRINT "HAVE FUN"
PRINT
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO START"
SLEEP 200
DO
IF MOVE = 0 THEN GOSUB MAIN
IF MOVE = 1 THEN GOSUB MARKET
IF MOVE = 2 THEN GOSUB INVENTORY
IF MOVE = 3 THEN GOSUB SELL
IF MOVE = 4 THEN GOSUB STATS
IF MOVE = 5 THEN END

LOOP

MAIN:
CLS
PRINT "YOU ARE OUTSIDE THE MARKET AT THE MOMENT"
PRINT
PRINT "1. VIEW DRUG MARKET"
PRINT "2. VIEW DRUG INVENTORY"
PRINT "3. SELL DRUGS"
PRINT "4. VIEW STATS"
PRINT "5. QUIT"
PRINT "6. WAIT TILL TOMORROW"
INPUT X
IF X = 1 THEN MOVE = 1
IF X = 2 THEN MOVE = 2
IF X = 3 THEN MOVE = 3
IF X = 4 THEN MOVE = 4
IF X = 5 THEN END
IF X = 6 THEN
DAYS = DAYS + 1
YDAY = DAYS - 1
RAID = 0
PRINT
PRINT "A DAY PASSES"
PRINT
SLEEP 10
END IF
RETURN

MARKET:
RANDOMIZE TIMER
IF (DAYS > 0) AND (DAYS > YDAY) THEN
CIGS = INT(RND * 30) + 4
CIGARS = INT(RND * 100) + 35
CTOBACCO = INT(RND * 60) + 20
MORPHINE = INT(RND * 100) + 40
POT = INT(RND * 200) + 75
PCP = INT(RND * 300) + 100
METH = INT(RND * 500) + 175
SPECIALK = INT(RND * 220) + 50
COCAINE = INT(RND * 800) + 300

C = INT(RND * 300) + 1
REM EXTREMES
IF C = 2 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CIGARETTS! PRICES HAVE GONE UP!"
CIGS = INT(RND * 200) + 50
SLEEP 2
ELSEIF C = 4 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CIGARS! PRICES HAVE GONE UP!"
CIGARS = INT(RND * 400) + 150
SLEEP 2
ELSEIF C = 7 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CHEWING TOBACCO! PRICES HAVE GONE UP!"
CTOBACCO = INT(RND * 300) + 75
SLEEP 2
ELSEIF C = 10 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON MORPHINE! PRICES HAVE GONE UP!"
MORPHINE = INT(RND * 210) + 100
SLEEP 2
ELSEIF C = 13 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON POT! PRICES HAVE GONE UP!"
POT = INT(RND * 500) + 300
SLEEP 2
ELSEIF C = 16 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON PCP! PRICES HAVE GONE UP!"
PCP = INT(RND * 700) + 300
SLEEP 2
ELSEIF C = 19 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON CRYSTAL METH! PRICES HAVE GONE UP!"
METH = INT(RND * 1000) + 600
SLEEP 2
ELSEIF C = 30 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON SPECIAL K! PRICES HAVE GONE UP!"
SPECIALK = INT(RND * 600) + 400
SLEEP 2
ELSEIF C = 50 THEN
PRINT "THERE HAS BEEN A DRUG RAID ON COCAINE! PRICES HAVE GONE UP!"
COCAINE = INT(RND * 3000) + 1500
SLEEP 2
ELSEIF C = 65 THEN
PRINT "THIEVES HAVE STOLEN CIGARETTES FROM THE LOCAL CONVENIENCE STORE AND"
PRINT "ARE SELLING IT CHEAP!"
CIGS = INT(RND * 5) + 1
SLEEP 3
ELSEIF C = 75 THEN
PRINT "THIEVES HAVE STOLEN CIGARS FROM THE LOCAL CONVENIENCE STORE AND"
PRINT "ARE SELLING IT CHEAP!"
CIGARS = INT(RND * 20) + 5
SLEEP 3
ELSEIF C = 78 THEN
PRINT "THIEVES HAVE STOLEN CHEWING TOBACCO FROM THE LOCAL CONVENIENCE STORE AND"
PRINT "ARE SELLING IT CHEAP!"
CTOBACCO = INT(RND * 20) + 3
SLEEP 3
ELSEIF (C = 90) OR (C = 91) THEN
PRINT "THIEVES HAVE STOLEN MORPHINE FROM THE LOCAL PHARMACY AND"
PRINT "ARE SELLING IT CHEAP!"
MORPHINE = INT(RND * 75) + 30
SLEEP 3
ELSEIF (C = 98) OR (C = 99) THEN
PRINT "THIEVES HAVE STOLEN POT FROM A LOCAL DRUG LORD AND ARE SELLING IT CHEAP!"
POT = INT(RND * 85) + 20
SLEEP 3
ELSEIF (C = 120) OR (C = 121) THEN
PRINT "THIEVES HAVE STOLEN PCP FROM THE LOCAL DRUG LORDS AND ARE SELLING IT CHEAP!"
PCP = INT(RND * 100) + 50
SLEEP 3
ELSEIF (C = 150) OR (C = 151) THEN
PRINT "SOMEONE IS MAKING CRYSTAL METH AND IS SELLING IT CHEAP!"
METH = INT(RND * 200) + 70
SLEEP 3
ELSEIF (C = 200) OR (C = 201) THEN
PRINT "SOMEONE IS MAKING SPECIAL K AND IS SELLING IT CHEAP!"
SPECIALK = INT(RND * 135) + 50
SLEEP 3
ELSEIF (C = 250) OR (C = 251) THEN
PRINT "SOMEONE STOLE COCAINE FROM A HIPPIE AND IS SELLING IT CHEAP!"
COCAINE = INT(RND * 300) + 50
SLEEP 3
ELSE
PRINT "THE USUAL INCREASES AND DECREASES..."
SLEEP 3
END IF
END IF

DO
CLS
PRINT "HERE ARE THE CURRENT VALUES OF DRUGS."
PRINT "NOTE, IF YOU BUY THE SAME PRODUCT WITH DIFFERENT PRICES, IT WILL"
PRINT "TAKE THE LATEST PRICE."
PRINT
PRINT "YOU HAVE "; MONEY; "DOLLARS."
PRINT
PRINT "1.CIGARETTES"; CIGS
PRINT "2.CIGARS"; CIGARS
PRINT "3.CHEWING TOBACCO"; CTOBACCO
PRINT "4.MORPHINE"; MORPHINE
PRINT "5.POT"; POT
PRINT "6.PCP"; PCP
PRINT "7.CRYSTAL METH"; METH
PRINT "8.SPECIAL K"; SPECIALK
PRINT "9.COCAINE"; COCAINE
PRINT
PRINT
PRINT "10. MAIN MENU"
PRINT
INPUT Y
IF (Y = 1) AND (MONEY > CIGS - 1) THEN
MONEY = MONEY - CIGS
UCIGS = UCIGS + 1
OLDCIGS = CIGS
PRINT "OK, YOU BOUGHT ONE BOX OF CIGARETTES."
ELSEIF (Y = 2) AND (MONEY > CIGARS - 1) THEN
MONEY = MONEY - CIGARS
UCIGARS = UCIGARS + 1
OLDCIGARS = CIGARS
PRINT "OK, YOU BOUGHT ONE BOX OF CIGARS."
ELSEIF (Y = 3) AND (MONEY > CTOBACCO - 1) THEN
MONEY = MONEY - CTOBACCO
UCTOBACCO = UCTOBACCO + 1
OLDCTOBACCO = CTOBACCO
PRINT "OK, YOU BOUGHT ONE BOX OF CHEWING TOBACCO."
ELSEIF (Y = 4) AND (MONEY > MORPHINE - 1) THEN
MONEY = MONEY - MORPHINE
UMORPHINE = UMORPHINE + 1
OLDMORPHINE = MORPHINE
PRINT "OK, YOU BOUGHT ONE BOX OF MORPHINE SYRINGES."
ELSEIF (Y = 5) AND (MONEY > POT - 1) THEN
MONEY = MONEY - POT
UPOT = UPOT + 1
OLDPOT = POT
PRINT "OK, YOU BOUGHT ONE BAG OF POT."
ELSEIF (Y = 6) AND (MONEY > PCP - 1) THEN
MONEY = MONEY - PCP
UPCP = UPCP + 1
OLDPCP = PCP
PRINT "OK, YOU BOUGHT PCP."
ELSEIF (Y = 7) AND (MONEY > METH - 1) THEN
MONEY = MONEY - METH
UMETH = UMETH + 1
OLDMETH = METH
PRINT "OK, YOU BOUGHT CRYSTAL METH."
ELSEIF (Y = 8) AND (MONEY > SPECIALK - 1) THEN
MONEY = MONEY - SPECIALK
USPECIALK = USPECIALK + 1
OLDSPECIALK = SPECIALK
PRINT "OK, YOU BOUGHT SOME SPECIAL K."
ELSEIF (Y = 9) AND (MONEY > COCAINE - 1) THEN
MONEY = MONEY - COCAINE
UCOCAINE = UCOCAINE + 1
OLDCOCAINE = COCAINE
PRINT "OK, YOU BOUGHT ONE BAG OF COCAINE."
ELSEIF (Y = 10) THEN
DAY = DAY + 1
MOVE = 0
ELSE
PRINT "EITHER A WRONG NUMBER OR YOU DON'T HAVE ENOUGH MONEY."
END IF
IF DAYS > YDAY THEN YDAY = DAYS
SLEEP 80
LOOP UNTIL Y = 10
RETURN

INVENTORY:
CLS
IF UCIGS > 0 THEN PRINT "CIGARETTES:      "; UCIGS; " BOUGHT AT "; OLDCIGS
IF UCIGARS > 0 THEN PRINT "CIGARS:          "; UCIGARS; " BOUGHT AT "; OLDCIGARS
IF UCTOBACCO > 0 THEN PRINT "CHEWING TOBACCO: "; UCTOBACCO; " BOUGHT AT "; OLDCTOBACCO
IF UMORPHINE > 0 THEN PRINT "MORPHINE:        "; UMORPHINE; " BOUGHT AT "; OLDMORPHINE
IF UPOT > 0 THEN PRINT "POT:             "; UPOT; " BOUGHT AT "; OLDPOT
IF UPCP > 0 THEN PRINT "PCP:             "; UPCP; " BOUGHT AT "; OLDPCP
IF UMETH > 0 THEN PRINT "CRYSTAL METH:   "; UMETH; "BOUGHT AT "; OLDMETH
IF USPECIALK > 0 THEN PRINT "SPECIAL K:       "; USPECIALK; " BOUGHT AT "; OLDSPECIALK
IF UCOCAINE > 0 THEN PRINT "COCAINE:        "; UCOCAINE; " BOUGHT AT "; OLDCOCAINE
PRINT
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
MOVE = 0
SLEEP 100
RETURN

SELL:
RANDOMIZE TIMER
COPS = INT(RND * 1000) + 1
IF (COPS < 100) AND (RAID = 0) THEN
PRINT "IT'S A DRUG RAID!"
PRINT "COPS ARE EVERYWHERE!"
PRINT "WHAT ARE YOU GOING TO DO?"
DO
PRINT "1. RUN"
PRINT "2. SHOOT AT THEM"
INPUT ESCAPE
IF ESCAPE = 1 THEN
Y = INT(RND * 100) + 1
IF Y > 75 THEN
PRINT "THEY SHOT AT YOU AND MISSED, YOU GAINED SOME DISTANCE"
DISTANCE = DISTANCE + 1
ELSEIF (Y > 49) AND (Y < 76) THEN
PRINT "THEY SHOT YOU, YOU'RE GETTING WEAKER, AND YOU PUT NO DISTANCE "
PRINT "BETWEEN THEM AND YOU."
HITSTAKEN = HITSTAKEN + 1
ELSEIF Y < 50 THEN
PRINT "YOU PUT SOME DISTANCE BETWEEN YOU AND THE COPS WITH EASE."
DISTANCE = DISTANCE + 1
END IF
ELSEIF ESCAPE = 2 THEN
V = INT(RND * 100) + 1
IF V > 75 THEN
PRINT "YOU SHOOT AT THEM AND MISS"
ELSEIF (V > 49) AND (V < 76) THEN
PRINT "YOU SHOOT AND MISS, BUT THEY SHOOT BACK AND HIT YOU"
PRINT "YOU ARE BECOMING WEAKER"
HITSTAKEN = HITSTAKEN + 1
ELSEIF V < 50 THEN
PRINT "YOU SHOOT AND HIT ONE OF THE FIVE OFFICERS"
HITS = HITS + 1
END IF
ELSE
PRINT "NOT AN OPTION."
END IF
IF HITSTAKEN = 5 THEN
PRINT "AFTER THE FIFTH HIT, YOU FALL UNCONSCIOUS."
PRINT "YOU WAKE UP IN A HOSPITAL WITH ALL YOUR DRUGS GONE AND SOME"
PRINT "MONEY STOLEN."
UCIGS = 0
UCIGARS = 0
UPOT = 0
UCOCAINE = 0
UCTOBACCO = 0
USPECIALK = 0
UMETH = 0
UPCP = 0
UMORPHINE = 0
OLDCIGS = 0
OLDCIGARS = 0
OLDPOT = 0
OLDCOCAINE = 0
OLDCTOBACCO = 0
OLDSPECIALK = 0
OLDMETH = 0
OLDPCP = 0
OLDMORPHINE = 0
MONEY = INT(MONEY / 2)
END IF
LOOP UNTIL (DISTANCE = 5) OR (HITS = 5) OR (HITSTAKEN = 5)
HITSTAKEN = 0
HITS = 0
DISTANCE = 0
RAID = 1
END IF
DO
CLS
PRINT "MONEY:      "; MONEY
PRINT
PRINT
PRINT "1. CIGARETTES       "; UCIGS
PRINT "2. CIGARS           "; UCIGARS
PRINT "3. CHEWING TOBACCO  "; UCTOBACCO
PRINT "4. MORPHINE         "; UMORPHINE
PRINT "5. POT              "; UPOT
PRINT "6. PCP              "; UPCP
PRINT "7. CRYSTAL METH     "; UMETH
PRINT "8. SPECIAL K        "; USPECIALK
PRINT "9. COCAINE          "; UCOCAINE
PRINT
PRINT "10. MAIN MENU"
PRINT
INPUT "WHAT DO YOU WANT TO SELL?"; Y
IF (Y = 1) AND (UCIGS > 0) THEN
MONEY = MONEY + CIGS
UCIGS = UCIGS - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 2) AND (UCIGARS > 0) THEN
MONEY = MONEY + CIGARS
UCIGARS = UCIGARS - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 3) AND (UCTOBACCO > 0) THEN
MONEY = MONEY + CTOBACCO
UCTOBACCO = UCTOBACCO - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 4) AND (UMORPHINE > 0) THEN
MONEY = MONEY + MORPHINE
UMORPHINE = UMORPHINE - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 5) AND (UPOT > 0) THEN
MONEY = MONEY + POT
UPOT = UPOT - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 6) AND (UPCP > 0) THEN
MONEY = MONEY + PCP
UPCP = UPCP - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 7) AND (UMETH > 0) THEN
MONEY = MONEY + METH
UMETH = UMETH - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 8) AND (USPECIALK > 0) THEN
MONEY = MONEY + SPECIALK
USPECIALK = USPECIALK - 1
PRINT "OK"
SLEEP 1
ELSEIF (Y = 9) AND (UCOCAINE > 0) THEN
MONEY = MONEY + COCAINE
UCOCAINE = UCOCAINE - 1
PRINT "OK"
SLEEP 1
ELSEIF Y = 10 THEN
MOVE = 0
PRINT "OK"
SLEEP 1
ELSE
PRINT "EITHER YOU DON'T HAVE ANY OR YOU PICKED A WRONG NUMBER"
SLEEP 10
END IF
LOOP UNTIL Y = 10
RETURN

STATS:
CLS
PRINT
PRINT "MONEY:               "; MONEY
PRINT "DAYS GONE BY:        "; DAYS
IF UCIGS > 0 THEN PRINT "CIGARETTES:      "; UCIGS; " BOUGHT AT "; OLDCIGS
IF UCIGARS > 0 THEN PRINT "CIGARS:          "; UCIGARS; " BOUGHT AT "; OLDCIGARS
IF UCTOBACCO > 0 THEN PRINT "CHEWING TOBACCO  "; UCTOBACCO; " BOUGHT AT "; OLDCTOBACCO
IF UMORPHINE > 0 THEN PRINT "MORPHINE:        "; UMORPHINE; " BOUGHT AT "; OLDMORPHINE
IF UPOT > 0 THEN PRINT "POT:             "; UPOT; " BOUGHT AT "; OLDPOT
IF UPCP > 0 THEN PRINT "PCP:             "; UPCP; " BOUGHT AT "; OLDPCP
IF UMETH > 0 THEN PRINT "CRYSTAL METH:   "; UMETH; "BOUGHT AT "; OLDMETH
IF USPECIALK > 0 THEN PRINT "SPECIAL K:       "; USPECIALK; " BOUGHT AT "; OLDSPECIALK
IF UCOCAINE > 0 THEN PRINT "COCAINE:        "; UCOCAINE; " BOUGHT AT "; OLDCOCAINE
MOVE = 0
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 300
RETURN