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;
}