b_town_in01,117,72,6    script  Betrunkener Assistent   679,{
function NotAll;
function CL;
 
    set @n$, "^32CD32[ Henry ]^000000"; // NPC Name
    
    
if ( vprof == 0) {
    mes @n$;
    mes "Sorry, ich muss gerade für den alten Opa arbeiten...";
    end;
    }
 
    mes @n$;
    mes "Hehehe, *hicks*.";
    next;
    mes @n$;
    mes "Oh Hallo Kunde!";
    mes "Ich hefe dem alten Trinker da bei seinen Experimenten.";
    next;
    mes @n$;
    mes "Ich fand heraus, dass man zwei verschiedene ^FF4500Double Power Runen^000000 fusionieren kann und somit eine";
    mes "^FF4500Mix Runen^000000 herstellen kann.";
    next;
    mes @n$;
    mes "Soll ich es mal für dich probieren?";
    if(select("Ja:Nein, danke") - 1) CL; 
    next;
    mes @n$;
    mes "Welche Rune möchtest du herstellen?";
    mes "Wähle aus:";
    setarray .amount[0],1,1,5;
    switch(select("AgiDex Rune:AgiInt Rune:AgiLuk Rune:DexInt Rune:DexLuk Rune:DexStr Rune:IntLuk Rune:IntStr Rune:IntVit Rune:StrAgi Rune:StrLuk Rune:StrVit Rune:VitAgi Rune:VitDex Rune:VitLuk Rune")){
        case 1:
            set .@g,30100;
            setarray .array[0],30108,30109,12712;
            break;
        case 2:
            set .@g,30101;
            setarray .array[0],30108,30110,12712;
            break;
        case 3:
            set .@g,30102;
            setarray .array[0],30108,30111,12712;
            break;
        case 4:
            set .@g,30104;
            setarray .array[0],30109,30110,12712;
            break;
        case 5:
            set .@g,30105;
            setarray .array[0],30109,30111,12712;
            break;
        case 6:
            set .@g,30107;
            setarray .array[0],30109,30112,12712;
            break;
        case 7:
            set .@g,30114;
            setarray .array[0],30110,30111,12712;
            break;
        case 8:
            set .@g,30116;
            setarray .array[0],30110,30112,12712;
            break;
        case 9:
            set .@g,30117;
            setarray .array[0],30110,30113,12712;
            break;
        case 10:
            set .@g,30119;
            setarray .array[0],30112,30108,12712;
            break;
        case 11:
            set .@g,30120;
            setarray .array[0],30112,30111,12712;
            break;
        case 12:
            set .@g,30122;
            setarray .array[0],30112,30113,12712;
            break;
        case 13:
            set .@g,30123;
            setarray .array[0],30113,30108,12712;
            break;
        case 14:
            set .@g,30124;
            setarray .array[0],30113,30109,12712;
            break;
        case 15:
            set .@g,30125;
            setarray .array[0],30113,30111,12712;
            break;
    }
    for(.@i = 0; .@i < getarraysize(.array); .@i++){
            NotAll;
            }
        if(countitem(.array[.@i])<.amount[.@i]){
            NotAll;
        }
    next;
    mes @n$;
    mes "*Hicks*!";
    mes "Whoa du hast ja alle Items gefunden!";
        next;
    mes @n$;
    mes "Möchtest du die Runen nun fusionieren?";
    if(select("Ja:Nein, noch nicht") - 1) CL;
    next;
    for(.@i = 0; .@i < getarraysize(.array); .@i++){
        delitem .array[.@i], .amount[.@i];
    }
    specialeffect 505 ;
    getitem .@g, 1;
    if(rand(0,100) == 1){
        atcommand "@die";
        specialeffect 450;
    }else{
    specialeffect 65, "Betrunkener Assistent";
    specialeffect 131, "Betrunkener Assistent";
    specialeffect 192, "Betrunkener Assistent";
    specialeffect 305, "Betrunkener Assistent";
    specialeffect2 305;
    specialeffect2 380;
    }
    mes @n$;
    mes "Hier hast du deine ^FF4500Mix Rune^000000.";
        end;
    
NotAll:
    next;
    mes @n$;
    mes "Dafür benötige ich:";
    for(.@i = 0; .@i < getarraysize(.array); .@i++){
        mes .amount[.@i] + "x " + getitemname(.array[.@i]);
    }
    next;
    mes @n$;
    mes "Ja ich brauche Bier zum arbeiten! *Hicks*";
    end;
    
CL:
    next;
    mes @n$;
    mes "Dann halt nicht. *Würg*";
        end;
}