Stolao's Pvp Ladder [v3.1A]

[Stolao]

< Stolao's Pvp Ladder>

 

Features:

• A Dynamic Pvp Ladder

Todo:

• Suggestions?
• Optimize?

Changelog:
 

3.00 Overhaul
3.01 Fixed missing "No" for "No Ygg"
3.02 Added Show Map Name Option
3.03 Added Max Players Option
3.04 Optimized and fixed SQL queries [Secret]
3.05 Replaced some queries with addrid(0)
3.06 Updated Rewards to RODEX compatable
3.07 Fixed all rom referancing room [0] player limit
3.08 Made Made .MaxPlayers = 0, mean unlimited
3.09 Removed use of getd
3.0A Cleaned up some code
3.0B Moved Menu Generation to fix Map Count not showing
3.0C Actually Added RoDex Support now
3.0D Fixed Map Menu Generation
3.0E Fixed sql query
3.0F Cleaned Code a bit
3.10 Did more Cleaned Code a bit
3.11 Fixed a logic bug in GM reset
3.12 Added Waiting Room
3.13 Added Dynamic Waiting Room
3.14 Moved and added more At_Commands
3.15 Dynamic Waiting Room (&4096) require Waiting Room (&2048) to work
3.16 Increased Waiting Room Rotation Time
3.17 Fixed Typos in Reset PVP Stats
3.18 Removed unnessisary next, creating hang screens
3.19 Made compatable with new mail command
3.1A Reformatted Rewards in conf to support 5 items

 

Links:

 

• Latest Pvp Ladder

Edited April 14, 2018 by Stolao

[Stolao]

Hmm 361 Downloads not one comment

[garcim]

Thanks  

[Stolao]

Thanks

Most welcome. Tell me anything to edit/ add

[Stolao]

Update

1.00 -> 1.0B

[Jenny]

Thanks for this post! but i need help.Seems that if i change the "set .Map$,"prontera";" to "set .Map$,"pvp_y_1-2";" which is the pvp map on my server and try to kill someone in the pvp room and check pvp ladder the point doesn't count please help mee i am kinda neww to this

 

thanks in advance

[Stolao]

Thanks for this post! but i need help.Seems that if i change the "set .Map$,"prontera";" to "set .Map$,"pvp_y_1-2";" which is the pvp map on my server and try to kill someone in the pvp room and check pvp ladder the point doesn't count please help mee i am kinda neww to this

 

thanks in advance

post your config section of the script

[iZeal]

which version is latest 1.00 or 1.0b? 

[Stolao]

which version is latest 1.00 or 1.0b? 

1.0B

[iZeal]

Thank you Mr. Stolao

[Stolao]

Thank you Mr. Stolao

NpNp

[jawbreaker]

how to set if award is cashpoints? 

[Stolao]

set .Pointtype$,

Located in the config at bottom of script

[jawbreaker]

no announce, no ladder, no points. actually nothing pls help master

//===== EinherjarRO Scripts ================================== 

//= Pvp Ladder

//===== By: ================================================== 

//= Stolao

//===== Current Version: ===================================== 

//= 1.0B

//===== Compatible With: ===================================== 

//= rAthena SVN

//===== Description: =========================================

// Configurable Pvp Ladder

//===== Comments: ============================================

//= [stolao]

//= Needs bug testing, please report any bugs

//= Unable to test thurally on my comp atm

//===== Additional Comments: =================================

//= 1.00 Initial Release

//= 1.01 Added Location with veiwing of ladder

//= 1.02 Added GM Menu

//= 1.03 Added atcommand

//= 1.04 Shortend menu script

//= 1.05 Added PvpPoints into confug and script

//= 1.06 Added Abuse Protection

//= 1.07 Made Pvp Points Configurable

//= 1.08 Fixed typo in Reset Option

//= 1.09 Made Amount of pvp points earned configurable

//= 1.0A Ajusted Spacing for easier reading

//= 1.0B Added Warp to savepoint on abuse into config

//===== Contact Ifo: =========================================

//= [stolao] 

//= Email: [email protected]

//============================================================

prontera,146,100,0 script Pvp_Ladder 837,{

mes "~Sign Reads~";

OnPvpLadder:

mes "Top 10 PVP Ladder";

mes "PVP Prontera only";

mes "Max 5 kills on same person";

mes "Reward: 2 Cash Points each kill";

mes "Disabled during WOE";

 

if(getgmlevel() >= .GM){ set .@i,select("Veiw PVP Records:Leave:Reset PVP Stats");

} else {  set .@i,select("Veiw PVP Records:Leave"); }

switch(.@i){

case 3:

mes "Are you sure you want to delete ALL pvp records?";

if(select("No:Yes")==1) close;

next;

mes "Wait one Moment...";

mes ".....";

cleararray $TOPPK$[0],0,127;

cleararray $TOPPK[0],0,127;

query_sql("DELETE FROM `global_reg_value` WHERE `str` = 'PKCOUNT'");

set .@self, getcharid(3);

set .@size, query_sql("select account_id from `char` where online = 1", .@aid);

for(set .@i,0; .@i<.@size; set .@i,.@i+1) {

if(attachrid(.@aid[.@i])){

set PKCOUNT,0;

}

}

attachrid(.@self);

mes "Cleared pvp data.";

close;

case 1:

for(set .@i,0; .@i < getarraysize($TOPPK$); set .@i,.@i+1){

mes (.@i+1)+": "+ $TOPPK$[.@i] +" with "+ $TOPPK[.@i] +" kills";

if(.@i % 10 == 0){

if(select("Read More:Leave") == 1){ next; } else { close; }

}

}

case 2: close;

}

close;

OnPCKillEvent:

if(.Options&2 && (agitcheck() || agitcheck2())){

if(getgmlevel() < .GmLvl || .Options&8){

if(.Options&1 || strcharinfo(3) == .Map$){

if(.Options&32){

for(set .@i,.RepeatCount; .@i > 0; set .@i, .@i-1){

set @PKedID[.@i+1], @PKedID[.@i];

}

set @PKedID,killedrid;

}

for(set .@i,1; .@i < .RepeatCount; set .@i,.@i + 1){

if(@PKedID[0] == @PKedID[.@i]){ set .@s, .@s + 1;

} else { set .@i, .RepeatCount + 1; }

}

if(.@s < .RepeatCount){

set PkCount,PkCount+1;

if(.Options&16) setd getd(.PointType$),getd(.PointType$) + .PvpEarned;

for(set .@i,0; .@i < .MaxPlayers; set .@i, .@i + 1){

if(PKCOUNT > $TOPPK[.@i]){

if($TOPPK$[.@i] != strcharinfo(0)){

setarray $TOPPK$[.@i + 1], $TOPPK$[.@i];

setarray $TOPPK[.@i + 1], $TOPPK[.@i];

}

setarray $TOPPK$[.@i],strcharinfo(0);

setarray $TOPPK[.@i],PKCOUNT;

if(.Options&4) Announce ""+strcharinfo(0)+" Now Holds the The number "+.@i+" spot on the Pvp Ladder",bc_all;

}

sleep 1;

}

} else { if(.Options&64) warp "Save",0,0; }

}

}

}

end;

OnInit:

set .GM,99;

set .MaxPlayers,10; // Number of Players held in Records

set .GmLvl,1; // Highest GM level Able to Hold a Record, if Option 8 is Disabled

set .Map$,"pvp_y_8-1"; // Map Pvp Must Take Place on in order to Count, if Option 1 is Disabled

set .RepeatCount,5; // Number of kills on same person before it detects abuse, max of 128

set .PointType$,"#CASHPOINTS"; // Name of points earned, E.G. #Cash Points

set .PvpEarned,2; // Number of Pvp Points Earned

set .Options,119; // Bitwise Variable

//   1:  Only Counts Kills on .Map$ if Disabled

//   2:  Disables Record Holding during WOE

//   4:  Announce When Someone Takes a Rank

//   8:  Allow Gms Above level .GmLvl To Be on Ladder

//   16: Gain PvP Points on Kills (#PvpPoints)

//   32: Repeat Kill Protection

//   64: Warp to Save on abuse

// Example: "1+2+4 = 7" No Forced Map, Disables Record Holding during WOE and Announces New Record Holders

bindatcmd("PvpLadder" ,"Pvp_Ladder::OnPvpLadder",0,99);

end;

}

[Stolao]

no announce, no ladder, no points. actually nothing pls help master

 

if there is no sign at prontera,138,172 and no debug messages in the startup then you didn't install it properly,

 

if you do see the sign what rev are you using are there no debug mes? and whats your config look like.

[alcapone]

Thanks

[Stolao]

Thanks

Your Welcome, let me know how tings go.

[sneakz]

Is it possible to make this record WOE kills only? Cause my players are abusing PvP kills for the top 1 spot. I decided to get WOE kills only.

Edited September 12, 2014 by sneakz

[Titan]

does this script broadcast everytime a spot was taken or a player advances his ranking?

[Stolao]

does this script broadcast everytime a spot was taken or a player advances his ranking?

if you config it to it will

[Titan]

 

does this script broadcast everytime a spot was taken or a player advances his ranking?

if you config it to it will

 

 

ok i see it now

 

 

 

//   4:  Announce When Someone Takes a Rank

[Stolao]

 

 

does this script broadcast everytime a spot was taken or a player advances his ranking?

if you config it to it will

 

 

ok i see it now

 

 

 

//   4:  Announce When Someone Takes a Rank

 

let me know if everything runs ok, seeing as it has over 500 dls and no comments im assuming it does

[Stolao]

Update 1.0B -> 2.00

2.00 Fixed bugs on ranking modification and bitwise permissions [Happy]

Thanks Happy

[Drakkus]

Update 1.0B -> 2.00

2.00 Fixed bugs on ranking modification and bitwise permissions [Happy]

Thanks Happy

Thanks!

 

i was wondering if when will you release that Crafting System of yours? i've been waiting for that i hope it's interesting like some MMORPG online there.

THANK YOU!

[Stolao]

 

Update 1.0B -> 2.00

2.00 Fixed bugs on ranking modification and bitwise permissions [Happy]

Thanks Happy

Thanks!

 

i was wondering if when will you release that Crafting System of yours? i've been waiting for that i hope it's interesting like some MMORPG online there.

THANK YOU!

 

I took a short break from my release projects to start on my own server, ill be updating ym public releases shortly after my launch on the 1st. The crafting system is quite a large modification with sorce as well.