AinsLord Posted March 1, 2018 Group: Members Topic Count: 257 Topics Per Day: 0.08 Content Count: 737 Reputation: 18 Joined: 11/21/15 Last Seen: Tuesday at 07:17 AM Share Posted March 1, 2018 here is the script prontera,155,181,5 script Sample 757,{ set .Guild,getcastledata( "prtg_cas01",1 ); if( getcharid(2) == .Guild ){ mes "^FF0000Current Tax : "+$Tax+" %"; mes "Total Earning : "+$Earn+" Zeny."; } mes "This Gold Room is currently owned by ^FF0000"+getguildname( .Guild )+" Guild^000000."; mes "You may hunt gold inside the room, but with a ^FF0000"+$Tax+" % Tax Rate^000000."; mes "Each kill in the Room you will gain 1 Points and each point equal to 100,000 zeny."; next; switch( select( "Hunt Gold", "Claim Zeny", ( strcharinfo(0) != getguildmaster( .Guild ) )?"":"[^0000FFMaster^000000] Claim Earn", ( strcharinfo(0) != getguildmaster( .Guild ) )?"":"[^0000FFMaster^000000] Change Tax" )){ Case 1: warp "mosk_que",0,0; end; Case 2: mes "You have "+#GoldPoint+" Points."; if( !#GoldPoint ) close; mes "How many you want to points claim ?"; input @Amount,0,#GoldPoint; if( !@Amount ) close; next; set #GoldPoint,#GoldPoint - @Amount; set .@Gain,(( @Amount * 100000 ) - ( @Amount * 100000 * $Tax / 100 )); set Zeny,Zeny + .@Gain; mes "Gained ^FF0000"+.@Gain+"^000000 Zeny due to Tax Rate of "+$Tax+" %"; close; Case 3: mes "Total Earning : "+$Earn+" Zeny."; if( select("Claim It:Cancel") == 2 ) close; mes "How much you want to claim ?"; do{ input @Amount,0,$Earn; if( !@Amount ) close; if( ( Zeny + @Amount ) > 1000000000 ) mes "Limit Exceed..."; }while( ( Zeny + @Amount ) > 1000000000 ); mes "Gained "+@Amount+" Zeny."; set Zeny,Zeny + @Amount; set $Earn,$Earn - @Amount; close; Case 4: mes "^FF0000Current Tax : "+$Tax+" %"; mes "Enter your New Tax Rate."; input $Tax,1,20; mes "^FF0000Updated Tax : "+$Tax+" %"; close; } OnInit: monster "mosk_que",0,0,"Gold",1002,100,strnpcinfo(0)+"::OnMobKill"; end; OnMobKill: monster "mosk_que",0,0,"Gold",1002,1,strnpcinfo(0)+"::OnMobKill"; set $Earn,$Earn + ( 100000 * $Tax / 100 ); set #GoldPoint,#GoldPoint + 1; dispbottom "Total Gold Point = "+#GoldPoint+" Points."; end; } mosk_que mapflag nowarp mosk_que mapflag nowarpto mosk_que mapflag noSave mosk_que mapflag noteleport //mosk_que mapflag nocommand 50 thnx for the help~ Quote Link to comment Share on other sites More sharing options...
Question
AinsLord
here is the script
prontera,155,181,5 script Sample 757,{ set .Guild,getcastledata( "prtg_cas01",1 ); if( getcharid(2) == .Guild ){ mes "^FF0000Current Tax : "+$Tax+" %"; mes "Total Earning : "+$Earn+" Zeny."; } mes "This Gold Room is currently owned by ^FF0000"+getguildname( .Guild )+" Guild^000000."; mes "You may hunt gold inside the room, but with a ^FF0000"+$Tax+" % Tax Rate^000000."; mes "Each kill in the Room you will gain 1 Points and each point equal to 100,000 zeny."; next; switch( select( "Hunt Gold", "Claim Zeny", ( strcharinfo(0) != getguildmaster( .Guild ) )?"":"[^0000FFMaster^000000] Claim Earn", ( strcharinfo(0) != getguildmaster( .Guild ) )?"":"[^0000FFMaster^000000] Change Tax" )){ Case 1: warp "mosk_que",0,0; end; Case 2: mes "You have "+#GoldPoint+" Points."; if( !#GoldPoint ) close; mes "How many you want to points claim ?"; input @Amount,0,#GoldPoint; if( !@Amount ) close; next; set #GoldPoint,#GoldPoint - @Amount; set .@Gain,(( @Amount * 100000 ) - ( @Amount * 100000 * $Tax / 100 )); set Zeny,Zeny + .@Gain; mes "Gained ^FF0000"+.@Gain+"^000000 Zeny due to Tax Rate of "+$Tax+" %"; close; Case 3: mes "Total Earning : "+$Earn+" Zeny."; if( select("Claim It:Cancel") == 2 ) close; mes "How much you want to claim ?"; do{ input @Amount,0,$Earn; if( !@Amount ) close; if( ( Zeny + @Amount ) > 1000000000 ) mes "Limit Exceed..."; }while( ( Zeny + @Amount ) > 1000000000 ); mes "Gained "+@Amount+" Zeny."; set Zeny,Zeny + @Amount; set $Earn,$Earn - @Amount; close; Case 4: mes "^FF0000Current Tax : "+$Tax+" %"; mes "Enter your New Tax Rate."; input $Tax,1,20; mes "^FF0000Updated Tax : "+$Tax+" %"; close; } OnInit: monster "mosk_que",0,0,"Gold",1002,100,strnpcinfo(0)+"::OnMobKill"; end; OnMobKill: monster "mosk_que",0,0,"Gold",1002,1,strnpcinfo(0)+"::OnMobKill"; set $Earn,$Earn + ( 100000 * $Tax / 100 ); set #GoldPoint,#GoldPoint + 1; dispbottom "Total Gold Point = "+#GoldPoint+" Points."; end; } mosk_que mapflag nowarp mosk_que mapflag nowarpto mosk_que mapflag noSave mosk_que mapflag noteleport //mosk_que mapflag nocommand 50
thnx for the help~
Link to comment
Share on other sites
0 answers 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.