prontera,150,150,3  script  test    100,{
 
set .@dnpc$,"[ ^009900Daily Random Quest^000000 ]";
 
// ==========================================================
// Simple Daily Random Quest by JkaiZu a.k.a jong puno :p
// Please edit the npc conversation here.
// Don't hesitate to add mes "Message"; if neccessary.
// A little configuration starting on setarray
// ==========================================================
 
if(#Daily+86399 > gettimetick(2)) {
    mes "Please wait 24 hours.";
    mes " ";
    close;
}
    mes .@dnpc$;
    mes "Hello, "+strcharinfo(0)+".";
    mes " ";
    mes "^FF0000!!!!!^000000 ^009900Daily Quest Available^000000 ^FF0000!!!!!^000000";
    mes " ";
    mes "Required Item: ^0000FF"+getitemname($QuestReq)+"^000000";
    mes "Required Amount: ( ^0000FF"+$QuestReqAmount+"^000000 )";
    menu "~ I already have that",L_GiveReq,"Just Passing by.",L_Close;
 
L_GiveReq:
    if(countitem($QuestReq) >= $QuestReqAmount) {
        next;
        mes .@dnpc$;
        mes "Great ! Here's your reward.";
        next;
        delitem $QuestReq,$QuestReqAmount;
        getitem 7539,1;
        set #Daily,gettimetick(2);
        close;
    }
        next;
        mes .@dnpc$;
        mes "You currently have.";
        mes " ";
        mes "Required Item: ^0000FF"+getitemname($QuestReq)+"^000000";
        mes "Required Amount: ( ^FF0000"+countitem($QuestReq)+"^000000 / ^0000FF"+$QuestReqAmount+"^000000 )";
        close;
 
 
// Configuration setarray add the item id you wanted to be in the queue for the random pick.
 
OnClock0000:
    setarray .@rr[0],501,502,503,504;
    set $QuestReq,.@rr[rand(getarraysize(.@rr))];
    set $QuestReqAmount,rand(10,30);
 
 
L_Close:
    mes " ";
    close;
 
}