07-18-2005, 06:17 AM
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
Not yet Snake! It's not over yet!