changelook 4th

[DevilSupremeRO 0]

guild_vs1,54,54,6    script    Stylist#custom_stylist    2_M_DYEINGER,{
OnTalk:
    setarray .@Styles[1],
        getbattleflag("max_cloth_color"),
        getbattleflag("max_hair_style"),
        getbattleflag("max_hair_color");
    setarray .@Look[1],
        LOOK_CLOTHES_COLOR,
        LOOK_HAIR,
        LOOK_HAIR_COLOR;
    mes .npc$;
    mes "Hey ^008aff"+strcharinfo(0)+"^000000. Im a super stylist. Want to try out my services?";
    mes "I can customize your character's appearance in a hand full of ways.";
    next;
    set .@s, select(.bcor$+"Cloth color:"+.bcor$+"Hairstyle:"+.bcor$+"Hair color:"+.bcor$+"Dress Room");
    if(.@s == 4){
        callfunc "F_DRESSROOM";
        close;
    }
    if(.@s == 1){
    if (( getlook(LOOK_BODY2) == 5 ) || ( getlook(LOOK_BODY2) == 2 ) || ( getlook(LOOK_BODY2) == 3 ) || ( getlook(LOOK_BODY2) == 4 )) {
        setlook    LOOK_CLOTHES_COLOR,0;
        mes .npc$;
        mes "Cloathes color not available for Body Custom.";
        close;
        }
    }
    if(Class == Job_Summoner){
    setarray .@Styles[1],
        3,//max_cloth_color
        10,//max_hair_style
        8;//max_hair_color
    }else{
    setarray .@Styles[1],
        getbattleflag("max_cloth_color"),
        getbattleflag("max_hair_style"),
        getbattleflag("max_hair_color");
            }

    set .@Revert, getlook(.@Look[.@s]);
    set .@Style,1;
    while(1) {
        setlook .@Look[.@s], .@Style;
        message strcharinfo(0),"This is style #"+.@Style+".";
        switch(select(.bcor$+"Next (^0055FF"+((.@Style!=.@Styles[.@s])?.@Style+1:0)+"^000000):"+.bcor$+"Previous (^0055FF"+((.@Style!=0)?.@Style-1:.@Styles[.@s])+"^000000):"+.bcor$+"Jump to...:"+.rcor$+"Revert to original (^0055FF"+.@Revert+"^000000)")){

        case 1:
            set .@Style, ((.@Style != .@Styles[.@s]) ? .@Style+1 : 0);
            break;
        case 2:
            set .@Style, ((.@Style != 0) ? .@Style-1 : .@Styles[.@s]);
            break;
        case 3:
            message strcharinfo(0),"Choose a style between 1 - "+.@Styles[.@s]+".";
            input .@Style,0,.@Styles[.@s];
            if (!.@Style)
                set .@Style, rand(1,.@Styles[.@s]);
            break;
        case 4:
            set .@Style, .@Revert;
            setlook .@Look[.@s], .@Revert;
            break;
        }
    }

OnInit:
    .npc$ = "^FF7F00[ Super Stylist ]^000000";        // Name of NPC;
    .bcor$ = "^008aff[>]^000000 ";                // Option Button Symbol;
    .rcor$ = "^ff0000[>]^000000 ";                // Cancel button symbol;
    end;
    }

i wanted this script to have a certain item before you could be converted to 4th job.