真够无耻。。。。。。。。

我有别人做的，你看看
DECLARE SUB ankey2 (ke)
DECLARE SUB ankey1 (ke)
DECLARE SUB htu (b1!, b2!, b3!, b4!)
DECLARE SUB jz1 ()
DECLARE SUB jz2 ()
SCREEN 12
COLOR 9
LOCATE 1, 57: PRINT "IGDX tank - II"
'---ditu--
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)
DIM SHARED tas(120), tbx(120), tcz(120), tdy(120)
DIM SHARED zdy(40)
'hua si ge fang xiang de tank
't1  shang---------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 11)-(21, 25), 2, BF
LINE (13, 2)-(15, 12), 2, 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              'du ru shu zhu
't2 xia------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 2)-(21, 16), 2, BF
LINE (13, 15)-(15, 25), 2, 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), 2, BF
LINE (2, 13)-(12, 15), 2, 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), 2, BF
LINE (15, 13)-(25, 15), 2, 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
'tk2-------------
'ta  shang---------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 11)-(21, 25), 4, BF
LINE (13, 2)-(15, 12), 4, 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), tas
'tb xia------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 2)-(21, 16), 4, BF
LINE (13, 15)-(15, 25), 4, 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), tbx
'tc zuo---------
LINE (0, 0)-(27, 27), 0, BF
LINE (11, 7)-(25, 21), 4, BF
LINE (2, 13)-(12, 15), 4, 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), tcz
'td you--------------------
LINE (0, 0)-(27, 27), 0, BF
LINE (2, 7)-(16, 21), 4, BF
LINE (15, 13)-(25, 15), 4, 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), tdy
LINE (0, 0)-(27, 27), 0, BF
'zdy--------
CIRCLE (3, 3), 2, 12
PAINT (2, 3), 12
GET (1, 1)-(5, 5), zdy
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              'hua di tu
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, 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
FOR i = 1 TO 400000: NEXT i
'zou yue
PLAY "o4l8<b>el32al8el16del32al8f+.l16el8d<b>l32c<l8b>el32al8el16def+gf+el4d<l8b>el32al8el16del32al8f+.l16el8d<b>l32c<l8af+>d<f+l32al8f+el32al4e"
'ting zi
  SLEEP
  END
ELSEIF sm2 = 80 THEN
  IF j2 <= 7 THEN
    PUT (8 * 28, 13 * 28), tas
  ELSE
    PUT (8 * 28, 2 * 28), tbx
  END IF
  FOR i = 1 TO 400000: NEXT i
  PLAY "o4l8<b>el32al8el16del32al8f+.l16el8d<b>l32c<l8b>el32al8el16def+gf+el4d<l8b>el32al8el16del32al8f+.l16el8d<b>l32c<l8af+>d<f+l32al8f+el32al4e"
  SLEEP
  END
END IF
ke = INP(&H60)            'du an jian ma yu an jian si fang ma
CALL ankey1(ke)
CALL ankey2(ke)
LOOP UNTIL INKEY$ = CHR$(27)     'esc exit
'----------------}

SUB ankey1 (ke)
'ankey1----------------
SELECT CASE ke
  CASE 28             '28 wei hui che jian de an jian ma bing ping bi qi ta an jian
    et = 28: up = 72 + 128: left = 75 + 128: down = 76 + 128: right = 77 + 128
  CASE 28 + 128       '28+128 wei hui che jian de si fang ma biao an jian yi tan qi
    et = 28 + 128
  CASE 72
    up = 72: et = 28 + 128: left = 75 + 128: down = 76 + 128: right = 77 + 128
  CASE 72 + 128
    up = 72 + 128
  CASE 75
    left = 75: up = 72 + 128: et = 28 + 128: down = 76 + 128: right = 77 + 128
  CASE 75 + 128
    left = 75 + 128

CASE 76
    down = 76: up = 72 + 128: et = 28 + 128: left = 75 + 128: right = 77 + 128
  CASE 76 + 128
    down = 76 + 128
  CASE 77
    right = 77: up = 72 + 128: et = 28 + 128: left = 75 + 128: down = 76 + 128
  CASE 77 + 128
    right = 77 + 128
  CASE 1
    END
  CASE 25
'tiao shu
    ts1 = 10000: ts2 = 200000
'xiang ling
    PLAY "d8"
END SELECT
'-----------------------
'du an jian ma cao zuo
SELECT CASE right
  CASE 77
'--pan duan liang liang tank shi fou xiang zhuang
    IF (ABS(j1 + 1 - j3) = 0 OR ABS(j1 + 1 - j3) < .03125) AND (ABS(j2 - j4) < 1 OR j2 = j4) THEN
      k1 = 1
    ELSE
'pan duan shi fou zhuang dao le zhang ai wu
'yong dao le si she wu ru fa  
      IF tu%(j1 + 1, j2 + .47) <> 1 AND tu%(j1 + 1, j2 - .47) <> 1 AND tu%(j1 + 1, j2) <> 1 THEN
'pan duan qian yi chi tank de fang xiang lai cha qu tank    
        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
'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
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

发不下了了，抱歉

你除了抄袭还会什么？

CLS
RANDOMIZE TIMER
SCREEN 12
DIM a(4, 2), b(6, 7)
FOR i = 1 TO 4
FOR j = 1 TO 2
READ a(i, j)
NEXT j, i
DATA 1,9,2,10,4,12,8,7
FOR i = 1 TO 5: FOR j = 1 TO 6: b(i, j) = 1: NEXT j, i
100 FOR i = 1 TO 5
FOR j = 1 TO 6
IF b(i, j) > 0 THEN
b(i, j) = INT(RND * 4 + 1)
END IF
NEXT j, i: x = 1: y = 1
DO
FOR i = 1 TO 5
FOR j = 1 TO 6
a = 45 + (i - 1) * 75: b = 85 + (j - 1) * 75
IF x = i AND y = j THEN s = a(b(i, j), 2) ELSE s = a(b(i, j), 1)
LINE (b, a)-(b + 73, a + 73), s, BF
NEXT j, i
FOR i = 1 TO 100000: NEXT i
k$ = INKEY$
IF k$ = CHR$(0) + "K" AND y > 1 THEN y = y - 1
IF k$ = CHR$(0) + "M" AND y < 6 THEN y = y + 1
IF k$ = CHR$(0) + "H" AND x > 1 THEN x = x - 1
IF k$ = CHR$(0) + "P" AND x < 5 THEN x = x + 1
IF k$ = CHR$(27) THEN END
IF k$ = CHR$(13) AND b(x, y) > 0 AND (x <> e(1) OR y <> q(1)) THEN w = w + 1: e(w) = x: q(w) = y
IF w = 2 THEN
f = 0
IF e(1) > e(2) THEN q = -1 ELSE q = 1
FOR i = e(1) + q TO e(2) - q STEP q
IF b(i, q(1)) > 0 THEN 10
NEXT i
IF q(1) > q(2) THEN q = -1 ELSE q = 1
FOR i = q(1) + q TO q(2) - q STEP q
IF b(e(2), i) > 0 THEN 10
NEXT i
f = 1: GOTO 13
10
IF q(1) > q(2) THEN q = -1 ELSE q = 1
FOR i = q(1) + q TO q(2) - q STEP q
IF b(e(2), i) > 0 THEN 11
NEXT i
IF e(1) > e(2) THEN q = -1 ELSE q = 1
FOR i = e(1) + q TO e(2) - q STEP q
IF b(i, q(1)) > 0 THEN 11
NEXT i
f = 1: GOTO 13
11 IF e(1) = e(2) THEN
IF q(1) > q(2) THEN q = -1 ELSE q = 1
FOR i = q(1) TO q(2) STEP q
IF b(e(1) - 1, i) > 0 THEN 12
NEXT i: f = 1: GOTO 13
12 FOR i = q(1) TO q(2) STEP q
IF b(e(1) + 1, i) > 0 THEN 14
NEXT i: f = 1: GOTO 13
END IF
14 IF q(1) = q(2) THEN
IF e(1) > e(2) THEN q = -1 ELSE q = 1
FOR i = e(1) TO e(2) STEP q
IF b(i, q(1) - 1) > 0 THEN 15
NEXT i: f = 1: GOTO 13
15 FOR i = e(1) TO e(2) STEP q
IF b(i, q(1) + 1) > 0 THEN GOTO 13
NEXT i: f = 1
END IF
13 IF f = 1 THEN
b(e(1), q(1)) = 0: b(e(2), q(2)) = 0: v = v + 1
IF v = 30 THEN PRINT "YOU WIN": END
END IF
e(1) = 0: e(2) = 0: q(1) = 0: q(2) = 0
w = 0
END IF
IF UCASE$(k$) = "P" THEN 100
LOOP

CLS
SCREEN 12
INPUT k: f = 3
RANDOMIZE TIMER
a(0) = 324 - 41: a(1) = 324
b(0) = 38: b(1) = 43
x = 324: a = 324: b = 0: w = INT(RND * 7)
DO
LOCATE 1, 1: PRINT "MIN="; f
LINE (279, 0)-(359, 640), 7, BF
LINE (x, 318)-(x + 34, 398), k, BF
LINE (x + 2, 348)-(x + 32, 378), ABS(k = 0), BF
LINE (x + 4, 360)-(x + 30, 375), k, BF
LINE (a, b)-(a + 34, b + 80), w, BF
LINE (a + 2, b + 20)-(a + 32, b + 50), ABS(w = 0), BF
LINE (a + 4, b + 23)-(a + 30, b + 38), w, BF
LOCATE 21, b(ABS(x = 324)): PRINT LTRIM$(STR$(k))
b = b + 30
IF b > 640 THEN a = a(INT(RND * 2)): b = 0: w = INT(RND * 7)
IF a = x AND b <= 398 AND b >= 258 THEN
a = a(INT(RND * 2)): b = 0: w = INT(RND * 7): f = f - 1
IF f = 0 THEN LOCATE 15, 35: PRINT "GAME OVER": END
END IF
FOR i = 1 TO 300000: NEXT i
k$ = INKEY$
IF k$ = CHR$(0) + "K" AND x = a(1) THEN x = x - 41
IF k$ = CHR$(0) + "M" AND x = a(0) THEN x = x + 41
IF k$ = CHR$(27) THEN END
LOOP

CLS
SCREEN 12: f = 3: x = 320
DO
LOCATE 1, 1: PRINT f
IF y <> 0 THEN
CIRCLE (y, z), 5: CIRCLE (w, z), 5: z = z + 5
IF z > 480 THEN y = 0: z = 0: w = 0
END IF
PSET (x, 100)
DRAW "u10r40d10l60f10r60e10l20"
PSET (x + 20, 90)
DRAW "u20f10l10"
FOR i = 1 TO 9
IF (b(i) >= w - 5 AND b(i) <= w + 5 OR b(i) >= y - 5 AND b(i) <= y + 5 AND a(i) >= z - 5) AND a(i) <= z + 5 THEN
a(i) = 500: y = 0: z = 0: u = u + 1
IF u = 2 THEN f = f + 1: u = 0
END IF
IF b(i) <= x + 60 AND b(i) >= x - 10 AND a(i) >= 108 AND a(i) <= 111 THEN
f = f - 1: IF f = 0 THEN END
END IF
IF a(i) <= 111 OR a(i) = 0 THEN a(i) = 500
IF a(i) = 500 THEN b(i) = INT(RND * 630 + 10)
PSET (b(i), a(i)), 4: DRAW "g5d20r10u20h5": PAINT (b(i), a(i) + 1), 4, 4
a(i) = a(i) - INT(RND * 6 + 1)
NEXT i
FOR i = 1 TO 100000: NEXT i
PSET (x, 100), 0
DRAW "u10r40d10l60f10r60e10l20"
PSET (x + 20, 90), 0
DRAW "u20f10l10"
LINE (1, 111)-(640, 480), 1, BF
k$ = INKEY$
IF k$ = CHR$(0) + "K" THEN x = x - 7
IF k$ = CHR$(0) + "M" THEN x = x + 7
IF k$ = CHR$(0) + "P" THEN y = x: z = 116: w = x + 50
IF k$ = CHR$(13) THEN END
IF x <= 15 THEN x = x + 7
IF x >= 580 THEN x = x - 7
LOOP
END

这么明显的错误都看不出来捏，看你以后还怎么搞哦~~~~~