Quote:
	
	
		| 
					Originally Posted by Pyrix
					
				 Quest:
 I wanna do sum quests , but i never programmed in perl.
 
 1. if  PC gives item to NPC && level =< 5 teleport PC to Zoneblablbla
 
 2.If PC give startingitem to NPC , NPC say text && give 1 Platin to PC
 
 PYrix
 | 
	
 Check the 
tutorial in the Quest howto , but it would basically look like this:
1 : 
	Code:
	if(($itemcount{1001}==1) && ulevel  <= 5){ quest::movepc(blahblah,x,y,z);
}
 2 : 
	Code:
	if ($itemcount{1001}==1){
quest::say("Thank you $name, please take this as a reward.");
quest::givecash(0,0,0,1);
}
 
Good luck!