-   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