Code: Select all
set @QUEST_EXP, 5000
set @QUEST_REW, 5000
set @TREASUREKEY_AMOUNT, 5
mes"[Miner]";
mes"\"Be careful in there.\"";
mes"\"Could you help an old miner out while you are in there?""\;
menu
"Sure I'll help.", L_Help
"No thanks.", L_Close
L_Help:
mes"[Miner]";
mes"\"You see when the spiders came I hurried up and ran, dropping my keychain in the process.\""
mes"\"The keychain broke, but that's not what i'm worried about, I'm worried about the keys the spiders gobbled up.\""
mes"\"There were only 5 keys so if you can get them back for me I'd be really grateful.\""
menu
"I''ll be right back with them." L_Close
"I have them right here." L_Thanks
"I've changed my mind. L_Close
L_Thanks:
if (countitem("treasurekey")< @TREASUREKEY_AMOUNT)
goto L_Not_enough;
delitem "treasurekey", @TREASUREKEY_AMOUNT;
set zeny, zeny + @QUEST_REW
get exp @QUEST_EXP
mes "[Miner]";
mes "\"Thanks for your help. Take this 5000 gold for your trouble\""
L_Not_enough:
mes"[Miner]",
mes"\"No I need 5 keys. Please come back when you have enough.\"";
goto L_Close