//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ\\
//||----------------------------------------------||\\
//|| Dye NPC ||\\
//||----------------------------------------------||\\
//|| Written By: Izkuru ||\\
//|| teh_face_x_o@yahoo.com ||\\
//|| Test With: OmniAthena 962 ||\\
//||----------------------------------------------||\\
//|| NPC that changes the players apperance. ||\\
//||----------------------------------------------||\\
//|| To install: Place this TXT file anywhere in ||\\
//|| your Athena scripts folder, and include it ||\\
//|| in scripts.conf. ||\\
//||----------------------------------------------||\\
//|| Started on: Jun 23 2004 ||\\
//|| Last Modified: Jun 23 2004 ||\\
//||----------------------------------------------||\\
//__________________________________________________\\
prontera.gat,163,195,5 script Dye NPC 121,{
mes "[Dye Guy]";
mes "If you drink a mixture of my formula, your appearance will change.";
mes "What would you like?";
next;
menu "Alter hairsyle",L_Style1,"Change hair color",L_Hair,"Change clothing color",L_Clothe,"Nothing",-;
L_No:
mes "[Dye Guy]";
mes "Well, fine then. Don't try my forumlas.";
mes "[Looks like I lost another possible test subject.]";
close;
L_Style1:
mes "[Dye Guy]";
mes "Alter your hairstyle, eh?";
next;
L_Style2:
mes "[Dye Guy]";
mes "Pick from one of these 19 mixtures.";
next;
input @style;
if((@style < 0) || (@style > 19)) goto L_Style_Err;
setlook 1,@style;
mes "[Dye Guy]";
mes "Well? How do you like?";
next;
menu "I like it",L_End,"Let me try another one",L_Style2;
L_Style_Err:
mes "[Dye Guy]";
mes "I said pick from those 19 mixtures. I don't have a mixuter number " + @style + ".";
next;
goto L_Style2;
L_Hair:
mes "[Dye Guy]";
mes "Change your hair color, eh?";
next;
L_Hair2:
mes "[Dye Guy]";
mes "Which mixture do you want to try?";
next;
menu "Red",L_Red,"Yellow",L_Yel,"Purple",L_Pur,"Brown",L_Bro,"Green",L_Gre,"Blue",L_Blu,"White",L_Whi,"Black",L_Bla,"Cancel",L_No;
L_Red:
setlook 6,8;
goto L_Hair3;
L_Yel:
setlook 6,1;
goto L_Hair3;
L_Pur:
setlook 6,2;
goto L_Hair3;
L_Bro:
setlook 6,3;
goto L_Hair3;
L_Gre:
setlook 6,4;
goto L_Hair3;
L_Blu:
setlook 6,5;
goto L_Hair3;
L_Whi:
setlook 6,6;
goto L_Hair3;
L_Bla:
setlook 6,7;
goto L_Hair3;
L_Hair3:
mes "[Dye Guy]";
mes "Well? How do you like it?";
next;
menu "I like it",L_End,"Let me try another one",L_Hair2;
L_Clothe:
mes "[Dye Guy]";
mes "Change your clothing color, eh?";
next;
L_Choose_Pal:
mes "[Dye Guy]";
mes "Place choose from one of these 77 mixtures.";
next;
input @pal;
if((@pal < 0) || (@pal > 77)) goto L_Pal_Err;
setlook 7, @pal;
mes "[Dye Guy]";
mes "Well? How do you like it?";
next;
menu "I like it",L_End,"Let me try another one",L_Choose_Pal;
L_Pal_Err:
mes "[Dye Guy]";
mes "I said to pick from those 77 mixtures. I don't have a mixture number " + @pal + ".";
next;
goto L_Choose_Pal;
L_End:
mes "[Dye Guy]";
mes "Have a nice day. Feel free to drop by to be a test subj...I mean volunteer to try my mixtures.";
close;
}