主题:极品飞车2
藐视一切
[专家分:110] 发布于 2006-11-25 16:31:00
极品飞车怎样用QB来编
回复列表 (共12个回复)
沙发
w1212q [专家分:660] 发布于 2006-11-25 16:33:00
高手是不会用QB来编游戏的
板凳
藐视一切 [专家分:110] 发布于 2006-11-25 16:35:00
高手绝对是无选择的
3 楼
w1212q [专家分:660] 发布于 2006-11-25 16:35:00
你玩够了吗?
4 楼
moz [专家分:37620] 发布于 2006-11-25 18:12:00
拜托,请走好你自己的路,
别沿着别人的脚印踩下去,
你会陷进去不能自拔的.
因为那不只是一个人的脚印.
5 楼
w1212q [专家分:660] 发布于 2006-11-27 13:04:00
学学也可以;
6 楼
qb45 [专家分:2880] 发布于 2006-11-28 09:07:00
qbasic只是给大家学习编程的一个基础,进了编程的门,了解什么是编程以后就马上去学别的语言为好。
7 楼
w1212q [专家分:660] 发布于 2006-11-29 10:52:00
VB才是BASIC的开发工具,因为现在是OS的天下;
8 楼
007bond [专家分:540] 发布于 2007-05-07 16:16:00
高手绝对能编极品飞车2
9 楼
chyx [专家分:450] 发布于 2007-05-07 16:37:00
CLS
SCREEN 12
INPUT k: f = 3
RANDOMIZE TIMER
a(0) = 324 - 41: a(1) = 324
b(0) = 37: b(1) = 42
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 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
10 楼
冷石_jasv [专家分:1570] 发布于 2007-05-08 15:39:00
借用电视上的一句话:保持您的好奇心。。。。。
可以说。能不能用QB写出级品飞车和能不能用C写答案都差不多。。。
当然要求不是很高的话。。并且愿意花付出相当的努力。写个"粗糙"的演示程序应该还是能胜任的。DOS底下就不要要求太高了。。。。怎么说N年前有人用QB写了个3D水壶的旋转演示程序。。。这个程序见过的人应该不算是少数吧?
我来回复