Jump to content

patulong paano po siya lagyan ng timer na 24 hour


Recommended Posts


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

pa tulong naman po ako paano lagyan po ito ng timer na 24 hours kada normal character and quest na rin salamat po sa tutulong.

 

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;
}
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  974
  • Reputation:   41
  • Joined:  11/13/11
  • Last Seen:  

Kumbaga once a day lang pde gumamit ng credit manager ang isang character sa isang account?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

On 12/11/2022 at 3:29 PM, Diconfrost VaNz said:

Kumbaga once a day lang pde gumamit ng credit manager ang isang character sa isang account?

opo

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  974
  • Reputation:   41
  • Joined:  11/13/11
  • Last Seen:  

Per day ung buong services nung Credit Manager or per service lang???

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

On 12/13/2022 at 7:46 PM, Diconfrost VaNz said:

Per day ung buong services nung Credit Manager or per service lang???

opo per day lang po buong services nya kada papalit po ng credit o zeny po sa npc po.

Edited by Cyborg
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  974
  • Reputation:   41
  • Joined:  11/13/11
  • Last Seen:  

Ano ba gusto mo every exactly 24hours or ung tipong pdeng mgquest at tapusin ung quest ng before 11:59 tpos pagdating ng 12midnight reset na at pwede na ulitin ung quest?

 

Not sure pero try mo to /no1 

 

Use this if you want if this is a quest repeatable every exactly 24hours

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?";

next;
menu  "Credits To Zeny",-,"Zeny To Credits",ztc;
next;
if (creds < gettimetick(2)) goto C_creds; {
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;
	creds = gettimetick(2);
    close; }
ztc:
next;
if (creds < gettimetick(2)) goto C_creds; {
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;
	creds = gettimetick(2);
    close; }
	
	
        C_creds:
            mes "[^000088 Mr. Credit ^000000]";
            mes "You have already taken this, get back after 24hours.";
            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;
}

 

but if you want to make this quest that resets every 12midnight and yes, you can finish the quest around 11:59pm and repeat it again at 12midnight

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?";

next;
menu  "Credits To Zeny",-,"Zeny To Credits",ztc;
next;
if ( apple_taken == .@today ) goto C_creds; 
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;
	creds = .@today;
    close; 
ztc:
next;
if ( apple_taken == .@today ) goto C_creds; 
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;
	creds = .@today;
    close; 
	
	
        C_creds:
            mes "[^000088 Mr. Credit ^000000]";
            mes "You have already taken this quest.";
            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;
}

 

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

On 12/17/2022 at 1:44 AM, Diconfrost VaNz said:

Ano ba gusto mo every exactly 24hours or ung tipong pdeng mgquest at tapusin ung quest ng before 11:59 tpos pagdating ng 12midnight reset na at pwede na ulitin ung quest?

ang gusto sana kapag ng quest  sila ang cooldown yun timer 24 hour kada palit nila ng credit o zeny sa npc kada character 24 hour saka ulit sila makapag pagpapalit ng credit o zeny sa npc.

 

On 12/17/2022 at 2:02 AM, Diconfrost VaNz said:

Not sure pero try mo to /no1 

 

Use this if you want if this is a quest repeatable every exactly 24hours

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?";

next;
menu  "Credits To Zeny",-,"Zeny To Credits",ztc;
next;
if (creds < gettimetick(2)) goto C_creds; {
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;
	creds = gettimetick(2);
    close; }
ztc:
next;
if (creds < gettimetick(2)) goto C_creds; {
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;
	creds = gettimetick(2);
    close; }
	
	
        C_creds:
            mes "[^000088 Mr. Credit ^000000]";
            mes "You have already taken this, get back after 24hours.";
            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;
}

 

but if you want to make this quest that resets every 12midnight and yes, you can finish the quest around 11:59pm and repeat it again at 12midnight

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?";

next;
menu  "Credits To Zeny",-,"Zeny To Credits",ztc;
next;
if ( apple_taken == .@today ) goto C_creds; 
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;
	creds = .@today;
    close; 
ztc:
next;
if ( apple_taken == .@today ) goto C_creds; 
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;
	creds = .@today;
    close; 
	
	
        C_creds:
            mes "[^000088 Mr. Credit ^000000]";
            mes "You have already taken this quest.";
            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;
}

 

salamat testing ko nalang ito dalawa script kung ano ang maganda

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  50
  • Topics Per Day:  0.01
  • Content Count:  974
  • Reputation:   41
  • Joined:  11/13/11
  • Last Seen:  

On 12/18/2022 at 10:08 AM, Cyborg said:

salamat testing ko nalang ito dalawa script kung ano ang maganda



Gumana ba? /heh 

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

On 12/22/2022 at 1:27 AM, Diconfrost VaNz said:



Gumana ba? /heh 

hindi siya gumana my kailangan bagohin dito tsaka paano dagdag siya code para sa quest?

if (creds < gettimetick(2)) goto C_creds; {
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;
	creds = gettimetick(2);
    close; }

 

Edited by Cyborg
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  92
  • Topics Per Day:  0.02
  • Content Count:  354
  • Reputation:   22
  • Joined:  11/17/11
  • Last Seen:  

Try mo to.

24 Hours cooldown

Spoiler
prontera,138,184,5    script    Credit Agent    828,{
//===== Configure misc details here=====
set .@npcname$,"^000088[ Mr. Credit ]^000000";
set .@creditscolor$,"^FF0000Credits^000000";
set .@zenycolor$,"^0000FFZeny^000000";
//computation
//credscd = time script was engaged using gettimetick(2)
//credsdays = cool down to next usage in days e.g: 1
set credsdays,1;
set .creds,credscd + (credsdays * 24 * 3600);
//conversion amt.
set .@cnvcz,10000000;

//THIS LINE MAKES THE NPC TOTALLY UNUSABLE BY ANYONE 
//Kung gusto mo gumana sa gm lagi use the one below instead
// -> (gettimetick(2) - credscd < (3600 * 24 * credsdays) && getgmlevel() > 90)

    if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) {
            mes .@npcname$;
            //Basic notification na gamit na ung npc today
            // -> mes "You've already used your chance today.";
            //Notification with date and time until next usage
            mes "Exchange again in : "+gettimestr("%m-%d-%Y %I:%M:%S %p",23,.creds);
            mes "Time left : "+callfunc("Time2Str",.creds);
            close;
        }
        mes .@npcname$;
        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?";
        next;
        switch(select("~ "+.@creditscolor$+" to "+.@zenycolor$+":~ "+.@zenycolor$+" to "+.@creditscolor$+":~ Nothing")){
            case 1:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Credits to Zeny?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to exchange?";
                        next;
                        input .@t;
                        if(countitem(8055) < .@t) goto L_NOCreds;
                        delitem 8055,.@t;
                        set Zeny,Zeny+(.@cnvcz * .@t);
                        set credscd,gettimetick(2);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
                    
            case 2:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Zeny to Credits?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to get?";
                        next;
                        input .@t;
                        if(Zeny < (.@cnvcz * .@t)) goto L_NOZen;
                        set Zeny,Zeny-(.@cnvcz * .@t);
                        getitem 8055,.@t;
                        set credscd,gettimetick(2);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
            
            case 3:
                mes .@npcname$;
                mes "Please use my service next time";
                close;
        
        }

L_NOCreds:
   mes .@npcname$;
   mes "You don't have enough credits.";
   close;
   
L_NOZen:
   mes .@npcname$;
   mes "You don't have enough zeny.";
   close;

}

 

 

12mn reset

 

Spoiler
prontera,138,184,5    script    Credit Agent    828,{
//===== Configure misc details here=====
set .@npcname$,"^000088[ Mr. Credit ]^000000";
set .@creditscolor$,"^FF0000Credits^000000";
set .@zenycolor$,"^0000FFZeny^000000";
//conversion amt.
set .@cnvcz,10000000;

    if (credscd == gettime(DT_YYYYMMDD)) {
            mes .@npcname$;
            mes "You've already used your chance today.";
            mes "Come back after 12:00mn after reset";
            close;
        }
        mes .@npcname$;
        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?";
        next;
        switch(select("~ "+.@creditscolor$+" to "+.@zenycolor$+":~ "+.@zenycolor$+" to "+.@creditscolor$+":~ Nothing")){
            case 1:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Credits to Zeny?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to exchange?";
                        next;
                        input .@t;
                        if(countitem(8055) < .@t) goto L_NOCreds;
                        delitem 8055,.@t;
                        set Zeny,Zeny+(.@cnvcz * .@t);
                        set credscd,gettime(DT_YYYYMMDD);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
                    
            case 2:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Zeny to Credits?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to get?";
                        next;
                        input .@t;
                        if(Zeny < (.@cnvcz * .@t)) goto L_NOZen;
                        set Zeny,Zeny-(.@cnvcz * .@t);
                        getitem 8055,.@t;
                        set credscd,gettime(DT_YYYYMMDD);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
            
            case 3:
                mes .@npcname$;
                mes "Please use my service next time";
                close;
        
        }

L_NOCreds:
   mes .@npcname$;
   mes "You don't have enough credits.";
   close;
   
L_NOZen:
   mes .@npcname$;
   mes "You don't have enough zeny.";
   close;

}

 

 

 

Did not try / test any of the script too time consuming para maghintay ng oras for the conditions, but it should work as intended, post any errors kung meron.

Edited by Virtue
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

On 12/29/2022 at 2:51 PM, Virtue said:

Try mo to.

24 Hours cooldown

  Hide contents
prontera,138,184,5    script    Credit Agent    828,{
//===== Configure misc details here=====
set .@npcname$,"^000088[ Mr. Credit ]^000000";
set .@creditscolor$,"^FF0000Credits^000000";
set .@zenycolor$,"^0000FFZeny^000000";
//computation
//credscd = time script was engaged using gettimetick(2)
//credsdays = cool down to next usage in days e.g: 1
set credsdays,1;
set .creds,credscd + (credsdays * 24 * 3600);
//conversion amt.
set .@cnvcz,10000000;

//THIS LINE MAKES THE NPC TOTALLY UNUSABLE BY ANYONE 
//Kung gusto mo gumana sa gm lagi use the one below instead
// -> (gettimetick(2) - credscd < (3600 * 24 * credsdays) && getgmlevel() > 90)

    if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) {
            mes .@npcname$;
            //Basic notification na gamit na ung npc today
            // -> mes "You've already used your chance today.";
            //Notification with date and time until next usage
            mes "Exchange again in : "+gettimestr("%m-%d-%Y %I:%M:%S %p",23,.creds);
            mes "Time left : "+callfunc("Time2Str",.creds);
            close;
        }
        mes .@npcname$;
        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?";
        next;
        switch(select("~ "+.@creditscolor$+" to "+.@zenycolor$+":~ "+.@zenycolor$+" to "+.@creditscolor$+":~ Nothing")){
            case 1:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Credits to Zeny?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to exchange?";
                        next;
                        input .@t;
                        if(countitem(8055) < .@t) goto L_NOCreds;
                        delitem 8055,.@t;
                        set Zeny,Zeny+(.@cnvcz * .@t);
                        set credscd,gettimetick(2);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
                    
            case 2:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Zeny to Credits?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to get?";
                        next;
                        input .@t;
                        if(Zeny < (.@cnvcz * .@t)) goto L_NOZen;
                        set Zeny,Zeny-(.@cnvcz * .@t);
                        getitem 8055,.@t;
                        set credscd,gettimetick(2);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
            
            case 3:
                mes .@npcname$;
                mes "Please use my service next time";
                close;
        
        }

L_NOCreds:
   mes .@npcname$;
   mes "You don't have enough credits.";
   close;
   
L_NOZen:
   mes .@npcname$;
   mes "You don't have enough zeny.";
   close;

}

 

 

12mn reset

 

  Hide contents
prontera,138,184,5    script    Credit Agent    828,{
//===== Configure misc details here=====
set .@npcname$,"^000088[ Mr. Credit ]^000000";
set .@creditscolor$,"^FF0000Credits^000000";
set .@zenycolor$,"^0000FFZeny^000000";
//conversion amt.
set .@cnvcz,10000000;

    if (credscd == gettime(DT_YYYYMMDD)) {
            mes .@npcname$;
            mes "You've already used your chance today.";
            mes "Come back after 12:00mn after reset";
            close;
        }
        mes .@npcname$;
        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?";
        next;
        switch(select("~ "+.@creditscolor$+" to "+.@zenycolor$+":~ "+.@zenycolor$+" to "+.@creditscolor$+":~ Nothing")){
            case 1:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Credits to Zeny?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to exchange?";
                        next;
                        input .@t;
                        if(countitem(8055) < .@t) goto L_NOCreds;
                        delitem 8055,.@t;
                        set Zeny,Zeny+(.@cnvcz * .@t);
                        set credscd,gettime(DT_YYYYMMDD);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
                    
            case 2:
                mes .@npcname$;
                mes "Are you sure you want to exchange your Zeny to Credits?";
                next;
                switch(select("~ Yes:~ No")){
                    case 1:
                        mes .@npcname$;
                        mes "How many Credits do you want to get?";
                        next;
                        input .@t;
                        if(Zeny < (.@cnvcz * .@t)) goto L_NOZen;
                        set Zeny,Zeny-(.@cnvcz * .@t);
                        getitem 8055,.@t;
                        set credscd,gettime(DT_YYYYMMDD);
                        close;
                        
                    case 2:
                        mes .@npcname$;
                        mes "Please use my service next time";
                        close;
                    }
            
            case 3:
                mes .@npcname$;
                mes "Please use my service next time";
                close;
        
        }

L_NOCreds:
   mes .@npcname$;
   mes "You don't have enough credits.";
   close;
   
L_NOZen:
   mes .@npcname$;
   mes "You don't have enough zeny.";
   close;

}

 

 

 

Did not try / test any of the script too time consuming para maghintay ng oras for the conditions, but it should work as intended, post any errors kung meron.

paano siya lagyan ng requirments po parang quest bago po nila gamit ito?

Edited by Cyborg
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  92
  • Topics Per Day:  0.02
  • Content Count:  354
  • Reputation:   22
  • Joined:  11/17/11
  • Last Seen:  

1 hour ago, Cyborg said:

paano siya lagyan ng requirments po parang quest bago po nila gamit ito?

lagyan mo ng conditions at variables ng quest mo. sample sa taas neto

if(QUEST VARIABLES < 1) {
mes .@npcname$;
mes "you need to complete the quest before you can use my services";
close;
}
if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) {
            mes .@npcname$;
            //Basic notification na gamit na ung npc today

ayan idea, tapos buuin mo na sya gawan mo ng sariling quest either sa same npc or sa ibang npc.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

14 hours ago, Virtue said:

lagyan mo ng conditions at variables ng quest mo. sample sa taas neto

if(QUEST VARIABLES < 1) {
mes .@npcname$;
mes "you need to complete the quest before you can use my services";
close;
}
if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) {
            mes .@npcname$;
            //Basic notification na gamit na ung npc today

ayan idea, tapos buuin mo na sya gawan mo ng sariling quest either sa same npc or sa ibang npc.

saan ko part ito ilalagay ito code na ito para iwas error na rin?

Edited by Cyborg
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  92
  • Topics Per Day:  0.02
  • Content Count:  354
  • Reputation:   22
  • Joined:  11/17/11
  • Last Seen:  

7 minutes ago, Cyborg said:

saan ko part ito ilalagay ito code na ito para iwas error na rin?

duon mo sisimulan buuin ung quest mo brader, hindi pa sya gagana as is if gusto mo ng quest. sinalpak ko as a tip para may starting point sa pag gawa nung requirement. 

 

itong line na to -> if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) { is ng line mo para sa 24 hour cooldown check. so if mag lalagay ka ng requirement na need mag quest ni magpapapalit sa taas nyan mo sisimulan buuin un condition na yun. then separate pa para sa quest mo. pwedeng separate npc or separate section lang within the same npc.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

Just now, Virtue said:

duon mo sisimulan buuin ung quest mo brader, hindi pa sya gagana as is if gusto mo ng quest. sinalpak ko as a tip para may starting point sa pag gawa nung requirement. 

 

itong line na to -> if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) { is ng line mo para sa 24 hour cooldown check. so if mag lalagay ka ng requirement na need mag quest ni magpapapalit sa taas nyan mo sisimulan buuin un condition na yun. then separate pa para sa quest mo. pwedeng separate npc or separate section lang within the same npc.

okay salamat sa tip try ko nalang ito sa other day kung meron error post ko ulit dito happy new year

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

On 12/31/2022 at 4:38 PM, Virtue said:

duon mo sisimulan buuin ung quest mo brader, hindi pa sya gagana as is if gusto mo ng quest. sinalpak ko as a tip para may starting point sa pag gawa nung requirement. 

 

itong line na to -> if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) { is ng line mo para sa 24 hour cooldown check. so if mag lalagay ka ng requirement na need mag quest ni magpapapalit sa taas nyan mo sisimulan buuin un condition na yun. then separate pa para sa quest mo. pwedeng separate npc or separate section lang within the same npc.

meron ako error at paturo na rin saan ko ilalagay yun code para dun sa quest

    parse_callfunc: expected ')' to close argument list
    32 :     if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) {
    33 :             mes .@npcname$;
    34 :             //Basic notification na gamit na ung npc today
    35 :             // -> mes "You've already used your chance today.";
    36 :             //Notification with date and time until next usage
*   37 :             mes "Exchange again in : "+gettimestr("%m-%d-%Y %I:%M:%S %p",23','.creds);
    38 :             mes "Time left : "+callfunc("Time2Str",.creds);
    39 :             close;
    40 :         }
    41 :         mes .@npcname$;
    42 :         mes "I Can Change Credits to Zeny";

 

Edited by Cyborg
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  92
  • Topics Per Day:  0.02
  • Content Count:  354
  • Reputation:   22
  • Joined:  11/17/11
  • Last Seen:  

On 12/31/2022 at 4:38 PM, Virtue said:

duon mo sisimulan buuin ung quest mo brader, hindi pa sya gagana as is if gusto mo ng quest. sinalpak ko as a tip para may starting point sa pag gawa nung requirement. 

 

itong line na to -> if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) { is ng line mo para sa 24 hour cooldown check. so if mag lalagay ka ng requirement na need mag quest ni magpapapalit sa taas nyan mo sisimulan buuin un condition na yun. then separate pa para sa quest mo. pwedeng separate npc or separate section lang within the same npc.

5 hours ago, Cyborg said:

meron ako error at paturo na rin saan ko ilalagay yun code para dun sa quest

    parse_callfunc: expected ')' to close argument list
    32 :     if (gettimetick(2) - credscd < (3600 * 24 * credsdays)) {
    33 :             mes .@npcname$;
    34 :             //Basic notification na gamit na ung npc today
    35 :             // -> mes "You've already used your chance today.";
    36 :             //Notification with date and time until next usage
*   37 :             mes "Exchange again in : "+gettimestr("%m-%d-%Y %I:%M:%S %p",23','.creds);
    38 :             mes "Time left : "+callfunc("Time2Str",.creds);
    39 :             close;
    40 :         }
    41 :         mes .@npcname$;
    42 :         mes "I Can Change Credits to Zeny";

 

same answer pa din about sa quest. hindi magbabago yun brader, aralin mo paano mo sya makakabitan na ng quest.

 

Kung updated ung rAthena mo ganito dapat lalabas dyan, no errors same script exactly dun sa binigay ko from above. wala issue sa latest rAthena.

image.png.a21d94233430838f5269cebed654092c.png

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  14
  • Topics Per Day:  0.01
  • Content Count:  54
  • Reputation:   1
  • Joined:  07/19/18
  • Last Seen:  

20 hours ago, Virtue said:

same answer pa din about sa quest. hindi magbabago yun brader, aralin mo paano mo sya makakabitan na ng quest.

 

Kung updated ung rAthena mo ganito dapat lalabas dyan, no errors same script exactly dun sa binigay ko from above. wala issue sa latest rAthena.

image.png.a21d94233430838f5269cebed654092c.png

old pa rin yun rathena ko kaya siguro my error hindi ganyan bale papalitan yun timer nya ibang format

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...