changelook

[bartoaldo]

Eai blz... mano eu to tendo um pequeno problema em script que to tentando desenvolvendo mais agora que cheguei na parte do comando changelook  não to consigo fazer ele efetuar certo sim quem poder min dizer como posso fazer pra ele ir blz da ajuda ai

-	script	atcmd_pset#main	-1,{
OnInit:
	bindatcmd "pset", "atcmd_pset#main::OnStart";
	setarray .PSET_Color$[0],"0xA0522D","0x4169E1","0x696969","0x808000","0x483D8B","0xFFA500","0x9ACD32","0x4169E1","0xDDA0DD";
	end;


L_Help:
	message strcharinfo(0), "Use @pset comand to edit your pset build or to change the color. For example: @pset str - @pset red";
	message strcharinfo(0), "Available builds: str-dex-int";
	message strcharinfo(0), "Available colors: black - white - gold - rainbow - blue - lpurple - dpurple - red - green - lblue - cyan - pink";
	return;
	
OnStart:
	
	if (!getarraysize(.@atcmd_parameters$)) {
		message strcharinfo(0), "Invalid syntax.";
		callsub L_Help;
		end;
	}

	.@command$ = strtolower(.@atcmd_parameters$[0]);

	if (.@command$ == "white") {
		message strcharinfo(0), "Perfect White Set.";
		atcommand "@changelook 3 29003";
		atcommand "@changelook 4 29004";
		atcommand "@changelook 5 29005";
		end;
	} else if (.@command$ == "blue") {
		message strcharinfo(0), "Perfect Blue Set.";
		end;
	}
}

Agradeço desde já

resolvido já