The Mana World Forums

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

Code: Select all

018-1.gat,80,61,0|script|Miner|109,
{
set   @QUEST_EXP, 5000
set   @QUEST_REW, 5000
set   @TREASUREKEY_AMOUNT, 5

if (@Miner == 0 && BaseLevel >= 45) goto L_Miner_Start;
if (@Miner == 1) goto L_MinerDone

    mes"[Miner]";
    mes"\"Be careful in there.\"";
    close;
 
L_Miner_Start:
    mes"[Miner]";
    mes"\"Hi, you look fairly experienced, 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\""
    set @Miner, 1;

L_Not_enough:
    mes"[Miner]",
    mes"\"No I need 5 keys. Please come back when you have enough.\"";
    goto L_Close

L_MinerDone:
   mes"[Miner]",
   mes"\"Thanks again for your help!\"";
   goto L_Close

L_Close:
    set @Miner, 0;
    close;
}

Code: Select all

018-1.gat,80,61,0|script|Miner|109,

{
    mes"[Miner]";
    mes"\"Be careful in there.\"";
    close;

L_Miner_Start:
    mes"[Miner]";
    mes"\"Hi, you look fairly experienced, 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 alot of 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:
    set @dq_level, 40;
    set @dq_cost, 30;
    set @dq_count, 5;
    set @dq_name$, "Treasure Key";
    set @dq_friendly_name$, "treasure key";
    set @dq_money, 5000;
    set @dq_exp, 5000;
 

    callfunc "DailyQuest";

    next;

    mes "[Miner]";
    mes "/"Check back with me tomorrow to see if I've found all my keys yet.\""
    
    L_Close

Code: Select all

//
018-1.gat,80,61,0|script|Miner|109,
{
    mes "[Miner]";
    mes "\"Be careful in there.\"";
    next;
    mes "\"Actually maybe you can help an old miner out.\"";
    next;
L_Keys:
    mes "[Miner]";
    set @dq_level, 40;
    set @dq_cost, 35;
    set @dq_count, 10;
    set @dq_name$, "TreasureKey";
    set @dq_friendly_name$, "Treasure Key";
    set @dq_money, 3000;
    set @dq_exp, 300;

    callfunc "DailyQuest";
    goto L_Close;

L_Close:
    set @money, 0;
    set @state, 0;
    set @dq_level, 0;
    set @dq_cost, 0;
    set @dq_count, 0;
    set @dq_name$, "";
    set @dq_friendly_name$, "";
    set @dq_money, 0;
    set @dq_exp, 0;
    set @dq_return, 0;
    close;

}