Help with my NPC Costume Headgear

[Hideki]

Hello, who can help me with this script?

I need to ask 200 Valor Bagde Item ID#7829

Please

 

prontera,144,193,4    script    CostumeIT#1    864,{
    mes "[Costume-IT]";
    mes "Hola y bienvenido al servicio de Costume-IT.";
    mes "Aqui puede convertir su Hat comun y corriente en Costume Item.";
    next;
    mes "[Costume-IT]";
    mes "Por favor, Indique el Hat que quiere convertir.";
    mes "^FF0000Recuerde, que toda carta y refine seran retiradas^000000.";
    next;

    setarray .@Position$[1],"Top","Mid","Low";
    setarray .@Position[1],     1,    9,   10;

    set .@Menu$,"";
    for( set .@i, 1; .@i < 4; set .@i, .@i + 1 )
    {
        if( getequipisequiped(.@Position[.@i]) )
            set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";

        set .@Menu$, .@Menu$ + ":";
    }

    set .@Part, .@Position[ select(.@Menu$) ];
    if( !getequipisequiped(.@Part) )
    {
        mes "[Costume-IT]";
        mes "No llevas nada ahí ....";
        close;
    }

    mes "[Costume-IT]";
    mes "Quieres tu Costume " + getitemname(getequipid(.@Part)) + "?";
    next;
    if( select("Si, continue:No, lo siento.") == 2 )
    {
        mes "[Costume-IT]";
        mes "¿Necesitas algo de tiempo para pensar en ello, ¿eh?";
        mes "Está bien, lo entiendo.";
        close;
    }
    
    costume .@Part; // Convert the Headgear

    mes "[Costume-IT]";
    mes "Hecho, disfrute de su Costume Headgear.";
    close;
} 

 

 

Edited April 4, 2013 by Hideki