uses crt;
var p,p1,p2,p3,jl,gjl,ly,gly,np,gnp,h,lg,glg,gqx,o,gtj,gmj,mj,m1,m,qx,tj,bg,kg,u,gkg,gbg,sb,gsb,money,gmoney,gtx,tx,k1,k2,ghs,gyj,ggl,gkj,gyw,gby,hh,by,yw,hs,kj,gl,yj,tl,ztl,gtl,gztl,sp,gsp,gfy,fy,gj,ggj,a:longint;s,s1:string;
bq,gbq,bqpd,gbqpd:longint;
begin
randomize;
clrscr; money:=0; gmoney:=0;
repeat
jl:=0;gjl:=0;gsp:=0;sp:=0;gtl:=0;p1:=0;p2:=0;p3:=0;tl:=0;ztl:=0;gztl:=0;
begin
tl:=4;ztl:=4;gtl:=4;gztl:=4;
begin
writeln('欢迎来到鲁斌至尊霸王杀');
delay(1000);
writeln('版权所有,严禁抄袭');
delay(1000);
writeln('更多详情请关注2279774617');
delay(1000);
writeln('若想退出请按0');
delay(1000);
writeln('你现在的钱为:',money);
delay(1000);
if money>=0 then begin writeln('你现在可以使用素将(7);'); delay(1000);end;
if money>=1 then begin writeln('你现在可以使用遗计和刚烈(1,2);'); delay(1000);end;
if money>=2 then begin writeln('你现在可以使用克己和耀武(3,4);'); delay(1000);end;
if money>=3 then begin writeln('你现在可以使用闭月和不屈(5,6);'); delay(1000);end;
if money>=4 then begin writeln('你现在可以使用突袭和狂骨(8,9);'); delay(1000);end;
if money>=5 then begin writeln('你现在可以使用八卦和猛进(10,11);');delay(1000);end;
if money>=6 then begin writeln('你现在可以使用铁骑和潜行(12,13);');delay(1000);end;
if money>=7 then begin writeln('你现在可以使用涅盘和烈弓(14,15)');delay(1000);end;
delay(1000);
clrscr;
end;
readln(a);
if (money=0)and(a<>7) then exit;
if (money=1)and(a=1) then begin yj:=1;tl:=4;ztl:=4;end;//yiji
if (money=1)and(a=2) then begin gl:=1;tl:=4;ztl:=4;end;//ganglie
if (money=2)and(a=3) then begin kj:=1;tl:=4;ztl:=4;end;//keji
if (money=2)and(a=4) then begin yw:=1;tl:=8;ztl:=8;end;//yaowu
if (money=3)and(a=5) then begin by:=1;tl:=4;ztl:=4;end;//biyue
if (money=3)and(a=6) then begin bq:=1;tl:=4;ztl:=4;end;//buqu
if (money=4)and(a=8) then begin tx:=1;tl:=4;ztl:=4;end;//tuxi
if (money=4)and(a=9) then begin kg:=1;tl:=4;ztl:=4;end;//kaunggu
if (money=5)and(a=10) then begin bg:=1;tl:=3;ztl:=3;end;//bagua
if (money=5)and(a=11) then begin mj:=1;tl:=4;ztl:=4;end;//mengjin
if (money=6)and(a=12) then begin tj:=1;tl:=4;ztl:=4;end;//tieji
if (money=6)and(a=13) then begin qx:=1;tl:=4;ztl:=4;end;//qianxing
if (money=7)and(a=14) then begin np:=1;tl:=3;ztl:=3;end;//niepan
if (money=7)and(a=15) then begin lg:=1;tl:=4;ztl:=4;end;//liegong
if (money=8)and(a=16) then begin ly:=1;tl:=3;ztl:=3;end;//lianying
if gmoney<1 then u:=0;
if gmoney=1 then u:=random(4)+1;
if gmoney=2 then u:=random(7)+1;
if gmoney=3 then u:=random(11)+1;
if gmoney=4 then u:=random(14)+1;
if gmoney=5 then u:=random(17)+1;
if (gmoney=1)and(u=1) then begin gyj:=1;gtl:=4;gztl:=4;end;
if (gmoney=1)and(u=2) then begin ggl:=1;gtl:=4;gztl:=4;end;
if (gmoney=1)and(u=3) then begin gkj:=1;gtl:=4;gztl:=4;end;
if (gmoney=2)and(u=4) then begin gyw:=1;gtl:=8;gztl:=8;end;
if (gmoney=2)and(u=5) then begin gby:=1;gtl:=4;gztl:=4;end;
if (gmoney=2)and(u=6) then begin gbq:=1;gtl:=4;gztl:=4;end;
if (gmoney=3)and(u=8) then begin gtx:=1;gtl:=4;gztl:=4;end;
if (gmoney=3)and(a=9) then begin gkg:=1;gtl:=4;gztl:=4;end;
if (gmoney=3)and(a=10) then begin gbg:=1;gtl:=3;gztl:=3;end;
if (gmoney=4)and(a=11) then begin gmj:=1;gtl:=4;gztl:=4;end;
if (gmoney=4)and(a=12) then begin gtj:=1;gtl:=4;gztl:=4;end;
if (gmoney=4)and(a=13) then begin gqx:=1;gtl:=4;gztl:=4;end;
if (gmoney=5)and(a=14) then begin gnp:=1;gtl:=3;gztl:=3;end;
if (gmoney=5)and(a=15) then begin glg:=1;gtl:=4;gztl:=4;end;
if (gmoney=5)and(a=16) then begin gly:=1;gtl:=3;gztl:=3;end;
repeat
clrscr;
writeln('手牌:',sp,' ','敌人手牌:',gsp);
writeln(tl,'/',ztl,' ',gtl,'/',gztl);
writeln('距离:',jl,' ','距离:',gjl);
writeln('1.摸牌(手牌+2)');
writeln('2.杀(手牌-2)');
writeln('3.闪(手牌-1)');
writeln('4.桃(手牌-3)');
writeln('5.+1马(手牌-4)');
writeln('6.-1马(手牌-3)');
s:=readkey;
{s1:=readkey;}
if sp=0 then if gsp>=2 then s1:='2'
else
s1:='1'
else
begin
repeat
s1:=chr(random(7)+1+48);
until (s1='1')and((gsp<=gtl)or(gkj=1))or((s1='2')and(sp>=2)and(jl=0))or((s1='3')and(gsp>=1))or((s1='4')and(gsp>=3)and(gtl<gztl))or((s1='5')and(p2=0)and(gsp>=4))or((s1='6')and(p3=0)and(gsp>=3));
end;
if s='1' then writeln('我:摸牌');
if s='2' then writeln('我:杀');
if s='3' then writeln('我:闪');
if s='4' then writeln('我:桃');
if s='5' then writeln('我:距离+1');
if s='6' then writeln('我:距离-1');
if s1='1' then writeln('敌:摸牌');
if s1='2' then writeln('敌:杀');
if s1='3' then writeln('敌:闪');
if s1='4' then writeln('敌:桃');
if s1='5' then writeln('敌:距离+1');
if s1='6' then writeln('敌:距离-1');
delay(1000);
if s='1' then sp:=sp+2;
if s='2' then if sp>=2 then if gjl=0 then begin sp:=sp-2;gj:=1;gsp:=gsp-1;end;
if s='3' then if sp>=1 then begin sp:=sp-1;fy:=1;end;
if s='4' then if sp>=3 then if tl<ztl then begin sp:=sp-3;tl:=tl+1;end;
if s='5' then if sp>=4 then begin sp:=sp-4; jl:=jl+1;p:=p+1; end;
if s='6' then if sp>=3 then begin sp:=sp-3; gjl:=gjl-1;p1:=p1+1; end;
if s1='1' then gsp:=gsp+2;
if (s1='2')and(jl<=0)and(gsp>=2) then begin gsp:=gsp-2;ggj:=1;end;
if s1='3' then begin gsp:=gsp-1;gfy:=1;end;
if s1='4' then begin gsp:=gsp-3;gtl:=gtl+1;end;
if s1='5' then if p2=0 then begin gsp:=gsp-4; gjl:=gjl

感觉pascal游戏吧里出现过哎。。
其实bzoj上有一题叫猪国杀（超强模拟..），吃我一记猪哥连弩!

掉了一笔

lz
看你水的贴和这个程序水平完全不同 clrscr是老版本的玩意，你目测新手怎么会。。还有楼上你的回复恶心到我了楼上

而且我发现了原帖
转
uses crt;
var p,p1,p2,p3,jl,gjl,ly,gly,np,gnp,h,lg,glg,gqx,o,gtj,gmj,mj,m1,m,qx,tj,bg,kg,u,gkg,gbg,sb,gsb,money,gmoney,gtx,tx,k1,k2,ghs,gyj,ggl,gkj,gyw,gby,hh,by,yw,hs,kj,gl,yj,tl,ztl,gtl,gztl,sp,gsp,gfy,fy,gj,ggj,a:longint;s,s1:string;
bq,gbq,bqpd,gbqpd:longint;
begin
randomize;
clrscr; money:=0; gmoney:=0;
repeat
jl:=0;gjl:=0;gsp:=0;sp:=0;gtl:=0;p1:=0;p2:=0;p3:=0;tl:=0;ztl:=0;gztl:=0;
begin
tl:=4;ztl:=4;gtl:=4;gztl:=4;
begin
writeln('欢迎来到鲁斌至尊霸王杀');
delay(1000);
writeln('版权所有,严禁抄袭');
delay(1000);
writeln('更多详情请关注2279774617');
delay(1000);
writeln('若想退出请按0');
delay(1000);
writeln('你现在的钱为:',money);
delay(1000);
if money>=0 then begin writeln('你现在可以使用素将(7);'); delay(1000);end;
if money>=1 then begin writeln('你现在可以使用遗计和刚烈(1,2);'); delay(1000);end;
if money>=2 then begin writeln('你现在可以使用克己和耀武(3,4);'); delay(1000);end;
if money>=3 then begin writeln('你现在可以使用闭月和不屈(5,6);'); delay(1000);end;
if money>=4 then begin writeln('你现在可以使用突袭和狂骨(8,9);'); delay(1000);end;

lz赶紧粗来解释

楼主机智地水了一发