字符炸弹
11-08 12:37:21软件技巧
浏览次数:323次
标签:软件技巧大全,http://www.duosi8.com
字符炸弹,
在游戏过程中,玩家若想中断游戏,可按〈ESC〉键(按住不放,下同);若要重新选择速度,可按〈SPACE〉键;若要暂停程序运行,可拍一下〈PAUSE〉键(若您使用的键盘上没有该键,可用〈CTRL〉+〈CapsLock〉代替),然后按下除〈PAUSE〉之外的任意键将继续程序运行。
10 KEY OFF: CLS : RANDOMIZE (TIMER)
20 LOCATE 9, 13: PRINT "W e l c o m e t o t h i s P R O G R A M !"
30 LOCATE 10, 13: PRINT "---------------------------------------------"
40 LOCATE 20, 25: PRINT "Press a key to begin..."
50 IF INKEY$ = "" THEN 50
60 INPUT "How many letters"; NUM: IF NUM < 1 THEN 60
70 INPUT "Speed(1-9)"; SP: IF SP > 9 OR SP < 1 THEN 70
80 SPEED = 300 * (10 - SP): M = 1: CLS
90 FOR T = 1 TO 79
100 LOCATE 2, T: PRINT CHR$(1)
110 LOCATE 23, T: PRINT CHR$(2)
120 NEXT T
130 WHILE M <= NUM
140 X = INT(RND * 79) + 1
150 LETTER$ = CHR$(INT(RND * 93) + 33)
160 GOSUB 240
165 M = M + 1
170 WEND
180 MARK = W / NUM * 100: CLS : LOCATE 10, 28: PRINT "GAME OVER!": LOCATE 12, 28
190 IF MARK >= 80 THEN PRINT " GREAT!" ELSE IF MARK >= 60 THEN PRINT "NOT TOO BAD."
210 IF MARK < 60 THEN LOCATE 12, 20: PRINT "Sorry your mark is bad. Practise more!"
220 LOCATE 14, 26: PRINT "Your mark:"; MARK; "%"
230 END
240 FOR Y = 3 TO 23
260 LOCATE Y, X: PRINT LETTER$
270 FOR L = 1 TO SPEED: NEXT L
280 LOCATE Y, X: PRINT " "
290 IF INKEY$ = LETTER$ THEN GOSUB 350: RETURN
300 IF INKEY$ = CHR$(27) THEN CLS : END
310 IF INKEY$ = CHR$(32) THEN CLS : GOTO 70
320 IF INKEY$ <> "" THEN BEEP
330 NEXT Y
340 RETURN
350 LOCATE Y, X: PRINT LETTER$
370 FOR H = 22 TO Y + 1 STEP -1
380 LOCATE H, X: PRINT CHR$(24): SOUND (23 - H) * 50, .05
400 LOCATE H, X: PRINT " "
410 NEXT H
420 LOCATE H, X: PRINT CHR$(15): SOUND 400, .1: SOUND 100, .1
440 LOCATE H, X: PRINT " "
450 W = W + 1
460 RETURN
在游戏过程中,玩家若想中断游戏,可按〈ESC〉键(按住不放,下同);若要重新选择速度,可按〈SPACE〉键;若要暂停程序运行,可拍一下〈PAUSE〉键(若您使用的键盘上没有该键,可用〈CTRL〉+〈CapsLock〉代替),然后按下除〈PAUSE〉之外的任意键将继续程序运行。
10 KEY OFF: CLS : RANDOMIZE (TIMER)
20 LOCATE 9, 13: PRINT "W e l c o m e t o t h i s P R O G R A M !"
30 LOCATE 10, 13: PRINT "---------------------------------------------"
40 LOCATE 20, 25: PRINT "Press a key to begin..."
50 IF INKEY$ = "" THEN 50
60 INPUT "How many letters"; NUM: IF NUM < 1 THEN 60
70 INPUT "Speed(1-9)"; SP: IF SP > 9 OR SP < 1 THEN 70
80 SPEED = 300 * (10 - SP): M = 1: CLS
90 FOR T = 1 TO 79
100 LOCATE 2, T: PRINT CHR$(1)
110 LOCATE 23, T: PRINT CHR$(2)
120 NEXT T
130 WHILE M <= NUM
140 X = INT(RND * 79) + 1
150 LETTER$ = CHR$(INT(RND * 93) + 33)
160 GOSUB 240
165 M = M + 1
170 WEND
180 MARK = W / NUM * 100: CLS : LOCATE 10, 28: PRINT "GAME OVER!": LOCATE 12, 28
190 IF MARK >= 80 THEN PRINT " GREAT!" ELSE IF MARK >= 60 THEN PRINT "NOT TOO BAD."
210 IF MARK < 60 THEN LOCATE 12, 20: PRINT "Sorry your mark is bad. Practise more!"
220 LOCATE 14, 26: PRINT "Your mark:"; MARK; "%"
230 END
240 FOR Y = 3 TO 23
260 LOCATE Y, X: PRINT LETTER$
270 FOR L = 1 TO SPEED: NEXT L
280 LOCATE Y, X: PRINT " "
290 IF INKEY$ = LETTER$ THEN GOSUB 350: RETURN
300 IF INKEY$ = CHR$(27) THEN CLS : END
310 IF INKEY$ = CHR$(32) THEN CLS : GOTO 70
320 IF INKEY$ <> "" THEN BEEP
330 NEXT Y
340 RETURN
350 LOCATE Y, X: PRINT LETTER$
370 FOR H = 22 TO Y + 1 STEP -1
380 LOCATE H, X: PRINT CHR$(24): SOUND (23 - H) * 50, .05
400 LOCATE H, X: PRINT " "
410 NEXT H
420 LOCATE H, X: PRINT CHR$(15): SOUND 400, .1: SOUND 100, .1
440 LOCATE H, X: PRINT " "
450 W = W + 1
460 RETURN
,字符炸弹
- ·上一篇:为啥每次开机都要设置键盘
- ·下一篇:索爱Xperia Arc上市日期和价格2则
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决