-	script	Functions_GetReward	FAKE_NPC,{

	mes .Name$;
	switch(prompt("Get Reward:End Conversation"))
	{
		case 1:
			if (#Gotreward)
				mes .Name$;
				mes "...";
				close;
			else
				getitem .Itemid,.Amount;
				set #Gotreward,1;
				close;
			
		default:
			mes .Name$;
			mes "See You!";
			close;
	}
	end;

OnInit:

	.Name$ = "[ Get Reward ]";
	.Itemid = 501;
	.Amount = 10;
	end;
}

morocc,0,0,4	duplicate(Functions_GetReward)	Reward	999