<?php
//===== Athena Script ========================================
//= Customized Mall
//===== By: ==================================================
//= Adib
//===== Description: =========================================
//= Shopping Center for Buy ALL items except card


//The Shops




que_moc_16,91,89,4    shop    Armors    752,2306:100000,2315:1000000,2310:50000,2302:5000,2320:1000000,2319:1000000,2354:1000000,2304:10000,2308:1000000,2311:1000000,2359:1000000,2353:1000000,2313:1000000,2326:1000000,2324:1000000,2322:500000,2333:500000,2336:1000000,2331:1000000,2329:50000
que_moc_16,91,87,4    shop    Shields    707,2104:1000000,2102:10000,2106:50000
que_moc_16,91,85,4    shop    Garments    806,2525:1000000,2502:10000,2506:50000,2504:50000
que_moc_16,91,83,4    shop    Footgears    913,2406:50000,2407:50000,2402:10000,2404:50000
que_moc_16,72,77,5    shop    One-handed Swords    733,1109:1000000,13400:1000000,1106:1000000,1149:1000000,1128:1000000,1125:1000000,1127:1000000,1115:1000000,1103:1000000,1121:1000000,1108:1000000
que_moc_16,74,77,5    shop    Two-handed Swords    734,1156:30000,1162:70000,1172:80000,1180:1000000,1179:1000000,1117:30000,1170:1000000,1165:1000000,1164:1000000,1178:1000000,1153:30000,1159:70000,1171:1000000
que_moc_16,76,77,5    shop    One-handed Spears    767,1415:1000000,1414:1000000,1418:1000000,1403:1000,1409:8000,1417:1000000,1406:5000,1416:1000000
que_moc_16,78,77,5    shop    Two-handed Spears    767,1418:1000000,1403:1000000,1409:1000000,1406:1000000,1408:1000000,1402:1000000,1405:1000000
que_moc_16,80,77,5    shop    One-handed Axes    826,1303:1000000,1302:1000000
que_moc_16,72,70,5    shop    Two-handed Axes    813,1353:6000,1363:1000000,1359:35000,1364:1000000,1369:1000000,1356:20000,1366:1000000,1365:1000000,1367:1000000,1368:1000000,1362:60000
que_moc_16,74,70,5    shop    Katars    885,1251:20000,1255:40000,1253:60000,1264:1000000
que_moc_16,76,70,5    shop    Daggers    884,1206:2000,1215:15000,1226:50000,1212:10000,1221:45000,1209:3000,1218:20000,13018:1000000,1205:1250,1214:14000,1220:43000,1202:50,1208:2400,1217:19500
que_moc_16,78,70,5    shop    Rods & Staffs    735,1612:50000,1615:500000,1613:1000000,1603:1000,1472:1000000,1609:10000,1618:1000000,1620:1000000,1614:500000,1606:5000,1616:1000000,1473:1000000
que_moc_16,80,70,5    shop    Bows    832,1715:50000,1703:1000,1705:3000,1712:20000,1716:45000,1709:10000,1726:65000
que_moc_16,103,77,3    shop    Maces    821,1521:25000,1503:1000,1512:20000,1524:1000000,1528:1000000,1529:1000000,1525:1000000,1506:3000,1515:45000,1527:1000000,1526:1000000,1509:10000,1523:1000000,1532:60000,1518:50000,1531:1000000
que_moc_16,101,77,3    shop    Knuckles    808,1816:1000000,1810:70000,1812:60000,1808:55000,1815:1000000,1813:1000000,1804:25000,1806:35000,1802:10000
que_moc_16,99,77,3    shop    Whips    862,1969:1000000,1964:1000000,1971:1000000,1967:1000000,1966:1000000,1962:1000000,1970:1000000,1957:35000,1963:1000000,1965:1000000,1951:3000,1968:1000000,1959:45000,1953:12000,1961:40000,1955:20000
que_moc_16,97,77,3    shop    Musical Instruments    741,1914:1000000,1913:1000000,1917:1000000,1916:1000000,1908:50000,1912:55000,1910:65000,1915:1000000,1906:25000,1904:20000,1918:1000000,1902:5000
que_moc_16,95,77,3    shop    Guns    852,13103:60000,13105:100000,13106:200000,13101:10000,13150:6000,13152:30000,13153:50000,13155:60000,13156:100000,13154:30000,13159:250000,13157:150000,13161:300000,13162:500000
que_moc_16,103,70,3    shop    Fuuma Shurikens    880,13302:100000,13303:150000,13300:200000,13304:1000000,7522:500,7521:500,7523:500
que_moc_16,101,70,3    shop    Ammunition    801,1766:50,1755:20,1750:10,1754:20,1761:20,1752:20,1760:20,1759:20,1772:100,1757:30,1770:20,1769:30,1765:40,1763:30,1762:30,1767:30,1764:30,1751:20,1768:30,1753:30,1756:30,1758:30,1771:1000,13200:50,13202:100,13201:300,13206:500,13203:500,13207:500,13204:500,13205:500,13252:50,13254:500,13251:100,13253:300,13250:50,13256:50,13259:50,13258:50,13255:50,13257:50,12012:100000,12008:100000,12183:100000,12014:100000,12005:100000,12007:100000,12015:100000,12013:100000,12009:100000,12006:100000,12011:100000,12010:100000,12010:100000,
que_moc_16,99,70,3    shop    Novice Shop    882,569:100,5055:1000,5125:10000,5112:50000,2340:100000,2352:40000,2355:50000,1243:50000,1621:80000,2112:10000,2116:30000,2113:50000,2521:30000,2512:100000,2510:50000,2414:1000,2420:30000,2416:50000,2628:50000,7271:10000
que_moc_16,97,70,3    shop    Blacksmith Shop    869,717:600,716:600,715:600,1010:-1,1011:-1,985:-1,984:-1,613:1000,614:3000,615:5000,1005:-1,986:-1,987:-1,988:-1,989:-1,612:150,990:-1,991:-1,992:-1,993:-1,994:-1,995:-1,996:-1,997:-1,1003:-1,1002:-1,998:-1,999:-1,1000:-1,1001:-1,733:-1,730:-1,731:-1,732:-1,719:-1,718:-1,724:-1,723:-1,725:-1,726:-1,727:-1,728:-1,729:-1,721:-1,720:-1,722:-1
que_moc_16,95,70,3    shop    Alchemist Shop    749,7136:5000,7135:5000,7137:3000,7138:3000,7139:5000,713:100,1092:50,7134:50,1093:100,12040:200000,952:1000,1012:1000,950:1000,7126:5000,1017:1000,1057:1000,1061:5000,7419:200000,7434:200000,7133:250000
que_moc_16,84,66,3    shop    Healing Item    886,505:5000,506:50,501:100,502:300,503:600,504:1200
que_moc_16,91,64,3    shop    Usable Items    891,606:1500,605:2000,609:100,662:1500,678:30000,645:1000,656:3000,657:5000,608:30000
que_moc_16,84,62,3    shop    Pet Store    890,643:3000,619:2000,620:2000,621:2000,622:3000,623:4000,632:5000,627:7000,624:3000,625:3000,630:3000,631:3000,633:3000,629:3000,635:3000,636:3000,637:3000,659:3000,626:3000,642:3000,641:3000,640:3000,628:10000,638:15000,639:20000,661:20000,634:20000,660:20000,10013:5000,10017:5000,10010:5000,10016:5000,10020:5000,10015:5000,10018:5000,10002:5000,10004:5000,10008:5000,10006:5000,10019:5000,10014:5000,10007:5000,10001:5000,10011:5000,10012:5000,10003:5000,10005:5000,10009:500

//===== eAthena Script ======================================= 
//= Poring Coin Exchanger
//===== By: ================================================== 
//= Adib
//===== Version and Changes ==================================
//= 1.0		-Finished the script
//===== Description: ========================================= 
//= This script exchanges Zeny to Poring Coins and vice versa.
//= This script has been created to fulfill a request.
//=
//= Edit @zenyforcoins to change the Exchange Rate.
//===== All credits reserved to Arcenciel ====================

que_moc_16,90,74,7    script    Poring Coin Exchanger    948,{

set @zenyforcoins,10000000; // Exchange Rate do not touch anything below this
set @changethismany,0;
set @changethismuch,0;

mes "[Angeling]";
mes "I can switch your Zeny to Poring Coin and vice versa.";
next;
mes "[Angeling]";
mes "What can I help you with today?";
menu "Exchange Zeny for Poring Coin",-,"Exchange Poring Coin for Zeny",L_CoinZeny;

    if ( Zeny < 10000000 ) {
        next;
        callsub L_ExchangeRate;
        next;
        mes "[Angeling]";
        mes "You don't have enough zenies.";
        close;
    }
    
next;    
callsub L_ExchangeRate;
next;
set @howmany,Zeny/@zenyforcoins;
mes "[Angeling]";
mes "I see that you currently have ^FF0000"+Zeny+"^000000 Zenies.";
next;
mes "[Angeling]";
mes "I can exchange that for a total of of ^FF0000"+@howmany+"^000000 Poring Coins";
next;
mes "[Angeling]";
mes "How many Poring Coins do you want?";
if (select("All that I am able to have:I want this many...") == 1) { set @changethismuch,1; }
next;
callsub L_ZenyCoin;
close;
        
L_ZenyCoin:
    if ( @changethismuch == 1 ) {
        callsub L_GetCoin;
        return;
    }
    if ( @changethismuch == 0 ) {
        input @howmany;
            if ( Zeny < (@howmany*@zenyforcoins) ) {
                mes "[Angeling]";
                mes "You don't have enough Zeny for that!";
                return;
            }
        callsub L_GetCoin;
        return;
}
    
L_CoinZeny:
next;
callsub L_ExchangeRate;
next;
set @howmany,countitem(7539);

    if ( @howmany == 0 ) {
        mes "[Angeling]";
        mes "Wait!";
        mes "You don't even have any Poring Coins!";
        close;
    }

mes "[Angeling]";
mes "I see that you currently have ^FF0000"+@howmany+"^000000 Poring Coins.";
next;
set @zenyexchange,@howmany*@zenyforcoins;
mes "[Angeling]";
mes "I can exchange that for a total of ^FF0000"+@zenyexchange+"^000000 Zenies.";
mes    "Of course, only as long as you do not go over ^FF0000 1 Billion zenies^000000.";
next;
mes "[Angeling]";
mes "How many Poring Coins would you like to turn into Zenies?";
if (select("All that I am able to exchange:I want this many...") == 1) { set @changethismany,1;}
next;
callsub L_CoinZenyExchange;
close;

L_CoinZenyExchange:
    if ( @changethismany == 1 ) {
        if ( Zeny + (@zenyforcoins*@howmany) > 1000000000 - Zeny ) {
            mes "[Angeling]";
            mes "Wait!";
            mes "You can't hold that much Zeny!";
            return;
        }
    callsub L_GetZeny;
    return;
    }
    if ( @changethismany == 0 ) {
        input @howmany;
            if ( @howmany > countitem(7539) ) {
                mes "[Angeling]";
                mes "Wait!";
                mes "You don't even have that many Poring Coins!";
                return;    
            }
            if ( Zeny + (@zenyforcoins*@howmany) > 1000000000 - Zeny ) {
                mes "[Angeling]";
                mes "Wait!";
                mes "You can't hold that much Zeny!";
                return;
            }
        callsub L_GetZeny;
        return;    
    }

L_ExchangeRate:
mes "[Angeling]";
mes "The current exchange rate is ^FF00001^000000 Poring Coin for ^FF0000"+@zenyforcoins+"^000000 Zenies.";
return;

L_GetCoin:
set Zeny,(Zeny - (@zenyforcoins*@howmany));
getitem 7539,@howmany;
mes "[Angeling]";
mes "Here are your Poring Coins.";
return;

L_GetZeny:
set Zeny,(Zeny + (@zenyforcoins*@howmany));
delitem 7539,@howmany;
mes "[Angeling]";
mes "Here are your Zenies";
return;    
}

//===== eAthena Script ============================================
//== Premium MVP & Mini-Boss Warper
//===== By: =======================================================
//== Made by Adib
//== Original idea from Acky
//===== Compatible With: ==========================================
//== Any eAthena Version
//===== Current Version: ==========================================
//== 1.0
//===== Description: ==============================================
//== Let players summon MVP and Mini-boss for a price.
//=================================================================

que_moc_16,87,79,4    script    Premium MVP Warper    874,{

set @amount,300000;    // Enter the amount you want the warper to collect from player

    mes "[Premium MVP Warper]";
    mes "Do you want to enter the Premium MVP Room?";
    mes "There are currently ^FF0000"+getmapusers("sec_in01.gat")+"^000000 people there.";
    mes "Give me "+@amount+"z and I'll bring you there.";
    next;
    menu "Yes",E_Yes,"No",-;
    mes "[Premium MVP Warper]";
    mes "So be it.";
    close;

E_Yes:
    if(Zeny < @amount) goto E_Nomoney;
    set Zeny, Zeny-@amount;
    warp "sec_in01.gat",85,31;
    close;

E_Nomoney:
    mes "[Premium MVP Warper]";
    mes "You liar! You do not have enough zeny.";
    close;
}
//============================================================

sec_in01.gat,79,36,5    script    Entrance Dealer    721,{

set @nonmember,200000;    // Entry price for non-Member
set @silver,100000;    // Entry price for silver Member
set @bronze,150000;    // Entry price for bronze Member
set @fee,20000000;    // Membership fees
set @coupon,500;    // Coupons need for Membership

    mes "[Entrance Dealer]";
    mes "Hello there! Welcome to the MVP Arena!";
    mes "Each entry cost "+@nonmember+"z for non-member.";
    mes "You can also join our membership to gain discount.";
    next;
    menu "Enter Arena",E_Arena,"Join Membership",J_Membership,"Leave this Place",G_Back;
    
E_Arena:
    if(#membership == 1) goto E_Gold;
    if(#membership == 2) goto E_Silver;
    if(#membership == 3) goto E_Bronze;
    if(Zeny < @nonmember) goto E_Nomoney;
    mes "[Entrance Dealer]";
    mes "You are not a member here so we will collect "+@nonmember+"z from you.";
    mes "Have a nice day!";
    next;
    set Zeny, Zeny-@nonmember;
    warp "sec_in01.gat",85,60;
    close;

E_Gold:
    mes "[Entrance Dealer]";
    mes "You are a ^FFD042Gold Member^000000 so it's totally free!";
    mes "Have a nice day!";
    next;
    warp "sec_in01.gat",85,60;
    close;

E_Silver:
    if(Zeny < @silver) goto E_Nomoney;
    mes "[Entrance Dealer]";
    mes "You are a ^BABABASilver Member^000000 so we will collect "+@silver+"z from you.";
    mes "Have a nice day!";
    next;
    set Zeny, Zeny-@silver;
    warp "sec_in01.gat",85,60;
    close;

E_Bronze:
    if(Zeny < @bronze) goto E_Nomoney;
    mes "[Entrance Dealer]";
    mes "You are a ^CC9933Bronze Member^000000 so we will collect "+@bronze+"z from you.";
    mes "Have a nice day!";
    next;
    set Zeny, Zeny-@bronze;
    warp "sec_in01.gat",85,60;
    close;

E_Nomoney:
    mes "[Entrance Dealer]";
    mes "You do not have enough zeny.";
    close;

J_Membership:
    if(#membership == 1) goto M_Gold;
    mes "[Entrance Dealer]";
    mes "Oh hello! So you're here for our membership aren't you?";
    mes "You will need "+@fee+"z and also "+@coupon+" coupons to upgrade your membership,";
    mes "There are 3 different types of members.";
    next;
    mes "^FFD042Gold Member^000000 - Free of charge";
    mes "^BABABASilver Member^000000 - "+@silver+"z on Entry";
    mes "^CC9933Bronze Member^000000 - "+@bronze+"z on Entry";
    next;
    mes "You have to be a ^CC9933Bronze Member^000000 to be a ^BABABASilver Member^000000,";
    mes "And a ^BABABASilver Member^000000 to be a ^FFD042Gold Member^000000.";
    next;
    menu "Be a Member",B_Member,"I'm not interested",-;
    close;

B_Member:
    if(Zeny < @fee || countitem(7037) < @coupon) goto C_Notenough;
    if (#membership == 2) goto M_Silver;
    if (#membership == 3) goto M_Bronze;
    set Zeny, Zeny-@fee;
    delitem 7037,@coupon;
    set #membership,3;
    mes "[Entrance Dealer]";
    mes "You are now a ^CC9933Bronze Member^000000!";
    close;

M_Gold:
    mes "[Entrance Dealer]";
    mes "You are already a ^FFD042Gold Member^000000!";
    mes "You can't upgrade your membership any further.";
    close;

M_Silver:
    if(Zeny < @fee || countitem(7037) < @coupon) goto C_Notenough;
    set Zeny, Zeny-@fee;
    delitem 7037,@coupon;
    set #membership,#membership-1;
    mes "[Entrance Dealer]";
    mes "You are now a ^FFD042Gold Member^000000!";
    close;

M_Bronze:
    if(Zeny < @fee || countitem(7037) < @coupon) goto C_Notenough;
    set Zeny, Zeny-@fee;
    delitem 7037,@coupon;
    set #membership,#membership-1;
    mes "[Entrance Dealer]";
    mes "You are now a ^BABABASilver Member^000000!";
    close;

C_Notenough:
    mes "[Entrance Dealer]";
    mes "Sorry but you do not have enough Coupons to upgrade your membership.";
    close;

G_Back:
    mes "[Entrance Dealer]";
    mes "Ok then, i will now bring you back to prontera.";
    next;
    warp "prontera.gat",156,191;
    close;
}
//============================================================

sec_in01.gat,127,94,4    script    Nurse    71,{

    mes "[Nurse]";
    mes "Do you need a heal or a buff?";
    next;
    menu "Heal please",N_Heal,"Buff please",N_Buff;

N_Heal:
    mes "[Nurse]";
    mes "You are healed.";
    percentheal 100,100;
    specialeffect2 7;
    close;

N_Buff:
    mes "[Nurse]";
    mes "All done!";
    sc_start SC_CONCENTRATE,30000000000,10;
    sc_start SC_BLESSING,30000000000,10;
    sc_start SC_INCREASEAGI,30000000000,10;
    sc_start SC_IMPOSITIO,30000000000,5;
    sc_start SC_SUFFRAGIUM,30000000000,5;
    sc_start SC_KYRIE,30000000000,10;
    sc_start SC_MAGNIFICAT,30000000000,5;
    sc_start SC_GLORIA,30000000000,5;
    sc_start SC_WINDWALK,30000000000,5;
    sc_start SC_ANGELUS,30000000000,10;
    close;
}
//============================================================

sec_in01.gat,30,92,4    script    Summoner#h1-1::Monster Summoner	897,{

set @summon,500000;    // Price per summoning

    if (getmapxy($@mapname$,@mapx,@mapy,0) != 0) goto M_End;
    mes "[Monster Summoner]";
    mes "I can summon MVP and Mini-Boss for you.";
    mes "Which one do you want me to summon?";
    mes "I will need "+@summon+"z for every summoning.";
    next;
    menu "MVP",S_Mvp,"Mini-Boss",S_Miniboss;

M_End:
    Close;

M_Cancel:
    mes "[Monster Summoner]";
    mes "Okay..";
    close;

M_Nomoney:
    mes "[Monster Summoner]";
    mes "There's no free lunch in this world you know!";
    close;
    
S_Mvp:
    mes "[Monster Summoner]";
    mes "Which MVP do you want to fight?";
    next;
    menu "Amon Ra",M_1,"Bacsojin",M_2,"Baphomet",M_3,"Dark Lord",M_4,"Detardeurus",M_5,
    "Doppelganger",M_6,"Dracula",M_7,"Drake",M_8,"Eddga",M_9,"Evil Snake Lord",M_10,
    "Garm",M_11,"Golden Thief Bug",M_12,"Kiel D-01",M_13,"Lord of Death",M_14,
    "Maya",M_15,"Mistress",M_16,"Moonlight Flower",M_17,"Orc Hero",M_18,"Orc Lord",M_19,
    "Osiris",M_20,"Phreeoni",M_21,"Stormy Knight",M_22,"Tao Gunka",M_23,
    "Thanatos Phantom",M_24,"Turtle General",M_25,"Valkyrie Randgris",M_26,"Vesper",M_27;
    M_1:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Amon Ra",1511,1;
        close;

    M_2:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Bacsojin",1518,1;
        close;

    M_3:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Baphomet",1039,1;
        close;

    M_4:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Dark Lord",1272,1;
        close;

    M_5:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Detardeurus",1719,1;
        close;

    M_6:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Doppelganger",1046,1;
        close;

    M_7:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Dracula",1389,1;
        close;

    M_8:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Drake",1112,1;
        close;

    M_9:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Eddga",1115,1;
        close;

    M_10:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Evil Snake Lord",1418,1;
        close;

    M_11:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Garm",1252,1;
        close;

    M_12:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Golden Thief Bug",1086,1;
        close;

    M_13:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Kiel D-01",1734,1;
        close;

    M_14:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Lord of Death",1373,1;
        close;

    M_15:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Maya",1147,1;
        close;

    M_16:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Mistress",1059,1;
        close;

    M_17:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Moonlight Flower",1150,1;
        close;

    M_18:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Orc Hero",1087,1;
        close;

    M_19:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Orc Lord",1190,1;
        close;

    M_20:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Osiris",1038,1;
        close;

    M_21:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Phreeoni",1159,1;
        close;

    M_22:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Stormy Knight",1251,1;
        close;

    M_23:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Tao Gunka",1583,1;
        close;

    M_24:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Thanatos Phantom",1708,1;
        close;

    M_25:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Turtle General",1312,1;
        close;

    M_26:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Valkyrie Randgris",1751,1;
        close;

    M_27:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Vesper",1685,1;
        close;

S_Miniboss:
    mes "[Monster Summoner]";
    mes "Which Mini-Boss do you want to fight?";
    next;
    menu "Abysmal Knight",B_1,"Angeling",B_2,"Arc Angeling",B_3,"Bloody Knight",B_4,
    "Chimera",B_5,"Clock Tower Manager",B_6,"Deviace",B_7,"Deviling",B_8,"Dragon Fly",B_9,
    "Eclipse",B_10,"Executioner",B_11,"Ghostring",B_12,"Goblin Leader",B_13,"Gryphon",B_14,
    "Kobold Leader",B_15,"Mobster",B_16,"Mutant Dragonoid",B_17,"Mysteltainn",B_18,
    "Ogretooth",B_19,"Panzer Goblin",B_20,"Strouf",B_21,"Ungoliant",B_22,"Zealotus",B_23;

    B_1:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Abysmal Knight",1219,1;
        close;

    B_2:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Angeling",1096,1;
        close;

    B_3:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Arc Angeling",1388,1;
        close;

    B_4:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Bloody Knight",1268,1;
        close;

    B_5:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Chimera",1283,1;
        close;

    B_6:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Clock Tower Manager",1270,1;
        close;

    B_7:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Deviace",1108,1;
        close;

    B_8:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Deviling",1582,1;
        close;

    B_9:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Dragon Fly",1091,1;
        close;

    B_10:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Eclipse",1093,1;
        close;

    B_11:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Executioner",1205,1;
        close;

    B_12:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Ghostring",1120,1;
        close;

    B_13:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Goblin Leader",1299,1;
        close;

    B_14:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Gryphon",1259,1;
        close;

    B_15:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Kobold Leader",1296,1;
        close;

    B_16:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Mobster",1313,1;
        close;

    B_17:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Mutant Dragonoid",1262,1;
        close;

    B_18:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Mysteltainn",1203,1;
        close;

    B_19:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Ogretooth",1204,1;
        close;

    B_20:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Panzer Goblin",1308,1;
        close;

    B_21:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Strouf",1065,1;
        close;

    B_22:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Ungoliant",1618,1;
        close;

    B_23:
        mes "[Monster Summoner]";
        mes "Are you sure?";
        next;
        menu "Yes, I'm sure",-,"No, I'm not",M_Cancel;
        if (Zeny < @summon) goto M_Nomoney;
        set Zeny, Zeny-@summon;
        monster $@mapname$,@mapx,@mapy,"Zealotus",1200,1;
        close;

}
    
sec_in01.gat,83,153,4    duplicate(Monster Summoner)    Summoner#h1-2	897
sec_in01.gat,172,165,4    duplicate(Monster Summoner)    Summoner#h1-3	897
sec_in01.gat,175,100,4    duplicate(Monster Summoner)    Summoner#h1-4	897
sec_in01.gat,179,37,4    duplicate(Monster Summoner)    Summoner#h1-5	897
//============================================================

sec_in01.gat    mapflag    nowarpto
sec_in01.gat    mapflag    nosave    SavePoint

sec_in01.gat,85,56,0    warp    warp1    1,1,sec_in01.gat,85,43
sec_in01.gat,70,88,0    warp    warp2    1,1,sec_in01.gat,37,88
sec_in01.gat,39,88,0    warp    warp3    1,1,sec_in01.gat,72,88
sec_in01.gat,85,118,0    warp    warp4    1,1,sec_in01.gat,85,146
sec_in01.gat,85,144,0    warp    warp5    1,1,sec_in01.gat,85,116
sec_in01.gat,101,88,0    warp    warp6    1,1,sec_in01.gat,119,88
sec_in01.gat,117,88,0    warp    warp7    1,1,sec_in01.gat,99,88
sec_in01.gat,134,116,0    warp    warp8    1,1,sec_in01.gat,168,160
sec_in01.gat,168,158,0    warp    warp9    1,1,sec_in01.gat,134,114
sec_in01.gat,149,96,0    warp    warp10    1,1,sec_in01.gat,168,100
sec_in01.gat,166,100,0    warp    warp11    1,1,sec_in01.gat,147,96
sec_in01.gat,135,70,0    warp    warp12    1,1,sec_in01.gat,175,37
sec_in01.gat,175,39,0    warp    warp13    1,1,sec_in01.gat,135

// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
//          Ancient Refiner for eAthena 1.0           \\
//                 (c) 2007 by Adib                 \\
// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o \\
que_moc_16,104,89,3    script    Ancient Refiner#1::ANRefiner	813,{
    set @Greet$,"Good afternoon ";
    if (gettime(3) > 16 && gettime(3) < 20) set @Greet$,"Good evening ";
    if (gettime(3) > 19 || gettime(3) < 5) set @Greet$,"Good nigh ";
    if (gettime(3) > 4 && gettime(3) < 12) set @Greet$,"Good morning ";
    mes "[^0000FFAncient Refiner^000000]";
    mes @Greet$ + strcharinfo(0) + ".";
    mes " ";
    mes "I'm member of the ^B88A00Ancient Blacksmith Guild^000000, the legendary Blacksmiths of the old world.";
    next;
    mes "[^0000FFAncient Refiner^000000]";
    mes "We can refine to high levels with lower risk than other common methods, ^FF0000are you interested?^000000";
    mes " ";
    mes " Prize: ^0000FF" + $@CountItemsByRef1 + " " + getitemname($@ItemForRefine1) + " and ^0000FF" + $@CountItemsByRef2 + " " + getitemname($@ItemForRefine2) + " for each refine level^000000.";
    next;
    setarray @CurItems$[0],getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10);
    for (set @X,0; @X < 10; set @X, @X + 1) {
        if (getequiprefinerycnt(@X + 1)) set @CurItems$[@X], @CurItems$[@X] + "^FF0000+" + getequiprefinerycnt(@X + 1) + "^000000";
    }
    
    set @Opc, select("^FF0000No, thanks.^000000",@CurItems$[0],@CurItems$[1],@CurItems$[2],@CurItems$[3],@CurItems$[4],@CurItems$[5],@CurItems$[6],@CurItems$[7],@CurItems$[8],@CurItems$[9]) - 1;
    if (!@Opc) goto lExit;
    
    mes "[^0000FFAncient Refiner^000000]";
    if (!getequipisequiped(@Opc)) {
        mes "Sorry, i can't refine your body.";
        close;
    }
    if (!getequipisenableref(@Opc)) {
        mes "Sorry, i can't do anything with this item.";
        close;
    }
    if (!getequipisidentify(@Opc)) {
        mes "Sorry, you must appraise this item.";
        close;
    }
    
    set @CurrRef, getequiprefinerycnt(@Opc);
    set @CurrLvl, getequipweaponlv(@Opc);
    
    if (@CurrRef < $@BaseRefLvlToUse) {
        mes "Sorry, i only work on already refined items lvl +^FF0000" + $@BaseRefLvlToUse + "^000000 or more.";
        close;
    }
    if (@CurrRef > 9) {
        mes "Sorry, the maximum level to refine a item is +10.";
        close;
    }
    if (@CurrRef < 9) {
        mes "Nice ^0000FF" + getitemname(getequipid(@Opc)) + "^000000, input the refine level: (^FF0000" + (@CurrRef + 1) + "^FF0000 - ^FF000010^000000)";
        mes " ";
        mes " ^FF0000* Warning * ^0000FFIf fail, your item could be broken or lost some refinements.^000000";
        next;
        input @RefLvl;
        mes "[^0000FFAncient Refiner^000000]";
    } else {
        set @RefLvl,10;
    }
    
    if (@RefLvl <= @CurrRef) {
        mes "Sorry, the minimum refine level for this item is ^FF0000+" + (@CurrRef + 1) + "^000000";
        close;
    }
    if (@RefLvl > 10) {
        mes "Sorry, the maximum refine level for this item is ^FF0000+10^000000";
        close;
    }
    
    set @TotalLevels, @RefLvl - @CurrRef;
    set @TotalPrize1, $@CountItemsByRef1 * @TotalLevels;
    set @TotalPrize2, $@CountItemsByRef2 * @TotalLevels;
    
    mes "In order to refine your ^0000FF" + getitemname(getequipid(@Opc)) + "^000000 to +^FF0000" + @RefLvl + "^000000, bring me ^0000FF" + @TotalPrize1 + " " + getitemname($@ItemForRefine1) + "^000000, ^0000FF" + @TotalPrize2 + " " + getitemname($@ItemForRefine2) + "^000000 and ^FF0000" + $@RefCost + "^000000z.";
    next;
    
    if (select("^0000FFPlease, take it!^000000","^FF0000I will come back later^000000") == 2) goto lExit;
    
    mes "[^0000FFAncient Refiner^000000]";
    if (zeny < $@RefCost) {
        mes "Sorry, i don't offer my services by charity, sell some items then return with the ^FF0000" + $@RefCost + "^000000z.";
        next;
        goto lExit;
    }
    if (countitem($@ItemForRefine1) < @TotalPrize1 || countitem($@ItemForRefine2) < @TotalPrize2) {
        mes "Sorry, i need ^0000FF" + @TotalPrize1 + " " + getitemname($@ItemForRefine1) + "^000000 and ^0000FF" + @TotalPrize2 + " " + getitemname($@ItemForRefine2) + "^000000 to refine your item.";
        next;
        goto lExit;
    }
    
    delitem $@ItemForRefine1,@TotalPrize1;
    delitem $@ItemForRefine2,@TotalPrize2;
    set zeny, zeny - $@RefCost;

    mes "Ok, i'm ready to process your ^0000FF" + getitemname(getequipid(@Opc)) + "^000000, please wait...";
    next;
    
    mes "[^0000FFAncient Refiner^000000]";
    set @TryRef,1;
    while (@TryRef) {
        soundeffect "apocalips_h_move.wav",0;
        mes "* ^FF0000Processing your " + getitemname(getequipid(@Opc)) + "...^000000 *";
        mes " ";
        mes "> He say: ^0000FF" + $@RefineMsg$[rand(getarraysize($@RefineMsg$))] + "^000000";
        next;
        mes "[^0000FFAncient Refiner^000000]";
        set @TryRef,rand(4);
    }
    switch (@CurrLvl) {
        case 1:set @Chance, $@RefineProb1[@RefLvl];break;
        case 2:set @Chance, $@RefineProb2[@RefLvl];break;
        case 3:set @Chance, $@RefineProb3[@RefLvl];break;
        case 4:
        case 0:set @Chance, $@RefineProb4[@RefLvl];
    }
    
    if (@TotalLevels > 1) set @Chance, @Chance - (@TotalLevels * 2 - 2); // Lower probabilities on 2 or more refine levels (sample: +7 to +10 = 3 lvls -> -4%)
    if (rand(100) <= @Chance) {
        atcommand "@refine " + $@InternalSlots[@Opc] + " -10";
        atcommand "@refine " + $@InternalSlots[@Opc] + " " + @RefLvl;
        soundeffect "tming_success.wav",0;
        mes "Yeah!, the process was succesfull!";
        mes " ";
        mes "Enjoy your ^0000FF" + getitemname(getequipid(@Opc)) + " ^FF0000+" + @RefLvl + "^000000";
    } else {
        soundeffect "die_male.wav",0;
        mes "Ooh noo!, the process fail.";
        mes " ";
        if (!rand(10)) {
            failedrefitem @Opc;
            mes "^FF0000Your item is broken.^FF0000";
        } else if (rand(5)) {
            set @LostLvl, rand(1,$@BaseRefLvlToUse);
            atcommand "@refine " + $@InternalSlots[@Opc] + " -" + @LostLvl;
            mes "^FF0000Your " + getitemname(getequipid(@Opc)) + " lost " + @LostLvl + " refine level(s)^FF0000";
        } else {
            mes "^0000FFYour " + getitemname(getequipid(@Opc)) + " is safe.^FF0000";
        }
    }
    close;
lExit:
    mes "[^0000FFAncient Refiner^000000]";
    mes "See you later " + strcharinfo(0) + ".";
    close;
OnInit:
    // Configure 2 items for each refine level and the quantity
    set $@ItemForRefine1,984;     // Item Id 1 needed for each refine level (default: Oridecon)
    set $@CountItemsByRef1,1;    // How many items needed for each refine lvl (default: 1)
    
    set $@ItemForRefine2,999;     // Item Id 2 needed for each refine level (default: Steel)
    set $@CountItemsByRef2,2;    // How many items needed for each refine lvl (default: 2)
    
    set $@RefCost,75000;        // Cost, 1 or more refinement levels at the same cost (stimulates more risk)
    
    set $@BaseRefLvlToUse,6;    // Previous refine level to use this service (+6 by default)
    
    // Refine Probabilities for items lvl 1 to 4
    //                          0   1   2   3   4   5   6   7  8  9 10
    setarray $@RefineProb1[0],100,100,100,100,100,100,100,100,90,70,55;
    setarray $@RefineProb2[0],100,100,100,100,100,100,100, 90,70,55,40;
    setarray $@RefineProb3[0],100,100,100,100,100,100, 90, 70,55,40,30;
    setarray $@RefineProb4[0],100,100,100,100,100, 90, 70, 55,40,30,20;
    
    // Random talk while execute the refine process
    setarray $@RefineMsg$[0],    "i'm tired... uff...",
                    "just a little more sharpened...",
                    "yes.. it's better...",
                    "yes, it's good...",
                    "now a little here...",
                    "i'm sharpening right now",
                    "this hammer is too old...",
                    "i need press here...",
                    "i hate polishing...",
                    "nice... yeah...",
                    "mmm... that's not good",
                    "hey... look this item...",
                    "oh yes, yes, yes...",
                    "this is art...",
                    "i love this game...",
                    "smell like a demon...",
                    "it's harder...",
                    "i need some vacations...",
                    "all this work only for " + $@RefCost + "z...",
                    "i hope this works...",
                    "it seems to be weak...",
                    "ouch, my hand!...",
                    "well, well, well...",
                    "cof, cof... cof...",
                    "i hope this works...";
    
    // Warning - NEVER change this array:
    setarray $@InternalSlots[0],0,256,16,32,2,4,64,8,128,512,1;
}

// Duplicates
izlude.gat,138,156,3        duplicate(ANRefiner)    Ancient Refiner#2	813


    
//The Warper to Mall

prontera.gat,164,167,3    script    Mall Warper    71,{

OnInit:
       waitingroom "Mall Warper",0;

    shop:    warp "que_moc_16" ,87,76;
}

//The Exit to Prontera

que_moc_16,87,70,5    script    EXIT    802,{
    warp "prontera.gat" ,155,176;
}