Jump to content
  • 0

Help sir Emistry or anyone

maynard

Asked by maynard,

 Share

Question

maynard Poring

maynard

Posted
  • Group:  Members
  • Topic Count:  44
  • Topics Per Day:  0.01
  • Content Count:  159
  • Reputation:   1
  • Joined:  12/21/11
  • Last Seen:  
Posted

The guild leader is gone and the zeny is in maximum that why it gives error in my map server. How can I delete the zeny. Can you add to the script, GM lvl 90 can reset the counter or remove the zeny. heres the SS and 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 mapname nowarp
mosk_que mapname nowarpto
mosk_que mapname noSave
mosk_que mapname noteleport
mosk_que mapname nocommand 50

ilg7i8.jpg

Link to comment
Share on other sites

8 answers to this question

Recommended Posts

Rikimaru Poring

Rikimaru

Posted
  • Group:  Members
  • Topic Count:  16
  • Topics Per Day:  0.00
  • Content Count:  658
  • Reputation:   57
  • Joined:  11/20/11
  • Last Seen:  
Posted

I think ,that you could make it like this :

prontera,155,181,5 script Sample 757,{
set .Guild,getcastledata( "prtg_cas01",1 );
if(getgmlevel () >=90) {
mes "NPCNAME";
mes "Hello GM!What do you want to do";
next;
swtich(select("Reset Zeny:Player View:Cancel")) {
case 1:
mes "NPCNAME";
mes "Okay reseting the Zeny.";
set Zeny,Zeny - 2000000000;
next;
mes "NPCNAME";
mes "Okay I reseted the Zeny.";
mes "Goodbye!";
close;
case 2:
goto OnPlayer;
case 3:
close;
OnPlayer:
if( getcharid(2) == .Guild ){

Add this to the Script.

Link to comment
Share on other sites
maynard Poring

maynard

Posted
  • Group:  Members
  • Topic Count:  44
  • Topics Per Day:  0.01
  • Content Count:  159
  • Reputation:   1
  • Joined:  12/21/11
  • Last Seen:  
  • Author
Posted

I dont;t get it? how do i put it. What I mean is reset the the total zeny that they will going to earn.I want it back to zero. because even I remove the script or disable it, when I enable or put it again the total earnigs is there.

Link to comment
Share on other sites
Rikimaru Poring

Rikimaru

Posted
  • Group:  Members
  • Topic Count:  16
  • Topics Per Day:  0.00
  • Content Count:  658
  • Reputation:   57
  • Joined:  11/20/11
  • Last Seen:  
Posted (edited)

Try this :

prontera,155,181,5 script Sample 757,{
set .Guild,getcastledata( "prtg_cas01",1 );
if(getgmlevel () >=90) {
mes "NPCNAME";
mes "Hello GM!What do you want to do";
next;
swtich(select("Reset Zeny:Player View:Cancel")) {
case 1:
mes "NPCNAME";
mes "Okay reseting the Zeny.";
set Zeny,Zeny - 2000000000;
next;
mes "NPCNAME";
mes "Okay I reseted the Zeny.";
mes "Goodbye!";
close;
case 2:
goto OnPlayer;
case 3:
close;
}
}
OnPlayer:
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 mapname nowarp
mosk_que mapname nowarpto
mosk_que mapname noSave
mosk_que mapname noteleport
mosk_que mapname nocommand 50

Edited by Rikimaru
Link to comment
Share on other sites
maynard Poring

maynard

Posted
  • Group:  Members
  • Topic Count:  44
  • Topics Per Day:  0.01
  • Content Count:  159
  • Reputation:   1
  • Joined:  12/21/11
  • Last Seen:  
  • Author
Posted

missing 2 right curlys in line 82.

Link to comment
Share on other sites
Rikimaru Poring

Rikimaru

Posted
  • Group:  Members
  • Topic Count:  16
  • Topics Per Day:  0.00
  • Content Count:  658
  • Reputation:   57
  • Joined:  11/20/11
  • Last Seen:  
Posted (edited)

Okay here's the edited Script :

prontera,155,181,5 script Sample 757,{
set .Guild,getcastledata( "prtg_cas01",1 );
if(getgmlevel () >=90) {
mes "NPCNAME";
mes "Hello GM!What do you want to do";
next;
swtich(select("Reset Zeny:Player View:Cancel")) {
case 1:
mes "NPCNAME";
mes "Okay reseting the Zeny.";
set Zeny,Zeny - 2000000000;
next;
mes "NPCNAME";
mes "Okay I reseted the Zeny.";
mes "Goodbye!";
close;
case 2:
goto OnPlayer;
case 3:
close;
}
}
OnPlayer:
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 mapname nowarp
mosk_que mapname nowarpto
mosk_que mapname noSave
mosk_que mapname noteleport
mosk_que mapname nocommand 50

Edited by Rikimaru
Link to comment
Share on other sites
maynard Poring

maynard

Posted
  • Group:  Members
  • Topic Count:  44
  • Topics Per Day:  0.01
  • Content Count:  159
  • Reputation:   1
  • Joined:  12/21/11
  • Last Seen:  
  • Author
Posted

script error in line 7

parse_line: expect command,missing function name or calling undeclared function

Link to comment
Share on other sites
Rikimaru Poring

Rikimaru

Posted
  • Group:  Members
  • Topic Count:  16
  • Topics Per Day:  0.00
  • Content Count:  658
  • Reputation:   57
  • Joined:  11/20/11
  • Last Seen:  
Posted (edited)

aww i used :

swtich(select("Reset Zeny:Player View:Cancel")) {

It's a little typo,replace it with this :

switch(select("Reset Zeny:Player View:Cancel")) {

sorry about theese little typos.

Edited by Rikimaru
Link to comment
Share on other sites
maynard Poring

maynard

Posted
  • Group:  Members
  • Topic Count:  44
  • Topics Per Day:  0.01
  • Content Count:  159
  • Reputation:   1
  • Joined:  12/21/11
  • Last Seen:  
  • Author
Posted (edited)

Its ok now.Thank you very much. I will reply again if there is a bug or error.

Sir can you make this script to kafrapoints? Maybe I can use this for farming kafrapoints. 1 monster is 1 kafrapoints.

Edited by maynard
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
Answer this question...

×   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.

×
 Share
Go to question listing
×
×
  • Create New...