mes @header$;
set .@i$,callfunc( "int_format", Zeny );
mes "Do you want to exchange your ^33CC33"+.@i$+"^000000 Zeny to a ???";
next;
if(select("Cancel:Yes, Exchange it!")==1) close;
next;
mes @header$;
mes "Okay, Here you go!, Thank you for using my services.";
close;
}
break;
function script int_format {
set .@int, getarg(0);
set .@sep$, getarg(1,",");
set .@str$, "";
if ( .@int < 0 ) {
set .@int, -.@int;
set .@neg, 1;
}
set .@len, getstrlen(.@int+"") - .@neg;
for ( set .@i,0; .@i<.@len; set .@i,.@i+1 )
set .@str$, ( .@i % 3 == 2 && .@i < .@len-1 ? .@sep$ : "" ) + ( .@int / pow(10,.@i) ) % 10 + .@str$;
return ( .@neg ? "-" : "" ) + .@str$;
}
can anyone help to exchange all my Zeny > TCG
Sample i have 27,000,000 Zeny i will get 2pcs TCG Card ( 10m * by 1 TCG )
Question
Bringer
mes @header$; set .@i$,callfunc( "int_format", Zeny ); mes "Do you want to exchange your ^33CC33"+.@i$+"^000000 Zeny to a ???"; next; if(select("Cancel:Yes, Exchange it!")==1) close; next; mes @header$; mes "Okay, Here you go!, Thank you for using my services."; close; } break; function script int_format { set .@int, getarg(0); set .@sep$, getarg(1,","); set .@str$, ""; if ( .@int < 0 ) { set .@int, -.@int; set .@neg, 1; } set .@len, getstrlen(.@int+"") - .@neg; for ( set .@i,0; .@i<.@len; set .@i,.@i+1 ) set .@str$, ( .@i % 3 == 2 && .@i < .@len-1 ? .@sep$ : "" ) + ( .@int / pow(10,.@i) ) % 10 + .@str$; return ( .@neg ? "-" : "" ) + .@str$; }
can anyone help to exchange all my Zeny > TCG
Sample i have 27,000,000 Zeny i will get 2pcs TCG Card ( 10m * by 1 TCG )
Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.