谁来发些游戏程序?给分!!! — 编程爱好者社区

11 楼

Lovely哆啦 [专家分：1360] 发布于 2007-07-31 08:05:00

很无聊诶!!

12 楼

wzc1996 [专家分：1680] 发布于 2007-08-01 21:27:00

http://www.programfan.com/club/post-213515.html
http://www.programfan.com/club/post-219227.html

13 楼

V2战警2 [专家分：390] 发布于 2007-08-05 16:42:00

老虎机，下载的哦！
[url=http://upload.programfan.com/upfile/200702281507722.rar]http://upload.programfan.com/upfile/200702281507722.rar[/url]

14 楼

610643007 [专家分：40] 发布于 2008-08-13 12:52:00

都不错啊

15 楼

gadenflm [专家分：150] 发布于 2008-11-14 20:02: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

16 楼

gadenflm [专家分：150] 发布于 2008-11-14 20:04:00

一个小游戏--扫雷:(m,是几阶的;n,地雷数)
CLS
INPUT "N,M="; N, M
DIM A(M, M)
FOR I = 1 TO M
　FOR J = 1 TO M
　　A(I, J) = INT(RND * 2)
　　IF A(I, J) = 1 THEN S = S + 1
　　IF S = N THEN EXIT FOR
　NEXT J
NEXT I
FOR I = 1 TO M * M
　Q = 0
　INPUT A, B
　IF A(A, B) = 1 THEN PRINT "game over!": END
　IF A(A, B) = 0 THEN A(A, B) = 1
　　FOR I1 = 1 TO M
　　　FOR I2 = 1 TO M
　　　　IF A(I1, I2) <> 1 THEN Q = 1
　　　　IF Q = 0 THEN PRINT "win": END
　NEXT I2, I1
NEXT I

17 楼

小小DAVID [专家分：300] 发布于 2009-12-11 20:42:00

好玩

18 楼

小勇士来了 [专家分：220] 发布于 2009-12-13 13:43:00

射击游戏吧
CLS
RANDOMIZE TIMER
LOCATE 10, 30
PRINT "Loading..."
FOR i = 1 TO 5000000: NEXT i
CLS
INPUT "jibie,2~50"; n
DIM a(n)
CLS
FOR k = 1 TO 21
  LOCATE k, 22
  PRINT "|"
  LOCATE k, 1
  PRINT "|"
  LOCATE 21, k
  PRINT "-"
NEXT k
i = 18
j = 10
s1 = i
s2 = j
LOCATE i, j
PRINT "  "; CHR$(4)
LOCATE i + 1, j
PRINT CHR$(4); CHR$(4); CHR$(4); CHR$(4); CHR$(4)
LOCATE i + 2, j
PRINT " "; CHR$(4); " "; CHR$(4)
a = INT(RND * 15) + 5
h = 1
GOSUB 100
s = 0
DO
  kk = kk + 1
  IF kk MOD 5 = 1 THEN
    IF a <> 0 THEN
      h = h + 1
      IF h >= 20 THEN LOCATE 21, 1: PRINT "You lose!": END
      GOSUB 100: GOSUB 200
    ELSE
      kk = 1
      h = 1
      a = INT(RND * 15) + 5
      GOSUB 100
    END IF
  END IF
  k$ = INKEY$
  fff = 0
  SELECT CASE k$
    CASE CHR$(0) + "K"
      j = j - 1
      fff = 1
    CASE CHR$(0) + "M"
      j = j + 1
      fff = 1
    CASE CHR$(27)
      EXIT DO
  END SELECT
  IF k$ = " " THEN
    FOR k = i - 2 TO 1 STEP -1
      LOCATE k, j + 2
      PRINT "|"
      FOR l = 1 TO 200000: NEXT l
      IF k = h AND j + 2 = a THEN
        a = 0: s = s + 1: LOCATE k, j + 2: PRINT " "
      END IF
      LOCATE k, j + 2
      PRINT " "
    NEXT k
  ELSEIF fff = 1 THEN
    IF i = 1 OR j = 1 OR i = 20 OR j = 18 THEN EXIT DO
    LOCATE s1, s2
    PRINT "   "
    LOCATE s1 + 1, s2
    PRINT "     "
    LOCATE s1 + 2, s2
    PRINT "    "
    FOR uu = 1 TO 20000: NEXT uu
    LOCATE i, j
    PRINT "  "; CHR$(4)
    LOCATE i + 1, j
    PRINT CHR$(4); CHR$(4); CHR$(4); CHR$(4); CHR$(4)
    LOCATE i + 2, j
    PRINT " "; CHR$(4); " "; CHR$(4)
    s1 = i
    s2 = j
  END IF
LOOP UNTIL s = n
LOCATE 21, 1
IF s = n THEN PRINT "You win!"
END
100
LOCATE h, a
PRINT CHR$(177)
RETURN
200
FOR oo = 1 TO 320000: NEXT oo
LOCATE h - 1, a
PRINT " "
RETURN

19 楼

小勇士来了 [专家分：220] 发布于 2009-12-15 20:10:00

CLS
RANDOMIZE TIMER
SCREEN 12
1 INPUT "Input level:"; level
IF level < 1 OR level > 5 OR level <> INT(level) THEN LOCATE 1, 1: GOTO 1
CLS
COLOR 4: LOCATE 4, 35: PRINT "level"; level
SLEEP 5
CLS
LINE (100, 100)-(200, 250), 14, BF
LINE (275, 100)-(375, 250), 14, BF
LINE (450, 100)-(550, 250), 14, BF
s1 = INT(RND * 9) + 2: s2 = INT(RND * 3) + 1
COLOR 7: DIM s(3)
FOR i = 1 TO 3
    LOCATE 8, 13 + (i - 1) * 22
    IF i = s2 THEN PRINT " A ": s(i) = 1 ELSE PRINT s1: s(i) = s1
NEXT i
SLEEP 3
m = 0
CLS
DO
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  k1 = INT(RND * 3) + 1
2 k2 = INT(RND * 3) + 1
  IF k2 = k1 THEN 2
  FOR i = 1 TO 3
      IF i = k1 OR i = k2 THEN
         LINE (100 + (i - 1) * 175, 100)-(200 + (i - 1) * 175, 250), 4, BF
      END IF
  NEXT i
  SLEEP 1
  CLS
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  FOR i = 1 TO (6 - level) * 75000: NEXT i
  SWAP s(k1), s(k2)
  m = m + 1
LOOP UNTIL m = 5 + level * 2
CLS
INPUT "Input 'A' situation:"; s
f = 1
FOR i = 1 TO 3
    IF s(i) = 1 AND i = s THEN PRINT "Right!": f = 0: EXIT FOR
NEXT i
IF f THEN
   PRINT "Wrong!Right is";
   FOR i = 1 TO 3
       IF s(i) = 1 THEN PRINT i
   NEXT i
END IF
END

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

主题：谁来发些游戏程序?给分!!!

回复列表（共19个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖