我自编的QB游戏（新手必看！）

主题：我自编的QB游戏（新手必看！）

小勇士来了 [专家分：220] 发布于 2010-03-17 18:43:00

双人坦克大战

DECLARE SUB ankey2 (j3!, j4!, ke)
DECLARE SUB htu (b1!, b2!, b3!, b4!)
DECLARE SUB ankey1 (j1, j2, ke)
SCREEN 12
COLOR 5
LOCATE 1, 57: PRINT "IGDX tank - II"
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,1,1,1,1,1,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0,1,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DIM SHARED t1s(120), t2x(120), t3z(120), t4y(120
't1  shang---------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 11)-(21, 25), 7, BF
LINE (13, 2)-(15, 12), 7, BF
FOR i = 2 TO 12 STEP 2
  LINE (7, 11 + i)-(9, 11 + i), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (19, 11 + i)-(21, 11 + i), 0
NEXT
GET (0, 0)-(27, 27), t1s
't2 xia------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 2)-(21, 16), 7, BF
LINE (13, 15)-(15, 25), 7, BF
FOR i = 2 TO 12 STEP 2
  LINE (7, 2 + i)-(9, 2 + i), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (19, 2 + i)-(21, 2 + i), 0
NEXT
GET (0, 0)-(27, 27), t2x
't3 zuo---------
LINE (0, 0)-(27, 27), 0, BF
LINE (11, 7)-(25, 21), 7, BF
LINE (2, 13)-(12, 15), 7, BF
FOR i = 2 TO 12 STEP 2
  LINE (11 + i, 7)-(11 + i, 9), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (11 + i, 19)-(11 + i, 21), 0
NEXT
GET (0, 0)-(27, 27), t3z
't4 --------------------
LINE (0, 0)-(27, 27), 0, BF
LINE (2, 7)-(16, 21), 7, BF
LINE (15, 13)-(25, 15), 7, BF
FOR i = 2 TO 12 STEP 2
  LINE (2 + i, 7)-(2 + i, 9), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (2 + i, 19)-(2 + i, 29), 0
NEXT
GET (0, 0)-(27, 27), t4y
LINE (0, 0)-(27, 27), 0, BF
'---------------
DIM SHARED tu%(20, 14)
FOR i = 1 TO 14
FOR j = 1 TO 20
  READ tus
tu%(j, i) = tus
NEXT j, i
'hua tu --------------
FOR i = 1 TO 14
FOR j = 1 TO 20
  IF tu%(j, i) = 1 THEN
    CALL htu(j * 28, i * 28, j * 28 + 28, i * 28 + 28)
  END IF
NEXT j, i
'----------------
PUT (8 * 28, 13 * 28), t1s
PUT (12 * 28, 13 * 28), t1s
DO: LOOP UNTIL INKEY$ <> ""
PUT (8 * 28, 13 * 28), t1s
PUT (12 * 28, 13 * 28), t1s
'main()-----------------
DIM SHARED a1, a2, a3, a4, a, w, s, j1, j2, j3, j4, aa2, ww
DIM SHARED d, up, left, et, sp, down, right, aa1, ww1, dd1,
j1 = 12: j2 = 13: j3 = 8: j4 = 13
a1 = 12: a2 = 13: a3 = 8: a4 = 13
PUT (8 * 28, 13 * 28), t1s
PUT (12 * 28, 13 * 28), t1s
'-----main-----
DO
ke = INP(&H60)
CALL ankey1(j1, j2, ke)
CALL ankey2(j3, j4, ke)
LOOP

别着急，还有，这只是一点点，下面还有。

本帖地址： http://bbs.pfan.cn/post/318254.html

回复列表（共3个回复）

沙发

小勇士来了 [专家分：220] 发布于 2010-03-17 18:46:00

'------hua er ge tank----------
PUT (8 * 28, 2 * 28), tbx
PUT (12 * 28, 13 * 28), t1s
'sm2 zd2
LINE (28, 435)-(108, 440), 7, BF     'shengmingxian
LINE (28, 450)-(128, 455), 1, BF     'zidanxian
'sm1 zd1
LINE (476, 435)-(556, 440), 7, BF
LINE (476, 450)-(576, 455), 1, BF
LOCATE 28, 2
PRINT "SM"
LOCATE , 2
PRINT "ZD";
DO: LOOP UNTIL INKEY$ <> ""
'main(){------ding yi an jian bian liang-----------
DIM SHARED down, right, up, left, et, j1, j2, aa1, ww1, dd1, ss1, k1
DIM SHARED a, w, s, d, sp, j3, j4, aa2, ww2, dd2, ss2, k2
DIM SHARED sm1, zd1, sm2, zd2
DIM SHARED ts1, ts2
'---shudu
ts1 = 30000: ts2 = 400000
'----chu shi wei zi he fang xiang
j1 = 12: j2 = 13: j3 = 8: j4 = 2
ww1 = 1: ss2 = 1
'let't go-----main-----
DO
IF sm1 = 80 THEN
  IF j4 <= 7 THEN
    PUT (12 * 28, 13 * 28), t1s
  ELSE
    PUT (12 * 28, 2 * 28), t2x
  END IF
'yan shi
            CASE ww1
              PUT (j1 * 28, j2 * 28), t1s
            CASE ss1
              PUT (j1 * 28, j2 * 28), t2x
            CASE aa1
              PUT (j1 * 28, j2 * 28), t3z
          END SELECT
        ELSE
          PUT (j1 * 28, j2 * 28), t4y
        END IF
          j1 = j1 + .0625 / 2
'hua chu tank
          PUT (j1 * 28, j2 * 28), t4y
'zhi ming xian zai tank de fang xiang
          ww1 = 0: ss1 = 0: aa1 = 0: dd1 = 1
'ruo suo zai le bu shi zheng shu ze ke yun dong lai fang zi kai bu dao zhang ai de bian shang
      ELSEIF j1 <> INT(j1) THEN
        IF ww1 + ss1 + aa1 = 1 THEN
          SELECT CASE 1
            CASE ww1
              PUT (j1 * 28, j2 * 28), t1s
            CASE ss1
              PUT (j1 * 28, j2 * 28), t2x
            CASE aa1
              PUT (j1 * 28, j2 * 28), t3z
          END SELECT
        ELSE
          PUT (j1 * 28, j2 * 28), t4y
        END IF
          j1 = j1 + .0625 / 2
          PUT (j1 * 28, j2 * 28), t4y
          ww1 = 0: ss1 = 0: aa1 = 0: dd1 = 1
      END IF
    END IF
END SELECT

板凳

小勇士来了 [专家分：220] 发布于 2010-03-17 18:47:00

SELECT CASE up
  CASE 72
    IF (ABS(j2 - (j4 + 1)) = 0 OR ABS(j2 - (j4 + 1)) < .03125) AND (ABS(j1 - j3) < 1 OR j3 = j1) THEN
      k1 = 1
    ELSE
      IF tu%(j1 + .47, j2 - 1) <> 1 AND tu%(j1 - .47, j2 - 1) <> 1 AND tu%(j1, j2 - 1) <> 1 THEN
        IF ss1 + aa1 + dd1 = 1 THEN
            SELECT CASE 1
              CASE dd1
                PUT (j1 * 28, j2 * 28), t4y
              CASE ss1
                PUT (j1 * 28, j2 * 28), t2x
              CASE aa1
                PUT (j1 * 28, j2 * 28), t3z
            END SELECT
                    END IF
          j2 = j2 - .0625 / 2
          PUT (j1 * 28, j2 * 28), t1s
                  IF ss1 + aa1 + dd1 = 1 THEN
          SELECT CASE 1
            CASE dd1
              PUT (j1 * 28, j2 * 28), t4y
            CASE ss1
              PUT (j1 * 28, j2 * 28), t2x
            CASE aa1
              PUT (j1 * 28, j2 * 28), t3z
          END SELECT
        ELSE
          PUT (j1 * 28, j2 * 28), t1s
        END IF
          j2 = j2 - .0625 / 2
          PUT (j1 * 28, j2 * 28), t1s
          ww1 = 1: ss1 = 0: aa1 = 0: dd1 = 0
      END IF
    END IF
END SELECT

SELECT CASE left
  CASE 75
    IF (ABS(j1 - (j3 + 1)) = 0 OR ABS(j1 - (j3 + 1)) < .03125) AND (ABS(j2 - j4) < 1 OR j2 = j4) THEN
      k1 = 1
    ELSE
      IF tu%(j1 - 1, j2 + .47) <> 1 AND tu%(j1 - 1, j2 - .47) <> 1 AND tu%(j1 - 1, j2) <> 1 THEN
        IF ss1 + ww1 + dd1 = 1 THEN
          SELECT CASE 1
            CASE dd1
              PUT (j1 * 28, j2 * 28), t4y
            CASE ss1
              PUT (j1 * 28, j2 * 28), t2x
            CASE ww1
              PUT (j1 * 28, j2 * 28), t1s
          END SELECT
        ELSE
          PUT (j1 * 28, j2 * 28), t3z
        END IF
          j1 = j1 - .0625 / 2
          PUT (j1 * 28, j2 * 28), t3z
          ww1 = 0: ss1 = 0: aa1 = 1: dd1 = 0
      ELSEIF j1 <> INT(j1) THEN
        IF ss1 + ww1 + dd1 = 1 THEN
          SELECT CASE 1
            CASE dd1
              PUT (j1 * 28, j2 * 28), t4y
            CASE ss1
              PUT (j1 * 28, j2 * 28), t2x
            CASE ww1
              PUT (j1 * 28, j2 * 28), t1s
          END SELECT
        ELSE
          PUT (j1 * 28, j2 * 28), t3z
        END IF
          j1 = j1 - .0625 / 2
          PUT (j1 * 28, j2 * 28), t3z
          ww1 = 0: ss1 = 0: aa1 = 1: dd1 = 0
      END IF
    END IF
END SELECT

SELECT CASE down
  CASE 76
    IF (ABS(j2 + 1 - j4) = 0 OR ABS(j2 + 1 - j4) < .03125) AND (ABS(j1 - j3) < 1 OR j1 = j3) THEN
      k1 = 1
    ELSE
      IF tu%(j1 + .47, j2 + 1) <> 1 AND tu%(j1 - .47, j2 + 1) <> 1 AND tu%(j1, j2 + 1) <> 1 THEN


END SELECT

3 楼

小勇士来了 [专家分：220] 发布于 2010-03-17 18:47:00

好了，玩玩

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：我自编的QB游戏（新手必看！）

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：我自编的QB游戏（新手必看！）

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）