<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;
}