主题：原创]坦克之最
igdx
[专家分：110] 发布于 2005-12-30 15:22:00
游戏简介:
这是一个双人对抗游戏
各有20条生命和25发高空炮，发完后只可进行零距离攻击
在两辆坦克相撞时可进行零距离攻击
如果两辆坦克距离很近，那么所发的高空炮就会打到外面去
按键：
1P: W上 A左 S下 D右 SPACE发射
2P: (辅助键区）8上 4左 5下 6右 ENTER发射
由于NT核心与DOS核心，在默认情况下运行DOS程序，速度有所差异(前者比后者快)
在玩游戏时按键p可加速以此来适应各个操作系统(默认速度为适合NT核心，修改后就不能再改回了）
游戏不完善之处请各位高手加以指教。
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
最后更新于：2009-12-16 08:59:00
回复列表 （共79个回复）
沙发
igdx [专家分：110] 发布于 2005-12-30 15:14: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
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
板凳
igdx [专家分：110] 发布于 2005-12-30 15:15: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
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
ELSEIF j2 <> INT(j2) 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
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
IF aa1 + ww1 + dd1 = 1 THEN
SELECT CASE 1
CASE dd1
PUT (j1 * 28, j2 * 28), t4y
CASE aa1
PUT (j1 * 28, j2 * 28), t3z
CASE ww1
PUT (j1 * 28, j2 * 28), t1s
END SELECT
ELSE
PUT (j1 * 28, j2 * 28), t2x
END IF
j2 = j2 + .0625 / 2
PUT (j1 * 28, j2 * 28), t2x
ss1 = 1: ww1 = 0: aa1 = 0: dd1 = 0
ELSEIF j2 <> INT(j2) THEN
IF aa1 + ww1 + dd1 = 1 THEN
SELECT CASE 1
CASE dd1
PUT (j1 * 28, j2 * 28), t4y
CASE aa1
PUT (j1 * 28, j2 * 28), t3z
CASE ww1
PUT (j1 * 28, j2 * 28), t1s
END SELECT
ELSE
PUT (j1 * 28, j2 * 28), t2x
END IF
j2 = j2 + .0625 / 2
PUT (j1 * 28, j2 * 28), t2x
ss1 = 1: ww1 = 0: aa1 = 0: dd1 = 0
END IF
END IF
END SELECT
3 楼
igdx [专家分：110] 发布于 2005-12-30 15:15:00
SELECT CASE et
CASE 28
a1 = 3 * 3.14159265# / 2
B = 5 * 3.14159265# / 2 + .015
k = 8
SELECT CASE 1
CASE ww1
'ru guo tank xiang zhuang ze yong jing ju le wu qi
IF (ABS(j2 - (j4 + 1)) = 0 OR ABS(j2 - (j4 + 1)) < .03125) AND (ABS(j1 - j3) < 1 OR j3 = j1) AND k1 = 1 THEN
'diao yong da zhong le de zi cheng xu
CALL jz1
'fang zi an zhu bu fang jiu yi zhi jian sheng ming
k1 = 0
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
ELSEIF NOT ((ABS(j2 - (j4 + 1)) = 0 OR ABS(j2 - (j4 + 1)) < .03125) AND (ABS(j1 - j3) < 1 OR j3 = j1)) AND zd1 <> 100 THEN
'yong yuan ju le pao wu xiang wu qi
'liang liang tank ruo xiao yu yi ding ju ze zi dan da dao wei mian qu
IF j2 - j4 >= 3 THEN
'pao wu xiang wu qi
s = (j2 * 28 - j4 * 28 - 18) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (j1 * 28 + 12 + COS(i) * 60, j2 * 28 - k), zdy
'yan shi
FOR c = 1 TO ts1: NEXT c
PUT (j1 * 28 + 12 + COS(i) * 60, j2 * 28 - k), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
IF ABS(j1 - j3) < 1 OR j3 = j1 THEN
CALL jz1
END IF
ELSE
s = (j2 * 28 - 12) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (j1 * 28 + 12 + COS(i) * 60, j2 * 28 - k), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j1 * 28 + 12 + COS(i) * 60, j2 * 28 - k), zdy
k = k + 6
NEXT i
'ping bi suo you an jian
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
END IF
'jian zi dan de shu mu
LINE (576 - zd1 - 4, 450)-(576 - zd1, 455), 0, BF
zd1 = zd1 + 4
END IF
'----------
CASE aa1
IF (ABS(j1 - (j3 + 1)) = 0 OR ABS(j1 - (j3 + 1)) < .03125) AND (ABS(j2 - j4) < 1 OR j2 = j4) AND k1 = 1 THEN
CALL jz1
k1 = 0
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
ELSEIF NOT ((ABS(j1 - (j3 + 1)) = 0 OR ABS(j1 - (j3 + 1)) < .03125) AND (ABS(j2 - j4) < 1 OR j2 = j4)) AND zd1 <> 100 THEN
IF j1 - j3 >= 3 THEN
s = (j1 * 28 - j3 * 28 - 24) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (j1 * 28 - k, j2 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j1 * 28 - k, j2 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
IF ABS(j2 - j4) < 1 OR j2 = j4 THEN
CALL jz1
END IF
ELSE
s = (j1 * 28 - 12) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (j1 * 28 - k, j2 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j1 * 28 - k, j2 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
END IF
LINE (576 - zd1 - 4, 450)-(576 - zd1, 455), 0, BF
zd1 = zd1 + 4
END IF
'------
4 楼
igdx [专家分：110] 发布于 2005-12-30 15:16:00
CASE ss1
IF (ABS(j2 + 1 - j4) = 0 OR ABS(j2 + 1 - j4) < .03125) AND (ABS(j1 - j3) < 1 OR j1 = j3) AND k1 = 1 THEN
CALL jz1
k1 = 0
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
ELSEIF NOT ((ABS(j2 + 1 - j4) = 0 OR ABS(j2 + 1 - j4) < .03125) AND (ABS(j1 - j3) < 1 OR j1 = j3)) AND zd1 <> 100 THEN
IF j4 - j2 >= 3 THEN
s = (j4 * 28 - j2 * 28 - 18) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (j1 * 28 + 11 - COS(i) * 60, j2 * 28 + k + 23), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j1 * 28 + 11 - COS(i) * 60, j2 * 28 + k + 23), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
IF ABS(j1 - j3) < 1 OR j1 = j3 THEN
CALL jz1
END IF
ELSE
s = (460 - j2 * 28 - 28) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (j1 * 28 + 11 - COS(i) * 60, j2 * 28 + k + 23), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j1 * 28 + 11 - COS(i) * 60, j2 * 28 + k + 23), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
END IF
LINE (576 - zd1 - 4, 450)-(576 - zd1, 455), 0, BF
zd1 = zd1 + 4
END IF
'----------
CASE dd1
IF (ABS(j1 + 1 - j3) = 0 OR ABS(j1 + 1 - j3) < .03125) AND (ABS(j2 - j4) < 1 OR j2 = j4) AND k1 = 1 THEN
CALL jz1
k1 = 0
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
ELSEIF NOT ((ABS(j1 + 1 - j3) = 0 OR ABS(j1 + 1 - j3) < .03125) AND (ABS(j2 - j4) < 1 OR j2 = j4)) AND zd1 <> 100 THEN
IF j3 - j1 >= 3 THEN
s = (j3 * 28 - j1 * 28 - 24) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (k + j1 * 28 + 22, j2 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (k + j1 * 28 + 22, j2 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
IF ABS(j2 - j4) < 1 OR j2 = j4 THEN
CALL jz1
END IF
ELSE
s = (580 - j1 * 28) / 6
FOR i = a1 TO B STEP (B - a1) / s
PUT (k + j1 * 28 + 22, j2 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (k + j1 * 28 + 22, j2 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
END IF
LINE (576 - zd1 - 4, 450)-(576 - zd1, 455), 0, BF
zd1 = zd1 + 4
END IF
END SELECT
END SELECT
END SUB
SUB ankey2 (ke)
'ankey2-----------------
SELECT CASE ke
CASE 57
sp = 57: d = 32 + 128: a = 30 + 128: w = 17 + 128: s = 31 + 128
CASE 57 + 128
sp = 57 + 128
CASE 17
w = 17: sp = 57 + 128: d = 32 + 128: a = 30 + 128: s = 31 + 128
CASE 17 + 128
w = 17 + 128
CASE 30
a = 30: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
CASE 30 + 128
a = 30 + 128
CASE 31
s = 31: sp = 57 + 128: d = 32 + 128: a = 30 + 128: w = 17 + 128
CASE 31 + 128
s = 31 + 128
CASE 32
d = 32: sp = 57 + 128: a = 30 + 128: w = 17 + 128: s = 31 + 128
CASE 32 + 128
d = 32 + 128
CASE 1
END
END SELECT
'-----------------------
5 楼
igdx [专家分：110] 发布于 2005-12-30 15:18:00
SELECT CASE d
CASE 32
IF (ABS(j3 + 1 - j1) = 0 OR ABS(j3 + 1 - j1) < .03125) AND (ABS(j4 - j2) < 1 OR j4 = j2) THEN
k2 = 1
ELSE
IF tu%(j3 + 1, j4 + .47) <> 1 AND tu%(j3 + 1, j4 - .47) <> 1 AND tu%(j3 + 1, j4) <> 1 THEN
IF ww2 + ss2 + aa2 = 1 THEN
SELECT CASE 1
CASE ww2
PUT (j3 * 28, j4 * 28), tas
CASE ss2
PUT (j3 * 28, j4 * 28), tbx
CASE aa2
PUT (j3 * 28, j4 * 28), tcz
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tdy
END IF
j3 = j3 + .0625 / 2
PUT (j3 * 28, j4 * 28), tdy
dd2 = 1: ww2 = 0: aa2 = 0: ss2 = 0
ELSEIF j3 <> INT(j3) THEN
IF ww2 + ss2 + aa2 = 1 THEN
SELECT CASE 1
CASE ww2
PUT (j3 * 28, j4 * 28), tas
CASE ss2
PUT (j3 * 28, j4 * 28), tbx
CASE aa2
PUT (j3 * 28, j4 * 28), tcz
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tdy
END IF
j3 = j3 + .0625 / 2
PUT (j3 * 28, j4 * 28), tdy
dd2 = 1: ww2 = 0: aa2 = 0: ss2 = 0
END IF
END IF
END SELECT
SELECT CASE w
CASE 17
IF (ABS(j3 - j1) < 1 OR j3 = j1) AND (ABS(j4 - (j2 + 1)) = 0 OR ABS(j4 - (j2 + 1)) < .03125) THEN
k2 = 1
ELSE
IF tu%(j3 + .47, j4 - 1) <> 1 AND tu%(j3 - .47, j4 - 1) <> 1 AND tu%(j3, j4 - 1) <> 1 THEN
IF dd2 + ss2 + aa2 = 1 THEN
SELECT CASE 1
CASE dd2
PUT (j3 * 28, j4 * 28), tdy
CASE ss2
PUT (j3 * 28, j4 * 28), tbx
CASE aa2
PUT (j3 * 28, j4 * 28), tcz
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tas
END IF
j4 = j4 - .0625 / 2
PUT (j3 * 28, j4 * 28), tas
ww2 = 1: dd2 = 0: aa2 = 0: ss2 = 0
ELSEIF j4 <> INT(j4) THEN
IF dd2 + ss2 + aa2 = 1 THEN
SELECT CASE 1
CASE dd2
PUT (j3 * 28, j4 * 28), tdy
CASE ss2
PUT (j3 * 28, j4 * 28), tbx
CASE aa2
PUT (j3 * 28, j4 * 28), tcz
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tas
END IF
j4 = j4 - .0625 / 2
PUT (j3 * 28, j4 * 28), tas
ww2 = 1: dd2 = 0: aa2 = 0: ss2 = 0
END IF
END IF
END SELECT
SELECT CASE a
CASE 30
IF (ABS(j3 - (j1 + 1)) = 0 OR ABS(j3 - (j1 + 1)) < .03125) AND (ABS(j4 - j2) < 1 OR j4 = j2) THEN
k2 = 1
ELSE
IF tu%(j3 - 1, j4 + .47) <> 1 AND tu%(j3 - 1, j4 - .47) <> 1 AND tu%(j3 - 1, j4) <> 1 THEN
IF dd2 + ss2 + ww2 = 1 THEN
SELECT CASE 1
CASE dd2
PUT (j3 * 28, j4 * 28), tdy
CASE ss2
PUT (j3 * 28, j4 * 28), tbx
CASE ww2
PUT (j3 * 28, j4 * 28), tas
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tcz
END IF
j3 = j3 - .0625 / 2
PUT (j3 * 28, j4 * 28), tcz
aa2 = 1: dd2 = 0: ww2 = 0: ss2 = 0
ELSEIF j3 <> INT(j3) THEN
IF dd2 + ss2 + ww2 = 1 THEN
SELECT CASE 1
CASE dd2
PUT (j3 * 28, j4 * 28), tdy
CASE ss2
PUT (j3 * 28, j4 * 28), tbx
CASE ww2
PUT (j3 * 28, j4 * 28), tas
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tcz
END IF
j3 = j3 - .0625 / 2
PUT (j3 * 28, j4 * 28), tcz
aa2 = 1: dd2 = 0: ww2 = 0: ss2 = 0
END IF
END IF
END SELECT
6 楼
igdx [专家分：110] 发布于 2005-12-30 15:18:00
SELECT CASE s
CASE 31
IF (ABS(j3 - j1) < 1 OR j3 = j1) AND (ABS(j4 + 1 - j2) = 0 OR ABS(j4 + 1 - j2) < .03125) THEN
k2 = 1
ELSE
IF tu%(j3 + .47, j4 + 1) <> 1 AND tu%(j3 - .47, j4 + 1) <> 1 AND tu%(j3, j4 + 1) <> 1 THEN
IF dd2 + ww2 + aa2 = 1 THEN
SELECT CASE 1
CASE dd2
PUT (j3 * 28, j4 * 28), tdy
CASE ww2
PUT (j3 * 28, j4 * 28), tas
CASE aa2
PUT (j3 * 28, j4 * 28), tcz
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tbx
END IF
j4 = j4 + .0625 / 2
PUT (j3 * 28, j4 * 28), tbx
ss2 = 1: dd2 = 0: ww2 = 0: aa2 = 0
ELSEIF j4 <> INT(j4) THEN
IF dd2 + ww2 + aa2 = 1 THEN
SELECT CASE 1
CASE dd2
PUT (j3 * 28, j4 * 28), tdy
CASE ww2
PUT (j3 * 28, j4 * 28), tas
CASE aa2
PUT (j3 * 28, j4 * 28), tcz
END SELECT
ELSE
PUT (j3 * 28, j4 * 28), tbx
END IF
j4 = j4 + .0625 / 2
PUT (j3 * 28, j4 * 28), tbx
ss2 = 1: dd2 = 0: ww2 = 0: aa2 = 0
END IF
END IF
END SELECT
SELECT CASE sp
CASE 57
a2 = 3 * 3.14159265# / 2
B = 5 * 3.14159265# / 2 + .015
k = 8
SELECT CASE 1
CASE ww2
IF (ABS(j3 - j1) < 1 OR j3 = j1) AND (ABS(j4 - (j2 + 1)) = 0 OR ABS(j4 - (j2 + 1)) < .03125) AND k2 = 1 THEN
CALL jz2
k2 = 0
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
ELSEIF NOT ((ABS(j3 - j1) < 1 OR j3 = j1) AND (ABS(j4 - (j2 + 1)) = 0 OR ABS(j4 - (j2 + 1)) < .03125)) AND zd2 <> 100 THEN
IF j4 - j2 >= 3 THEN
s = (j4 * 28 - j2 * 28 - 18) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (j3 * 28 + 12 + COS(i) * 60, j4 * 28 - k), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j3 * 28 + 12 + COS(i) * 60, j4 * 28 - k), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
IF ABS(j3 - j1) < 1 OR j3 = j1 THEN
CALL jz2
END IF
ELSE
s = (j4 * 28 - 12) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (j3 * 28 + 12 + COS(i) * 60, j4 * 28 - k), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j3 * 28 + 12 + COS(i) * 60, j4 * 28 - k), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
END IF
LINE (128 - zd2 - 4, 450)-(128 - zd2, 455), 0, BF
zd2 = zd2 + 4
END IF
'-----
7 楼
igdx [专家分：110] 发布于 2005-12-30 15:19:00
CASE dd2
IF (ABS(j3 + 1 - j1) = 0 OR ABS(j3 + 1 - j1) < .03125) AND (ABS(j4 - j2) < 1 OR j4 = j2) AND k2 = 1 THEN
CALL jz2
k2 = 0
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
ELSEIF NOT ((ABS(j3 + 1 - j1) = 0 OR ABS(j3 + 1 - j1) < .03125) AND (ABS(j4 - j2) < 1 OR j4 = j2)) AND zd2 <> 100 THEN
IF j1 - j3 >= 3 THEN
s = (j1 * 28 - j3 * 28 - 24) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (k + j3 * 28 + 22, j4 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (k + j3 * 28 + 22, j4 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
IF ABS(j4 - j2) < 1 OR j4 = j2 THEN
CALL jz2
END IF
ELSE
s = (580 - j3 * 28) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (k + j3 * 28 + 22, j4 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (k + j3 * 28 + 22, j4 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
END IF
LINE (128 - zd2 - 4, 450)-(128 - zd2, 455), 0, BF
zd2 = zd2 + 4
END IF
'-----
CASE aa2
IF (ABS(j3 - (j1 + 1)) = 0 OR ABS(j3 - (j1 + 1)) < .03125) AND (ABS(j4 - j2) < 1 OR j4 = j2) AND k2 = 1 THEN
CALL jz2
k2 = 0
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
ELSEIF NOT ((ABS(j3 - (j1 + 1)) = 0 OR ABS(j3 - (j1 + 1)) < .03125) AND (ABS(j4 - j2) < 1 OR j4 = j2)) AND zd2 <> 100 THEN
IF j3 - j1 >= 3 THEN
s = (j3 * 28 - j1 * 28 - 24) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (j3 * 28 - k, j4 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j3 * 28 - k, j4 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
IF ABS(j4 - j2) < 1 OR j4 = j2 THEN
CALL jz2
END IF
ELSE
s = (j3 * 28 - 12) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (j3 * 28 - k, j4 * 28 - COS(i) * 60 + 12), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j3 * 28 - k, j4 * 28 - COS(i) * 60 + 12), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
END IF
LINE (128 - zd2 - 4, 450)-(128 - zd2, 455), 0, BF
zd2 = zd2 + 4
END IF
'-------
8 楼
igdx [专家分：110] 发布于 2005-12-30 15:20:00
CASE ss2
IF (ABS(j3 - j1) < 1 OR j3 = j1) AND (ABS(j4 + 1 - j2) = 0 OR ABS(j4 + 1 - j2) < .03125) AND k2 = 1 THEN
CALL jz2
k2 = 0
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
ELSEIF NOT ((ABS(j3 - j1) < 1 OR j3 = j1) AND (ABS(j4 + 1 - j2) = 0 OR ABS(j4 + 1 - j2) < .03125)) AND zd2 <> 100 THEN
IF j2 - j4 >= 3 THEN
s = (j2 * 28 - j4 * 28 - 18) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (j3 * 28 + 11 - COS(i) * 60, j4 * 28 + k + 23), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j3 * 28 + 11 - COS(i) * 60, j4 * 28 + k + 23), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
IF ABS(j3 - j1) < 1 OR j3 = j1 THEN
CALL jz2
END IF
ELSE
s = (460 - j4 * 28 - 28) / 6
FOR i = a2 TO B STEP (B - a2) / s
PUT (j3 * 28 + 11 - COS(i) * 60, j4 * 28 + k + 23), zdy
FOR c = 1 TO ts1: NEXT c
PUT (j3 * 28 + 11 - COS(i) * 60, j4 * 28 + k + 23), zdy
k = k + 6
NEXT i
a = 30 + 128: sp = 57 + 128: d = 32 + 128: w = 17 + 128: s = 31 + 128
left = 75 + 128: up = 72 + 128: et = 28 + 128: down = 80 + 128: right = 77 + 128
END IF
LINE (128 - zd2 - 4, 450)-(128 - zd2, 455), 0, BF
zd2 = zd2 + 4
END IF
END SELECT
END SELECT
END SUB
SUB htu (b1, b2, b3, b4)
'bei jing
LINE (b1, b2)-(b3, b4), 1, BF
LINE (b1 + 1, b2 + 1)-(b3 - 1, b4 - 1), 7, B
END SUB
9 楼
igdx [专家分：110] 发布于 2005-12-30 15:21:00
SUB jz1
SELECT CASE 1
CASE ww2
PUT (j3 * 28, j4 * 28), t1s
'yan shi
FOR c = 1 TO ts2: NEXT c
PUT (j3 * 28, j4 * 28), t1s
'zou yue
PLAY "d16e16"
PUT (j3 * 28, j4 * 28), tas
'gui wei bing fang zi liang liang tank chong die
IF j2 <= 7 THEN
j3 = 8: j4 = 13
ww2 = 1: aa2 = 0: dd2 = 0: ss2 = 0
PUT (8 * 28, 13 * 28), tas
ELSE
j3 = 8: j4 = 2
ww2 = 0: aa2 = 0: dd2 = 0: ss2 = 1
PUT (8 * 28, 2 * 28), tbx
END IF
'sm2-qu
LINE (108 - sm2 - 4, 435)-(108 - sm2, 440), 0, BF
sm2 = sm2 + 4
CASE aa2
PUT (j3 * 28, j4 * 28), t3z
FOR c = 1 TO ts2: NEXT c
PUT (j3 * 28, j4 * 28), t3z
PLAY "d16e16"
PUT (j3 * 28, j4 * 28), tcz
IF j2 <= 7 THEN
j3 = 8: j4 = 13
ww2 = 1: aa2 = 0: dd2 = 0: ss2 = 0
PUT (8 * 28, 13 * 28), tas
ELSE
j3 = 8: j4 = 2
ww2 = 0: aa2 = 0: dd2 = 0: ss2 = 1
PUT (8 * 28, 2 * 28), tbx
END IF
LINE (108 - sm2 - 4, 435)-(108 - sm2, 440), 0, BF
sm2 = sm2 + 4
CASE dd2
PUT (j3 * 28, j4 * 28), t4y
FOR c = 1 TO ts2: NEXT c
PUT (j3 * 28, j4 * 28), t4y
PLAY "d16e16"
PUT (j3 * 28, j4 * 28), tdy
IF j2 <= 7 THEN
j3 = 8: j4 = 13
ww2 = 1: aa2 = 0: dd2 = 0: ss2 = 0
PUT (8 * 28, 13 * 28), tas
ELSE
j3 = 8: j4 = 2
ww2 = 0: aa2 = 0: dd2 = 0: ss2 = 1
PUT (8 * 28, 2 * 28), tbx
END IF
LINE (108 - sm2 - 4, 435)-(108 - sm2, 440), 0, BF
sm2 = sm2 + 4
CASE ss2
PUT (j3 * 28, j4 * 28), t2x
FOR c = 1 TO ts2: NEXT c
PUT (j3 * 28, j4 * 28), t2x
PLAY "d16e16"
PUT (j3 * 28, j4 * 28), tbx
IF j2 <= 7 THEN
j3 = 8: j4 = 13
ww2 = 1: aa2 = 0: dd2 = 0: ss2 = 0
PUT (8 * 28, 13 * 28), tas
ELSE
j3 = 8: j4 = 2
ww2 = 0: aa2 = 0: dd2 = 0: ss2 = 1
PUT (8 * 28, 2 * 28), tbx
END IF
LINE (108 - sm2 - 4, 435)-(108 - sm2, 440), 0, BF
sm2 = sm2 + 4
END SELECT
END SUB
10 楼
igdx [专家分：110] 发布于 2005-12-30 15:22:00
SUB jz2
SELECT CASE 1
CASE ww1
PUT (j1 * 28, j2 * 28), tas
FOR c = 1 TO ts2: NEXT c
PUT (j1 * 28, j2 * 28), tas
PLAY "d16e16"
PUT (j1 * 28, j2 * 28), t1s
IF j4 <= 7 THEN
j1 = 12: j2 = 13
ww1 = 1: aa1 = 0: dd1 = 0: ss1 = 0
PUT (12 * 28, 13 * 28), t1s
ELSE
j1 = 12: j2 = 2
ww1 = 0: aa1 = 0: dd1 = 0: ss1 = 1
PUT (12 * 28, 2 * 28), t2x
END IF
'sm1-
LINE (556 - sm1 - 4, 435)-(556 - sm1, 440), 0, BF
sm1 = sm1 + 4
CASE aa1
PUT (j1 * 28, j2 * 28), tcz
FOR c = 1 TO ts2: NEXT c
PUT (j1 * 28, j2 * 28), tcz
PLAY "d16e16"
PUT (j1 * 28, j2 * 28), t3z
IF j4 <= 7 THEN
j1 = 12: j2 = 13
ww1 = 1: aa1 = 0: dd1 = 0: ss1 = 0
PUT (12 * 28, 13 * 28), t1s
ELSE
j1 = 12: j2 = 2
ww1 = 0: aa1 = 0: dd1 = 0: ss1 = 1
PUT (12 * 28, 2 * 28), t2x
END IF
LINE (556 - sm1 - 4, 435)-(556 - sm1, 440), 0, BF
sm1 = sm1 + 4
CASE dd1
PUT (j1 * 28, j2 * 28), tdy
FOR c = 1 TO ts2: NEXT c
PUT (j1 * 28, j2 * 28), tdy
PLAY "d16e16"
PUT (j1 * 28, j2 * 28), t4y
IF j4 <= 7 THEN
j1 = 12: j2 = 13
ww1 = 1: aa1 = 0: dd1 = 0: ss1 = 0
PUT (12 * 28, 13 * 28), t1s
ELSE
j1 = 12: j2 = 2
ww1 = 0: aa1 = 0: dd1 = 0: ss1 = 1
PUT (12 * 28, 2 * 28), t2x
END IF
LINE (556 - sm1 - 4, 435)-(556 - sm1, 440), 0, BF
sm1 = sm1 + 4
CASE ss1
PUT (j1 * 28, j2 * 28), tbx
FOR c = 1 TO ts2: NEXT c
PUT (j1 * 28, j2 * 28), tbx
PLAY "d16e16"
PUT (j1 * 28, j2 * 28), t2x
IF j4 <= 7 THEN
j1 = 12: j2 = 13
ww1 = 1: aa1 = 0: dd1 = 0: ss1 = 0
PUT (12 * 28, 13 * 28), t1s
ELSE
j1 = 12: j2 = 2
ww1 = 0: aa1 = 0: dd1 = 0: ss1 = 1
PUT (12 * 28, 2 * 28), t2x
END IF
LINE (556 - sm1 - 4, 435)-(556 - sm1, 440), 0, BF
sm1 = sm1 + 4
END SELECT
END SUB
我来回复
您所在位置：