一个游戏项目(报名开始)_qbasic吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：527贴子：
一个游戏项目(报名开始)收藏
应吧里同学要求，一起学习研究并做一个游戏的项目。现在开始报名，大家一起参与其中，找找小乐趣。。。报名要求：1
名字（随便，只是个称呼）3
专长（算法，图形，编程，策划，故事。。。）5
想参与在项目中哪个部分。
工厂电工用电的基本技能，这里给您零基础培训，才感觉学是白上了
日期到8月15号例：7552169
专长：编程、图形、策划
项目：编程、策划、图形处理
呵呵，学习了，我加你了。 我先报个。希望能一直坚持下去！！
弄个大富翁？码方块？还是其他的，有要一起研究学习的 说明下哟。。。没人的话，就当我费话了。。。。
楼主有没有兴趣做战棋游戏?
做个足球游戏吧。
足球游戏不一定要3D,2D也可以图片是我能做到的画面水平
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或谁有QBASIC做得游戏程序_qbasic吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：527贴子：
谁有QBASIC做得游戏程序收藏
快试试吧，可以对自己使用挽尊卡咯~◆◆
我是个刚学得新手
求各位大哥大姐帮忙
工厂电工用电的基本技能，这里给您零基础培训，才感觉学是白上了
快试试吧，可以对自己使用挽尊卡咯~◆◆
...............................&寒...&
还没吃苦呢就想吃天鹅肉了
其实QB几乎不能遍游戏
最多(依照我的水平:&)也就是编编5子棋之类的东东,建议你要玩5子棋还是从网上下吧~
快试试吧，可以对自己使用挽尊卡咯~◆◆
呵呵我10年前写的QB程序
&学编程,什么都不懂的话最好用QB来打基础&在下火龙真人QQ306665&欢迎交流
快试试吧，可以对自己使用挽尊卡咯~◆◆
关于排雷操作
&运行程序后将出现3项难度选择，可按数字1或2或3然后回车开始游戏
esc键呼出菜单,将numlock键打开分别用numlock的8&2&4&6控制上下左右
然后用numlock的5确认选项。游戏中也是如此用numlock的8&2&4&6控制
上下左右用numlock的5打开当前方格。如将雷区打开扣一分&enter键标记
雷区，标记正确得一分，错误扣一分。
&
&关于宾角机操作
&
&运行程序后将出现两项选择&是开始游戏和选项，可用空格键切换
回车键确认，开始游戏后会出现大幅画面第一个是柿子，按空格键画面
消失，正式进入游戏画面，按数字键1-8进行选择，按回车确认，赢取
100分后会出现大幅画面葡萄，200分会出现樱桃。
&可用qbasic运行
快试试吧，可以对自己使用挽尊卡咯~◆◆
我会编赛车游戏哎
DECLARE SUB delay (Seconds!)CLSRANDOMIZE TIMER*==========================define=================================TYPE carpos
carx AS INTEGER
cary AS INTEGEREND TYPEDIM car(8) AS carposDIM cardy AS INTEGERDIM mark AS LONGDIM timec AS INTEGERDIM level AS INTEGERDIM player AS INTEGERDIM x AS INTEGERDIM dx AS INTEGERDIM r AS INTEGERDIM keyrecieve AS STRINGSCREEN 7COLOR 15, 0*==========================splash window============================LINE (100, 50)-(220, 100), 8, BLOCATE 9, 15PRINT &RYOWU CAR&DO
delay (.5)
IF i = 13 THEN
LOCATE 19, 11
COLOR i, 0
PRINT &PUSH
B$ = INKEY$
IF B$ && && THEN EXIT DOLOOP
COLOR 15, 0CLS*===========================initial para============================replay:*===========================game replay=============================x = 100cardy = 5mark = 0level = 1timec = 200player = 3LOCATE 10, 15PRINT &LEVEL
&; leveldelay (3)CLS*===========================level up and dead one player================levelup:FOR i = 0 TO 6car(i).cary = 200NEXT i*==========================initial screen show========================LINE (0, 0)-(50, 100), 3, BLINE (0, 105)-(50, 150), 3, BLINE (255, 0)-(305, 100), 3, BLINE (55, 0)-(60, 250), 2, BFLINE (245, 0)-(250, 250), 2, BFLOCATE 2, 2PRINT &MARK&LOCATE 2, 34PRINT &RYOWU&LOCATE 4, 34PRINT &1.24&LOCATE 7, 34PRINT &space&LOCATE 8, 34PRINT &end&LOCATE 10, 34PRINT &a,s,d&LOCATE 11, 34PRINT &ctrl&LOCATE 6, 2PRINT &SPEED&LOCATE 10, 2PRINT &LEVEL&LOCATE 15, 2PRINT &TIME&DO
IF timec & 0 THEN
timec = 200
level = level + 1
cardy = cardy + 2
LOCATE 10, 15
PRINT &LEVEL
GOTO levelup
FOR i = 0 TO 6
IF car(i).carx & x - 9 AND car(i).carx & x + 9 AND car(i).cary & 136 AND car(i).cary & 164 THEN
LOCATE 8, 15
PRINT &YOUR MARK: &; mark
LOCATE 10, 15
IF player & 1 THEN
player = player - 1
PRINT &LEFT
GOTO levelup
PRINT &GAME OVER!&
GOTO replay
IF car(i).cary & 150 + 10 * i THEN
LINE (car(i).carx, car(i).cary)-(car(i).carx + 10, car(i).cary + 15), 0, BF
car(i).carx = INT(RND * 170) + 60
car(i).cary = 0
FOR i = 0 TO 6
LINE (car(i).carx, car(i).cary)-(car(i).carx + 10, car(i).cary + 15), 0, BF
car(i).cary = car(i).cary + cardy
LINE (car(i).carx, car(i).cary)-(car(i).carx + 10, car(i).cary + 15), 7, BF
LINE (car(i).carx, car(i).cary)-(car(i).carx + 10, car(i).cary + 15), i + 1, B
delay (.1)
mark = mark + 1
timec = timec - 1
keyrecieve = INKEY$
IF keyrecieve = &a& THEN
IF keyrecieve = &d& THEN
IF keyrecieve = &s& THEN
IF keyrecieve = & & THEN
LOCATE 8, 15
PRINT &YOUR MARK: &; STR$(mark)
COLOR 3, 0
LOCATE 10, 10
PRINT &Thank You for playing...&
*========================show car self=========================
LINE (x, 150)-(x + 10, 165), 0, BF
IF x + dx & 62 AND x + dx & 235 THEN
x = x + dx
LINE (x, 150)-(x + 10, 165), 15, BF
LINE (x, 150)-(x + 10, 165), 7, B
*============================depand dead========================
LOCATE 4, 2
PRINT STR$(mark)
LOCATE 8, 2
PRINT cardy
LOCATE 12, 2
PRINT level
LOCATE 17, 2
PRINT timecLOOP* =============================== Delay ================================*
Delay based on time so that wait will be the same on any processor.*
Notice the check for negative numbers so that the delay won*t*
freeze at midnight when the delay could become negative.* ======================================================================*SUB delay (Seconds!) STATIC
Begin! = TIMER
DO UNTIL (TIMER - Begin! & Seconds!) OR (TIMER - Begin! & 0)
LOOPEND SUB
我说句实话，qbasic其实也挺强大的。
好多qbasic写的游戏，加我QQ7552169 我传你。。。。
谁给我一些QB游戏，加我QQ：
好不容易弄了个贪吃蛇
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或