summaryrefslogblamecommitdiff
path: root/npc/003-8/jhedia.txt
blob: 3f8e21813cf659b9ee5c7c1039d30a3498d83c68 (plain) (tree)
1
2
3
4
5
6
7
8
9

                

                 


                                                         
                              
 
                                                  
                
 






                                                                      










                                                                                                  

                                                      











                                                                                                                              

                  
 
                                                   
                                                            



              
       


                                                                                                                                            
          
                        

                         
                              
 
                                                                

                    
                                                      
              





                                                        



                     

        



                


               
       






























































                               
 



                  
// TMW2 scripts.
// Author:
//	Crazyfefe
//	Saulc	
//  Jesusalva
// Description:
//  Jhedia takes care of Tulimshar forge and makes ingots
//.@karim = getq(Karim_Quest);

003-8,28,30,0	script	Jhedia	NPC_ELVEN_FEMALE,{
    goto L_Menu;

    // ingot_create( BaseItem, PrizeItem, Amount, Amount_Coal, Price )
    function ingot_create {
        .@basei=getarg(0);
        .@prize=getarg(1);
        .@amoun=getarg(2);
        .@coalm=getarg(3);
        .@price=getarg(4);

        mesn;
        mesq l("Do you want to craft @@? For that I will need @@ @@, @@ @@ and @@ gp.",
        getitemlink(.@prize), .@amoun, getitemlink(.@basei), .@coalm, getitemlink(Coal), .@price);

        select
            l("Yes"),
            menuaction(l("Quit"));

        if (@menu == 2) goto L_Menu;

        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("How many ingots do you want to make?");
        input .@amount;

        if (countitem(.@basei) >= .@amount * .@amoun && countitem(Coal) >= .@amount * .@coalm && Zeny >= .@price * .@amount) {
            inventoryplace .@prize, .@amount;
            delitem .@basei, .@amount * .@amoun;
            delitem Coal, .@amount * .@coalm;
            Zeny = Zeny - .@amount * .@price;
            getitem .@prize, .@amount;

            mes "";
            mesn;
            mesq l("Many thanks! Come back soon.");
            close;
        }

        speech S_FIRST_BLANK_LINE,// | S_LAST_NEXT,
                l("You don't have enough material, sorry.");
        close;
        
    }

L_Menu:
    mesn;
    mesq l("Hello! I am @@, and I take care of Tulimshar forge. I usually make ingots from various materials. So, what do you want today?");
    next;
    select
        l("Iron Ingot"),
        l("Gold Ingot"),
        l("Gold Pieces"),
        l("Nothing, thanks.");

    // ingot_create(Ore, Ingot, Nº of Ore, Nº of Coal, Price);
    switch (@menu) {
    case 1:
        ingot_create(IronOre, IronIngot, 7, 11, 8500);
        break;
    case 2:
        ingot_create(GoldOre, GoldIngot, 3, 10, 8500);
        break;
    case 3:
        ingot_create(GoldOre, GoldPieces, 1, 20, 11000);
        break;
    default:
        goto L_Close;
        break;
    }

L_Close:
    closedialog;
    goodbye;
    close;

OnTimer1000:
    domovestep;

OnInit:
    initpath "move", 28, 30,//C
             "dir", DOWN, 0,
             "wait", 70, 0,
             "move", 35, 28,//D
             "dir", DOWN, 0,
             "wait", 10, 0,
             "move", 30, 29,//B
             "dir", UP, 0,
             "wait", 4, 0,
             "move", 36, 36,//H
             "dir", LEFT, 0,
             "wait", 2, 0,
             "move", 27, 29,//A
             "dir", UP, 0,
             "wait", 10, 0,
             "move", 30, 34,//K
             "dir", UP, 0,
             "wait", 13, 0,
             "move", 27, 29,//A
             "dir", UP, 0,
             "wait", 14, 0,
             "move", 39, 31,//G
             "dir", UP, 0,
             "wait", 25, 0,
             "move", 30, 29,//B
             "dir", UP, 0,
             "wait", 11, 0,
             "move", 26, 42,//M
             "dir", UP, 0,
             "wait", 8, 0,
             "move", 30, 29,//B
             "dir", UP, 0,
             "wait", 7, 0,
             "move", 39, 36,//I
             "dir", RIGHT, 0,
             "wait", 2, 0,
             "move", 35, 31,//F
             "dir", UP, 0,
             "wait", 1, 0,
             "move", 27, 29,//A
             "dir", UP, 0,
             "wait", 15, 0,
             "move", 29, 38,//L
             "dir", DOWN, 0,
             "wait", 21, 0,
             "move", 30, 29,//B
             "dir", UP, 0,
             "wait", 10, 0,
             "move", 39, 28,//E
             "dir", DOWN, 0,
             "wait", 13, 0,
             "move", 28, 34,//J
             "dir", UP, 0,
             "wait", 10, 0,
             "move", 30, 29,//B
             "dir", UP, 0,
             "wait", 1, 0,
             "move", 29, 42,//N
             "dir", UP, 0,
             "wait", 16, 0,
             "move", 27, 29,//A
             "dir", UP, 0,
             "wait", 6, 0;

    initialmove;
    initnpctimer;
    .distance = 5;
}