how to input a timer for 24 hour this script

[Cyborg]

help me how to input this script for 24 hour timer per character

 

prontera,138,184,5, script Credit Agent 828,{

mes "[^000088 Mr. Credit ^000000]";
mes "I Can Change Credits to Zeny";
mes "and Zeny to Credits";
mes "Remember 1 Credit = ^64000010,000,000z^000000.";
mes "Max Zeny is ^6400002,000,000,000z^000000 so be careful with your Credits";
mes "Exchanging Credits with Max Zeny your Credits will be Wasted";
mes "So what do you want?";
menu  "Credits To Zeny",-,"Zeny To Credits",ztc;
next;
mes "[^000088 Mr. Credit ^000000]";
mes "Are you sure you want to exchange your Credits to Zeny?";
menu  "Yes",-,"No",G_no;
next;
mes "[^000088 Mr. Credit ^000000]";
mes "How many Credits do you want to exchange?";
next;
input .@t;
    if(countitem(8055) < .@t) goto L_NOTENOUGH;
mes "[^000088 Mr. Credit ^000000]";
mes "Thanks. . See you again. . . !";
    delitem 8055,.@t;
    set Zeny,Zeny+10000000*.@t;
    close;
ztc:
next;
mes "[^000088 Mr. Credit ^000000]";
mes "Are you sure you want to exchange your Zeny to Credits?";
menu  "Yes",-,"No",G_no;
next;
mes "[^000088 Mr. Credit ^000000";
mes "How many Credits do you want to exchange?";
next;
input .@t;
    if(Zeny < 10000000*.@t) goto L_NOTENOUGH2;
mes "[^000088 Mr. Credit ^000000]";
mes "Thanks. . See you again. . . !";
    set Zeny,Zeny-10000000*.@t;
    getitem 8055,.@t;
    close;

L_NOTENOUGH:
   next;
   mes "[^000088 ^000088 Mr. Credit ^000000]";
   mes "You are lacking some credits.";
   close;
L_NOTENOUGH2:
   next;
   mes "[^000088 ^000088 Mr. Credit ^000000]";
   mes "You are lacking some Zeny.";
   close;

G_no:
next;
   mes "[^000088 ^000088 Mr. Credit ^000000]";
   mes "Please use my service next time";
   close;
end;
}