office,219,46,5	script	Traveller	4_M_MINSTREL1,{
	if (Class >= 4008 && Class <= 4079 && BaseLevel >= 99 ) {
		disable_items;
		mes "[Traveller]";
		mes "Isn't it such";
		mes "a beautiful day";
		mes "today?";
		next;
		mes "[Traveller]";
		mes "Oh a VIP indeed...";
		mes "Let me check what I can offer your today.";
		next;
		mes "[Traveller]";
		mes "Oh yes!!! here is the list:";
		mes "Remember it is all "+CStr("Character Bound","RED");
		mes  "[ "+(SQ01?CStr("x","RED"):CStr("o","GREEN"))+" ] "+Itemlink(Robo_Eye);
		mes  "[ "+(SQ02?CStr("x","RED"):CStr("o","GREEN"))+" ] "+Itemlink(CRO_Black_Devil_Mask_);
		mes  "[ "+(SQ03?CStr("x","RED"):CStr("o","GREEN"))+" ] "+Itemlink(L_Magestic_Goat2);
		mes  "[ "+(SQ04?CStr("x","RED"):CStr("o","GREEN"))+" ] "+Itemlink(Tendrilion_Hat);
		mes  "[ "+(SQ04?CStr("x","RED"):CStr("o","GREEN"))+" ] "+Itemlink(Granpa_Beard_F);
		next;
		switch(select(
			((SQ01)?":":" > "+CStr("Robo Eye","GREEN")+":")+
			((SQ02)?":":" > "+CStr("CRO Black Devil Mask","GREEN")+":")+
			((SQ03)?":":" > "+CStr("Gigantic Majestic Goat","GREEN")+":")+
			((SQ04)?":":" > "+CStr("Tendrilion Hat","GREEN")+":")+
			((SQ05)?":":" > "+CStr("Father's White Moustache","GREEN")+":")+
			" > ^777777Close^000000"
		)) {
		case 1:
			mes "[Traveller]";
			if ((countitem(Will_Of_Darkness) > 98) && (countitem(Suspicious_Hat) > 98) && countitem(Dragon_Canine) > 98 && countitem(Delicious_Fish) > 98 && countitem(Mystery_Piece) > 98 && Zeny > 999998) {
				mes "Oh thanks for bringing this item";
				delitem Will_Of_Darkness, 99;
				delitem Suspicious_Hat, 99;
				delitem Dragon_Canine, 99;
				delitem Delicious_Fish, 99;
				delitem Mystery_Piece, 99;
				Zeny -= 999999;
				SQ01 = 1;
				getnameditem Robo_Eye,strcharinfo(PC_NAME);
				chanmsg("#system",""+strcharinfo(PC_NAME)+" has created "+getitemname(Robo_Eye)+" from Level 99 Trans Quest at VIP Room.");
			} else {
				mes "Please bring me these items";
				mes "99x "+Itemlink(Will_Of_Darkness);
				mes "99x "+Itemlink(Suspicious_Hat);
				mes "99x "+Itemlink(Dragon_Canine);
				mes "99x "+Itemlink(Delicious_Fish);
				mes "99x "+Itemlink(Mystery_Piece);
				mes "999,999 zeny";		
				emotion e_paper;
			}
			close;
		case 2:
			mes "[Traveller]";
			if ((countitem(Black_Dyestuffs) > 8) && (countitem(Binoculars) > 8) && countitem(Long_Hair) > 998 && Zeny > 999998) {
				mes "Oh thanks for bringing this item";
				delitem Black_Dyestuffs, 9;
				delitem Binoculars, 9;
				delitem Long_Hair, 999;
				Zeny -= 999999;
				SQ02 = 1;
				getnameditem CRO_Black_Devil_Mask_,strcharinfo(PC_NAME);
				chanmsg("#system",""+strcharinfo(PC_NAME)+" has created "+getitemname(CRO_Black_Devil_Mask_)+" from Level 99 Trans Quest at VIP Room.");
			} else {
				mes "Please bring me these items";
				mes "9x "+Itemlink(Black_Dyestuffs);
				mes "9x "+Itemlink(Binoculars);
				mes "999x "+Itemlink(Long_Hair);
				mes "999,999 zeny";		
				emotion e_paper;
			}
			close;
		case 3:
			mes "[Traveller]";
			if ((countitem(Evil_Horn) > 499) && (countitem(Magestic_Goat) > 4) && countitem(Crescent_Scythe) > 0 && countitem(Black_Dyestuffs) > 8 && #PCTIME > 23 && Zeny > 999998) {
				mes "Oh thanks for bringing this item";
				delitem Evil_Horn, 500;
				delitem Magestic_Goat, 5;
				delitem Crescent_Scythe, 1;
				delitem Black_Dyestuffs, 9;
				#PCTIME -= 24;
				Zeny -= 999999;
				SQ03 = 1;
				getnameditem L_Magestic_Goat2,strcharinfo(PC_NAME);
				chanmsg("#system",""+strcharinfo(PC_NAME)+" has created "+getitemname(L_Magestic_Goat2)+" from Level 99 Trans Quest at VIP Room.");
			} else {
				mes "Please bring me these items";
				mes "500x "+Itemlink(Evil_Horn);
				mes "5x "+Itemlink(Magestic_Goat);
				mes "1x "+Itemlink(Crescent_Scythe);
				mes "9x "+Itemlink(Black_Dyestuffs);
				mes "24 Online Points";
				mes "999,999 zeny";		
				emotion e_paper;
			}
			close;
		case 4:
			mes "[Traveller]";
			if ((countitem(Dokkaebi_Horn) > 998) && (countitem(Darkgreen_Dyestuffs) > 8) && countitem(Strong_Shield) > 0 && countitem(White_Mask) > 98 && #PCTIME > 23 && Zeny > 999998) {
				mes "Oh thanks for bringing this item";
				delitem Dokkaebi_Horn, 999;
				delitem Darkgreen_Dyestuffs, 9;
				delitem Strong_Shield, 1;
				delitem White_Mask, 99;
				#PCTIME -= 24;
				Zeny -= 999999;
				SQ03 = 1;
				getnameditem Tendrilion_Hat,strcharinfo(PC_NAME);
				chanmsg("#system",""+strcharinfo(PC_NAME)+" has created "+getitemname(Tendrilion_Hat)+" from Level 99 Trans Quest at VIP Room.");
			} else {
				mes "Please bring me these items";
				mes "999x "+Itemlink(Dokkaebi_Horn);
				mes "9x "+Itemlink(Darkgreen_Dyestuffs);
				mes "1x "+Itemlink(Strong_Shield);
				mes "99x "+Itemlink(White_Mask);
				mes "24 Online Points";
				mes "999,999 zeny";		
				emotion e_paper;
			}
			close;
		case 5:
			mes "[Traveller]";
			if ((countitem(Golden_Hair) > 998) && (countitem(White_Dyestuffs) > 8) && countitem(Elder_Pixies_Beard) > 998 && countitem(Elven_Ears) && #PCTIME > 23 && Zeny > 999998) {
				mes "Oh thanks for bringing this item";
				delitem Golden_Hair, 999;
				delitem White_Dyestuffs, 9;
				delitem Elder_Pixies_Beard, 999;
				delitem Elven_Ears, 1;
				#PCTIME -= 24;
				Zeny -= 999999;
				SQ04 = 1;
				getnameditem Granpa_Beard_F,strcharinfo(PC_NAME);
				chanmsg("#system",""+strcharinfo(PC_NAME)+" has created "+getitemname(Granpa_Beard_F)+" from Level 99 Trans Quest at VIP Room.");
			} else {
				mes "Please bring me these items";
				mes "999x "+Itemlink(Golden_Hair);
				mes "9x "+Itemlink(White_Dyestuffs);
				mes "999x "+Itemlink(Elder_Pixies_Beard);
				mes "1x "+Itemlink(Elven_Ears);
				mes "24 Online Points";
				mes "999,999 zeny";		
				emotion e_paper;
			}
			close;
		case 6:
			close;
		}

	} else {
		mes "[Traveller]";
		mes "You must be a Level 99 Trans or 3rd Class Job to deal with me.";
		close;
	}
}

