QBASIC-KOF(拳皇)

    分享到:

初中一年级作品 – 拳皇

96年QBASIC练习程序。

 

可以说是最早的一个游戏吧,在纯DOS下,没有什么可以处理图形的东西,那个时候对图形的了解也确实不够深入,只能用方块来简单的代替角色。

使用QBASIC实现了界面的绘制,角色的移动控制,伤害计算、连击计数等,还简单实现了跳跃。
由于刚从 GW-BASIC 转到QBASIC,还是用了 GOTO+行号来模拟了函数的实现。

 

Snip20160202_6

 

Snip20160202_14

 

源码:

SCREEN 12: x1 = 70: y1 = 299: x2 = 500: y2 = 299: S1 = 240: S2 = 240
DIM a%(2400)
DIM b%(2400)
DIM c%(1200)
LOCATE 12, 25: INPUT "1P Name:"; P1$
LOCATE 14, 25: INPUT "2P Name:"; P2$
CLS
LOCATE 2, 8: PRINT P1$
LOCATE 2, 64: PRINT P2$
LOCATE 3, 39: PRINT "V.S."
LINE (10, 10)-(45, 50), 9, BF
LINE (595, 10)-(630, 50), 4, BF
LINE (49, 28)-(292, 47), 15, B
LINE (51, 30)-(290, 45), 13, BF
LINE (348, 28)-(591, 47), 15, B
LINE (350, 30)-(589, 45), 13, BF
LINE (0, 400)-(640, 480), 7, BF
GET (x1, y1)-(x1 + 30, y1 + 100), b%
LINE (x1, y1)-(x1 + 30, y1 + 100), 9, BF
LINE (x2, y2)-(x2 + 30, y2 + 100), 4, BF
GET (x1, y1)-(x1 + 30, y1 + 100), a%

FOR I = 1 TO 50000: NEXT I
COLOR 14: LOCATE 10, 35: PRINT "V . S .": FOR I = 1 TO 70000: NEXT I
COLOR 0: LOCATE 10, 35: PRINT "V . S ."

DO
IF h1 = 1 GOTO 310
I$ = INKEY$
SELECT CASE I$

CASE "w"
IF j1 = 0 THEN j1 = 1
CASE "s"
CASE "a"
IF x1 > 5 AND NOT righting = 1 THEN left = 1
CASE "d"
IF x1 + 40 < x2 AND NOT lefting = 1 THEN right = 1 CASE "h" h1 = 1 END SELECT 310 IF h2 = 1 GOTO 400 400 IF j1 = 1 THEN IF left = 1 THEN lefting = 1: jx = -2 IF right = 1 THEN righting = 1: jx = 2 IF y1 = 149 THEN n1 = 1 IF n1 = 1 THEN IF y1 < 299 THEN y1 = y1 + 5 IF x1 > 5 AND (y1 + 100 < y2 OR (y1 + 100 > y2 AND (x1 + 40 < x2 OR x1 > x2 + 40))) THEN x1 = x1 + jx
ELSE
j1 = 0: n1 = 0
END IF
ELSE
y1 = y1 - 5
IF x1 > 5 AND (y1 + 100 < y2 OR (y1 + 100 > y2 AND (x1 + 40 < x2 OR x1 > x2 + 40))) THEN x1 = x1 + jx
END IF
ELSE
lefting = 0: righting = 0: jx = 0
END IF
IF left = 1 AND j1 = 0 THEN x1 = x1 - 10
IF right = 1 AND j1 = 0 THEN x1 = x1 + 10
IF j2 = 1 THEN GOSUB 20000
IF l1 = 1 OR l2 = 1 THEN GOSUB 80000
PUT (x1, y1), a%, OR
IF S1 = 0 THEN GOTO 90000
FOR I = 1 TO 1000: NEXT I
PUT (x1, y1), a%, PSET
IF h1 = 1 THEN
i1 = x1 + 30: k1 = y1 + 10
GET (i1, k1)-(i1 + 50, k1 + 10), c%
LINE (i1, k1)-(i1 + 50, k1 + 10), 9, BF
FOR a = 1 TO 3000: NEXT a
PUT (i1, k1), c%, PSET
GOSUB 30000
END IF
FOR t = 1 TO 1000: NEXT t
PUT (x1, y1), b%, PSET
left = 0: right = 0
LOOP
90000
COLOR 13: LOCATE 10, 36: PRINT "K . O .": FOR I = 1 TO 100000: NEXT I
COLOR 0: LOCATE 10, 36: PRINT "K . O ."
IF S1 = 0 THEN WIN$ = P1$: IF S2 = 0 THEN WIN$ = P2$:
COLOR 14
LOCATE 10, 36: PRINT WIN$
LOCATE 12, 36: PRINT "W I N !"
I$ = INPUT$(1)
COLOR 0
END
20000 RETURN
30000
IF i1 + 50 >= x2 AND k1 + 5 >= y2 AND k1 <= y2 + 100 THEN t1 = t1 + 1 IF t1 >= 2 THEN
COLOR 14
LOCATE 8, 10
PRINT t1; " H i t !"
COLOR 0
l2 = 1: h1 = 0
END IF
ELSE
h1 = 0
END IF
RETURN
40000 RETURN
80000
FOR I = 1 TO 5000: NEXT I
IF l1 = 1 THEN
IF S1 - 10 < 0 THEN S1 = 0 ELSE S1 = S1 - 10 END IF END IF LINE (291, 30)-(51 + S2, 45), 0, BF IF l2 = 1 THEN IF S1 - 10 < 0 THEN S1 = 0 ELSE S1 = S1 - 10 END IF END IF LINE (349, 30)-(589 - S1, 45), 0, BF l1 = 0: l2 = 0 RETURN

 

发表评论