该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

program joyxy;

type

player = record

level:integer;   gjl:integer;

fyl:integer;   xue:integer;

money:integer;  maxxue:integer;

map:integer;  jy:integer; end;

bag = record

red:integer; back:integer;  sl:integer; ttl:integer; end;

monster = record

gj:integer; fy:integer; xt:integer; jyz:integer; end;

gjfs = record

gj:integer; fy:integer; bx:integer; jb:integer; end;

pet = record

gj:integer; jx:integer;  nm:string; live:integer; level:integer; end;

var

i,m,sjs,rsx,gsx,pd,qk,dqgj,dqfy,jnxz,rys:integer;

role:player; bao:bag; ms:array[1..100] of monster; dqgw:monster; ml:string;

jn:array [1..100] of gjfs;

bb:pet;

procedure js;

begin

role.level:= 1;

role.gjl:=26;

role.fyl:=20;

role.maxxue:=100;

role.xue:=100;

role.map:=0;

bao.red:=2;

end;

procedure gw;

begin

ms[1].gj:=21; ms[1].fy:=0; ms[1].xt:=100; ms[1].jyz:=12;

ms[2].gj:=25; ms[2].fy:=10; ms[2].xt:=80; ms[2].jyz:=15;

ms[3].gj:=45; ms[3].fy:=0; ms[3].xt:=250; ms[3].jyz:=45;

ms[4].gj:=65; ms[4].fy:=20; ms[4].xt:=230; ms[4].jyz:=50;

ms[5].gj:=250; ms[5].fy:=75; ms[5].xt:=500; ms[5].jyz:=90;

ms[6].gj:=320; ms[6].fy:=83; ms[6].xt:=450; ms[6].jyz:=93;

ms[7].gj:=1000; ms[7].fy:=400; ms[7].xt:=5000; ms[7].jyz:=120;

ms[8].gj:=1000; ms[8].fy:=800; ms[8].xt:=8000; ms[8].jyz:=150;

ms[9].gj:=10; ms[9].fy:=10; ms[9].xt:=5000; ms[9].jyz:=50;

end;

procedure skill;

begin

jn[1].gj:=0;      jn[1].fy:=0;    jn[1].bx:=0;   jn[1].jb:=1;

jn[2].gj:=10;     jn[2].fy:=-5;   jn[2].bx:=0;   jn[2].jb:=1;

jn[3].gj:=0;      jn[3].fy:=0;    jn[3].bx:=0;   jn[3].jb:=1;

jn[4].gj:=0;      jn[4].fy:=0;    jn[4].bx:=0;   jn[4].jb:=1;

end;

procedure baobao;

begin

bb.gj:=3;  bb.jx:=15; bb.live:=1; bb.nm:='红尘猪'; bb.level:=1;

end;

procedure cwgj;

begin

sjs:=random(10);

if sjs=0 then begin if role.xue+bb.jx>role.maxxue then role.xue:=role.maxxue else role.xue:=role.xue+bb.jx; writeln('你的宠物 ', bb.nm ,' 为你加血',bb.jx,'点'); end else begin

rys:=bb.gj+random(3)-1; dqgw.xt:=dqgw.xt-rys; writeln('你的宠物 ', bb.nm ,' 攻击怪物',rys,'点血'); end;

end;

procedure sj;

begin

role.level:= role.level+1;

role.gjl:= role.gjl+10;

role.fyl:= role.fyl+5;

role.maxxue:=role.maxxue+25;

role.xue:=role.maxxue;

end;

procedure hqwp;

begin

sjs:=random(20)+1;

case sjs of

1: begin bao.red:=bao.red+1; writeln('获得金创药1个'); end;

6: begin role.xue:=role.maxxue; writeln('获得神佑，生命值回复到最大'); end;

7: begin role.gjl:=role.gjl+1; writeln('获得神佑，攻击力+1'); end;

8: begin role.fyl:=role.fyl+1; writeln('获得神佑，防御力+1'); end;

3: begin role.money:=role.money+sjs*10; writeln('获得金币',sjs*10); end;

9: begin role.money:=role.money+sjs*10; writeln('获得金币',sjs*10); end;

12: begin role.money:=role.money+sjs*10; writeln('获得金币',sjs*10); end;

13: begin bao.ttl:=bao.ttl+1; writeln('获得饕餮料1块'); end;

14: begin bao.ttl:=bao.ttl+1; writeln('获得饕餮料1块'); end;

15: begin bao.ttl:=bao.ttl+1; writeln('获得饕餮料1块'); end;