<header>,{
set .@n$,"[Daily Reward]";
mes .@n$;
mes "Hey! Have you taken your reward today?";
select("Yes");
if (dr_time$ != gettimestr("%Y%m%d",9)) {
next;
mes .@n$;
mes "LIAR!!!";
mes "Telling lies are no good.";
mes "Please take your reward!";
next;
set dr_time$, gettimestr("%Y%m%d",9);
switch (gettime(4)) {
Case 0: getitem 671,1; break;
Case 1: getitem 672,1; break;
Case 2: getitem 673,1; break;
Case 3: getitem 674,1; break;
Case 4: getitem 675,1; break;
Case 5: getitem 676,1; break;
Case 6: getitem 677,1; break;
}
next;
mes .@n$;
mes "Don't tell lies next time...";
mes "Have a nice day!";
close;
}
next;
mes .@n$;
mes "Then don't talk to me!";
close;
}