易码技术论坛

 找回密码
 加入易码
搜索
楼主: 红色激情

【公告】小蒙在7.1前做出打飞机游戏将获得nc3000

[复制链接]
 楼主| 发表于 2014-6-22 07:12:17 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-22 10:15:20 | 显示全部楼层
我要nc3000
 楼主| 发表于 2014-6-22 12:33:01 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-22 13:17:39 | 显示全部楼层
Wow!!
 楼主| 发表于 2014-6-22 19:42:14 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-23 18:06:17 | 显示全部楼层
已经写完,待我重写一下就发上来。
 楼主| 发表于 2014-6-23 18:29:03 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-26 18:17:22 | 显示全部楼层

回复 26# 的帖子

发啊
发表于 2014-6-26 18:23:33 | 显示全部楼层
28#,楼主要求加码…放心吧,今年7月之前一定会发出来的
 楼主| 发表于 2014-6-26 18:29:14 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-30 15:27:22 | 显示全部楼层
10 CLS<br/>20 CLEAR<br/>30 PRINT SPC (7);<br/>40 PRINT "打飞机"<br/>50 PRINT "1.开始 2.载入 3.高分"<br/>60 PRINT "4.帮助 5.关于 6.退出"<br/>80 PRINT "请键入命令:";<br/>90 INPUT "";T<br/>100 IF T=1 THEN 1240<br/>110 IF T=2 THEN 6000<br/>120 IF T=3 THEN 880<br/>130 IF T=4 THEN 410<br/>140 IF T=5 THEN 320<br/>150 IF T=6 THEN 170<br/>160 GOTO 10<br/>170 CLS<br/>180 CLEAR<br/>190 PRINT "真的要退出吗?"<br/>200 PRINT "1.是 2.否"<br/>220 PRINT "请键入命令:";<br/>230 INPUT "";T<br/>240 IF T=1 THEN 270<br/>250 IF T=2 THEN 10<br/>260 GOTO 170<br/>270 CLEAR<br/>280 CLS<br/>290 PRINT "感谢你的赏玩,再见!"<br/>310 END<br/>320 CLEAR<br/>330 CLS<br/>340 PRINT "作者是沈科光,E-Mail是2551554822@qq.com。感谢红色激情和dragon_等人"<br/>380 PRINT "按任意键返回。";<br/>390 T<br/>400 GOTO 10<br/>410 CLS<br/>420 CLEAR<br/>430 PRINT "游戏过程中:"<br/>440 PRINT "向上:y 向下:n 向左:g"<br/>450 PRINT "向右:j 开火:h 暂停:p"<br/>850 GOTO 380<br/>880 CLS<br/>890 CLEAR<br/>900 PRINT "正在打开数据..."<br/>910 OPEN "dfjt" FOR OUTPUT AS 1<br/>920 CLOSE 1<br/>930 OPEN "dfjt" FOR RANDOM AS 1<br/>940 IF LOF(1)=0 THEN 1200<br/>950 CLOSE 1<br/>960 OPEN "dfjt" FOR INPUT AS 1<br/>970 INPUT 1,TNA,TSA,TNB,TSB,TNC,TSC<br/>980 CLOSE 1<br/>990 CLS<br/>1000 PRINT "大名 级别 分数"<br/>1010 PRINT TNA;" ";<br/>1050 PRINT TSA<br/>1060 PRINT TNB;" ";<br/>1090 PRINT TSB<br/>1120 PRINT TNC;" ";<br/>1150 PRINT TSC<br/>1190 GOTO 380<br/>1200 CLOSE 1<br/>1210 CLS<br/>1220 PRINT "排名数据文件dfjt.DAT的文件长度是0:无数据可读。"<br/>1230 GOTO 380<br/>1240 CLEAR<br/>1250 CLS<br/>1260 PRINT "选择你的级别:"<br/>1270 PRINT "1.简单 2.英雄 3.超人"<br/>1280 PRINT "请键入命令:";<br/>1290 INPUT "";LV<br/>1300 IF LV>3 THEN 1260<br/>1310 IF LV<1 THEN 1260<br/>1320 IF LV<>ABS(LV) THEN 1260<br/>1330 IF LV<>INT(LV) THEN 1260<br/>1400 CLS<br/>1405 PRINT "选择飞机的高级属性:"<br/>1410 PRINT "1.高速 2.血多 3.弹多"<br/>1420 PRINT "请键入命令:";<br/>1430 INPUT "";PT<br/>1440 IF PT>3 THEN 1400<br/>1450 IF PT<1 THEN 1400<br/>1460 IF LV<>ABS(PT) THEN 1400<br/>1470 IF LV<>INT(PT) THEN 1400<br/>1530 CLS<br/>1540 PRINT "正在处理数据..."<br/>1545 DIM DPA(20)<br/>1547 DIM DPB(20)<br/>1549 DIM DHP(20)<br/>1550 PPA=151<br/>1555 PSD=3<br/>1560 PPB=INT(RND(1)*72)<br/>1570 ZD=3<br/>1900 IF LV>1 THEN 2000<br/>1915 DST=1<br/>1920 HDN=5<br/>1925 DYN=1<br/>1930 PHP=80<br/>1945 DYH=1<br/>1990 GOTO 2150<br/>2000 IF LV=3 THEN GOTO 2080<br/>2003 DST=2<br/>2006 HDN=10<br/>2010 DYN=6<br/>2020 PHP=70<br/>2050 DYH=1<br/>2070 GOTO 2150<br/>2080 DST=2<br/>2085 HDN=20<br/>2090 DYN=11<br/>2095 PHP=60<br/>2120 DYH=3<br/>2130 JSC=3<br/>2150 IF PT>1 THEN 2185<br/>2170 HP=HP+20<br/>2180 GOTO 2250<br/>2185 IF PT=3 THEN 2230<br/>2190 ZD=ZD+2<br/>2200 JZD=JZD+1<br/>2220 GOTO 2250<br/>2230 PSD=PSD+2<br/>2250 CLS<br/>2260 PRINT "按任意键开始玩耍。"<br/>2270 T<br/>2280 CLS<br/>2290 GRAPH<br/>2300 IF PEEK(193)=239 THEN PPB=PPB-PSD<br/>2310 IF PEEK(194)=223 THEN PPA=PPA-PSD<br/>2320 IF PEEK(192)=223 THEN PPA=PPA+PSD<br/>2330 IF PEEK(193)=191 THEN PPB=PPB+PSD<br/>2340 IF PEEK(193)=223 THEN GOTO 2970<br/>2350 IF PEEK(194)=247 THEN GOTO 3140<br/>2360 IF DPN>=DYN THEN 2410<br/>2370 DPN=DPN+1<br/>2380 DPA(DPN)=1<br/>2390 DPB(DPN)=INT(RND(1)*72)<br/>2400 DHP(DPN)=DYH<br/>2410 FOR T=1 TO DPN<br/>2420 DPA(T)=DPA(T)+INT(RND(1)*12)<br/>2430 IF (DPB(T)+8)>PPB AND (DPB(T)-8)<PPB THEN DPB(T)=PPB<br/>2440 IF DPB(T)>PPB THEN DPB(T)=DPB(T)-8<br/>2450 IF DPB(T)<PPB THEN DPB(T)=DPB(T)+8<br/>2460 NEXT T<br/>2470 IF DST=1 THEN GOTO 2570<br/>2480 FOR T=1 TO DPN<br/>2490 TT=INT(RND(1)*4)<br/>2500 IF TT<2 THEN DPB(T)=DPB(T)-INT(RND(1)*12)<br/>2510 IF TT>2 THEN DPB(T)=DPB(T)+INT(RND(1)*12)<br/>2520 NEXT T<br/>2570 FOR T=1 TO DPN<br/>2580 IF DPA(T)>151 OR DHP(T)<1 THEN DPA(T)=1HP(T)=DYH<br/>2590 IF DPB(T)>72 THEN DPB(T)=71<br/>2600 IF DPB(T)<1 THEN DPB(T)=1<br/>2610 NEXT T<br/>2612 FOR T=1 TO DPN<br/>2614 IF ABS(DPA(T)-PPA)<9 AND ABS(PPB-DPB(T))<17 THEN PHP=PHP-INT(RND(1)*20)PA(T)=1<br/>2616 NEXT T<br/>2620 IF PPA>151 THEN PPA=151<br/>2630 IF PPA<9 THEN PPA=9<br/>2640 IF PPB>71 THEN PPB=71<br/>2650 IF PPB<1 THEN PPB=1<br/>2660 IF SC>49 AND SC<99 AND GLV<>1 THEN 3310<br/>2670 IF SC>99 AND SC<149 AND GLV<>2 THEN 3370<br/>2680 IF SC>200 AND GLV<>3 THEN 3440<br/>2682 CLS<br/>2684 IF JP<1 THEN GOTO 2708<br/>2685 IF JPL=1 THEN 2689<br/>2686 JPA=INT(RND(1)*108)+36<br/>2687 JPB=INT(RND(1)*71)<br/>2688 JPL=1<br/>2689 BOX JPA,JPB,JPA+8,JPB+8<br/>2690 LINE JPA,JPB,JPA+8,JPB+8<br/>2691 LINE JPA+8,JPB,JPA,JPB+8<br/>2692 JPT=INT(RND(1)*3)<br/>2693 IF ABS(PPA-JPA)<17 AND ABS(PPB-JPB)<9 THEN 2695<br/>2694 GOTO 2708<br/>2694 GOTO 2708<br/>2695 IF JPT=0 THEN FOR T=1 TO DPN:SC=SC+1PA(T)=1: NEXT T<br/>2696 IF JPT=1 THEN PSD=PSD+2<br/>2697 IF JPT=2 THEN PHP=100<br/>2698 IF JPT=3 THEN ZD=9<br/>2699 JP=0<br/>2700 JPL=0<br/>2708 LINE 157,75,157,79<br/>2709 LINE 155,77,159,77<br/>2710 LINE 4,63,1,79<br/>2720 LINE 4,63,7,79<br/>2730 LINE 1,79,7,79<br/>2740 BOX 1,1,7,8,1<br/>2750 LINE 1,4,1,16<br/>2760 LINE PPA,PPB,PPA,PPB+8<br/>2770 LINE PPA-8,PPB+4,PPA,PPB+4<br/>2780 LINE PPA-6,PPB+4,PPA-3,PPB+7<br/>2790 LINE PPA-6,PPB+4,PPA-3,PPB+1<br/>2800 FOR T=1 TO DPN<br/>2810 LINE DPA(T),DPB(T),DPA(T),DPB(T)+8<br/>2820 LINE DPA(T),DPB(T)+4,DPA(T)+8,DPB(T)+4<br/>2830 LINE DPA(T)+6,DPB(T)+4,DPA(T)+3,DPB(T)+1<br/>2840 LINE DPA(T)+6,DPB(T)+4,DPA(T)+3,DPB(T)+7<br/>2850 NEXT T<br/>2860 IF ZD>9 THEN ZD=9<br/>2870 IF ZD<0 THEN GOTO<br/>2880 IF PHP>100 THEN PHP=100<br/>2890 IF PHP<1 THEN GOTO<br/>2900 LOCATE 1,2<br/>2910 PRINT SC<br/>2920 LOCATE 5,2<br/>2930 PRINT ZD;<br/>2940 BOX 155,1,159,79<br/>2950 BOX 155,75,159,75-(INT(PHP*0.75)),1<br/>2960 GOTO 2300<br/>2970 ZD=ZD-1<br/>3010 FOR T=PPA-8 TO 1 STEP -1<br/>3020 BOX T,PPB+3,PPA-8,PPB+5<br/>3030 NEXT T<br/>3035 TT=DPN<br/>3040 FOR T=1 TO TT<br/>3050 IF DPB(T)+8>PPB+4 AND DPB(T)-8<PPB+4 THEN 3060<br/>3055 GOTO 3110<br/>3060 DHP(T)=DHP(T)-1<br/>3080 SC=SC+(1/LV)<br/>3082 IF LV=1 THEN GOTO 3100<br/>3090 ZD=ZD+(1/LV)<br/>3100 JP=JP+(RND(1))/10/LV<br/>3110 NEXT T<br/>3020 SC=INT(SC)<br/>3125 ZD=INT(ZD)<br/>3127 IF LV=1 THEN ZD=ZD+1<br/>3129 IF PT=3 THEN ZD=ZD+1<br/>3130 GOTO 2350<br/>3140 CLS<br/>3145 TEXT<br/>3150 PRINT "你选择了暂停。"<br/>3160 PRINT "1.存进度 2.提前结束"<br/>3170 PRINT "3.放弃进度并退出游戏"<br/>3175 PRINT "4.返回游戏"<br/>3180 PRINT "请键入命令:";<br/>3190 INPUT "";T<br/>3200 IF T=1 THEN 3240<br/>3210 IF T=2 THEN 此处未定义<br/>3220 IF T=3 THEN GOTO 270<br/>3225 IF T=4 THEN 2280<br/>3230 GOTO 3140<br/>3240 PRINT "请稍等..."<br/>3250 OPEN "dfjs" FOR OUTPUT AS 1<br/>3260 WRITE 1,LV,PT,DST,HDN,DYN,PHP,ZD,DYH,SC,DPN,GLV,PSD<br/>3270 CLOSE 1<br/>3280 CLS<br/>3290 PRINT "进度已保存。"<br/>3300 GOTO 3160<br/>3310 GLV=<br/>3320 PHP=100<br/>3330 IF LV<3 THEN DYN=DYN+1SD=PSD+1<br/>3340 IF LV=3 THEN DYN=DYN+3SD=PSD+2<br/>3350 ZD=9<br/>3360 GOTO 2682
发表于 2014-6-30 15:46:34 | 显示全部楼层
上面的不算
 楼主| 发表于 2014-6-30 16:01:25 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-30 21:17:14 | 显示全部楼层
在http://shen.18idc.ml/admin/newbasic.txt
 楼主| 发表于 2014-6-30 23:21:05 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-6-30 23:28:11 | 显示全部楼层
Yeah!
发表于 2014-7-1 00:11:54 | 显示全部楼层
7月啦!
 楼主| 发表于 2014-7-1 07:46:57 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2014-7-2 18:20:52 | 显示全部楼层
楼主,10楼的赌约…
还有再来一个新任务吧!
 楼主| 发表于 2014-7-2 21:10:30 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-3-29 21:08 , Processed in 0.011290 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表