lwong的博客

2 J=PEEK(1129):K=PEEK(1130):W=(PEEK(1131)/2):PIC$ =" " 3 OPEN "TIME" FOR OUTPUTAS#1:WRITE#1,PIC$ ,J,K,W:CLOSE#1 5 GOSUB 5450 10 TEXT:INVERSE:CLS:PRINT "【红色警戒】Ver 2.0 "," ";CHR$ (144);".[新游戏] " 20 PRINT " ";CHR$ (145);".[载入游戏] "," ";CHR$ (146);".[离开游戏] " 25 PRINT " ";CHR$ (147);".[显示风格] ";:W$ =INKEY$ :IF FG=0THEN NORMAL 30 IF W$ ="b" THEN GOTO 100 40 IF W$ ="n" THEN GOTO 200 45 IF W$ ="g" THEN GOTO 61 50 IF W$ ="m" OR ASC(W$ )=27 THEN GOTO 5690 60 GOTO 9 61 CLS:PRINT "(请选择)","1.正常显示","2.反白显示":W$ =INKEY$ 65 IF W$ ="b" THEN FG=0 67 IF W$ ="n" THEN FG=2 70 GOTO 9 100 HP=65 110 LIFE=65 120 STR=25 130 MO=200 140 ACT=1 145 OLE=1 150 GOTO 252 200 CLS:PRINT "文件名:";:INPUT "";NAME$ 201 IF LEN(NAME$ )>6 OR LEN(NAME$ )=0THEN 200ELSE NAME$ =NAME$ +".RA":GOTO 5630 240 OPEN NAME$ FOR INPUT AS#1 245 INPUT#1,HP,LIFE,STR,EX,MO,CI,ACT,PO,NA$ ,FG:CLOSE#1 250 OLE=INT(EX/500)+2:GOTO 300 252 CLS:PRINT "尊客大名：";:INPUT "";NA$ :IF LEN(NA$ )=0OR LEN(NA$ )>4 GOTO 252 254 PRINT "按任意键继续";:INPUT "";W 300 CLS:HP=INT(HP):LEV=INT(EX/500+1):IF ACT>4 THEN ACT=5:TEXT:IF FG=2 THEN INVERSE 310 TEXT:PRINT "【红色警戒】Ver 2.00"," ";NA$ ;"已经完成";CI;"个任务"," 按【输入】继续作战" 315 PRINT " 状态 研究"," 开发 系统";:W$ =INKEY$ 320 IF ASC(W$ )=28 THEN GOTO 400 322 IF W$ ="p" THEN GOTO 900 328 IF W$ ="t" THEN GOSUB 5690:GOTO 300 330 IF ASC(W$ )=29 THEN GOTO 500 340 IF ASC(W$ )=30THEN GOTO 600 350 IF ASC(W$ )=31 THEN GOTO 700 360 IF ASC(W$ )=27 THEN PRINT " Are you sure?":W$ =INKEY$ :IF W$ ="y" THEN GOTO 5690 375 IF ASC(W$ )=25 THEN W$ =INKEY$ 380 IF ASC(W$ )=13 THEN GOTO 800 390 IF W$ ="s" THEN GOTO 3000 395 GOTO 300 400 CLS 410 PRINT "-----基地状态-----","基地血值:";HP;"/";LIFE,"经验值:";EX,"现金:";MO:W$ =INKEY$ 420 CLS 430 PRINT "能力:";PO;" 行动率:";ACT,"已完成任务:";CI,"力量:";STR,"等级:";INT(EX/500+1) 440 W$ =INKEY$ :GOTO 300 500 CLS 510 PRINT "-----研究中心-----","1.训练","2.寻箱子","3.修理":W$ =INKEY$ 520 IF ACT>0AND W$ ="b" THEN GOTO 1000 530 IF ACT>0AND W$ ="n" THEN GOTO 1100 540 IF W$ ="m" THEN GOTO 1200 550 IF ASC(W$ )=27 THEN GOTO 300 560 GOTO 500 600 CLS 610 PRINT "-----开发中心-----","你的能力值:";PO:IF PO<1 THEN PRINT "能力不足!":W$ =INKEY$ 620 IF PO<1 THEN GOTO 300 622 W$ =INKEY$ :CLS:PRINT "1.加血值","2.加力量值":W$ =INKEY$ 624 IF W$ ="n" THEN GOTO 660 626 IF W$ ="b" THEN GOTO 630 628 GOTO 300 630 CLS:PRINT "你要加几点血值?":INPUT ALIFE 640 IF ALIFE>PO THEN GOTO 630 650 PRINT "OK!":LIFE=LIFE+ALIFE*2:PO=PO-ALIFE:W$ =INKEY$ :GOTO 300 660 CLS:PRINT "你要加几点力量值?":INPUT ASTR 670 IF ASTR>PO THEN GOTO 660 680 PRINT "OK!":STR=STR+ASTR:PO=PO-ASTR:W$ =INKEY$ :GOTO 300 700 CLS 710 PRINT "-----系统设定-----","1.储存游戏","2.回主选单","3.离开游戏","4.另存为";:W$ =INKEY$ 720 IF W$ ="b" THEN GOTO 3000 725 IF W$ ="g" THEN GOTO 3100 730 IF W$ ="n" THEN PRINT "Are you sure?":W$ =INKEY$ :IF W$ ="y" THEN GOTO 10 740 IF W$ ="m" THEN PRINT "Are you sure?":T$ =INKEY$ :IF T$ ="y" THEN GOTO 5690 750 IF ASC(W$ )=27 THEN GOTO 300 760 GOTO 700 800 CLS 810 ACT=INT(INT(EX/500+1)/5+1) 820 IF ACT>4 THEN ACT=5 830 CI=CI+1 840 PRINT "任务";CI 850 N=INT(RND(3)*10+1) 860 IF N>2 THEN GOTO 2000 870 IF N=1 THEN PRINT "风平浪静!":W$ =INKEY$ :GOTO 300 880 IF N=2 THEN G=INT(RND(4)*499+1):PRINT "找到";G;"元!":W$ =INKEY$ 890 MO=MO+G: GOTO 300 900 W$ =INKEY$ :IF W$ ="u" THEN PO=PO+100000:MO=MO+100000 910 GOTO 300 1000 CLS:PRINT "-----研究中心-----","按任一键开始!":W$ =INKEY$ 1010 N=INT(RND(1)*30+1) 1020 IF N<5 THEN GOTO 1500 1030 IF N>4 AND N<9 THEN GOTO 1550 1040 IF N>19 THEN GOTO 1600 1050 ACT=ACT-1:PRINT "训练失败!!":W$ =INKEY$ :GOTO 500 1100 CLS:PRINT "-------搜寻-------","按任一键开始!":W$ =INKEY$ 1110 LEV=INT(EX/500+1) 1120 N=INT(RND(2)*LEV*10+2) 1130 IF N>499 THEN N=500 1140 PRINT "搜到";N;"元!":W$ =INKEY$ 1150 MO=MO+N 1160 ACT=ACT-1 1170 IF ACT>0THEN GOTO 500 1180 GOTO 300 1200 CLS:PRINT "-----修理中心-----","1.修理","2.大修理":W$ =INKEY$ 1210 IF MO>49 AND W$ ="b" THEN GOSUB 5320:GOTO 1250 1220 IF MO>99 AND W$ ="n" THEN GOSUB 5320:GOTO 1280 1230 IF ASC(W$ )=27 THEN GOTO 500 1240 GOTO 1200 1250 CLS:PRINT "修理后!":HP=HP+INT(LIFE*0.25):IF HP>LIFE THEN HP=LIFE 1260 PRINT "基地血值上升为:";HP:W$ =INKEY$ 1270 MO=MO-50: GOTO 1200 1280 CLS:PRINT "大修后!","基地血值上升为:";LIFE:HP=LIFE:W$ =INKEY$ 1290 GOTO 1200 1500 PRINT "力量加强为:";STR+N;"点!":STR=STR+N:W$ =INKEY$ 1510 ACT=ACT-1 1520 IF ACT>0THEN GOTO 500 1530 GOTO 300 1550 PRINT "血点上升为:";LIFE+N:W$ =INKEY$ 1560 LIFE=LIFE+N 1570 ACT=ACT-1 1580 IF ACT>0THEN GOTO 500 1590 GOTO 300 1600 PRINT "经验值上升为:";EX+ABS(N-20):W$ =INKEY$ 1610 EX=EX+ABS(N-20) 1620 ACT=ACT-1 1630 IF ACT>0THEN GOTO 500 1640 GOTO 300 2000 W$ =INKEY$ 2010 CLS 2020 PRINT "歼灭敌人!":TEMP=INT(RND(1)*14+1) 2030 IF TEMP=1 THEN PRINT "遇到【光凌坦克】!":W$ =INKEY$ 2032 IF TEMP=2 THEN PRINT "遇到【天启坦克】!":W$ =INKEY$ 2034 IF TEMP=3 THEN PRINT "遇到【飞艇】!":W$ =INKEY$ 2036 IF TEMP=4 THEN PRINT "遇到【黑鹰飞机】!":W$ =INKEY$ 2038 IF TEMP=5 THEN PRINT "遇到【航空母舰】!":W$ =INKEY$ 2040 IF TEMP=6 THEN PRINT "遇到【美国大兵】!":W$ =INKEY$ 2042 IF TEMP=7 THEN PRINT "遇到【火箭飞行兵】!":W$ =INKEY$ 2044 IF TEMP=8 THEN PRINT "遇到【恐怖机器人】!":W$ =INKEY$ 2046 IF TEMP=9 THEN PRINT "遇到【尤里改】!":W$ =INKEY$ 2048 IF TEMP=10THEN PRINT "遇到【自爆卡车】!":W$ =INKEY$ 2050 IF TEMP=11 THEN PRINT "遇到【磁能坦克】!!";:W$ =INKEY$ 2052 IF TEMP=12 THEN PRINT "遇到【幻影坦克】!":W$ =INKEY$ 2054 IF TEMP=13 THEN PRINT "遇到【矿牛】!":W$ =INKEY$ 2056 IF TEMP=14 THEN PRINT "遇到【伞兵】!":W$ =INKEY$ 2060 CLIFE=INT(1.89*LIFE*RND(3)+1):CHP=CLIFE 2065 IF CLIFE>LIFE THEN PRINT "HP:???":W$ =INKEY$ :GOTO 2070 2067 PRINT "HP:";CLIFE;"/";CLIFE 2068 W$ =INKEY$ 2070 CLS:PRINT "我方HP:";HP;"/";LIFE,"攻击方式:","1.一般方式3.逃跑","2.使用招式" 2072 LOCATE 4,11:PRINT "4.超时空转换 ";:W$ =INKEY$ 2080 IF W$ ="b" THEN GOTO 5100 2085 IF W$ ="g" AND MO>400THEN GOSUB 5450:GOTO 3700 2090 IF W$ ="n" THEN GOTO 2200 2100 IF W$ ="m" THEN GOTO 3500 2110 GOTO 2070 2120 CHIT=INT(CLIFE*0.79*RND(5)+2) 2125 PRINT "敌人攻击力:";CHIT:W$ =INKEY$ 2130 HP=INT(HP-CHIT):IF HP<1 THEN PRINT "你撒手归西!!":W$ =INKEY$ :GOTO 10 2140 HIT=INT(STR*(0.5+RND(6))+3) 2145 CHP=CHP-HIT:PRINT "我方攻击力:";HIT,"对手HP:";CHP:W$ =INKEY$ 2150 IF CHP<1 THEN PRINT "你还是人吗?!":W$ =INKEY$ :GOTO 5000 2160 GOTO 2070 2200 CLS 2210 PRINT "使用招式:","1.修理2.大修","3.先攻4.强化","5.闪电风暴6.核弹攻击":W$ =INKEY$ 2220 IF W$ ="b" AND MO>99 THEN GOSUB 5320:GOTO 2300 2230 IF W$ ="n" AND MO>299 THEN GOSUB 5320:GOTO 2350 2240 IF W$ ="m" AND MO>199 THEN GOTO 2400 2250 IF W$ ="g" AND MO>999 THEN GOTO 2450 2260 IF W$ ="h" AND PO>0AND MO>500THEN GOSUB 5390:GOTO 4000 2270 IF W$ ="j" AND MO>400THEN GOSUB 5480:GOTO 4100 2280 GOTO 2070 2300 CLS:PRINT "修理!!!!":MO=MO-100:HP=HP+50:IF HP>LIFE THEN HP=LIFE 2310 W$ =INKEY$ 2320 CHIT=INT(CLIFE*0.79*RND(5)+2) 2325 PRINT "对手攻击力:";CHIT:W$ =INKEY$ 2330 HP=INT(HP-CHIT):IF HP<1 THEN PRINT "游戏结束!!!":W$ =INKEY$ :GOTO 10 2340 HIT=0 2345 CHP=CHP-HIT:PRINT "我方攻击力:";HIT,"对手HP:";CHP:W$ =INKEY$ 2347 GOTO 2070 2350 CLS:PRINT "大修!!!!":W$ =INKEY$ 2360 MO=MO-300:HP=LIFE 2370 GOTO 2320 2400 MO=MO-200 2405 GOTO 4900 2410 HIT=INT(STR*(0.5+RND(6))+3):IF SSS=1 THEN HIT=INT(HIT*(1+RND(1))) 2411 IF SSS=2 AND TEMP=1 THEN HIT=INT(HIT*4*RND(1)) 2412 IF SSS=2 AND TEMP=2 THEN HIT=INT(HIT*4*RND(1)) 2420 CHIT=INT(CLIFE*0.79*RND(5)+2) 2430 CHP=CHP-HIT:IF CHP<1 THEN GOTO 5000 2435 HP=HP-CHIT:HP=INT(HP):IF HP<1 THEN PRINT "你也太差了!!":W$ =INKEY$ :GOTO 10 2440 PRINT "对手攻击力:";CHIT:W$ =INKEY$ 2445 PRINT "我方攻击力:";HIT,"对手HP:";CHP:W$ =INKEY$ 2447 GOTO 2070 2450 PRINT "使用强化!!!!":W$ =INKEY$ :MO=MO-1000 2460 HIT=INT(STR*(0.5+RND(6))+3) 2465 HIT=INT(HIT*3+10*LEV*RND(1)) 2470 CHIT=INT(CLIFE*0.79*RND(5)+2) 2475 PRINT "我方攻击力:";HIT:W$ =INKEY$ 2477 PRINT "对手攻击力:";CHIT:W$ =INKEY$ 2480 CHP=CHP-HIT:HP=HP-CHIT 2485 HP=INT(HP):IF HP<1 THEN PRINT "可惜呀!!!!":W$ =INKEY$ :GOTO 10 2490 IF CHP<1 THEN PRINT "你太帅了!!!":W$ =INKEY$ :GOTO 5000 2495 GOTO 2070 3000 IF LEN(NAME$ )<>0THEN 3005 3001 CLS:PRINT "储存文件名:";:INPUT "";NAME$ :IF LEN(NAME$ )=0OR LEN(NAME$ )>6 THEN 3000 3003 NAME$ =NAME$ +".RA" 3005 OPEN NAME$ FOR OUTPUTAS#1 3006 CLS:PRINT "OK!" 3050 WRITE#1,HP,LIFE,STR,EX,MO,CI,ACT,PO,NA$ ,FG 3060 CLOSE#1 3070 PRINT "OK!":CLS:GOTO 300 3100 CLS:PRINT "另存为:";:INPUT "";NAME$ 3110 IF LEN(NAME$ )=0OR LEN(NAME$ )>6 THEN 3100 3115 NAME$ =NAME$ +".RA": GOTO 3005 3500 T=INT(RND(2)*6+1) 3510 IF T=1 THEN GOTO 3600 3520 PRINT "逃跑失败!!!!":W$ =INKEY$ 3530 CHIT=INT(CLIFE*0.69*RND(5)+2) 3540 HP=HP-CHIT:IF HP<1 THEN PRINT "唉.....":W$ =INKEY$ :GOTO 10 3560 PRINT "我方攻击力:";HIT,"对手攻击力:";CHIT,"对手HP:";CHP:W$ =INKEY$ :GOTO 2070 3600 PRINT "逃跑成功!!!!" 3610 REM 3620 CI=CI-1:ACT=0:W$ =INKEY$ :GOTO 300 3700 PRINT "使用超时空转换!!!!" 3710 W$ =INKEY$ 3720 IF PO>1 THEN PO=PO-2 ELSE MO=200 3730 PRINT "逃跑成功!!!!":G$ =INKEY$ :GOTO 300 4000 MO=MO-1000:HIT=INT(HP*(8+PO)+100):HP=1:PO=0 4010 PRINT "使用闪电风暴!!","攻击力:";HIT,"我方HP:1","对手HP:";CHP-(50+HIT):CHP=CHP-(80+HIT) 4020 W$ =INKEY$ 4030 IF CHP<1 THEN PRINT "你也太菜了!!":W$ =INKEY$ :GOTO 5000 4040 GOTO 2070 4100 PRINT "使用核弹攻击!!!":MO=MO-300 4110 HIT=INT(STR*(0.5+RND(6))+3)+50 4120 IF TEMP=1 THEN HIT=INT(HIT*5+10*LEV*RND(1)) 4130 IF TEMP=2 THEN HIT=INT(HIT*5+10*LEV*RND(1)) 4140 CHIT=INT(CLIFE*0.79*RND(5)+2) 4150 PRINT "对手攻击力:";CHIT:W$ =INKEY$ 4160 HP=INT(HP-CHIT):IF HP<1 THEN PRINT "游戏结束!!!":W$ =INKEY$ :GOTO 10 4170 CHP=CHP-HIT:PRINT "我方攻击力:";HIT,"对手HP:";CHP:W$ =INKEY$ 4180 IF CHP<1 THEN PRINT "你也太猛了!!":W$ =INKEY$ :GOTO 5000 4190 GOTO 2070 4900 SSS=0:CLS:PRINT "混和技巧 ","1.一般","2.特化","3.无敌":W$ =INKEY$ 4910 IF W$ ="n" AND MO>499 THEN MO=MO-500:SSS=1:GOSUB 5550:GOTO 2410 4920 IF W$ ="m" AND MO>499 THEN MO=MO-500:SSS=2:GOSUB 5590:GOTO 2410 4930 IF W$ ="b" THEN SSS=0:GOTO 2410 4940 GOTO 4900 5000 CLS:IF HP<1 THEN HP=1 5010 PRINT "好爽呀!完成任务了!!!" 5020 G=INT(RND(1)*CLIFE+9):AE=INT(RND(2)*CLIFE*0.5+12) 5025 IF LEV<6 THEN AE=(AE+37) 5027 IF AE>449 THEN AE=491-INT(RND(1)*100+1) 5029 IF G>999 THEN G=1000-INT(RND(6)*100) 5030 MO=MO+G:EX=EX+AE:PRINT "得到";G;"元!","经验值";AE;"点!":W$ =INKEY$ :LEV=INT(EX/500+1) 5040 IF LEV-OLE>0THEN GOTO 5060 5050 GOTO 300 5060 PRINT "恭喜你!升级了!!" 5070 PO=PO+40 5080 OLE=LEV 5090 W$ =INKEY$ :GOTO 300 5100 CLS:PRINT "一般方式","1.光凌坦克","2.天启坦克","3.小导弹 4.美国大兵":W$ =INKEY$ 5105 IF ASC(W$ )=27 THEN 2070 5110 IF W$ ="b" THEN 5130 5112 IF W$ ="n" THEN 5160 5114 IF W$ ="m" THEN 5200 5116 IF W$ ="g" THEN 5250 5120 GOTO 5100 5130 CLS:FOR I=1 TO 50 5140 LINE RND(1)*160,RND(1)*80,RND(1)*160,RND(1)*80,1 5150 NEXT:GOTO 2120 5160 CLS:FOR A=80TO 40STEP-3.5:CIRCLE 80,40,10 5170 LINE 80,20,80,60:LINE 60,40,100,40:LINE 80,20,80,60:LINE 60,40,100,40:CLS 5180 CIRCLE 80,A,2,1:NEXT A 5190 FOR A=1 TO 80:CIRCLE 80,40,A:NEXT A:GOTO 2120 5200 CLS:FOR I=1 TO 90STEP 4 5210 CIRCLE 80,40,I,0,1 5220 CIRCLE 80,40,I,1,0 5230 LOCATE 3,10:PRINT "" 5240 NEXT:GOTO 2120 5250 CLS:J=J+1 5260 LOCATE 3,1 5270 FOR I=1 TO 17 5280 LOCATE 3,I 5290 PRINT " "; 5300 PRINT ""; 5310 NEXT:GOTO 2120 5320 CLS:FOR I=0TO 2 5330 FOR Y=-I TO I 5340 FOR Y=-I TO I 5350 FOR X=-I*2 TO I*2 STEP 2:YY=3+Y:XX=10+X 5360 LOCATE YY,XX 5370 PRINT ""; 5380 NEXT:NEXT:NEXT:RETURN 5390 CLS:FOR I=1 TO 20 5400 X=INT(RND(1)*160) 5410 LINE X+1,1,X+1,80,1:LINE X,1,X,80,1 5420 FOR II=1 TO 50:NEXT 5430 LINE X+1,1,X+1,80,0:LINE X,1,X,80,0 5440 NEXT:RETURN 5450 CLS:FOR I=1 TO 160 5460 LINE I,1,I,80,1 5470 NEXT:RETURN 5480 CLS:LOCATE 3,7 5490 PRINT " ";:GOSUB 5526 5492 PRINT " ";:GOSUB 5526 5494 PRINT " ";:GOSUB 5526 5496 PRINT " ";:GOSUB 5526 5499 PRINT "..................." 5506 FOR I=1 TO 10*5 5516 NEXT:RETURN 5526 CLS:FOR I=2 TO 90STEP 2 5536 CIRCLE 80,40,I,0,1 5546 NEXT I:RETURN 5550 CLS:FOR I=1 TO 10:V=RND(1)*160 5560 FOR O=3 TO 80STEP 3 5570 CIRCLE V,O,5,1,1 5580 NEXT:NEXT:CLS:RETURN 5590 CLS:FOR I=1 TO 160STEP 2 5600 CIRCLE I+8,40,8,1,1:CIRCLE I+8,20,8,1,1:CIRCLE I+8,60,8,1,1 5610 CIRCLE I+2,40,8,1,0:CIRCLE I+2,20,8,1,0:CLRCLEI+2,60,8,1,0 5620 NEXT:RETURN 5630 CLS:GRAPH:L=0 5640 FOR I=1 TO 160STEP 6.4 5650 BOX 1,73,I,77,7,1 5660 LOCATE 3,3:PRINT "任务正在载入..." 5670 L=L+4 :PRINT L;"%" 5680 NEXT I:BEEP:GOTO 240 5690 CLS:CLEAR:OPEN "TIME" FOR INPUT AS#1:INPUT#1,P$ ,J,K,W:CLOSE#1 5770 PRINT "您已经使用本游戏:",KK%;"分钟";WW%;"秒钟" 5780 PRINT "程序设计:雒佳","E-mail:loja@163.net","日期:2001/05/29";:INKEY$ 5790 CLS:PRINT "请候续等待3.0版":END