change herbe 1:2

//####################################
// changer of herb                   #
// change herb for another herb      #
//                                   #
//####################################

//---------------------------
//map and his name can change
//---------------------------
001-1.gat,45,40,0   script  Elf 130,{
    mes "[Elf]";
    mes "\"I'm a herb changer\"";
    next;
    mes "[Elf]";
    mes "\"well, do you want trade your herbs for mine ? you can change what type of herb you want.\"";
    menu
        "yes, why not", L_herbwanted,
        "not for the moment", -;
    close;

//----------------------|
//herb who you want/need|
//----------------------|
    L_herbwanted:
    mes "[Elf]";
    mes "\"what's kind of herb you want ?\"";
    menu
        "Cobalt herb", L_cobaltw,
        "Alizarin herb", L_alizarinw,
        "Gamboge herb", L_gambogew,
        "Mauve herb", L_mauvew;
    close;
    L_cobaltw:
    set @want,681;
    goto L_Many;
        close;
    L_alizarinw:
    set @want,683;
    goto L_Many;
    close;
    L_gambogew:
    set @want,682;
    goto L_Many;
        close;
    L_mauvew:
    set @want,680;
    goto L_Many;
        close;
//-----------------
//herb who you have
//-----------------
    L_echange:
    mes "[Elf]";
    mes "\"what's kind of herb you want to change with me? but you have to give me "+ @num*2 +" herbs.\"";
    menu
        "Cobalt herb", L_Cobalt,
        "Alizarin herb", L_Alizarin,
        "Gamboge herb", L_Gamboge,
        "Mauve herb", L_Mauve;
    close;
    L_Cobalt:
    set @hkind,681;
    goto L_change;
        close;
    L_Alizarin:
    set @hkind,683;
    goto L_change;
    close;
    L_Gamboge:
    set @hkind,682;
    goto L_change;
        close;
    L_Mauve:
    set @hkind,680;
    goto L_change;
        close;
//-------------------
//who many you need ?
//-------------------
    L_Many:
    mes "[Elf]";
    mes "\"How many herb you want to have ?\"";
    input @num;
    goto L_echange;
    L_Noplace:
    mes "[Elf]";
    mes "\"where you can put all My herbs ?\"";
    close;

    L_notherb:
    mes "[Elf]";
    mes "\"You don't have "+ @num*2 +" herb of this kind.\"";
    close;

//-----------|
//the trade  |
//-----------|
    L_change:
    if(@num*2 > countitem(@hkind)) goto L_notherb;
    if(@inventorylist_count == 100) goto L_Noplace;
    mes "[Elf]";
    mes "\"well, there is .\"";
    delitem @hkind,@num*2;
    getitem @want,@num;
    close;
}