Dye Changer

//-----------------------------------------------------------------
//FatalEror Stylist
//Versi 1.0
//Dibuat kembali(baru) berdasarkan NPC Stylist buatan eAthena Dev team
//-----------------------------------------------------------------
//Changelog:
//
//--1.0
//--Mulai Membuat NPC ini~
//
//-----------------------------------------------------------------
//Note:
//Kunjungi web ane "http://fatal-eror.tk/"
//untuk mendownload file Palette yang support:
//- 46 Hairstyle
//- 251 Haircolor
//- 553 Clothcolor
//-----------------------------------------------------------------

-   script  STYLER  -1,{
    OnInit:
    set $@ANGR,1;   //Minimal gaya rambut, atur 1 biar mencegah error sprite rambut
    set $@AXGR,46;  //Maksimal gaya rambut (Set ke 25 jika tidak memakai File Palette tambahan)

    set $@ANWR,0;   //Minimal warna rambut
    set $@AXWR,251; //Maksimal warna rambut (Set ke 8 jika tidak memakai File Palette tambahan)

    set $@ANWB,0;   //Minimal warna baju
    set $@AXWB,553; //Maksimal warna baju (Set ke 4 jika tidak memakai File Palette tambahan)
    end;
}

prontera,148,188,4  script  Stylist 122,{
    set @nama$,"[^FF8000Stylist^000000]";

    if(getgmlevel() < 60) goto STYLISH;
    mes @nama$;
    mes "Halo ^0000FFGM "+strcharinfo(0)+"^000000!";
    next;
    menu "Ganti Gaya",-,"Setting",SETTING;

    STYLISH:
    opendressroom(0);
    mes @nama$;
    mes "Aku adalah stylist terhebat se Rune-Midgard~~!";
    mes "Aku bisa mengganti gaya dan warna rambutmu! Aku juga bisa kok mengganti warna bajumu.";
    Lmain:
    mes "Apa yang ingin kamu ganti?";
    menu "Gaya Rambut",GR,"Warna Rambut",WR,"Warna Baju",WB,"Body Style ",Lbodystyle,"Tidak jadi",GJ;

    GR:
        mes @nama$;
        mes "Ingin melihat Gaya Rambut nomor berapa?";
        PILIHGR:
        input @sty;
        if (@sty>$@AXGR) set @sty,$@AXGR;
        if (@sty<$@ANGR) set @sty,$@ANGR;

        LIHATGR:
        setlook 1,@sty;
        mes "Ini adalah Gaya Rambut nomor ^FF0000"+@sty+"^000000.";
        menu "Lihat berikutnya",LNextGR,"Lihat sebelumnya",LBackGR,"Lihat nomor...",PILIHGR,"Ini bagus!",SETUJU;

        LNextGR:
        set @sty,@sty+1;
        if (@sty>$@AXGR) set @sty,$@ANGR;
        goto LIHATGR;

        LBackGR:
        set @sty,@sty-1;
        if (@sty<$@ANGR) set @sty,$@AXGR;
        goto LIHATGR;

    WR:
        mes @nama$;
        mes "Ingin melihat Warna Rambut nomor berapa?";
        PILIHWR:
        input @sty;
        if (@sty>$@AXWR) set @sty,$@ANWR;
        if (@sty<$@ANWR) set @sty,$@AXWR;

        LIHATWR:
        setlook 6,@sty;
        mes "Ini adalah Warna Rambut nomor ^FF0000"+@sty+"^000000.";
        menu "Lihat berikutnya",LNextWR,"Lihat sebelumnya",LBackWR,"Lihat nomor...",PILIHWR,"Ini bagus!",SETUJU;

        LNextWR:
        set @sty,@sty+1;
        if (@sty>$@AXWR) set @sty,$@ANWR;
        goto LIHATWR;

        LBackWR:
        set @sty,@sty-1;
        if (@sty<$@ANWR) set @sty,$@AXWR;
        goto LIHATWR;

    WB:
        mes @nama$;
        mes "Ingin melihat Warna Baju nomor berapa?";
        PILIHWB:
        input @sty;
        if (@sty>$@AXWB) set @sty,$@AXWB;
        if (@sty<$@ANWB) set @sty,$@ANWB;

        LIHATWB:
        setlook 7,@sty;
        mes "Ini adalah Warna Baju nomor ^FF0000"+@sty+"^000000.";
        menu "Lihat berikutnya",LNextWB,"Lihat sebelumnya",LBackWB,"Lihat nomor...",PILIHWB,"Ini bagus!",SETUJU;

        LNextWB:
        set @sty,@sty+1;
        if (@sty>$@AXWB) set @sty,$@ANWB;
        goto LIHATWB;

        LBackWB:
        set @sty,@sty-1;
        if (@sty<$@ANWB) set @sty,$@AXWB;
        goto LIHATWB;

    Lbodystyle:
        next;
        if ( class <= 4054 || class == 4060 || class == 4067 || class == 4068 || class == 4069 || class == 4070 ||
            class == 4072 || class == 4074 || class == 4075 || class == 4076 || class == 4077 || class == 4079 ||
            class == 4080 || class == 4081 || class == 4082 || class == 4082 || class == 4083 || class == 4084 ||
            class == 4085 || class == 4086 || class == 4087 || class == 4096 || class == 4103 || class == 4104 ||
            class == 4105 || class == 4106 || class >= 4108 ) {
        mes "Service ini belum ada untuk job anda.";
        end;}
        mes "^FF0000[ Super Stylist - Bodystyle ]^000000";
        mes "Insert a bodystyle number";
        mes "Bodystyles: 0 to 1";
        input .@bodystyle;
        if (.@bodystyle < 0 || .@bodystyle > 1) {
            set .@bodystyle,0;
        }
            setlook LOOK_BODY2,.@bodystyle;
        next;
        mes "Apakah anda sudah selesai?";
        menu "Kembali ke menu awal",Lmain,"I'm done",SETUJU;

    SETUJU:
    next;
    mes @nama$;
    mes "Wah... kamu kelihatan keren! Datang lagi jika ingin ganti gaya oke!";
    close;

    GJ:
    next;
    mes @nama$;
    mes "Baiklah... Datang lagi jika ingin ganti gaya oke!";
    close;

    SETTING:
    menu "Atur Min Gaya Rambut",ANGR,"Atur Max Gaya Rambut",AXGR,"Atur Min Warna Rambut",ANWR,"Atur Max Warna Rambut",AXWR,"Atur Min Warna Baju",ANWB,"Atur Max Warna Baju",AXWB;

    ANGR:   input $@ANGR;   close;              ANWR:   input $@ANWR;   close;              ANWB:   input $@ANWB;   close;
    AXGR:   input $@AXGR;   close;              AXWR:   input $@AXWR;   close;              AXWB:   input $@AXWB;   close;
}