Jump to content
  • 0

HELP! My PVP Ladder broken


mjonrest

Question


  • Group:  Members
  • Topic Count:  11
  • Topics Per Day:  0.00
  • Content Count:  20
  • Reputation:   0
  • Joined:  08/16/13
  • Last Seen:  

I try to mix annieruru pvp script (dota sound) and terces pvp script (pvp ladder) , its seems ok when i look at putty it said no errors, but when i try it in game, its comes with error, when player kill player, the announce start with "Beyond Godlike" instead of "killing spree". and i try to fix it myself, still got that error unsolved

 

here is my script code

//===== eAthena Script =======================================
//= eAthena PVP-Ladder
//===== By: ==================================================
//= Terces
//===== Current Version: =====================================
//= 1.7.2
//===== Compatible With: =====================================
//= Any Athena Version that has "for" implemented
//===== Credits: =============================================
//= The whole eAthena Board and the eAthena Chat
//===== Notes: ===============================================
//= Note 1:
//= Experience gain works like this formula:
//= ($@LadderLength-(<new position>-1))*$@LadderExp
//= so if someone gets the first place he'll get
//= $@LadderLength*$@LadderExp experience points.
//============================================================
//= Fixxed by Dante
//= V1.7.2
//= Hosted by Dant3 aka Dante
// HAFE FUN! READ THE TOPIC! IT DONT WORKS MAYBE ON OLDER REV
//
//
//  LAST UPDATE: 12th,February.2008
//
// Main Script - Terces (Main Thanks to Terces )
// V1.7.0 - Dant3
// v1.7.1 - AnnieRuRu
// v1.7.2 - Dant3
 
// THIS SCRIPT WORKS ONLY ON THE NEW EATHENA REVISIONS! ENJOY!


-	script	PVPLADDEROPTIONS	-1,{
end;
OnInit:
// 0 = Disabled (NO)
// 1 = Enable   (YES)
set $@languageselect, 0;    //Enable/Disable language selection [English/German] (Default: 1)
set $@LadderAnnounce, 1;    //Enable/Disable the announcement when a char reaches a new position in the ladder (Default: 1)
 
set $@LadderLength, 30;        //Set the length of the Ladder [!Not higher than 128!] (Default: 30)
set $@LadderSteps, 10;        //Set the views per page (Default: 10)
 
set $@LadderExpGain, 0;        //Enable/Disable experience gain when reaching a new position in the ladder (*Note1)
set $@LadderExp, 0;        //Set Experience gain value (*Note1)
 
// Update v1.7.0
set $@LadderZenyGain, 0;    //Enable/Disable zeny gain when reaching a new position in the ladder
set $@LadderZeny, 0;        //Set Zeny gain value 
set $@LadderChatRoom, 1;    //Enable/Disable an Chat Room over the NPC with the message "PvP Ladder" (Users can not enter the Chat room) 
}
-	script	DOTAPVP	-1,{
// Update v1.7.1 (Thanks to AnnieRuRu)
// Added GM PvP Ladder Reset Function
 
// Update v1.7.2
// Thanks to for the Feedback
set $@LadderAskLogin, 1;    //Enable/Disable that the NPC asks about the Broadcast when a Player logins / or  with the Npc Chat (0 = Login Ask , 1 = Npc Chat) Related: 0
set .sound, 1; // soundeffect : 0 - disable, 1 - play soundeffect to all players on map, 2 - play soundeffect to an area around the killer, 3 - play soundeffect to killer only
set .ownage, 2; // ownage announcement : 0 - disable, 1 - party owns, 2 - guild owns
set .announce, 1; // make announce to : 0 - global, 1 - map
set .announcemap, 1; // announce the map name in the announcement ? : 0 - off, 1 - on
set .announcekill, 1; // announce who pawn who's head : 0 - off, 1- on
set .msg_die, 1; // show message who kill you when die : 0 - off, 1- on
set .msg_kill, 0; // show message you kill who when killed someone : 0 - off, 1- on
set .gmnokill, 0; // GMs are not suppose to kill players. A GM with <this number> level or higher will do nothing. IF set to 60, GM60 and above kill any player will not get anything : 0 - off
set .killingspree, 3;
set .dominating, 4;
set .megakill, 5;
set .unstoppable, 6;
set .wickedsick, 7;
set .monsterkill, 8;
set .godlike, 9;
set .holyshit, 10;
set .continue, 1; // after beyond-godlike, every <this number> kills will make announcement again
set .owned, 5; // how many times the party/guild has to kill to announce ownage
set .owncontinue, 1; // after ownage, every <this number> party/guild cumulative kills will make ownage announce again
//setarray .maptrigger$, // only these maps will trigger this script
//	"all", // comment this line to only trigger this script on these listed maps
//	"guild_vs1",
//	"guild_vs2",
//	"guild_vs3",
//	"guild_vs4",
//	"guild_vs5";
// anti-sit-killer system
// a player must kill another player with this minimum <this number> level to get the announcement and in the ladder.
// Otherwise only have streak ended announcement and killed player's streak reset.
// Its possible for a level 1 novice to kill a level 55 player and he/she will still get in the ladder
// but a level 55 kill a level 1 player will get nothing
// 0 - off this system ( default is 55, pk setting )
set .lvltokill, 0;
// when a player kill another same player <this number> times in a row, the player is warp back to save point.
// and the player's streak and ownage count will deduct accordingly
// 0 - off this system
set .counttopunish, 6;
// minimum level range to kill another player
// eg. when set to 20, player level 99 needs to kill another player with minimum level of 79 to get announcement and increase the kill rank.
// but a player with base level 50 kills a level 99 will also get the announcement
// higher base level cannot kill lower level, but lower level can kill higher level
// 0 - off this system
set .minlvlrange, 0;
// Config ends ------------------------------------------------------------------------------------------
//	to prevent bug happen
if ( .ownage < 0 || .ownage > 2 ) set .ownage, 0;
if ( .announce < 0 || .announce > 1 ) set .announce,0;
if ( .continue < 1 ) set .continue, 1;
if ( .owncontinue < 1 ) set .owncontinue, 1;
if ( .gmnokill <= 0 ) set .gmnokill, 100;
if ( .lvltokill <= 1 ) set .lvltokill, 0;
if ( .counttopunish <= 1 ) set .counttopunish, 0;
//set .maptriggersize, getarraysize(.maptrigger$);
end;
}
 
-	script	PVPLADDERS	-1,{
OnPCKillEvent:
//if (killerrid != getcharid(3)){
//        announce strcharinfo(0)+" killed "+rid2name(killedrid),0;
//    }
if (terces_PVP_resets != $terces_PVP_resets) {
    dispbottom "Please relog your character, in order to get the correct kills for you in the PVP ladder.";
    dispbottom "Because a GM just reset the ladder.";
    end;
}

if ( killedrid == getcharid(3) ) {
    set PVPDeaths, PVPDeaths +1;
    set #PVPDeathsAccount, #PVPDeathsAccount +1;
    set @PVPDeathstoday, @PVPDeathstoday +1;
    end;
}

set $@PVPcounter,$@PVPcounter+1;
set getd("$@PVPKill"+$@PVPcounter),getcharid(3);    //getd to avoid errors when more than 1 people kill someone
attachrid(killedrid);
set PVPDeaths,PVPDeaths+1;
set @PVPDeathstoday,@PVPDeathstoday+1;
set #PVPDeathsAccount,#PVPDeathsAccount+1;
set getd("$@PVPkilledplayer"+$@PVPcounter+"$"), strcharinfo(0);    //again, getd to avoid possible glitches
detachrid;
 
attachrid(getd("$@PVPKill"+$@PVPcounter));
CountKills:
    set PVPKills,PVPKills+1;
    set @PVPKillstoday,@PVPKillstoday+1;
    set #PVPKillsAccount,#PVPKillsAccount+1;
    setarray @playerstats[0],@PVPKillstoday,@PVPDeathstoday,PVPKills,PVPDeaths,#PVPKillsAccount,#PVPDeathsAccount;

attachrid killedrid;
	if ( killerrid != getcharid(3) && ( .msg_die || .msg_kill ) ) {
		if ( .msg_die ) message strcharinfo(0),"You have been killed by "+ rid2name(killerrid);
		if ( .msg_kill ) message rid2name(killerrid),"You just killed "+ strcharinfo(0);
	}
if ( @PlayersKilledStreak >= .holyshit )
	set .@streakname$,"Beyond Godlike";
	else if ( @PlayersKilledStreak >= .godlike )
		set .@streakname$,"Godlike";
	else if ( @PlayersKilledStreak >= .monsterkill )
		set .@streakname$,"Monster Kill";
	else if ( @PlayersKilledStreak >= .wickedsick )
		set .@streakname$,"Wicked Sick";
	else if ( @PlayersKilledStreak >= .unstoppable )
		set .@streakname$,"Unstoppable";
	else if ( @PlayersKilledStreak >= .megakill )
		set .@streakname$,"Mega-kill";
	else if ( @PlayersKilledStreak >= .dominating )
		set .@streakname$,"Dominating";
	else if ( @PlayersKilledStreak >= .killingspree )
		set .@streakname$,"Killing Spree";
if ( @PlayersKilledStreak >= .killingspree && killerrid == getcharid(3) )
	announce strcharinfo(0) +" has ended "+( (sex)?"him":"her" )+" own "+ .@streakname$ +"["+ @PlayersKilledStreak +"] streak "+( (.announcemap)?("at "+ .@map$):""),16|.announce;
else if ( @PlayersKilledStreak >= .killingspree )
	announce rid2name(killerrid) +" has ended "+ strcharinfo(0) +"'s "+ .@streakname$ +"["+ @PlayersKilledStreak +"] streak "+( (.announcemap)?("at "+ .@map$):""),16|.announce;
else if ( .announcekill && killerrid != getcharid(3) )
	announce rid2name(killerrid) +" has pawned "+ strcharinfo(0) +"'s head "+( (.announcemap)?("at "+ .@map$):""),16|.announce;
set @PlayersKilledStreak,0;
set @dota_multikills,0;
if ( .ownage && getcharid(.ownage) ) {
	setd ".dotaown_"+ getcharid(.ownage), 0;
	set .@killedgroup, getcharid(.ownage);
}
set @PlayersKilledStreak, @PlayersKilledStreak + 1;
set PlayersKilled, PlayersKilled + 1;
	if ( @PlayersKilledStreak == .killingspree )
		setarray .@streakname$,"killingspree.wav","is on a KILLING SPREE","!";
	else if ( @PlayersKilledStreak == .dominating )
		setarray .@streakname$,"dominating.wav","is DOMINATING","!";
	else if ( @PlayersKilledStreak == .megakill )
		setarray .@streakname$,"megakill.wav","has a MEGA KILL","!";
	else if ( @PlayersKilledStreak == .unstoppable )
		setarray .@streakname$,"unstoppable.wav","is UNSTOPPABLE","!!";
	else if ( @PlayersKilledStreak == .wickedsick )
		setarray .@streakname$,"wickedsick.wav","is WICKED SICK","!!";
	else if ( @PlayersKilledStreak == .monsterkill )
		setarray .@streakname$,"monsterkill.wav","has a MONSTER KILL","!!";
	else if ( @PlayersKilledStreak == .godlike )
		setarray .@streakname$,"godlike.wav","is GODLIKE","!!!";
	else if ( @PlayersKilledStreak >= .holyshit && ( (@PlayersKilledStreak - .holyshit) % .continue == 0 ) )
		setarray .@streakname$,"holyshit.wav","is BEYOND GODLIKE",". Someone KILL "+( (sex)?"HIM":"HER" ) +"!!!!!!";
if ( .@streakname$[1] != "" ) {
	announce strcharinfo(0) +" "+ .@streakname$[1] +"["+ @PlayersKilledStreak +"] "+( (.announcemap)?("at "+ .@map$):"") + .@streakname$[2],16|.announce;
	if ( .sound == 1 ) soundeffectall .@streakname$[0],0,.@map$;
	else if ( .sound == 2 ) soundeffectall .@streakname$[0],0;
	else if ( .sound == 3 ) soundeffect .@streakname$[0],0;
}
set @dota_multikills, @dota_multikills + 1;
deltimer "DOTAPVP::OnStreakReset";
addtimer 18000,"DOTAPVP::OnStreakReset";
if ( .ownage ) {
	set .@sideid, getcharid(.ownage);
	if ( .@sideid != .@killedgroup ) setd ".dotaown_"+ .@sideid, getd(".dotaown_"+ .@sideid ) + 1;
}
set .@dota_multikills, @dota_multikills;
set .@origin, getcharid(3);
sleep 1500;
if ( .@sideid && .ownage && .@sideid != .@killedgroup && getd(".dotaown_"+ .@sideid) >= .owned && ( ( getd(".dotaown_"+ .@sideid) - .owned ) % .owncontinue == 0 ) ) {
	if ( .announce ) mapannounce .@map$, "The "+( (.ownage == 1)?"party":"guild" )+" ["+( (.ownage == 1)?getpartyname(.@sideid):getguildname(.@sideid) )+"] is OWNING["+ getd(".dotaown_"+ .@sideid) +"] !!!",16;
	else announce "The "+( (.ownage == 1)?"party":"guild" )+" ["+( (.ownage == 1)?getpartyname(.@sideid):getguildname(.@sideid) )+"] is OWNING["+ getd(".dotaown_"+ .@sideid) +"] !!!",16;
	if ( .sound == 1 ) soundeffectall "ownage.wav",0,.@map$;
	else if ( .sound == 2 ) soundeffectall "ownage.wav",0;
	else if ( .sound == 3 && attachrid(.@origin) ) soundeffect "ownage.wav",0;
}
sleep 1250;
if ( !attachrid(.@origin) ) end;
if ( .@dota_multikills == 2 ) {
	if ( .announce ) mapannounce .@map$, strcharinfo(0) +" just got a Double Kill !",16;
	else announce strcharinfo(0) +" just got a Double Kill !",16;
	if ( .sound == 1 ) soundeffectall "doublekill.wav",0,.@map$;
	else if ( .sound == 2 ) soundeffectall "doublekill.wav",0;
	else if ( .sound == 3 ) soundeffect "doublekill.wav",0;
}
else if ( .@dota_multikills == 3 ) {
	if ( .announce ) mapannounce .@map$, strcharinfo(0) +" just got a Triple Kill !!!",16;
	else announce strcharinfo(0) +" just got a Triple Kill !!!",16;
	if ( .sound == 1 ) soundeffectall "triplekill.wav",0,.@map$;
	else if ( .sound == 2 ) soundeffectall "triplekill.wav",0;
	else if ( .sound == 3 ) soundeffect "triplekill.wav",0;
}
else if ( .@dota_multikills == 4 ) {
	if ( .announce ) mapannounce .@map$, strcharinfo(0) +" just got a Ultra Kill !!!",16;
	else announce strcharinfo(0) +" just got a Ultra Kill !!!",16;
	if ( .sound == 1 ) soundeffectall "ultrakill.wav",0,.@map$;
	else if ( .sound == 2 ) soundeffectall "ultrakill.wav",0;
	else if ( .sound == 3 ) soundeffect "ultrakill.wav",0;
}
else if ( .@dota_multikills >= 5 ) {
	if ( .announce ) mapannounce .@map$, strcharinfo(0) +" is on a Rampage !!!",16;
	else announce strcharinfo(0) +" is on a Rampage !!!",16;
	if ( .sound == 1 ) soundeffectall "rampage.wav",0,.@map$;
	else if ( .sound == 2 ) soundeffectall "rampage.wav",0;
	else if ( .sound == 3 ) soundeffect "rampage.wav",0;
}
end;
OnWhisperGlobal:
dispbottom "Your current Streak : "+ @PlayersKilledStreak;
dispbottom "Your total Kills		  : "+ PlayersKilled;
if ( .ownage && getcharid(.ownage) )
	dispbottom "Your "+( (.ownage ==1)?"party":"guild" )+" Own		: "+ getd(".dotaown_"+ getcharid(.ownage) );
end;
OnStreakReset:
set @dota_multikills, 0;
end;

l_ladder:
    set @considerdeath,0;
    for (set @PosinLadder, 0; @PosinLadder < $@LadderLength; set @PosinLadder, @PosinLadder + 1){
        if (PVPKills >= $terces_PVP_kills[@PosinLadder]){    //Player deserves to be in the ladder
            //Check if Death plays a role on the position
            if ((PVPKills == $terces_PVP_kills[@PosinLadder]) && (PVPDeaths > $terces_PVP_deaths[@PosinLadder])) set @considerdeath,1; //Consider Deaths
            //Check if the player only topped his own scores
            if ($terces_PVP_names$[@PosinLadder] == strcharinfo(0)){
                set $terces_PVP_kills[@PosinLadder],PVPKills;
                set $terces_PVP_deaths[@PosinLadder],PVPDeaths;
                end;
            }
            //Moves all characters in the Ladder
            for (set @beginmoving, $@LadderLength; @beginmoving >= (@PosinLadder+@considerdeath); set @beginmoving, @beginmoving - 1){
                if ($terces_PVP_names$[@beginmoving] == strcharinfo(0)){
                    //If the player already is in the Ladder it only has to move players between characters new position and characters old position
                    callsub L_LadderMove,0;
                    end;
                }
                else if (@beginmoving == (@PosinLadder+@considerdeath)){
                    //Player is not in the Ladder and therefor it has to move all players from characters new position downwards
                    callsub L_LadderMove,1;
                    end;
                }
            }
            end;
        }
    }
 
 
L_LadderMove:
    if (getarg(0) == 0) set @length,@beginmoving;
    if (getarg(0) == 1) set @length,$@LadderLength;
    for (set @movecycle, @length; @movecycle > (@PosinLadder+@considerdeath);
     set @movecycle, @movecycle - 1){
 
        set $terces_PVP_names$[@movecycle],$terces_PVP_names$[(@movecycle-1)];
        set $terces_PVP_kills[@movecycle],$terces_PVP_kills[(@movecycle-1)];
        set $terces_PVP_deaths[@movecycle],$terces_PVP_deaths[(@movecycle-1)];
        set $terces_PVP_times[@movecycle],$terces_PVP_times[(@movecycle-1)];
    }
    //sets the character's stats in the new position
    set $terces_PVP_names$[(@PosinLadder+@considerdeath)],strcharinfo(0);
    set $terces_PVP_kills[(@PosinLadder+@considerdeath)],PVPKills;
    set $terces_PVP_deaths[(@PosinLadder+@considerdeath)],PVPDeaths;
    set $terces_PVP_times[(@PosinLadder+@considerdeath)],gettimetick(2);
    //Experience Gain
    if ($@LadderExpGain == 1){
        set BaseExp,BaseExp+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp);
        dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp)+" base experience points";
    }
    //Zeny Gain
    if ($@LadderZenyGain == 1){
        set Zeny,Zeny+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny);
        dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny)+" Zeny";
    }
    //Announcement (Setting for Char)
    if (pvpbroadcast == 2){
    announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16;
    }
    //Announcement (Setting for Account)
    if (#pvpbroadcast == 2){
    announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16;
    }
    end;
 
OnPCLoginEvent:
if (terces_PVP_resets != $terces_PVP_resets){
        set PVPDeaths,0;
        set @PVPDeathstoday,0;
        set #PVPDeathsAccount,0;
        set PVPKills,0;
        set @PVPKillstoday,0;
        set #PVPKillsAccount,0;
        set terces_PVP_resets,$terces_PVP_resets;
    }
if ($@LadderAskLogin == 0){
    if (#pvpbroadcast == 2) goto L_ignore;
    if (pvpbroadcast == 2) goto L_ignore;
    if (#pvpbroadcast == 1) goto L_ignore;
    if (pvpbroadcast == 1) goto L_ignore;
 
    if (pvpbroadcast == 0)
    mes "Hi, "+strcharinfo(0)+"";
    mes "Me is the PvP Top Management!";
    mes "Let me ask you one Question and i will let you play!";
    menu "Later please",L_close,"Okay, fine",L_fine;
 
    L_fine:
    next;
    mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?";
    menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast;
 
    L_accept:
    next;
    mes "Yay, thank you! ^_^";
    mes "Will this Setting work on all your Chars on this account or only this char?";
    menu "Account",L_account,"Only this char",L_char;
 
    L_account:
    set #pvpbroadcast,2;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    close;
 
    L_char:
    set pvpbroadcast,2;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    goto access_eng;
    close;
    
    L_accept_2:
    next;
    mes "Yay, thank you! ^_^";
    mes "Will this Setting work on all your Chars on this account or only this char?";
    menu "Account",L_account_2,"Only this char",L_char_2;
 
    L_close:
    close;
 
    L_account_2:
    set #pvpbroadcast,1;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    close;
 
    L_char_2:
    set pvpbroadcast,1;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    goto access_eng;
    close;
 
 
    L_broadcast:
    mes "Broadcasts are this yellow messages from  the GMs";
    goto L_fine;
    }
}
 
prontera,148,189,6	script	Loki	65,{
if ($@LadderChatRoom == 1) {
        waitingroom "Top "+$@LadderLength+" Players!",0;   // Look on the configuration!
}
    set @name$,"[PvP-Ladder]";
    //Colour of:            Position    Name        Kills        Deaths        Time
    setarray @colour$[0],    "^996600",    "^006699",    "^00AA00",    "^FF0000",    "^EE8800";
if ($@LadderAskLogin == 1){
    if (#pvpbroadcast == 2) goto     access_eng;
    if (pvpbroadcast == 2) goto     access_eng;
    if (#pvpbroadcast == 1) goto     access_eng;
    if (pvpbroadcast == 1) goto     access_eng;
    if (pvpbroadcast == 0)
    mes "Hi, "+strcharinfo(0)+"";
    mes "Me is the PvP Top Management!";
    mes "Let me ask you one Question and i will let you play!";
    menu "Later please",L_close,"Okay, fine",L_fine;
 
    L_fine:
    next;
    mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?";
    menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast;
 
    L_accept:
    next;
    mes "Yay, thank you! ^_^";
    mes "Will this Setting work on all your Chars on this account or only this char?";
    menu "Account",L_account,"Only this char",L_char;
 
    L_account:
    set #pvpbroadcast,2;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    close;
 
    L_char:
    set pvpbroadcast,2;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    goto access_eng;
    close;
    
    L_accept_2:
    next;
    mes "Yay, thank you! ^_^";
    mes "Will this Setting work on all your Chars on this account or only this char?";
    menu "Account",L_account_2,"Only this char",L_char_2;
 
    L_close:
    close;
 
    L_account_2:
    set #pvpbroadcast,1;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    close;
 
    L_char_2:
    set pvpbroadcast,1;
    next;
    mes "Okay, "+strcharinfo(0)+"";
    mes "Thank you for your time and have fun!";
    goto access_eng;
    close;
 
 
    L_broadcast:
    mes "Broadcasts are this yellow messages from  the GMs";
    goto L_fine;
}
    access_eng:
    mes @name$;
    mes "Hello "+strcharinfo(0)+"";
    mes "If you want to I can show you your PVP stats.";
    next;
    M_selection_eng:
    if ( getgmlevel () < 99 )
        menu "Warp me to Battle Arena",M_Arena,"Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Cancel",M_abbrechen_eng;
    else
        menu "Warp me to Battle Arena",M_Arena,"Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Reset Ladder",L_reset,"Cancel",M_abbrechen_eng;
	
	M_Arena:
	announce "[ "+strcharinfo(0)+" ] has entered the PvP Room.",0;
	warp "pvp_y_2-2",0,0;
    end;
 
 
    M_Ladder_eng:
    mes "Alright...I'll show you the Top "+ $@LadderLength +" with "+$@LadderSteps+" entries per page.";
    mes "It'll be viewed like this:";
    mes @colour$[0]+"Place^000000: "+@colour$[1]+"<name>^000000 :"+@colour$[2]+"<kills>^000000:"+@colour$[3]+"<deaths>^000000 "+@colour$[4]+"<time>";
    next;
    callsub L_Ladder;
    goto M_selection_eng;
 
    M_seitLogin_eng:
    mes @name$;
    mes "Your stats since your login:";
    mes @PVPKillstoday+"/"+@PVPDeathstoday+"(Kills/Deaths)";
    next;
    goto M_selection_eng;
 
    M_dieserChar_eng:
    mes @name$;
    mes "Your stats of this Char:";
    mes PVPKills+"/"+PVPDeaths+"(Kills/Deaths)";
    next;
    goto M_selection_eng;
 
    M_vomAccount_eng:
    mes @name$;
    mes "Your stats of the whole account:";
    mes #PVPKillsAccount+"/"+#PVPDeathsAccount+"(Kills/Deaths)";
    next;
    goto M_selection_eng;
 
    M_abbrechen_eng:
    mes @name$;
    mes "OK. You can come back to me and see your stats whenever you want.";
    close;
 
L_reset:
    if (getgmlevel() < 99) end;
    mes "Do you want to reset the ladder?";
    if (select ("Yes","No") == 2) goto L_end;
    mes "Are you really really sure you want to reset it?";
    menu "Yes, ffs!!",-,"No",L_end;
    deletearray $terces_PVP_kills,128;
    deletearray $terces_PVP_deaths,128;
    deletearray $terces_PVP_names$,128;
    deletearray $terces_PVP_times,128;
    set $terces_PVP_resets,$terces_PVP_resets +1;
 
    L_end:
    mes "Okay...cya";
    close;
    
    L_Ladder:
    for (set @y,0; @y < $@LadderLength; set @y,@y+$@LadderSteps){
        for (set @x,@y; (@x < (@y+$@LadderSteps)) && (@x < ($@LadderLength)); set @x,@x+1){
            if ($terces_PVP_names$[@x] != ""){
                mes @colour$[0]+(@x+1)+"^000000: "+@colour$[1]+$terces_PVP_names$[@x]+"^000000 "+@colour$[2]+$terces_PVP_kills[@x]+"^000000:"+@colour$[3]+$terces_PVP_deaths[@x]+"^000000 ~ "+@colour$[4]+callfunc ("Gettime",$terces_PVP_times[@x])+"^000000";
            } else {
                mes "^DD0000"+(@x+1)+": ^006699None^000000 ";
            }
        }
        next;
    }
    return;
}
 
function	script	Gettime	{
if (getarg(0)==0) return;
 
set @difftimedays,(gettimetick(2) - getarg(0));
set @difftimehours,@difftimedays%86400;
set @difftimeminutes,@difftimehours%3600;
set @difftimeseconds,@difftimeminutes%60;
 
set @days,@difftimedays/86400;
set @hours,@difftimehours/3600;
set @minutes,@difftimeminutes/60;
set @seconds,@difftimeseconds;
set @result$,"";
if(@days != 0) set @result$,@result$+@days+"d ";
if(@hours != 0) set @result$,@result$+@hours+"h ";
if(@minutes != 0) set @result$,@result$+@minutes+"m ";
if(@seconds != 0) set @result$,@result$+@seconds+"s";
 
return (@result$);
}

//prontera,150,150,0    script    Warper    100,{
//    warp <map>,<x>,<y>;
//    end;
//}

pvp_y_2-2	mapflag	nocommand	10
pvp_y_2-2	mapflag	nosave
pvp_y_2-2	mapflag	noreturn

 

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

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.

×
×
  • Create New...