a$ = "sherlock holmes"
B$ = "ymca"
skills = 50
hp = 90
stuff = 50
B = 50
c = 1943
pressk = 0
z = 15
y = 30
x = 45
w = 75
v = 120
u = 300
you = 50
youfight = 200
oppfight = 200
master = 75
CLS
SCREEN 9
SLEEP 10
CLS
RANDOMIZE TIMER
SCREEN 9
COLOR 5, 0
PRINT "$$    $$    $$pyygqypy$$    $$$$pyyg$$pyyg pyyg$$$$pyyg"
PRINT "$$pyyg$$    $$  $$$$  $$pyyg$$$$  $$$$  $$ $$  $$$$  $$"
PRINT "$$  $$$$  $$$$**  $$  $$$$  $$$$**  $$  $$   **$$$$**$$"
PRINT "$$  $$$$  $$$$  $$$$  $$$$  $$$$  $$$$     $$  $$$$  $$"
PRINT "$$pg$$$$pg$$$$pg$$$$  $$$$pg$$$$pg$$$$     $$pg$$$$pg$$"
PRINT "$$pyyg$$gpyggpyq$$$$pyygpyyg$$$$  $$ $$pyyggyyg$$ $$gyyg$$    $$pyyg"
PRINT "$$  $$$$  $$$$  $$$$  $$$$  $$$$g*üü $$  $$$$  $$ $$  $$$$    $$  $$"
PRINT "$$py$$$$  $$$$  $$$$py$$$$    $$7*yy $$  $$$$  $$ $$  $$$$pyyg$$**  "
PRINT "$$  $$$$  ^^^^  $$$$  $$$$  $$$$  $$ $$  $$$$**       $$$$  $$$$  $$"
PRINT "$$  $$$$        $$$$  $$$$py$$$$  $$ $$py$$$$         $$$$  $$$$pg$$"
PRINT "$$pyyg$$pyyg$$pyyg$$pyygpyyg$$$$$$pyyg     $$$$pyygpyyg$$$$pyygpyyg$$$$pyyg"
PRINT "$$  $$$$  $$$$  $$$$  $$$$  $$^^$$  $$     $$$$  $$$$  $$$$  $$$$  $$$$  $$"
PRINT "$$pyyg$$py$$$$  $$$$pg$$$$  $$$$$$     pyyg$$$$pg$$$$  $$$$    $$**  $$  $$"
PRINT "py  $$$$  $$    $$$$  $$$$  $$$$$$  $$ $$  $$$$  $$$$  $$$$  $$$$  $$$$    "
PRINT "$$pg$$$$  $$    $$$$  $$$$  $$$$$$py$$ $$py$$$$  $$$$  $$$$pg$$$$pg$$$$    "
PRINT
PRINT
PRINT
PRINT
COLOR 4, 0
LOCATE 15, 15: PRINT "this is a blender entry coded in qbasic!ereet"
LOCATE 16, 15: PRINT "it is a rpg like exitilius(door game), or like"
LOCATE 17, 15: PRINT "lord. however it has a deeper meaning. it is "
LOCATE 18, 23: PRINT "more like the attack of killer dancers on"
LOCATE 20, 23: PRINT "weed, and it takes place in London. have fun."
SLEEP 10
CLS
PRINT "Welcome to the realm of London, "; a$; "."
PRINT "This realm is one like none other you have ever encountered."
PRINT "You have never encountered such a place of scum, villianry,"
PRINT "and wild dancers "; a$; "."
SLEEP 10
COLOR 2, 0
0 CLS
PRINT a$; "'s STATUS"
PRINT "dancing ablility: "; a; "/"; hp
PRINT "dancing expirence: "; B
PRINT "level of ymca membership: "; c
PRINT "lines of coke: "; gp
PRINT "job: "; B$
SLEEP 15
1 CLS
COLOR 15, 0
LOCATE 3, 3: PRINT "[f]ight dancers."
LOCATE 3, 25: PRINT "[v]isit the membership office."
LOCATE 3, 54: PRINT "[c]heck your status."
LOCATE 4, 29: PRINT "[a]ttack a fellow dancer."
LOCATE 6, 29: PRINT "[q]uit for now, sissy ass son of a bitch."
LOCATE 9, 3: PRINT "What do you wanna do punk?"
DO
user.key$ = INKEY$
SELECT CASE UCASE$(user.key$)
CASE "C": GOTO 0
CASE "F": GOTO 2
CASE "V": GOTO 60
CASE "Q": CLS : GOTO 10000
CASE "W": GOTO 500
CASE "A": GOTO 20000
CASE "K": pressk = pressk + 1: a = a + 100: hp = hp + 100: you = you + 25: mp = mp + 50: mp2 = mp2 + 50
CASE "B": GOTO 30000
CASE "M": gp = gp + 1000
END SELECT
LOOP UNTIL (UCASE$(user.key$) = "q")
2 CLS
store = INT(RND(1) * 6) + 1
IF store = 1 THEN GOTO 2.15
IF store = 2 THEN GOTO 2.15
IF store = 3 THEN GOTO 2.15
IF store = 4 THEN GOTO 2.15
IF store = 5 THEN GOTO 30000
IF store = 6 THEN GOTO 2.15
2.15 z = z - z + 15
y = y - y + 30
x = x - x + 45
w = w - w + 75
v = v - v + 120
LOCATE 2, 29: PRINT "at the rave"
LOCATE 6, 20: PRINT "[l]ook for someone who is trying to outdance you."
LOCATE 7, 20: PRINT "[h]eal yourself with a bong."
LOCATE 8, 24: PRINT "[r]eturn to the street."
2.1 LOCATE 10, 19: INPUT "so, what do you wanna do? (l/h/r)"; D$
IF D$ <> "l" THEN GOTO 2.2
GOTO 3
2.2 IF D$ <> "h" THEN GOTO 1
GOTO 100
3 D = INT(RND(1) * 6) + 1
IF D = 1 THEN GOTO 10
IF D = 2 THEN GOTO 20
IF D = 3 THEN GOTO 30
IF D = 4 THEN GOTO 40
IF D = 5 THEN GOTO 50
IF D = 6 THEN GOTO 50
10 CLS
LOCATE 10, 20: PRINT a$; a; "   the dj "; z
LOCATE 11, 20: INPUT "attack or run (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you) + 1
z = z - e
IF z < 1 THEN B = B + 15: gp = gp + 500: GOTO 2
IF z > 0 THEN GOTO 11
11 f = INT(RND(1) * 10) + 1
a = a - f
IF a < 1 THEN GOTO 10000
IF a > 0 THEN GOTO 10
20 CLS
LOCATE 10, 20: PRINT a$; a; "  crack dealer "; y
LOCATE 11, 20: INPUT "attack or run (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you)
y = y - e
IF y < 1 THEN B = B + 30: gp = gp + 750: GOTO 2
IF y > 0 THEN GOTO 21
21 f = INT(RND(1) * 15)
a = a - f
IF a < 1 THEN GOTO 10000
IF a > 0 THEN GOTO 20
30 CLS
LOCATE 10, 20: PRINT a$; a; "   huge drunk "; x
LOCATE 11, 20: INPUT "attack or run (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you) + 1
x = x - e
IF x < 1 THEN B = B + 50: gp = gp + 1000: GOTO 2
IF x > 0 THEN GOTO 31
31 f = INT(RND(1) * 20) + 1
a = a - f
IF a < 1 THEN GOTO 10000
IF a > 0 THEN GOTO 30
40 CLS
LOCATE 10, 20: PRINT a$; a; "   ymca accountant "; w
LOCATE 11, 20: INPUT "attack or run (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you) + 1
w = w - e
IF w < 1 THEN B = B + 75: gp = gp + 2500: GOTO 2
IF w > 0 THEN GOTO 41
41 f = INT(RND(1) * 25) + 1
a = a - f
IF a < 1 THEN GOTO 10000
IF a > 0 THEN GOTO 40
50 CLS
LOCATE 10, 20: PRINT a$; a; "   ymca owner "; v
LOCATE 11, 20: INPUT "ATTACK OR RUN (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you) + 1
v = v - e
IF v < 1 THEN B = B + 75: gp = gp + 5000: GOTO 2
IF v > 0 THEN GOTO 51
51 f = INT(RND(1) * 30) + 1
a = a - f
IF a < 1 THEN GOTO 10000
IF a > 0 THEN GOTO 50
60
CLS
IF c = 1 AND B < 250 THEN PRINT "YOU NEED "; 250 - B; " MORE EXPERIENCE POINTS.": SLEEP 5: GOTO 0
IF c = 2 AND B < 500 THEN PRINT "YOU NEED "; 500 - B; " MORE EXPERIENCE POINTS.": SLEEP 5: GOTO 0
IF c = 3 AND B < 1000 THEN PRINT "YOU NEED "; 1000 - B; " MORE EXPERIENCE POINTS.": SLEEP 5: GOTO 0
IF c = 4 AND B < 5000 THEN PRINT "YOU NEED "; 5000 - B; " MORE EXPERIENCE POINTS.": SLEEP 5: GOTO 0
CLS
INPUT "do you want to get higher membership? (y/n)"; level$
IF level$ <> "y" THEN GOTO 1
LOCATE 2, 25: PRINT "membership officer"
IF c = 1 THEN master = 75
IF c = 2 THEN master = 125
IF c = 3 THEN master = 175
IF c = 4 THEN master = 225
65 CLS
LOCATE 10, 20: PRINT a$; a; "   membership officer "; master
LOCATE 11, 20: INPUT "attack or run (a/r)"; e$
IF e$ <> "a" THEN GOTO 67
e = INT(RND(1) * you) + 1
master = master - e
IF master < 1 THEN B = B + 75: GOTO 68
IF master > 0 THEN GOTO 66
66 f = INT(RND(1) * 30) + 1
a = a - f
IF a < 1 THEN GOTO 10002
IF a > 0 THEN GOTO 65
67 CLS
PRINT "sissy, you can't run from a membership officer, "; a$; "."
SLEEP 3
GOTO 65




68
IF c = 1 AND B > 199 THEN PRINT "you are now a level 2 dancer, "; a$; "!": c = c + 1: you = you + 5: a = a - a + 70: hp = hp + 20: master = master + 50: mp = mp + 50: mp2 = mp2 + 50: SLEEP 5: GOTO 0

IF c = 2 AND B > 499 THEN PRINT "you are now a level 3 dancer, "; a$; "!": c = c + 1: you = you + 5: a = a - a + 100: hp = hp + 30: master = master + 50: mp = mp + 50: mp2 = mp2 + 50: SLEEP 5: GOTO 0

IF c = 3 AND B > 999 THEN PRINT "you are now a level 4 dancer, "; a$; "!": c = c + 1: you = you + 5: a = a - a + 200: hp = hp + 100: master = master + 50: mp = mp + 50: mp2 = mp2 + 50: SLEEP 5: GOTO 0
IF c = 4 AND B > 4999 THEN PRINT "you are now a supreme level 5 dancer, "; a$; "! go kill the satanic dancers"
PRINT "the secret of the crack dealers. the crack is sacred, especially to the ravers.": c = c + 1: you = you + 20: a = a - a + 300: hp = hp + 100: mp = mp + 50: mp2 = mp2 + 50: SLEEP 5: GOTO 0
100 PRINT "you are now sniffing crack-- thats some good crack."
SLEEP 5
youfight = youfight - youfight + 200
a = a - a + hp
GOTO 2
500 CLS
IF c < 5 THEN PRINT "you are not yet have enough membership at ymca or as a dancer to fight the satanic dancers.": SLEEP 5: GOTO 1
IF c = 5 THEN INPUT "do you REALLY wish to fight the satanic dancers (y/n)"; z$
IF z$ <> "y" THEN PRINT "haha, i knew it, you really do suck, "; a$; ". your no dancer.": SLEEP 5: GOTO 1
GOTO 750
750 CLS
LOCATE 10, 20: PRINT a$; a; "   satanic dancer "; u
LOCATE 11, 20: INPUT "attack or run (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you) + 1
u = u - e
IF u < 1 THEN B = B + 2000000: GOTO 10001
IF u > 0 THEN GOTO 751
751 f = INT(RND(1) * 5) + 1
a = a - f
IF a < 1 THEN GOTO 10000
IF a > 0 THEN GOTO 750
10000 END
10001 PRINT "hehehe, you suck, bad. cheating ass son of a son of a bitch."
PRINT
PRINT
IF pressk < 1 THEN GOTO 0.666
0.555 PRINT "you won, but you cheated, so you suck. "; a$; ". dont press k!"
PRINT "you beat the almighty satanic dancers! press k!"; pressk; " "; a$; ".": END
0.666 PRINT "you have beaten the almighty satanic dancers! you rule! "; a$; "!"
END
10002 PRINT "whore, "; a$; " the ymca membership officer has beaten ou.": SLEEP 5: IF c = 1 THEN a = a - a + 30 AND master = master - master + 75: IF c = 2 THEN a = a - a + 50 AND master = master - master + 125: IF c = 3 THEN a = a - a + 100 AND master = master - master + 175: IF c = 4 THEN a = a - a + 200 AND master = master - master + 225: IF c = 5 THEN a = a - a + 300: GOTO 0


20000 CLS
oppfight = 200
LOCATE 1, 20: PRINT "attack one of your fellow dancers"
LOCATE 3, 15: PRINT "1 maxim"
LOCATE 4, 15: PRINT "2 keith"
LOCATE 5, 15: PRINT "3 leroy"
LOCATE 6, 15: PRINT "4 cracky"
LOCATE 7, 15: PRINT "5 aneurysm"
LOCATE 9, 5: INPUT "who will you fight"; fight$
IF fight$ <> "maxim" THEN GOTO 20001
GOTO 20005
20001 IF fight$ <> "keith" THEN GOTO 20002
GOTO 20005
20002 IF fight$ <> "leroy" THEN GOTO 20003
GOTO 20005
20003 IF fight$ <> "cracky" THEN GOTO 20004
GOTO 20005
20004 IF fight$ <> "aneurysm" THEN GOTO 1
GOTO 20005
20005 CLS : IF fight$ = a$ THEN PRINT "you cant beat yourself up, "; a$: SLEEP 5: GOTO 1
CLS
LOCATE 10, 20: PRINT a$; youfight; "   "; fight$; oppfight
LOCATE 11, 20: INPUT "ATTACK OR RUN (a/r)"; e$
IF e$ <> "a" THEN GOTO 2
e = INT(RND(1) * you) + 1
oppfight = oppfight - e
IF oppfight < 1 THEN B = B + 500: GOTO 0
IF oppfight > 0 THEN GOTO 20006
20006 f = INT(RND(1) * 30) + 1
youfight = youfight - f
IF youfight < 1 THEN GOTO 0
IF youfight > 0 THEN GOTO 20005
30000 CLS
LOCATE 3, 35: PRINT "SHOP"
LOCATE 6, 15: PRINT "[c]lothes"
LOCATE 7, 15: PRINT "[w]eapons"
LOCATE 8, 15: PRINT "[l]eave"
LOCATE 10, 15: INPUT "WHAT DO YOU WHAT TO DO (a/w/l)"; shop$
IF shop$ <> "c" THEN GOTO 30001
GOTO 30002
30001 IF shop$ <> "w" THEN GOTO 2
GOTO 30005
30002 CLS
LOCATE 3, 35: PRINT "clothes"
LOCATE 6, 15: PRINT "[b]aggy pants            10,000 GP"
LOCATE 7, 15: PRINT "[c]loth pants            100,000 GP"
LOCATE 8, 15: PRINT "[s]herlock holmes wear   1,000,000 GP"
LOCATE 12, 15: PRINT "GOLD PIECES: "; gp
LOCATE 10, 15: INPUT "WHAT WOULD YOU LIKE TO DO (b/c/s/l)"; armor$
IF armor$ <> "b" THEN GOTO 30003
IF gp < 10000 THEN PRINT "YOU DON'T HAVE ENOUGH GP, "; a$; ".": SLEEP 3: GOTO 2
gp = gp - 10000: a = a + 15: hp = hp + 15: GOTO 2
30003 IF armor$ <> "c" THEN GOTO 30004
IF gp < 100000 THEN PRINT "YOU DON'T HAVE ENOUGH GP, "; a$; ".": SLEEP 3: GOTO 2
gp = gp - 100000: a = a + 50: hp = hp + 50: GOTO 2
30004 IF armor$ <> "s" THEN GOTO 2
IF gp < 1000000 THEN PRINT "YOU DON'T HAVE ENOUGH GP, "; a$; ".": SLEEP 3: GOTO 2
gp = gp - 1000000: a = a + 100: hp = hp + 100: GOTO 2
30005 LOCATE 3, 34: PRINT "WEAPONS"
LOCATE 6, 15: PRINT "[s]pinning machine  10,000 GP"
LOCATE 7, 15: PRINT "[k]eyboard          100,000 GP"
LOCATE 8, 15: PRINT "[d]rum machine      1,000,000 GP"
LOCATE 12, 15: PRINT "GOLD PIECES: "; gp
LOCATE 10, 15: INPUT "WHAT WOULD YOU LIKE TO DO (s/k/d/l)"; weapon$
IF weapon$ <> "s" THEN GOTO 30006
IF gp < 10000 THEN PRINT "you dont have enough stuff, "; a$; ".": SLEEP 3: GOTO 2
gp = gp - 10000: you = you + 15: GOTO 2
30006 IF weapon$ <> "k" THEN GOTO 30007
IF gp < 100000 THEN PRINT "you dont have enough stuff, "; a$; ".": SLEEP 3: GOTO 2
gp = gp - 100000: you = you + 50: GOTO 2
30007 IF weapon$ <> "d" THEN GOTO 2
IF gp < 1000000 THEN PRINT "you dont have enough stuff, "; a$; ".": SLEEP 3: GOTO 2
gp = gp - 1000000: you = you + 100: GOTO 2