Help with Script random Dyestuff mission

[DutchDuck]

pallene,156,80,0	script	Stylist Henry	87,{
L0:
	mes	"Hello fabolous player!"; 
	mes	"My co worker Jake can make you feel very beautifull!";
	mes	"but because we are the only ones who can change youre hair.. and clothes people visit us form all over the realm..";
	mes	"and because of that we are running out of supply's..";
	mes	"so.. those who can help us restock our inventory will be able to change their appreance!";
	next;	
	menu "yes i want to help!", L1, "no thanks...", L2,	"I have the Dyestuff",	L3;
	next;
L1:	mes	"Alright ill tell you what dye we need!";
	next;
	mes	"lets see if you have a quest enabled first";
	next;
		if(checkquest(Orange_Dyestuffs) != -1)	{}goto	L4;
		if(checkquest(Black_Dyestuffs) != -1)	{}goto	L5;
		if(checkquest(White_Dyestuffs) != -1)	{}goto	L6;
	next;	
	mes	"Seems like no quest is enabled here is youre mission!";
	next;
switch(rand(3)) {
				default:
					set Orange_Dyestuffs,1;
					mes "Please Get me 5x Orange Dyestuffs!";
					setquest 90000;
					break;
				case 1:
					set Black_Dyestuffs,2;
					mes "Please Get me 5x Black Dyestuffs!.";
					setquest 90001;
					break;
				case 2:
					set White_Dyestuffs,3;
					mes "Please get me 5x White Dyestuffs!";
					setquest 90002;
					break;
				}		
L2:	mes	"Alright then Goodbye!";
	close;

L3:
	mes	"please hand them over...";
	next;
	if((countitem(980) == 5))	goto L4;
	if((countitem(983) == 5))	goto L5;
	if((countitem(982) == 5))	goto L6;
	if((countitem(980) < 5))	goto L7;
	if((countitem(983) < 5))	goto L7;
	if((countitem(982) < 5))	goto L7;
	next;
L4:		
	mes	"Lets see if you have enough Orange Dyestuffs.";
	if(checkquest(Orange_Dyestuffs) != -1) {	
			completequest 90000;
}
	next;
	mes	"Have fun getting a total make over!...";
	next;
	delitem	980,	5;
	warp "pal_in01",93,104;
	close;

L5:		
	mes	"Lets See if you have enough Black Dyestuffs...";
		if(checkquest(Black_Dyestuffs) != -1) {
			completequest 90001;
}
	next;
	mes	"Have fun getting a total make over!...";	
	next;
	delitem	983,	5;
	warp "pal_in01",93,104;
	close;

L6:		
	mes	"Lets See if you have enough White Dyestuffs...";
	if(checkquest(Orange_Dyestuffs) != -1) {
		completequest 90002;	
}
	next;
	mes	"Have fun getting a total make over!...";	
	next;
	delitem	982,	5;
	warp "pal_in01",93,104;
	close;

L7:	mes	"Youre lacking some dyestuffs.. come back when you have collected the 5 i need..";
	close;
}

Hello Evreone..

 

i busy writing a script with this npc..

it should give you a random mission to collect a dyestuff...

most of it works al though i cant seem to make the Quest complete command work..
My character server gives me this error added with the post.

It seems to me that the complete quest command doesnt work...

can someone help me fix this script?

Spoiler

 

error_on_char.bmp