qtdan Posted October 27, 2021 Share Posted October 27, 2021 prontera,155,181,5 script Sample 718,{ setarray .CoinID, 677; setarray .Zeny, 10000000; while( 1 ){ mes "What service you want ?"; next; switch( select("Zeny to Coin:Coin to Zeny") ){ Case 1: mes "What Coin you want ?"; set [email protected]$,""; for( set [email protected],0; [email protected] < getarraysize( .CoinID ); set [email protected],[email protected] + 1 ){ mes "^0000FF"+getitemname( .CoinID[[email protected]] )+" : ^FF0000"+.Zeny[[email protected]]+"^000000 Zeny"; set [email protected]$,[email protected]$ + getitemname( .CoinID[[email protected]] )+":"; } set [email protected],select( [email protected]$ ) - 1; next; mes "Selected : ^00FF00"+getitemname( .CoinID[[email protected]] )+"^000000"; if( Zeny < .Zeny[[email protected]] ){ mes "It seem like you didnt have Enough Zeny for this."; next; break; } mes "You can exchange to ^FF0000"+( Zeny / .Zeny[[email protected]] )+" ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000 ."; mes "How many ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000 do you want ?"; input @Amount,0,( Zeny / .Zeny[[email protected]] ); if( [email protected] ) close; mes "You gained "[email protected]+" ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000."; set Zeny,Zeny - ( @Amount * .Zeny[[email protected]] ); getitem .CoinID[[email protected]],@Amount; next; break; Case 2: mes "Which Coin ?"; set [email protected]$,""; for( set [email protected],0; [email protected] < getarraysize( .CoinID ); set [email protected],[email protected] + 1 ){ mes "^0000FF"+getitemname( .CoinID[[email protected]] )+" : ^FF0000"+countitem( .CoinID[[email protected]] )+"^000000 Available"; set [email protected]$,[email protected]$ + getitemname( .CoinID[[email protected]] )+":"; } do{ set [email protected],select( [email protected]$ ) - 1; }while( !countitem( .CoinID[[email protected]] ) ); next; mes "Selected : ^00FF00"+getitemname( .CoinID[[email protected]] )+"^000000"; mes "You can exchange ^0000FF"+countitem( .CoinID[[email protected]] )+" "+getitemname( .CoinID[[email protected]] )+"^000000 to ^FF0000"+( countitem( .CoinID[[email protected]] ) * .Zeny[[email protected]] )+"^000000 Zeny."; mes "How many ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000 do you want to change into Zeny ?"; input @Amount,0,( ( 1000000000 - Zeny ) / .Zeny[[email protected]] ); if( [email protected] ) close; mes "You gained "+( @Amount * .Zeny[[email protected]] )+" Zeny."; delitem .CoinID[[email protected]],@Amount; set Zeny,Zeny + ( @Amount * .Zeny[[email protected]] ); next; break; } } } i want to add limit here maximum 50 coins per day that resets every 12:00am and every 1 coin needs 1 of #questpoints and 10,000,000 zeny. but for coins to zeny doesn't need the #questpoints. Quote Link to comment Share on other sites More sharing options...
0 Start_ Posted October 28, 2021 Share Posted October 28, 2021 Use gettime command to remember day. (Both players / NPC) If day != day reset players variables to 0 Quote Link to comment Share on other sites More sharing options...
prontera,155,181,5 script Sample 718,{ setarray .CoinID, 677; setarray .Zeny, 10000000; while( 1 ){ mes "What service you want ?"; next; switch( select("Zeny to Coin:Coin to Zeny") ){ Case 1: mes "What Coin you want ?"; set [email protected]$,""; for( set [email protected],0; [email protected] < getarraysize( .CoinID ); set [email protected],[email protected] + 1 ){ mes "^0000FF"+getitemname( .CoinID[[email protected]] )+" : ^FF0000"+.Zeny[[email protected]]+"^000000 Zeny"; set [email protected]$,[email protected]$ + getitemname( .CoinID[[email protected]] )+":"; } set [email protected],select( [email protected]$ ) - 1; next; mes "Selected : ^00FF00"+getitemname( .CoinID[[email protected]] )+"^000000"; if( Zeny < .Zeny[[email protected]] ){ mes "It seem like you didnt have Enough Zeny for this."; next; break; } mes "You can exchange to ^FF0000"+( Zeny / .Zeny[[email protected]] )+" ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000 ."; mes "How many ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000 do you want ?"; input @Amount,0,( Zeny / .Zeny[[email protected]] ); if( [email protected] ) close; mes "You gained "[email protected]+" ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000."; set Zeny,Zeny - ( @Amount * .Zeny[[email protected]] ); getitem .CoinID[[email protected]],@Amount; next; break; Case 2: mes "Which Coin ?"; set [email protected]$,""; for( set [email protected],0; [email protected] < getarraysize( .CoinID ); set [email protected],[email protected] + 1 ){ mes "^0000FF"+getitemname( .CoinID[[email protected]] )+" : ^FF0000"+countitem( .CoinID[[email protected]] )+"^000000 Available"; set [email protected]$,[email protected]$ + getitemname( .CoinID[[email protected]] )+":"; } do{ set [email protected],select( [email protected]$ ) - 1; }while( !countitem( .CoinID[[email protected]] ) ); next; mes "Selected : ^00FF00"+getitemname( .CoinID[[email protected]] )+"^000000"; mes "You can exchange ^0000FF"+countitem( .CoinID[[email protected]] )+" "+getitemname( .CoinID[[email protected]] )+"^000000 to ^FF0000"+( countitem( .CoinID[[email protected]] ) * .Zeny[[email protected]] )+"^000000 Zeny."; mes "How many ^0000FF"+getitemname( .CoinID[[email protected]] )+"^000000 do you want to change into Zeny ?"; input @Amount,0,( ( 1000000000 - Zeny ) / .Zeny[[email protected]] ); if( [email protected] ) close; mes "You gained "+( @Amount * .Zeny[[email protected]] )+" Zeny."; delitem .CoinID[[email protected]],@Amount; set Zeny,Zeny + ( @Amount * .Zeny[[email protected]] ); next; break; } } }i want to add limit here maximum 50 coins per day that resets every 12:00am
and every 1 coin needs 1 of #questpoints and 10,000,000 zeny.
but for coins to zeny doesn't need the #questpoints.
Link to comment
Share on other sites