viewing paste [Refine] Vip | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
//--------------------------------------------------------
//-          ._._____    _    _   _ ___ __  __           -
//-          | |____ |  / \  | | | |_ _|  \/  |          -
//-          | | |_  | / _ \ | |_| || || |\/| |          -
//-       ___| |___| |/ ___ \|  _  || || |  | |          -
//-      |_____|_____/_/   \_\_| |_|___|_|  |_|          -
//-           www.forum.cronus-emulator.com              -
//--------------------------------------------------------
prontera,143,176,5  script  Velho Ferreiro  2_M_OLDBLSMITH,{
 
//---------------------------------------------------------------------
//--- Nome do NPC.
set .n$,"[^FF0000 "+strnpcinfo(1)+" ^000000]";
//--- Level da Conta VIP.
set .@vip,100;
//---------------------------------------------------------------------
 
mes .n$;
mes "Olá, eu sou um Mestre Ferreiro e posso refinar seus equipamentos +10.";
mes " ";
mes "- ^FF0000Caso você seja um jogador VIP poderá ter seus equipamentos refinados até +20^000000 !";
next;
switch(select("Refinar Equipamentos:Cancelar")){
 
    case 1:
        if (getgroupid() < .@vip){
        if ( getequiprefinerycnt(EQI_HEAD_TOP) > 0 || getequiprefinerycnt(EQI_ARMOR) > 0 || getequiprefinerycnt(EQI_HAND_L) > 0 || getequiprefinerycnt(EQI_HAND_R) > 0 || getequiprefinerycnt(EQI_GARMENT) > 0 || getequiprefinerycnt(EQI_SHOES) > 0 || getequiprefinerycnt(EQI_ACC_R) > 0 || getequiprefinerycnt(EQI_ACC_L) > 0 || getequiprefinerycnt(EQI_HEAD_MID) > 0 || getequiprefinerycnt(EQI_HEAD_LOW) > 0) {
            mes .n$;
            mes "Sinto muito, mas eu só consigo refinar Equipamentos +0 até +10...";
            close;
            }
                mes .n$;
                mes "Certo, vamos lá !";
                next;
                atcommand "@refine 0 10";
                mes .n$;
                mes "Clang, clang!!!";
                next;
                mes .n$;
                mes "Pronto, seus equipamentos foram refinados até +10 com sucesso !";
                close;
            }
            if ( getequiprefinerycnt(EQI_HEAD_TOP) > 0 || getequiprefinerycnt(EQI_ARMOR) > 0 || getequiprefinerycnt(EQI_HAND_L) > 0 || getequiprefinerycnt(EQI_HAND_R) > 0 || getequiprefinerycnt(EQI_GARMENT) > 0 || getequiprefinerycnt(EQI_SHOES) > 0 || getequiprefinerycnt(EQI_ACC_R) > 0 || getequiprefinerycnt(EQI_ACC_L) > 0 || getequiprefinerycnt(EQI_HEAD_MID) > 0 || getequiprefinerycnt(EQI_HEAD_LOW) > 0) {
                mes .n$;
                mes "Sinto muito, mas eu só consigo refinar Equipamentos +0 até +20...";
                close;
            }
            mes .n$;
            mes "Parece que você é um jogador VIP... Certo, vamos lá !";
            next;
            atcommand "@refine 0 20";
            mes .n$;
            mes "Clang, clang!!!";
            next;
            mes .n$;
            mes "Pronto, seus equipamentos foram refinados até +20 com sucesso !";
            close;
        
    case 2:
        mes .n$;
        mes "Ok, volte quando precisar de meus serviços...";
        close;
 
    }
}
Viewed 1038 times, submitted by Mihael.