Auto-Updateing HighScore (fixed)

[Simius Cruentus]

This script is dead, so I locked it.  If a mod wants it unlocked, feel free to unlock it.
~Admiral Refuge





background info:
This was orrigionally posted by M4k.
I changed it and reposted it under zack
now i fixed it more and am posting it under Homicidal Monkey
Difficulty: (|||||)> 2/5
Usefullness: (|||||)>4/5
here is the code:

Paste this at the bottom of your main.txt

'Auto-update Highscore
'Coded by zack a.k.a Homicidal Monkey
'version 1 based on /top5 by m4k
Sub HighScore(index)
Dim acc(50)
Dim Char(50)
Dim Charlvl(50)
i=1
j=1
C=0
Cnum = 0
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Level" , GetPlayerLevel(Index))
Do While C = 0
   acc(i) = GetVar("accounts.ini", "Players", "Name" & i)
   If acc(i) <> "" Then
      j = 1
      Do While j < 4
         If GetVar("accounts\" & acc(i) & ".ini", "CHAR" & j, "Name") <> "" Then
            Cnum=Cnum+1
            Char(Cnum) = GetVar("accounts\" & acc(i) & ".ini", "CHAR" & j, "Name")
            Charlvl(Cnum) = INT(GetVar("accounts\" & acc(i) & ".ini", "CHAR" & j, "Level"))
         End If
         j = j + 1
      Loop
      i = i + 1
   Else
      C=1
      Max=(i - 1)
   End If
Loop
Ca=1
Cb=2
Do While Ca < Cnum
   Do While Cb <= Cnum
      If Charlvl(Ca) < Charlvl(Cb) Then
         templvla = Charlvl(Ca)
         templvlb = Charlvl(Cb)
         tempnamea = Char(Ca)
         tempnameb = Char(Cb)
         Charlvl(Ca) = templvlb
         Charlvl(Cb) = templvla
         Char(Ca) = tempnameb
         Char(Cb) = tempnamea
      End If
      Cb=(Cb + 1)
   Loop
   Ca=(Ca + 1)
   Cb=(Ca + 1)
Loop
Call battleMsg(index, "Top 5 Players by Level", 15, 0)
Ca=1
Do While Ca <= 5
   Call battleMsg(index, Char(Ca) & " = Level " & Charlvl(Ca), 12, 0)
   Ca=Ca+1
Loop
Call GlobalMsg("Current Top Player: " & Char(1) & " at level " & charlvl(1), 15)
End Sub

Sub UpdateHS(Index)
Dim acc(50)
Dim Char(50)
Dim Charlvl(50)
z = 1
Do While C = 0
   If GetVar("accounts.ini", "Players", "Name" & z) <> "" then
      If GetVar("accounts.ini", "Players", "Name" & z) = GetPlayerLogin(index) Then
         C = 1
         'Call PlayerMsg(index, "Acc Exists!", 15)
      End if
      z = z + 1
   Else
      Call PutVar("accounts.ini", "Players", "Name" & z, GetPlayerLogin(index))
      'Call PlayerMsg(index, "Acc Added!", 6)
      C = 1
   End if
Loop
end sub   

ok we are almost done.
Put this Code at the top of joingame, leftgame, levelup

Call UpdateHS(Index)
          Call Highscore(Index)

After that you are done.
Remember:
Always back-up your main.txt
How to back-up:
1) Open Main.txt
2) Go to file, save as
3) Type "Main.backup" (with the " ")

how to open a back-up
1) open Main.backup with notepad
2) go to file, save as, main.txt
3) close main.backup. open main.txt

[unnown]

looks nice

[Chrono917]

How do you check the Hi-Scores?

[Balliztik]

You could set up a command to call HighScore(index),cor you can go to, looks like, accounts.ini.

[Simius Cruentus]

How do you check the Hi-Scores?

when logging in, someone else logs in, or just make a command under "/help" that calls sub highscore

[Soljah]

How do you check the Hi-Scores?

when logging in, someone else logs in, or just make a command under "/help" that calls sub highscore

The code works nicely, but just how do u make a command under /help that calls sub highscore?? could you help me?

[Simius Cruentus]

How do you check the Hi-Scores?

when logging in, someone else logs in, or just make a command under "/help" that calls sub highscore

The code works nicely, but just how do u make a command under /help that calls sub highscore?? could you help me?

Code: [Select]

Case "/Highscore"
call Highscore(Index)
Call UpdateHs(Index)
exit sub

[Soljah]

Tyvm

[Soljah]

hmm i no whatcha meen, but where bouts does it go... before? after? or gith in the middle of this


    If LCase(Trim(TextSay)) = "/help" Then
        Call PlayerMsg(index, "Social Commands:", 15)
        Call PlayerMsg(index, "'msghere = Broadcast Message", 15)
        Call PlayerMsg(index, "-msghere = Emote Message", 15)
        Call PlayerMsg(index, "!namehere msghere = Player Message", 15)
        Call PlayerMsg(index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", 15)
    Exit Sub
    End If

[zak]

help wit cmd pl0x

[Uarepo2]

   Case "/top5"
        Call HighScore(Index)
        Exit Sub

Anywhere near the end of your commands sub (inbetween 2 subs obviously like this :

Case "/bell"
        Call GlobalMsg("*ding* *ding* *ding*", 7)
        Exit Sub

   Case "/top5"
        Call HighScore(Index)
        Exit Sub

    Case "/killall"
        If GetPlayerName(index) = "scott300" then
            Call SetPlayerHP(index, 0)
            Call SendPlayerData(index)
        End If
        Exit Sub
End Select

Sorry about the glow, Not sure how to put them in there own little boxes lol

[olliepop]

['code']['/code']
But remove the '

[KainBloodbane]

Great Script! I have a question though. If I want to exclude 3 admins from the high scores named:

KainBloodbane
Alex Fernandez
Lightningsun

How can I do that? I want them to  be excluded so the other players can fairly get a high score without admins all taking the top spots.

[Simius Cruentus]

Great Script! I have a question though. If I want to exclude 3 admins from the high scores named:

KainBloodbane
Alex Fernandez
Lightningsun

How can I do that? I want them to  be excluded so the other players can fairly get a high score without admins all taking the top spots.

I believe this would exclude admins:

Code: [Select]

Sub UpdateHS(Index)
Dim acc(50)
Dim Char(50)
Dim Charlvl(50)
z = 1
Do While C = 0
   If GetPlayerAccess(Index) < 2 then
   If GetVar("accounts.ini", "Players", "Name" & z) <> "" then
      If GetVar("accounts.ini", "Players", "Name" & z) = GetPlayerLogin(index) Then
         C = 1
         'Call PlayerMsg(index, "Acc Exists!", 15)
      End if
      z = z + 1
   Else
      Call PutVar("accounts.ini", "Players", "Name" & z, GetPlayerLogin(index))
      'Call PlayerMsg(index, "Acc Added!", 6)
      C = 1
   End if
End If
Loop
end sub   

[۩ŞṗάỈᾗἷỗהּ۩]

Ohh, I think I better add that to the server now, Thanks.
Doesn't Work.
When I step on the scripted tile since I added the exclued admins it says this script is taking longer then expected to execute.

[Balliztik]

It's because there's a loop while C = 0. A simple exit sub or a C = 1 should fix it.

Sub UpdateHS(Index)
Dim acc(50)
Dim Char(50)
Dim Charlvl(50)
z = 1
Do While C = 0
   If GetPlayerAccess(Index) < 2 then
   If GetVar("accounts.ini", "Players", "Name" & z) <> "" then
      If GetVar("accounts.ini", "Players", "Name" & z) = GetPlayerLogin(index) Then
         C = 1
         'Call PlayerMsg(index, "Acc Exists!", 15)
      End if
      z = z + 1
   Else
      Call PutVar("accounts.ini", "Players", "Name" & z, GetPlayerLogin(index))
      'Call PlayerMsg(index, "Acc Added!", 6)
      C = 1
   End if
Else
Exit Sub
End If
Loop
end sub   

[۩ŞṗάỈᾗἷỗהּ۩]

Thanks Balliztik, Unfortunatly it still doesn't work Its easier just to give staff items that boost stats rather then them havning levels anyways

[Flaw]

relating to this... Is there a way to post a top 50 players on a game website... and have the client auto up date that? at set time intervals?

[unnown]

yeah it is possible but only if you can create an ftp upload program

[Flaw]

Sorry for necropost, but i just remembered that i posted here...

How to i make an FTP upload program?