viewing paste Unknown #21288 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
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;
 
}
Viewed 698 times, submitted by unknown.