您所在位置：主题：[投票]游戏系统
firestorm11
[专家分：50] 发布于 2006-10-24 19:17:00
x = 5: y = 5: c = 1: d = 1: e = 1
SCREEN 1
a000: COLOR 8, 2
LOCATE 10, 17
PRINT "The"
LOCATE 11, 15
PRINT "Pyramid"
LOCATE 12, 15
PRINT "Escapes"
LOCATE 20, 9
PRINT "Press space to contune..."
s$ = INKEY$
IF s$ = " " THEN ELSE GOTO a000
a00: CLS
x = 138: y = 75: hd = 1
SCREEN 1
a0: COLOR 1, 1
LOCATE 10, 14
PRINT "S T A R T"
LOCATE 12, 15
PRINT "H E L P"
LOCATE 14, 15
PRINT "Options"
LOCATE 16, 15
PRINT "E X I T"
LINE (x - 36, y - 5)-(x + 37, y + 5), , B
a$ = INKEY$
IF a$ = "w" THEN LINE (x - 36, y - 5)-(x + 37, y + 5), 0, B: y = y - 16
IF a$ = "s" THEN LINE (x - 36, y - 5)-(x + 37, y + 5), 0, B: y = y + 16
IF y < 75 THEN y = y + 16
IF y > 130 THEN y = y - 16
IF a$ = " " THEN GOTO fo0 ELSE GOTO a0
fo0: IF y = 123 THEN END
IF y = 107 THEN x = 70: y = 75: CLS : GOTO option1
IF y = 75 THEN GOTO a01
IF y = 91 THEN CLS : GOTO help1
GOTO a0
help1: LOCATE 1, 1
PRINT "w:up s:down a:left d:right j:string k:arrow c:check space:stop/select p:step/continue"
a$ = INKEY$
IF a$ = " " THEN GOTO a00 ELSE GOTO help1
option0: CLS
option1: LOCATE 10, 12
PRINT "Difficult:"; hd$
LOCATE 12, 12
PRINT "Back"
LINE (x, y)-(x + 5, y), , B
LINE (x + 1, y - 1)-(x + 1, y + 1), , B
ON hd GOTO hd1, hd2, hd3
hd1: hd$ = "Easy"
GOTO fo2
hd2: hd$ = "Normal"
GOTO fo2
hd3: hd$ = "Hard"
fo2: a$ = INKEY$
IF a$ = "w" THEN LINE (x, y)-(x + 5, y), 0, B: LINE (x + 1, y - 1)-(x + 1, y + 1), 0, B: y = y - 16
IF a$ = "s" THEN LINE (x, y)-(x + 5, y), 0, B: LINE (x + 1, y - 1)-(x + 1, y + 1), 0, B: y = y + 16
IF y < 70 THEN y = y + 16
IF y > 100 THEN y = y - 16
IF a$ = " " THEN GOTO fo1 ELSE GOTO option1
fo1: IF y = 75 THEN hd = hd + 1
IF hd > 3 THEN hd = 1
IF y = 91 THEN GOTO a00
GOTO option0
a01: SCREEN 12
GOTO a1
wall0: ON w GOTO w1, w2, w3, w4
w1: y = y - 10
RETURN
w2: y = y + 10
RETURN
w3: x = x - 10
RETURN
w4: x = x + 10
RETURN
door0: LINE (dx - 2, dy - 2)-(dx + 2, dy + 2), 2, BF
IF x = dx AND y = dy AND k > 0 THEN k = k - 1 ELSE GOSUB wall0
RETURN
fall0: IF y <> k0 * x + d0 THEN e = e - 1
IF e < 1 THEN END
RETURN
a1: GOSUB map0
IF x < 0 THEN CLS : d = d - 1
IF x > 640 THEN CLS : d = d + 1
IF y < 0 THEN CLS : c = c - 1
IF y > 480 THEN CLS : c = c + 1
IF ar = 0 THEN ax1 = 0: ax2 = 0: ay1 = 0: ay2 = 0
IF str = 0 THEN sx1 = 0: sx2 = 0: sy1 = 0: sy2 = 0
a$ = INKEY$
IF a$ = "w" THEN y = y + 10: w = 1
IF a$ = "s" THEN y = y - 10: w = 2
IF a$ = "a" THEN x = x + 10: w = 3
IF a$ = "d" THEN x = x - 10: w = 4
IF a$ = " " THEN w = 0
IF a$ = "p" THEN GOTO p1 ELSE GOTO p2
p1: ON p GOTO p12
p11: p = 1
GOTO p2
p12: p = 0
p2: IF p = 1 GOTO p3 ELSE GOTO p4
p3: ON w GOTO wp1, wp2, wp3, wp4
wp1: y = y - 10
GOTO p4
wp2: y = y + 10
GOTO p4
wp3: x = x - 10
GOTO p4
wp4: x = x + 10
p4: GOTO a1
map0: ON e GOTO floor1, floor2, floor3
floor1: ON d GOTO map11, map12, map13, map14, map15, map16, map17, map18
map11: ON c GOTO a111, a112, a113, a114, a115, a116, a117, a118
map12: ON c GOTO a121, a122, a123, a124, a125, a126, a127, a128
map13: ON c GOTO a131, a132, a133, a134, a135, a136, a137, a138
map14: ON c GOTO a141, a142, a143, a144, a145, a146, a147, a148
map15: ON c GOTO a151, a152, a153, a154, a155, a156, a157, a158
map16: ON c GOTO a161, a162, a163, a164, a165, a166, a167, a168
map17: ON c GOTO a171, a172, a173, a174, a175, a176, a177, a178
map18: ON c GOTO a181, a182, a183, a184, a185, a186, a187, a188
floor2: ON d GOTO map21, map22, map23, map24, map25, map26, map27, map28
map21: ON c GOTO a211, a212, a213, a214, a215, a216, a217, a218
map22: ON c GOTO a221, a222, a223, a224, a225, a226, a227, a228
map23: ON c GOTO a231, a232, a233, a234, a235, a236, a237, a238
map24: ON c GOTO a241, a242, a243, a244, a245, a246, a247, a248
map25: ON c GOTO a251, a252, a253, a254, a255, a256, a257, a258
map26: ON c GOTO a261, a262, a263, a264, a265, a266, a267, a268
map27: ON c GOTO a271, a272, a273, a274, a275, a276, a277, a278
map28: ON c GOTO a281, a282, a283, a284, a285, a286, a287, a288
floor3: ON d GOTO map31, map32, map33, map34, map35, map36, map37, map38
map31: ON c GOTO a311, a312, a313, a314, a315, a316, a317, a318
map32: ON c GOTO a321, a322, a323, a324, a325, a326, a327, a328
map33: ON c GOTO a331, a332, a333, a334, a335, a336, a337, a338
map34: ON c GOTO a341, a342, a343, a344, a345, a346, a347, a348
map35: ON c GOTO a351, a352, a353, a354, a355, a356, a357, a358
map36: ON c GOTO a361, a362, a363, a364, a365, a366, a367, a368
map37: ON c GOTO a371, a372, a373, a374, a375, a376, a377, a378
map38: ON c GOTO a381, a382, a383, a384, a385, a386, a387, a388
END
a111: RETURN
a112: RETURN
a113: RETURN
a114: RETURN
a115: RETURN
a116: RETURN
a117: RETURN
a118: RETURN
a121: RETURN
a122: RETURN
a123: RETURN
a124: RETURN
a125: RETURN
a126: RETURN
a127: RETURN
a128: RETURN
a131: RETURN
a132: RETURN
a133: RETURN
a134: RETURN
a135: RETURN
a136: RETURN
a137: RETURN
a138: RETURN
a141: RETURN
a142: RETURN
a143: RETURN
a144: RETURN
a145: RETURN
a146: RETURN
a147: RETURN
a148: RETURN
a151: RETURN
a152: RETURN
a153: RETURN
a154: RETURN
a155: RETURN
a156: RETURN
a157: RETURN
a158: RETURN
a161: RETURN
a162: RETURN
a163: RETURN
a164: RETURN
a165: RETURN
a166: RETURN
a167: RETURN
a168: RETURN
a171: RETURN
a172: RETURN
a173: RETURN
a174: RETURN
a175: RETURN
a176: RETURN
a177: RETURN
a178: RETURN
a181: RETURN
a182: RETURN
a183: RETURN
a184: RETURN
a185: RETURN
a186: RETURN
a187: RETURN
a188: RETURN
a211: RETURN
a212: RETURN
a213: RETURN
a214: RETURN
a215: RETURN
a216: RETURN
a217: RETURN
a218: RETURN
a221: RETURN
a222: RETURN
a223: RETURN
a224: RETURN
a225: RETURN
a226: RETURN
a227: RETURN
a228: RETURN
a231: RETURN
a232: RETURN
a233: RETURN
a234: RETURN
a235: RETURN
a236: RETURN
a237: RETURN
a238: RETURN
a241: RETURN
a242: RETURN
a243: RETURN
a244: RETURN
a245: RETURN
a246: RETURN
a247: RETURN
a248: RETURN
a251: RETURN
a252: RETURN
a253: RETURN
a254: RETURN
a255: RETURN
a256: RETURN
a257: RETURN
a258: RETURN
a261: RETURN
a262: RETURN
a263: RETURN
a264: RETURN
a265: RETURN
a266: RETURN
a267: RETURN
a268: RETURN
a271: RETURN
a272: RETURN
a273: RETURN
a274: RETURN
a275: RETURN
a276: RETURN
a277: RETURN
a278: RETURN
a281: RETURN
a282: RETURN
a283: RETURN
a284: RETURN
a285: RETURN
a286: RETURN
a287: RETURN
a288: RETURN
a311: RETURN
a312: RETURN
a313: RETURN
a314: RETURN
a315: RETURN
a316: RETURN
a317: RETURN
a318: RETURN
a321: RETURN
a322: RETURN
a323: RETURN
a324: RETURN
a325: RETURN
a326: RETURN
a327: RETURN
a328: RETURN
a331: RETURN
a332: RETURN
a333: RETURN
a334: RETURN
a335: RETURN
a336: RETURN
a337: RETURN
a338: RETURN
a341: RETURN
a342: RETURN
a343: RETURN
a344: RETURN
a345: RETURN
a346: RETURN
a347: RETURN
a348: RETURN
a351: RETURN
a352: RETURN
a353: RETURN
a354: RETURN
a355: RETURN
a356: RETURN
a357: RETURN
a358: RETURN
a361: RETURN
a362: RETURN
a363: RETURN
a364: RETURN
a365: RETURN
a366: RETURN
a367: RETURN
a368: RETURN
a371: RETURN
a372: RETURN
a373: RETURN
a374: RETURN
a375: RETURN
a376: RETURN
a377: RETURN
a378: RETURN
a381: RETURN
a382: RETURN
a383: RETURN
a384: RETURN
a385: RETURN
a386: RETURN
a387: RETURN
a388: RETURN
SCREEN 1
a000: COLOR 8, 2
LOCATE 10, 17
PRINT "The"
LOCATE 11, 15
PRINT "Pyramid"
LOCATE 12, 15
PRINT "Escapes"
LOCATE 20, 9
PRINT "Press space to contune..."
s$ = INKEY$
IF s$ = " " THEN ELSE GOTO a000
a00: CLS
x = 138: y = 75: hd = 1
SCREEN 1
a0: COLOR 1, 1
LOCATE 10, 14
PRINT "S T A R T"
LOCATE 12, 15
PRINT "H E L P"
LOCATE 14, 15
PRINT "Options"
LOCATE 16, 15
PRINT "E X I T"
LINE (x - 36, y - 5)-(x + 37, y + 5), , B
a$ = INKEY$
IF a$ = "w" THEN LINE (x - 36, y - 5)-(x + 37, y + 5), 0, B: y = y - 16
IF a$ = "s" THEN LINE (x - 36, y - 5)-(x + 37, y + 5), 0, B: y = y + 16
IF y < 75 THEN y = y + 16
IF y > 130 THEN y = y - 16
IF a$ = " " THEN GOTO fo0 ELSE GOTO a0
fo0: IF y = 123 THEN END
IF y = 107 THEN x = 70: y = 75: CLS : GOTO option1
IF y = 75 THEN GOTO a01
IF y = 91 THEN CLS : GOTO help1
GOTO a0
help1: LOCATE 1, 1
PRINT "w:up s:down a:left d:right j:string k:arrow c:check space:stop/select p:step/continue"
a$ = INKEY$
IF a$ = " " THEN GOTO a00 ELSE GOTO help1
option0: CLS
option1: LOCATE 10, 12
PRINT "Difficult:"; hd$
LOCATE 12, 12
PRINT "Back"
LINE (x, y)-(x + 5, y), , B
LINE (x + 1, y - 1)-(x + 1, y + 1), , B
ON hd GOTO hd1, hd2, hd3
hd1: hd$ = "Easy"
GOTO fo2
hd2: hd$ = "Normal"
GOTO fo2
hd3: hd$ = "Hard"
fo2: a$ = INKEY$
IF a$ = "w" THEN LINE (x, y)-(x + 5, y), 0, B: LINE (x + 1, y - 1)-(x + 1, y + 1), 0, B: y = y - 16
IF a$ = "s" THEN LINE (x, y)-(x + 5, y), 0, B: LINE (x + 1, y - 1)-(x + 1, y + 1), 0, B: y = y + 16
IF y < 70 THEN y = y + 16
IF y > 100 THEN y = y - 16
IF a$ = " " THEN GOTO fo1 ELSE GOTO option1
fo1: IF y = 75 THEN hd = hd + 1
IF hd > 3 THEN hd = 1
IF y = 91 THEN GOTO a00
GOTO option0
a01: SCREEN 12
GOTO a1
wall0: ON w GOTO w1, w2, w3, w4
w1: y = y - 10
RETURN
w2: y = y + 10
RETURN
w3: x = x - 10
RETURN
w4: x = x + 10
RETURN
door0: LINE (dx - 2, dy - 2)-(dx + 2, dy + 2), 2, BF
IF x = dx AND y = dy AND k > 0 THEN k = k - 1 ELSE GOSUB wall0
RETURN
fall0: IF y <> k0 * x + d0 THEN e = e - 1
IF e < 1 THEN END
RETURN
a1: GOSUB map0
IF x < 0 THEN CLS : d = d - 1
IF x > 640 THEN CLS : d = d + 1
IF y < 0 THEN CLS : c = c - 1
IF y > 480 THEN CLS : c = c + 1
IF ar = 0 THEN ax1 = 0: ax2 = 0: ay1 = 0: ay2 = 0
IF str = 0 THEN sx1 = 0: sx2 = 0: sy1 = 0: sy2 = 0
a$ = INKEY$
IF a$ = "w" THEN y = y + 10: w = 1
IF a$ = "s" THEN y = y - 10: w = 2
IF a$ = "a" THEN x = x + 10: w = 3
IF a$ = "d" THEN x = x - 10: w = 4
IF a$ = " " THEN w = 0
IF a$ = "p" THEN GOTO p1 ELSE GOTO p2
p1: ON p GOTO p12
p11: p = 1
GOTO p2
p12: p = 0
p2: IF p = 1 GOTO p3 ELSE GOTO p4
p3: ON w GOTO wp1, wp2, wp3, wp4
wp1: y = y - 10
GOTO p4
wp2: y = y + 10
GOTO p4
wp3: x = x - 10
GOTO p4
wp4: x = x + 10
p4: GOTO a1
map0: ON e GOTO floor1, floor2, floor3
floor1: ON d GOTO map11, map12, map13, map14, map15, map16, map17, map18
map11: ON c GOTO a111, a112, a113, a114, a115, a116, a117, a118
map12: ON c GOTO a121, a122, a123, a124, a125, a126, a127, a128
map13: ON c GOTO a131, a132, a133, a134, a135, a136, a137, a138
map14: ON c GOTO a141, a142, a143, a144, a145, a146, a147, a148
map15: ON c GOTO a151, a152, a153, a154, a155, a156, a157, a158
map16: ON c GOTO a161, a162, a163, a164, a165, a166, a167, a168
map17: ON c GOTO a171, a172, a173, a174, a175, a176, a177, a178
map18: ON c GOTO a181, a182, a183, a184, a185, a186, a187, a188
floor2: ON d GOTO map21, map22, map23, map24, map25, map26, map27, map28
map21: ON c GOTO a211, a212, a213, a214, a215, a216, a217, a218
map22: ON c GOTO a221, a222, a223, a224, a225, a226, a227, a228
map23: ON c GOTO a231, a232, a233, a234, a235, a236, a237, a238
map24: ON c GOTO a241, a242, a243, a244, a245, a246, a247, a248
map25: ON c GOTO a251, a252, a253, a254, a255, a256, a257, a258
map26: ON c GOTO a261, a262, a263, a264, a265, a266, a267, a268
map27: ON c GOTO a271, a272, a273, a274, a275, a276, a277, a278
map28: ON c GOTO a281, a282, a283, a284, a285, a286, a287, a288
floor3: ON d GOTO map31, map32, map33, map34, map35, map36, map37, map38
map31: ON c GOTO a311, a312, a313, a314, a315, a316, a317, a318
map32: ON c GOTO a321, a322, a323, a324, a325, a326, a327, a328
map33: ON c GOTO a331, a332, a333, a334, a335, a336, a337, a338
map34: ON c GOTO a341, a342, a343, a344, a345, a346, a347, a348
map35: ON c GOTO a351, a352, a353, a354, a355, a356, a357, a358
map36: ON c GOTO a361, a362, a363, a364, a365, a366, a367, a368
map37: ON c GOTO a371, a372, a373, a374, a375, a376, a377, a378
map38: ON c GOTO a381, a382, a383, a384, a385, a386, a387, a388
END
a111: RETURN
a112: RETURN
a113: RETURN
a114: RETURN
a115: RETURN
a116: RETURN
a117: RETURN
a118: RETURN
a121: RETURN
a122: RETURN
a123: RETURN
a124: RETURN
a125: RETURN
a126: RETURN
a127: RETURN
a128: RETURN
a131: RETURN
a132: RETURN
a133: RETURN
a134: RETURN
a135: RETURN
a136: RETURN
a137: RETURN
a138: RETURN
a141: RETURN
a142: RETURN
a143: RETURN
a144: RETURN
a145: RETURN
a146: RETURN
a147: RETURN
a148: RETURN
a151: RETURN
a152: RETURN
a153: RETURN
a154: RETURN
a155: RETURN
a156: RETURN
a157: RETURN
a158: RETURN
a161: RETURN
a162: RETURN
a163: RETURN
a164: RETURN
a165: RETURN
a166: RETURN
a167: RETURN
a168: RETURN
a171: RETURN
a172: RETURN
a173: RETURN
a174: RETURN
a175: RETURN
a176: RETURN
a177: RETURN
a178: RETURN
a181: RETURN
a182: RETURN
a183: RETURN
a184: RETURN
a185: RETURN
a186: RETURN
a187: RETURN
a188: RETURN
a211: RETURN
a212: RETURN
a213: RETURN
a214: RETURN
a215: RETURN
a216: RETURN
a217: RETURN
a218: RETURN
a221: RETURN
a222: RETURN
a223: RETURN
a224: RETURN
a225: RETURN
a226: RETURN
a227: RETURN
a228: RETURN
a231: RETURN
a232: RETURN
a233: RETURN
a234: RETURN
a235: RETURN
a236: RETURN
a237: RETURN
a238: RETURN
a241: RETURN
a242: RETURN
a243: RETURN
a244: RETURN
a245: RETURN
a246: RETURN
a247: RETURN
a248: RETURN
a251: RETURN
a252: RETURN
a253: RETURN
a254: RETURN
a255: RETURN
a256: RETURN
a257: RETURN
a258: RETURN
a261: RETURN
a262: RETURN
a263: RETURN
a264: RETURN
a265: RETURN
a266: RETURN
a267: RETURN
a268: RETURN
a271: RETURN
a272: RETURN
a273: RETURN
a274: RETURN
a275: RETURN
a276: RETURN
a277: RETURN
a278: RETURN
a281: RETURN
a282: RETURN
a283: RETURN
a284: RETURN
a285: RETURN
a286: RETURN
a287: RETURN
a288: RETURN
a311: RETURN
a312: RETURN
a313: RETURN
a314: RETURN
a315: RETURN
a316: RETURN
a317: RETURN
a318: RETURN
a321: RETURN
a322: RETURN
a323: RETURN
a324: RETURN
a325: RETURN
a326: RETURN
a327: RETURN
a328: RETURN
a331: RETURN
a332: RETURN
a333: RETURN
a334: RETURN
a335: RETURN
a336: RETURN
a337: RETURN
a338: RETURN
a341: RETURN
a342: RETURN
a343: RETURN
a344: RETURN
a345: RETURN
a346: RETURN
a347: RETURN
a348: RETURN
a351: RETURN
a352: RETURN
a353: RETURN
a354: RETURN
a355: RETURN
a356: RETURN
a357: RETURN
a358: RETURN
a361: RETURN
a362: RETURN
a363: RETURN
a364: RETURN
a365: RETURN
a366: RETURN
a367: RETURN
a368: RETURN
a371: RETURN
a372: RETURN
a373: RETURN
a374: RETURN
a375: RETURN
a376: RETURN
a377: RETURN
a378: RETURN
a381: RETURN
a382: RETURN
a383: RETURN
a384: RETURN
a385: RETURN
a386: RETURN
a387: RETURN
a388: RETURN
