Posts: 354
Threads: 28
Joined: Feb 2004
I've got 5 projects that I'd like to try, but I really want to focus on one. What do you think I should do?
Not yet Snake! It's not over yet!
Posts: 354
Threads: 28
Joined: Feb 2004
a three way tie... hmph... I've got another thread with Dope Wars on it, but I'll put it on this as well, just so you can see what I have.
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
Not yet Snake! It's not over yet!
Posts: 1,057
Threads: 156
Joined: Aug 2003
drug war was lame i made my own rpg....it sucks ram but it was a good try.
Posts: 354
Threads: 28
Joined: Feb 2004
The reason why I posted the Drug Wars as an option on the poll was so I could work on improving it...What can I do to improve it?
Still have a 2 way tie....
Not yet Snake! It's not over yet!
Posts: 45
Threads: 9
Joined: Mar 2005
I don't know if it's what you were thinking of doing but, for Dope Wars I think it would be kool if you used what you've already got to make a non-text game, eg, make a small town/city with people wanting to buy and sell drugs and then maybe some imposters who are really police men and if you go to them to attempt to buy or sell drugs then it's the end of the game. For replayability you could randomly place the drug dealers in the game. I don't know, maybe you could expand it gradually. I think if you were gonna do it I wouldn't mind lending a hand (just an offer/idea) and if I were gonna do it I'd probably use ascii graphics using locate etc. I don't know what you've done with ascii but if you don't reckon it could look/feel good check out the ascii characters 1, 2, 177, 219. I think that they're the right ones.
Anyway, tell me what you think. If you'd rather not collaborate or use my ideas, that's kool but it just ocurred to me. You know what, I'm gonna start trying my idea now.
Jack
Posts: 354
Threads: 28
Joined: Feb 2004
I could try that, though I've never even tried to do anything like that before...thanks for the offer to help I may need it if I try it.
If you want to try it, go for it...use my code anyway you want by all means.
Not yet Snake! It's not over yet!
Posts: 45
Threads: 9
Joined: Mar 2005
Thanks, I'll keep you updated on what I do.
Jack
Posts: 354
Threads: 28
Joined: Feb 2004
Are you planning on the Screen 13 graphics bit? or a character type?
Not yet Snake! It's not over yet!
Posts: 45
Threads: 9
Joined: Mar 2005
I'm doing it in screen 7. I'm using the ASCII smily face (I'm no good at graphics with DATA statements so I just use ASCII). At the moment I'm working on a story. I've got a basic layout already for it that I've coded, now I'm just trying to work out a plot that will suck people in, any suggestions?
Jack
Posts: 354
Threads: 28
Joined: Feb 2004
hmmm, well you could go the Carl Johnson style, you were away from the drug gang or whatever for a couple years and want to come back to it. Umm, you could be an undercover cop, working your way to the head drug dealer. Maybe you could be working for a mercenaries or guerillas and you're selling drugs for money. The first one would probably go best with my code.
Not yet Snake! It's not over yet!
