var hp,atk,js,huihe,sds,dj,db,di,dg:integer;name:string;xz,hero,nandu:char;
const g=500;
begin
writeln('LYD工作室出品');
writeln('主打编辑:Rh.');
writeln('温馨提示:选择时小写字母无效 P.S.name可以小写');
write('name:');readln(name);
writeln('选择英雄:');
writeln('A.弓箭手 B.战士 C.法师 D.刺客');
readln(hero);
if hero='A' then begin hp:=3000;atk:=300;end;
if hero='B' then begin hp:=5000;atk:=350;end;
if hero='C' then begin hp:=4000;atk:=400;end;
if hero='D' then begin hp:=4000;atk:=350;end;
writeln('选择难度');writeln('A.LV.1 B.LV.2 C.LV.3');readln(nandu);
if nandu='A' then js:=100;
if nandu='B' then js:=300;
if nandu='C' then js:=500;
writeln('终极目的:打败(●—●)');
di:=js*2;dg:=200;sds:=0;
repeat
if di<0 then di:=0;
if di=0 then begin
writeln('你干掉了一个敌人');
huihe:=0;di:=g+js;sds:=sds+1;dg:=dg+100;
end;
if sds=3 then begin write('升级');hp:=hp+js;atk:=atk*2;end;
if sds=5 then begin write('升级');hp:=hp+js;atk:=atk*2;end;
if sds=8 then begin write('升级');hp:=hp+js;atk:=atk*2;end;
if sds=10 then begin write('升级');hp:=hp+js;atk:=atk*2;end;
if sds=13 then begin write('升级');hp:=hp+js;atk:=atk*2;end;
if sds=15 then begin write('升级');hp:=hp+js;atk:=atk*2;end;
huihe:=huihe+1;
if hp<0 then hp:=0;
if hp=0 then begin writeln(name,'任务失败');exit;end;
writeln(name,' ','HP',hp,' 攻击',atk);
writeln(' 回合',huihe,' 杀敌数',sds);
writeln('敌 HP',di,' 敌攻',dg);
writeln('A.攻击 B.回复HP C.技能');
readln(xz);
writeln('_______________________');
writeln('敌人攻击',name);
hp:=hp-dg;
if xz='A' then begin di:=di-atk;writeln(name,'对敌人造成伤害');end;
if xz='B' then begin hp:=hp+atk*2;writeln(name,'回复了HP');end;
if (huihe mod 3=0)and(xz='C') then begin
if hero='A' then begin di:=di-atk*2;end;
if hero='B' then begin di:=di-atk;end;
if hero='c' then begin di:=di-atk*2;end;
if hero='D' then begin hp:=hp+atk;di:=di-atk;
writeln(name,'发动了技能');
end;end;
until sds=15;
writeln('(●—●)来了');
writeln('选一件神器:');
writeln('A.金丝软甲(山寨) B.大白杀手剑');
readln(xz);
if xz='A' then hp:=hp+js+100;
if xz='B' then atk:=atk+js+200;
db:=25000;dg:=1000;
repeat
if db<0 then db:=0;
if db=0 then begin
writeln(name,'完成任务!');
exit;
end;
huihe:=huihe+1;
if hp<0 then hp:=0;
if hp=0 then begin writeln(name,'任务失败!');exit;end;
writeln(name,' ','HP',hp,' 攻击',atk);
writeln(' 回合',huihe);
writeln('(●—●) HP',db,' 敌攻',dg);
writeln('A.攻击 B.回复HP C.技能');
readln(xz);
writeln('_______________________');
writeln('(●—●)攻击',name);
randomize;
dj:=random(3);
if (dj=0)or(dj=1)or(dj=2) then begin hp:=hp-dg;end;
if dj=3 then begin hp:=hp-dg*2;end;
if xz='A' then begin db:=db-atk;writeln(name,'对敌人造成伤害');end;
if xz='B' then begin hp:=hp+atk*2;writeln(name,'回复了HP');end;
if (huihe mod 3=0)and(xz='C') then begin
if hero='A' then begin db:=db-atk*2;end;
if hero='B' then begin db:=db-atk;end;
if hero='c' then begin db:=db-atk*2;end;
if hero='D' then begin hp:=hp+atk;db:=db-atk;
writeln(name,'发动了技能');
end;end;
until db=0;
end.