Is there a pvp high score list script

[deathtaker26]

ive seen the script for getting a players pvp score
one for level high score but that was it
not the top 5 pvp score

is there one?

[Lam3r]

Well it wouldn't be too hard to edit. Post the script in here and i'll fix it up for you.

[Admiral Refuge]

I posted a core for a pvp highscroes script in the Script Database, but it needs some debugging, I think.

[Lam3r]

@Lam3r:

> Well it wouldn't be too hard to edit. Post the script in here and i'll fix it up for you.

@ Admiral as well :D

[deathtaker26]

@Admiral:

> I posted a core for a pvp highscroes script in the Script Database, but it needs some debugging, I think.

can i get the link to it

[Admiral Refuge]

Ahh, it was the reputation system that needed to be debugged (kill good NPCs, reputation goes down; kill evil npcs, reputation goes up).
Anyway, the highscore system I have is a pvp highscore thing; not a top-5 lvl thing.  Though a top-5 level highscore system wouldn't be that hard to create..  I could take a wing at it if nobody else wants to try it.

[Homicidal Monkey]

high score script has been done. Check the old script database.

[Ruins of Hell]

Well, I just took unknown's Level script and modified it. No, I didn't make this.

```
Sub ShowPvPLadder(index)
  'Generate the ladder
  Set PlayerList = CreateObject( "System.Collections.ArrayList" )
  For CurPlayer = 1 To GetMaxPlayers
      If IsPlaying(CurPlayer) Then
        For Each Player In PlayerList
            If GetPlayerPK(CurPlayer) >= GetPlayerPK(Player) Then
              Call PlayerList.Insert(PlayerList.LastIndexOf(Player), CurPlayer)
              Exit For
            End If
        Next
        If Not PlayerList.Contains(CurPlayer) Then PlayerList.Add(CurPlayer)
      End If
  Next

  'Display the ladder
  Call PlayerMsg(index, "-----ONLINE PK LADDER-----", GREEN)
  For Each Player In PlayerList
      LadderName = GetPlayerName(Player)
      LadderLevel = GetPlayerPK(Player)
      Call PlayerMsg(index, PlayerList.LastIndexOf(Player)+1 & ". " & LadderName & " - PK " & LadderLevel, YELLOW)
  Next
End Sub

```
Then have a command:

```
Case "/showpvpladder"
Call ShowPvPLadder(index)
```