猜拳！！

还有一点就要上传成功了！！！

http://yun.baidu.com/share/link?shareid=4097205103&uk=2268591643&third=0

我就不信度娘不封

部分源码：
{DOSXCODE.PAS}
{Example for DosExitCode and Exec}
{$M $4000,0,0}
uses dos{,crt};
var i,j,k,l,m,n,dj,zz,sj,xslb:longint;fi,fo:text;
jy,jb:int64;
s1,xm:string;
procedure yxslc;
var i,j,k,l,m,n:longint;s:string;
begin
m:=0;
writeln('欢迎来到英雄试炼场...');
while m=0 do
begin
randomize;
inc(n);
k:=random(100);
l:=random(k);
writeln('你将要去进行英雄之争1次...');
{for i:=1 to l do
begin}
writeln('你准备参加新手级还是初级？');
writeln('新手级：为新手准备，对面血量与自己平等，1级解锁...');
writeln('初级：为练级者准备，对面血量有加强，5级解锁...');
writeln('中级：为更高级练级者准备，对面血量很强，要有很多钱，10级解锁...');
writeln('高级：新增英雄天雷法师，更大的挑战性！15级解锁...');
readln(s1);
while (s1<>'新手级')and(s1<>'初级')and(s1<>'中级')and(s1<>'高级') do readln(s1);
while (s1='高级')and(dj<15) do
begin
writeln('等级不够，再练练吧...');readln(s1);
end;
while (s1='中级')and(dj<10) do
begin
writeln('等级不够，再练练吧...');readln(s1);
while (s1<>'新手级')and(s1<>'初级') do
readln(s1);
end;
while (s1='初级')and(dj<5) do
begin
writeln('等级不够，再练练吧...');
readln(s1);
while s1<>'新手级' do
readln(s1);
end;
writeln('是否开始？');
if s1='新手级'
then begin k:=1;

楼主好强大

哎呀呀，之前的楼被删了！
重来！
一些源码：
{DOSXCODE.PAS}
{Example for DosExitCode and Exec}
{$M $4000,0,0}
uses dos{,crt};
var i,j,k,l,m,n,dj,zz,sj,xslb:longint;fi,fo:text;
jy,jb:int64;
s1,xm:string;
procedure yxslc;
var i,j,k,l,m,n:longint;s:string;
begin
m:=0;
writeln('欢迎来到英雄试炼场...');
while m=0 do
begin
randomize;
inc(n);
k:=random(100);
l:=random(k);
writeln('你将要去进行英雄之争1次...');
{for i:=1 to l do
begin}
writeln('你准备参加新手级还是初级？');
writeln('新手级：为新手准备，对面血量与自己平等，1级解锁...');
writeln('初级：为练级者准备，对面血量有加强，5级解锁...');
writeln('中级：为更高级练级者准备，对面血量很强，要有很多钱，10级解锁...');
writeln('高级：新增英雄天雷法师，更大的挑战性！15级解锁...');
readln(s1);
while (s1<>'新手级')and(s1<>'初级')and(s1<>'中级')and(s1<>'高级') do readln(s1);
while (s1='高级')and(dj<15) do
begin
writeln('等级不够，再练练吧...');readln(s1);
end;
while (s1='中级')and(dj<10) do
begin
writeln('等级不够，再练练吧...');readln(s1);
while (s1<>'新手级')and(s1<>'初级') do
readln(s1);
end;
while (s1='初级')and(dj<5) do
begin
writeln('等级不够，再练练吧...');
readln(s1);
while s1<>'新手级' do
readln(s1);
end;
writeln('是否开始？');
if s1='新手级'
then begin k:=1;

procedure jiesuo(var kk:longint);
var i,j,k:longint;
begin
readln(kk);
while (kk<1)or(kk>4) do readln(kk);
while (kk=1)and(dj<25) do
begin writeln('等级不够，再练练吧');jiesuo(kk);
end;
while (kk=2)and(dj<35) do
begin writeln('等级不够，再练练吧');jiesuo(kk);
end;
while (kk=3)and(dj<45) do
begin writeln('等级不够，再练练吧');jiesuo(kk);
end;
while (kk=4)and(dj<55) do
begin writeln('等级不够，再练练吧');jiesuo(kk);
end;
end;
procedure yxdt;
var i,j,k,l,y,b,kk,jj:longint;c:char;x1,q1:longint;
begin
j:=0;
writeln('欢迎来到英雄殿堂...');
while j=0 do
begin
writeln('这里输了是要付出代价的...');
writeln('1：标准模式，25级解锁');
writeln('2：联赛模式，连打10局，直到第一次输为止，每局赢了有经验与金钱加成，35级解锁');
writeln('3：英雄fury模式，1条线血量，直到死为止，45级解锁');
writeln('4：命运模式，每回合的攻击有随机加成，55级解锁');
writeln('5：武器模式，可使用武器，70级解锁，正在建设');
writeln('6：狂暴模式，有一定几率暴击，给对方狠狠一击，80级解锁，正在建设');
writeln('7：英雄王模式，更多解锁英雄，100级解锁，正在建设');
writeln('8：等级模式，等级与血量挂钩，150级解锁，正在建设');
writeln('9：局域网联机模式，300级解锁，我们正在努力');
writeln('10：局域网多人对战，500级解锁，我们正在努力');
jiesuo(kk);
k:=100;
writeln('是否开始？');
writeln('你需要付出',k*kk,'个金币做押金');
writeln('现在结束还来得及');
readln(s1);
if s1='结束' then exit;
if jb<k*kk then begin
writeln('你没钱，退出吧！');
exit;
end
else begin
writeln('已经扣除');
jb:=jb-k*kk;
end;
{jb:=jb-k*ord(c);}
if kk=1 then begin
SwapVectors;
exec('bzms.exe','');
SwapVectors;
assign(fi,'sf.txt');
reset(fi);
readln(fi,i);
close(fi);
randomize;
l:=random(30)+random(30)+random(100)+random(300)+random(40)+random(300)+100;
if i=0 then begin writeln('你失去了',l,'个金币，你也拿不回押金了'); jb:=jb-l;end
else begin writeln('你获得了',l,'个金币，你拿回了你的押金');jb:=jb+l+k*(ord(c)-48);end;
if i=1 then l:=random(30)+random(200)+random(200)+random(201)+random(700)
else l:=random(5)+random(50)+random(50)+random(100)+random(100);
writeln('你获得了',l,'点经验');jy:=jy+l;
end;
if kk=2 then begin {clrscr;}
y:=0;b:=0;
l:=liansai(y,b,1);
if l>10 then begin
writeln('你获得了联赛模式通关大礼包！20000经验和30000金币！');
jb:=jb+b+20000;
jy:=jy+y+10000;
end
else begin
writeln('你失败了，你失去了40%的经验和45%的金币！');
jb:=jb+trunc(b*0.6);
jy:=jy+trunc(y*0.55);
writeln('你累计的经验和金币已经划入你的帐目下...');
if l<=1 then begin
writeln('连1局都没胜利，押金不还了！')
end
else jb:=jb+l;
end;
end;

我就不信是单机！
if kk=3 then begin y:=0;b:=0;
assign(fo,'fury.txt');
rewrite(fo);
x1:=8;q1:=0;
writeln(fo,x1,' ',q1);
close(fo); jj:=0;
while x1>0 do
begin
{clrscr;}
SwapVectors;
exec('furyms.exe','');
SwapVectors;
assign(fi,'fury.txt');
reset(fi);
readln(fi,x1,q1);
close(fi);
if x1>0 then begin
writeln('你还活着，那么继续吧！');
y:=trunc(y*1.2)+random(y)+random(300)+random(300)+random(1000)+random(2000);
b:=trunc(y*1.5)+random(b)+random(300)+random(500)+random(1500)+random(2000); inc(jj);
if jj mod 5=0 then begin
writeln('恭喜你获得tury',jj div 5,'级勋章！累计经验和金币×',trunc((jj div 10)+1),'倍！'); y:=y*trunc((jj div 10)+1);
b:=b*trunc((jj div 10)+1);
end;
writeln('你已经累计',y,'点经验');
writeln('你已经累计',b,'个金币');
writeln('是否继续？','只要写''yes''或者''no''','，中途退出会失去大量经验和金币');
readln(s1);
while (s1<>'yes')and(s1<>'no') do
readln(s1);
if s1='no' then begin y:=trunc(y*0.7);b:=trunc(b*0.8);jb:=jb+b;jy:=jy+y;{clrscr;}exit;end;
end;
end;
if (x1<=0) then begin
writeln('恭喜你连杀',jj,'波');
if jj div 5=0 then begin
writeln('你失败了，','你失去了30%的经验和40%的金币！');
jb:=jb+trunc(b*0.6)+kk*k;
jy:=jy+trunc(y*0.7);
writeln('你已经得到',trunc(y*0.7),'点经验');
writeln('你已经得到',trunc(b*0.6),'个金币');
end
else begin
writeln('你已经很不错了，你将额外获得5%的经验和10%的金币');
y:=trunc(1.05*y);
b:=trunc(1.1*b);
writeln('你已经得到',y,'点经验');
writeln('你已经得到',b,'个金币');
jy:=jy+y;
jb:=jb+b;
writeln('你累计的经验和金币已经划入你的帐目下...');
end;
end;
end;
if kk=4 then begin
SwapVectors;
exec('myms.exe','');
SwapVectors;
assign(fi,'sf.txt');
reset(fi);
readln(fi,i);
close(fi);
randomize;
l:=random(70)+random(130)+random(700)+random(800)+random(2040)+random(1300)+400;
if i=0 then begin writeln('你失去了',l,'个金币，你也拿不回押金了'); jb:=jb-l;end
else begin writeln('你获得了',l,'个金币，你拿回了你的押金');jb:=jb+l+k*(ord(c)-48);end;
if i=1 then l:=random(3000)+random(1200)+random(700)+random(901)+random(1700)
else l:=random(50)+random(500)+random(500)+random(1000)+random(100);
writeln('你获得了',l,'点经验');jy:=jy+l;
end;
writeln('是否继续？','只要写''yes''或者''no''');
readln(s1);
while (s1<>'yes')and(s1<>'no') do
readln(s1);
if s1='no' then begin {clrscr;}exit;end;
end;
end;

15楼再更！

顶一下

@不灵反应堆 话说如何选择键？

procedure tz;
var i,j,k:longint;ss:string;r:real;m:int64;
begin
writeln('欢迎来到投资市场...');
writeln('请输入投资项目...');
readln(s1);
writeln('投入金额：');
readln(k);
while k>jb do
begin
writeln('你没有这么多的钱');
readln(k);
end;
while k<0 do
begin
writeln('别异想天开了，做白日梦做多了吧');
readln(k);
end;
jb:=jb-k;
randomize;
i:=random(10);
m:=k;
for j:=1 to i do
m:=m-random(j)+random(k);
j:=random(2);
if j=0 then k:=k+m
else k:=k-m;
writeln('由',s1,'，','你得到的回报：',k);
jb:=jb+k;
writeln('等级：',dj,' 经验：',jy,' 金币',jb);
end;

没人？

楼主好强大

360问题如何解决？？？？？？？

读取存档只需要在“是否开始新游戏”那里写“no”即可

新版本来啦！http://yun.baidu.com/share/link?shareid=1472439913&uk=2268591643&third=0