BBK三国英雄原代码 大家研究研究

murmur

BASIC都是这个样子的哦

GVB强就强在可以调用汇编

不过用Visual Basic也不错啊 不是Basic就什么也不是的

vbff

是基于QBASIC语言的BBK版ZWBASIC

380843558

10 A=20:B=20:C=20:R=500:S=0
20 CLS
PRINT " "
30  PRINT " ***〖三国英雄〗***"
    print "   1.  开始  按Y"
    print "   2.  退出  按N"
    PRINT "   3.  帮助  按P"
    print "    作者--江山"
40  z=getkey()
42  IF z=121 then
  GOTO 45
    ELSE if z=110 then
  GOTO 301
    ELSE IF Z=112 THEN
  GOTO 43  
else if z<>121 and z<>110 and z<>112 then
  goto 20
    end if
43  clsRINT "方法:势力值达到";"1000即可统一三国。";"训练可以提高士气。";"打山贼可以赚钱♂♀";"不多说了，重要的是自";"己领悟。祝你愉快——江山":pause: GOTO 20
45  c&#8194;$="刘备"
50 CLS: PRINT "君主：";C&#8194;$
print "请选择:"
PRINT "K查询     I征兵"
print "O训练     R修养生息"
print "P检阅大兵 J三国赌场 "
print "U大军出征 Q退出三国"
53 z=getkey()
55  IF z=112 AND B>=2 THEN
  CLS:A=A+2:B=B-2:C=C+1RINT "检阅士兵花了2个江山币！":pause: GOTO 80
ELSE if Z=117 AND B<2 THEN
  CLSRINT "你没钱被士兵笑话了":pause: GOTO 80
END IF
60  IF z=105 AND B>=5 THEN
  CLS:A=A+1:B=B-10:C=C+3:R=R+100:PRINT "征兵花了10个江山币":pause: GOTO 80
ELSE if Z=105 AND B<5 THEN
  CLS:PRINT "太穷啊，兄弟":pause: GOTO 80
END IF
65  IF z=111 AND B>=5 THEN
  CLS:A=A+2:B=B-3:C=C+2:S=S+5:PRINT "训练花了2个江山币":pause: GOTO 80
ELSE if Z=111 AND B<5 THEN
  CLS:PRINT "太穷啊，兄弟":pause: GOTO 80
END IF
66  IF z=114 and c>4 THEN
  CLS:A=A+1:B=B+3:C=C-8:R=R+10:PRINT "休养生息,国力增加!";"减少疲倦!":pause: GOTO 80
else if z=114 and c<5 then
  cls:print "士兵说:我好闷,";"带我出去训练好吗?":pause: GOTO 80
end if
68  IF z=117 THEN
  C=C+5: GOTO 129
end if
70  IF z=106 THEN
  C=C+1: GOTO 150
end if
73  IF z=113 THEN
  CLS
  PRINT " "
  PRINT "老婆哭着:呜呜~~~!"
  pause
  print "老公不要我了."
  pause
  print "我该怎么办啊~~~~"
  pause
  print "老公,不要抛弃我呀..."
  pause
  cls
  print "  "
  print "  "
  print "然而,狠心的你,还是...."
  GOTO 300
end if
75  IF z=107 THEN  GOTO 180 ELSE :cls:GOTO 50


80  IF C>40 AND C<100 THEN
  CLS:PRINT ">人民好苦,要休养生息了!":C=C-1:pause:cls: GOTO 50
end if
81  IF C>=85 THEN
CLS:PRINT "*****GAME OVER*****": pause:GOTO 300
end if
82  IF A<10 AND A>0 THEN
CLS:PRINT ">警告:?汗?家好弱啊!": pause:cls:GOTO 50
end if
85  IF R>5000 and s<20 THEN
cls:PRINT "小样!政府授于你:":print "`三国养猪专业户'称号!":pause:print "恭喜!":pause:GOTO 50
end if
86  IF A<=0 THEN
CLS:PRINT "****呜呜~~你完了****":pause: GOTO 300
end if
87  IF B<=0 THEN
CLS:PRINT "警告:垃圾，没钱了还不快去打!":pause: GOTO 66
end if
88  IF A>300 AND A<1000 THEN
CLS:PRINT ">离统一祖国的国力不远了"
end if
90  IF B<10 AND B>0 THEN
CLS:PRINT ">**呜呜~~你没江山币了**":pause:cls: GOTO 50
end if
91  IF S<=3 THEN
CLS:PRINT ">由于军队士气太低,";"你的上帝 江山 ";"劝你去训练场":pause:cls: GOTO 50
end if
92  IF R<=50 THEN
CLS:PRINT ">没兵了，";"你的上帝 江山";" 劝你去征兵":pause:cls: GOTO 50
end if
92  IF A>1000 THEN
CLS:PRINT ">在你的领导下，国力强盛";"，你统一了全中国，成为";"一代开国名君，";">永垂史册！":pause:cls: GOTO 300
end if
95  D=INT(RND(21))
100  IF D=0 OR D=1 OR D=2 OR D=3 OR D=7 OR D=8 OR D=9 OR D=10 OR D=11 OR D=12 OR D=13 OR D=14 OR D=15 OR D=16 OR D=17 OR D=18 OR D=19 OR D=20  THEN  
cls:GOTO 50
end if
101  IF D=4 then GOTO 105
102  IF D=5 then GOTO 112
103  IF D=6 then GOTO 120

105  IF D=4 THEN
PRINT ">人民要买宝马轿车":A=A+1
end if
107  PRINT ">是否出钱吗?(Y/N)"
108  z=getkey()
109  IF z=121 THEN
  PRINT ">花了10个江山币":A=A+3:B=B-10:pause: GOTO 80
ELSE if z<>121 then
  GOTO 110
end if
110  PRINT ">人民骂你说:NO，NO，NO，小气啊!":pause: GOTO 80
112  IF D=5 THEN PRINT "士兵要买玩具玩";"(要花两元江山币)":A=A+1
114  PRINT ">让不让买嘛?(Y/N)"
116  z=getkey()
118  IF z=121 THEN
  PRINT ">花费了2元江山币!":A=A+2:B=B-2:pause: GOTO 80
ELSE if z<>121 then
  GOTO 110
end if
120  IF D=6 THEN PRINT ">旱灾，人民疾苦！":A=A+1
122  PRINT ">是否发钱赈灾?(Y/N)"
124  z=getkey()
126  IF z=121 THEN
  PRINT ">花了5个江山币!":A=A+2:B=B-5:pause: GOTO 80
ELSE if z<>121 then
  GOTO 110
end if

129 CLS:PRINT "---欢迎参加";"三国战争---"
130  IF S<5 THEN
  CLS:PRINT "**士气太低了**":pause: GOTO 50
end if
131 C=C+1:PRINT ">你要出征吗?(Y/N)"
132 z=getkey()

134  IF z=121 then
  GOTO 200
ELSE if z<>121 then
  PRINT ">呵呵,小样不敢早说!":pause: GOTO 80
end if

136 E=INT(RND(13))
138  IF E=0 THEN
  CLS:PRINT ">敌军呢？白找了一天,";"伙食费白搭7个江山币!":B=B-7: GOTO 130
end if
139  IF E=1 THEN
  CLS:PRINT ">重伤,住院3天,各种";"费用共2个江山币 !":B=B-2: GOTO 130
end if
140  IF E=5 THEN
  CLS:PRINT ">思念老婆,";"给它打长途,让它照";"顾自己.花了1个江山币.":B=B-1: GOTO 130
end if
141  IF E=2 THEN
  CLS:PRINT ">善用计谋,KO";"了敌将,搜到8个江山币!":B=B+8: GOTO 130
end if
142  IF E=6 THEN
  CLS:PRINT ">拼死杀敌，全歼敌军，";"获得17个江山币。":B=B+17: GOTO 130
end if
143  IF E=3 THEN
  CLS:PRINT ">连续战争,获得";"了5个江山币!":B=B+5: GOTO 130
end if
144  IF E=7 THEN
  CLS:PRINT ">给儿子买玩具,花了";"9个江山币.";"你吐了吐舌头,真贵!":B=B-9: GOTO 130
end if
145  IF E=8 THEN
  CLS:PRINT ">行军中见到美女,约会,";"她反而10个江山币!":B=B+10: GOTO 130
end if
145  IF E=9 THEN
  CLS:PRINT ">小胜一场,";"缴获10个江山币!":B=B+10: GOTO 130
end if
145  IF E=10 THEN
  CLS:PRINT ">行军中捡到一桶大粪,";"卖掉，获得15个江山币!":B=B+15: GOTO 130
end if
145  IF E=11 THEN
  CLS:PRINT ">行军中捡到一个钱包,";"一看，有13个江山币!":B=B+13: GOTO 130
end if
145  IF E=12 THEN
  CLS:PRINT ">抢劫银行成功,";"获得6个江山币!":B=B+6: GOTO 130
end if

150 CLS:PRINT "**欢迎到三国赌场**"
151 PRINT ">规则:猜数字0-5"
152 print "要赌吗(Y/N)"
z=getkey()
153 GOTO 155
154 print "还要赌吗?(Y/N)":z=getkey()
155  IF B<1 THEN
  CLS:PRINT " "
  PRINT " "
  PRINT "*钱不够不能再赌*":PAUSE:GOTO 50
end if
156 IF z=121 then
GOTO 158
    ELSE if z<>121 then
     CLS:PRINT ">可别嬴了就跑！":pause:GOTO 50
    end if
158 CLS:PRINT " ***开赌啦***"
159  PRINT ">赌注为1-9个江山币"
print "---请下注(0-9)---"
160  s=getkey()
     s=s-48
161  IF S>9 OR S<1 THEN GOTO 160   
  print "你下的赌注为:";s
  print "---请猜数(0-5)---"
162  n=getkey()
n=n-48
163  IF N<0 OR N>5 THEN GOTO 162
164  M=INT(RND(6))
165 CLS:PRINT "*******开盘啦*******"
166 PRINT ">你出的是：";N
167 PRINT ">庄家出：";M
170  IF M=N THEN
  PRINT ">你赢了";s*5;"个江山币":B=B+s*4:pause: cls:GOTO 154
end if
171 PRINT ">你输了";s;"个江山币":B=B-S:pause: cls: GOTO 154

180 CLS:PRINT "疲劳度[";C;"]"
184 PRINT "势力值[";A;"]"
185 PRINT "士兵数[";R;"]"
186 PRINT "士气值[";S;"]"
187 PRINT "你剩下[";B;"]个江山币"
198 PRINT " <请按任意键>"
199 PAUSE:CLS:GOTO 50

200 CLS:PRINT "你叫：";C&#8194;$
PRINT "请选择攻击目标:"
PRINT "Q曹操   I孙权"
PRINT "O吕布   R刘表"
PRINT "P董卓   J张角"
PRINT "K公孙策 U山贼"

201 z=getkey ()
202  IF z=113 AND S<240 THEN
  CLS:A=A-45:C=C+14:R=R-400:PRINT "被曹操大的大败,国力下降45！":pause: GOTO 130
ELSE if Z=113 AND S>=240 THEN
  CLS:A=A+36:C=C+8:PRINT "这是世界第一大胜仗";"国力提高36！";"获得16个江山币！":pause: GOTO 130
END IF
203  IF z=105 AND R<2400 THEN
  CLS:PRINT "败了，败了";"被抢了20个江山币":B=B-20:R=R-200:pause: GOTO 80
ELSE if Z=105 AND R>=2400 THEN
  CLS:B=B+26:C=C+6:PRINT "孙小儿不行了";"获得26个江山币":pause: GOTO 130
END IF
204  IF z=111 AND S>=150 AND R>=1500 THEN
  CLS:A=A+38:C=C+4:PRINT "胜利了,回家过年喽!";"国力上升11":pause: GOTO 130
ELSE if Z=111 AND S<150 THEN
  CLS:A=A-26:C=C+6:R=R-150:PRINT "我军战败,吕布好厉害!";"国力下降26":pause: GOTO 80
END IF
205  IF z=114 and S>=20 THEN
  CLS:A=A+12:B=B+5:C=C+4:PRINT "全歼敌军国力增加12!";"获得5个江山币":pause: GOTO 130
else if z=114 and S<20 then
  cls:C=C+6:A=A-8:R=R-100:print "士兵骂你不是人";"刘表都打不过！":pause: GOTO 80
end if

210  IF z=112 THEN
  GOTO 240
end if
211 IF z=106 THEN
  GOTO 240
end if
212 IF z=117 THEN
  GOTO 136
end if
240  P=INT(RND(8))
241  IF P=0 OR P=1 THEN  
cls:A=A+3:PRINT "嬴了一个小胜丈国力加3":pause:GOTO 130
end if
242  IF P=2 then GOTO 247
243  IF P=3 then GOTO 253
244  IF P=4 then GOTO 260
245  IF P=5 then GOTO 270
246  IF P=6 then GOTO 280

247  IF P=2 THEN PRINT " "
  PRINT " "
  PRINT "敌军小将要跟你单挑":A=A+1
248  PRINT ">接受吗?(Y/N)"
249  z=getkey()
250  IF z=121 THEN
  PRINT " "
  PRINT " "
  PRINT " "
  PRINT " "
  PRINT ">由于你平时不勤奋练武";"差点丢了性命不过最后";"还是赢了，国力加3":A=A+3:B=B-1:pause: GOTO 130
ELSE if z<>121 then
  GOTO 251
end if
251  PRINT ">人民骂你说:NO，NO，NO，胆小鬼!":pause: GOTO 80

253  IF P=3 THEN PRINT "敌人出动了藤甲兵";"(很难对付的兵)":A=A+1
254  PRINT ">打不打?(Y/N)"
256  z=getkey()
258  IF z=121 THEN
  PRINT " "
  PRINT " "
  PRINT " "
  PRINT ">诸葛亮献火攻计重创";"敌军,提高了我军士气,";"但买火柴花费4个江山币":A=A+11:S=S+2:B=B-4:R=R-30:pause: GOTO 130
ELSE if z<>121 then
  GOTO 251
end if
260  IF P=4 THEN PRINT "敌人监守城池不出战";"(攻打难度大)":A=A+1
264  PRINT ">打不打?(Y/N)"
266  z=getkey()
268  IF z=121 THEN
  PRINT " "
  PRINT " "
  PRINT " "
  PRINT ">攻城失败士气下降5,";"医疗费付出2江山币,";"您12个夫人被擒":A=A-11:S=S-5:B=B-2:R=R-100:pause: GOTO 80
ELSE if z<>121 then
  GOTO 251
end if
270  IF P=5 THEN PRINT "行军路上一个美女走来";"(非常非常漂亮的)":A=A+1
274  PRINT ">要走上去吗?(Y/N)"
276  z=getkey()
278  IF z=121 THEN
  PRINT " "
  PRINT " "
  PRINT " "
  PRINT "你三心二意,气的诸葛亮,";"回娘家了,关羽把青龙刀,";"砸到了你头上，张飞喝";"了18桶工业酒精,你27";"个老婆跟人家私奔.":pause: GOTO 80
ELSE if z<>121 then
  GOTO 80
end if
280 IF P=6 THEN PRINT "前面好象有埋伏";"(你的第8感)":A=A+1
284  PRINT ">继续行军吗?(Y/N)"
286  z=getkey()
287  IF z=121 THEN
  PRINT " "
  PRINT " "
  PRINT " "
  PRINT ">你差点死都没人埋,";"幸亏赵子龙保驾,"
  PRINT "否则这世界上";"就又多了";"58个寡妇.":R=R-50:pause: GOTO 80
ELSE if z<>121 then
  GOTO 80
end if

300 PRINT "  "
  PRINT "   --游戏结束!--":pause
301 END