该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
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;