//***-- Requested by,
//--		MyRO Server.


// adjusted with 553 cloth colors July 19, 2011

payon,126,238,6	script	Stylist Ricky	122,{

	set .@name$,"[^000080Ricky The Stylist^000000]";

	if(Sex == 0) {	// Female
		setarray .@max[1],489,251,98;	// Number of cloths, haircolors, hairstyles in client (Female)

		setarray .@blacklist_hairstyle,143,188,261;
		setarray .@blacklist_haircolor,143,188,261;
		setarray .@blacklist_cloth,143,188,261;

	} else { // male
		setarray .@max[1],489,251,80;	// Number of cloths, haircolors, hairstyles in client (Male)

		setarray .@blacklist_hairstyle,3,5,7;
		setarray .@blacklist_haircolor,2,4,6;
		setarray .@blacklist_cloth,143,188,261;

	}

	// setarray .@blacklist[0],0,143,188,261;	// NPC will skip any cloth colors in this array.
										//  	Use for palettes that cause errors or just plain look bad.
										//		Leave first value at 0 to disable.

	setarray .@type[1],7,6,1;			// DO NOT EDIT
	set .@style,0;

	mes .@name$;
	mes "I can change your appearance for you if you'd like.";
	mes " ";
	mes "Just choose what you'd like to change:";
	next;
	set .@s,select("Clothes color",
				"Hair color",
				"Hair style");
	deletearray .@blacklist;
	switch( .@s ){
		Case 1: copyarray .@blacklist[0],.@blacklist_cloth[0],getarraysize( .@blacklist_cloth ); break;
		Case 2: copyarray .@blacklist[0],.@blacklist_haircolor[0],getarraysize( .@blacklist_haircolor ); break;
		Case 3: copyarray .@blacklist[0],.@blacklist_hairstyle[0],getarraysize( .@blacklist_hairstyle ); break;
		default: break;
	}
	set .@blacklist_size,getarraysize( .@blacklist );

	mes .@name$;
	mes "Alright, how would you like to search?";
	next;
	menu "Start at the beginning",L_start,
		"Choose where to start",-;

	// CHOOSE WHERE TO START =====================================================
	mes .@name$;
	mes "Alright, choose a style between ^0000FF0 and " +.@max[.@s]+ "^000000.";
	next;
	input .@style;

	if (.@style < 0 || .@style > .@max[.@s]) {
		mes .@name$;
		mes "Style chosen is out of range.";
		close;
	}

  L_start:
	setarray @revert[1],getlook(.@type[.@s]),0,0;
	mes .@name$;
	mes "Alright here we go, starting at style ^007700" +.@style+ "^000000.";
	next;

  // BEGINNING OF STYLE MENU LOOP ================================================
  L_menuloop:
	if( .@blacklist_size ){
		for( set .@f,0; .@f < .@blacklist_size; set .@f,.@f + 1 )
			if( .@style == .@blacklist[.@f] ){
				mes "^FF0000STYLE REMOVED - " +.@style+ "^000000";
				message strcharinfo(0),"GM Message - Style " +.@style+ " was removed.";
				if( .@previous == 1 ){
					set .@style, .@style - 1;
				}else{
					set .@style, .@style +1;
				}
				goto L_menuloop;
			}
	}
	setlook .@type[.@s],.@style;
	mes "This is style number ^007700" +.@style+ "^000000.";

	set .@next, .@style + 1;
	set .@prev, .@style - 1;

	// MAXIMUM MENU
	if (.@style == .@max[.@s]) {
		set .@next,0;
		message strcharinfo(0),"Limit Reached";
	}

	// MINIMUM MENU ==============================================================
	if (.@style == 0) {
		set .@prev,.@max[.@s];
		message strcharinfo(0),"Beginning Reached";
	}

	// PREVIOUS MENU =============================================================
	if (.@previous) {
		menu "^FF0000Previous - " +.@prev+ "^000000",L_prev,
			"^0000FFNext - " +.@next+ "^000000",L_next,
			"Jump to",L_jump,
			"Save",L_save,
			"Load",L_load;
	}

	// DEFAULT MENU ==============================================================
	menu "^0000FFNext - " +.@next+ "^000000",L_next,
		"^FF0000Previous - " +.@prev+ "^000000",L_prev,
		"Jump to",L_jump,
		"Save",L_save,
		"Load",L_load;

  L_next:
	set .@previous,0;
	set .@style, .@next;
	goto L_menuloop;

  L_prev:
	set .@previous,1;
	set .@style, .@prev;
	goto L_menuloop;

  L_jump:
	next;
	mes .@name$;
	mes "Choose which style you'd like to jump to:";
	next;
	input .@style;
	if (.@style < 0 || .@style > .@max[.@s]) {
		mes .@name$;
		mes "Style chosen is out of range.";
		close;
	}
	goto L_menuloop;

  L_save:
	next;
	mes .@name$;
	mes "Choose which slot you'd like to save to:";
	set .@x, select("Slot 1 - [" +@revert[1]+ "]",
					"Slot 2 - [" +@revert[2]+ "]",
					"Slot 3 - [" +@revert[3]+ "]");

	setarray @revert[.@x], .@style;
	goto L_menuloop;

  L_load:
	next;
	mes .@name$;
	mes "Choose which slot you'd like to load from:";
	set .@x, select("Slot 1 - [" +@revert[1]+ "]",
					"Slot 2 - [" +@revert[2]+ "]",
					"Slot 3 - [" +@revert[3]+ "]");

	set .@style, @revert[.@x];
	goto L_menuloop;
}

turbo_room,133,83,1	duplicate(Stylist Ricky)	Stylist Ricky#2	122

prontera,139,225,6	duplicate(Stylist Ricky)	Stylist Ricky#3	122

amatsu,129,166,4	duplicate(Stylist Ricky)	Stylist Ricky#4	122

gonryun,181,109,3	duplicate(Stylist Ricky)	Stylist Ricky#5	122

morocc,180,84,6	duplicate(Stylist Ricky)	Stylist Ricky#6	122

aldebaran,102,102,8	duplicate(Stylist Ricky)	Stylist Ricky#7	122

yuno,136,150,6	duplicate(Stylist Ricky)	Stylist Ricky#8	724

hugel,115,168,3	duplicate(Stylist Ricky)	Stylist Ricky#9	724
geffen,102,40,7	duplicate(Stylist Ricky)	Stylist Ricky#10	724

izlude,152,101,5	duplicate(Stylist Ricky)	Stylist Ricky#11	724