Sai ở đâu thế mn: (T đang làm thử cái rpg game OwO)
Program Rpg_hunt;
Uses crt;
Var cmd: string;
hp,exp,lv,hunt,mhp,bank,pot,pots,gear: longint;
Begin
Clrscr;
lv:=0;hp:=100;exp:=9;mhp:=100;bank:=0;hunt:=0;pot:=0;pots:=0;gear:=0;
Readln(cmd);
(*Lenh hunt*)
If cmd='hunt' then
Begin
Randomize;
Hunt:=Random(5);
If hunt=1 then
Begin
If gear=0 then
Begin
hp:=hp-10;
writeln('You just killed a slime');
Writeln('You have ',hp,'/100hp');
Writeln('You gained 10 exp and 1000 gold!');
exp:=exp+10;
bank:=bank+1000;
delay(1000);
End;
If gear=1 then
Begin
hp:=hp-5;
Writeln('You just killed a slime');
Writeln('You have ',hp,'/100hp');
Writeln('You gained 10 exp and 1000 gold!');
exp:=exp+10;
bank:=bank+1000;
delay(1000);
End;
End;
If hunt=2 then
Begin
If gear=1 then
Begin
hp:=hp-15;
writeln('You just killed a slime lord');
writeln('You have ',hp,'/100hp');
writeln('You gained 15 exp and 1500 golds!');
exp:=exp+15;
bank:=bank+1500;
delay(1000);
End;
If gear=1 then
Begin
hp:=hp-7;
Writeln('You just killed a slime');
Writeln('You have ',hp,'/100hp');
Writeln('You gained 15 exp and 1500 gold!');
exp:=exp+15;
bank:=bank+1500;
delay(1000);
End;
End;
If hunt=3 then
Begin
If gear=0 then
Begin
hp:=hp-40;
Writeln('You just killed a wolf( but stronger)');
writeln('You have ',hp,'/100hp');
Writeln('You gained 40 exp and 4000 golds!');
exp:=exp+40;
bank:=bank+4000;
delay(1000);
End;
If gear=1 then
Begin
hp:=hp-20;
Writeln('You just killed a slime');
Writeln('You have ',hp,'/100hp');
Writeln('You gained 40 exp and 4000 gold!');
exp:=exp+40;
bank:=bank+4000;
delay(1000);
End;
End;
If hunt=4 then
Begin
If gear=0 then
Begin
hp:=hp-25;
Writeln('You just killed a wolf');
writeln('You have ',hp,'/100hp');
Writeln('You gained 25 exp and 2500 golds!');
exp:=exp+25;
bank:=bank+2500;
delay(1000);
End;
If gear=1 then
Begin
hp:=hp-12;
Writeln('You just killed a slime');
Writeln('You have ',hp,'/100hp');
Writeln('You gained 25 exp and 2500 gold!');
exp:=exp+25;
bank:=bank+2500;
delay(1000);
End;
End;
(*Die*)
If hp=0 then
Begin
lv:=lv-1;
mhp:=mhp-20;
Write('You died, cry, you just demoted to lv ',lv);
end;
(*Lenh tinh exp*)
If exp>=200 then
Begin
exp:=exp-200;
lv:=lv+1;
mhp:=mhp+20;
Writeln('GG, you advenced to level ',lv);
End;
If cmd='exp' then Writeln('Your level is ',lv,' ',exp,'/200');
(*Lenh check heal*)
If cmd='heal now' then writeln('Your hp is ',hp);
(*Lenh heal*)
If cmd='heal' then
Begin
If pot>0 then
Begin
hp:=mhp;
Writeln('Your heal is ',hp,' now');
pot:=pot-1;
End
else
Writeln('You dont have enough potion, please buy more in shop!');
End;
(*Lenh shop*)
If cmd='shop' then
Begin
Writeln(' Welcome to Rpg Shop!!!');
Writeln('Here is some items for you OwO');
Writeln(' Life Potion: 200 golds');
Writeln(' Armor: 20.000 golds');
Writeln(' Sword: 30.000 golds');
End;
(*Lenh mua armor/sword*)
If (cmd='buy armor') or (cmd='buy sword') then
Begin
Write('You just bought a armor/sword for 100.000');
bank:=bank-100000;
gear:=gear+1;
End;
(*Lenh mua do*)
If cmd='buy pots' then
Begin
Writeln('How many potions do you want?'); Readln(pots);
If bank-(pots*200) >=0 then
Begin
Writeln('You successful bought ',pots,' potions!');
bank:=bank-(pots*200);
pot:=pot+pots;
pots:=0;
End
else Writeln('You dont have enough golds!');
End;
(*Lenh check inven*)
If cmd='inv' then
Begin
Writeln('Here is your inventory:');
Writeln('Life potions: ',pot);
Writeln('Golds: ',bank);
End;
(*Lenh thoat*)
If cmd='exit' then exit;
Until 2=1;
End.
