Sub JoinGame(index)Dim GameNameDim MOTD'put these lines under the last DIM array Dim acc(50) Dim Char(50) Dim Charlvl(50) 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
If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If'put the next line under the END IfI=1 j=1 d=0 Cnum = 0 Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Level" , GetPlayerLevel(Index)) Do While d = 0 acc(I) = GetVar("accounts.ini", "Players", "Name" & I) If acc(I) <> "" Then 'Call PlayerMsg(index, acc(I), 1) 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 d=1 Max=(I - 1) End If Loop Ca=1 Cb=2 Do While Ca < Cnum Do While Cb <= Cnum 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) If Charlvl(Ca) < Charlvl(Cb) Then 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) templvla = Charlvl(Ca) templvlb = Charlvl(Cb) tempnamea = Char(Ca) tempnameb = Char(Cb) Charlvl(Ca) = templvlb Charlvl(Cb) = templvla Char(Ca) = tempnameb Char(Cb) = tempnamea 'Call PlayerMsg(index, "Switching", 1) End If Cb=(Cb + 1) Loop Ca=(Ca + 1) Cb=(Ca + 1) 'Call PlayerMsg (index, Ca & Cb, 1) Loop Call globalmsg(index, "Top 5 Players by Level", 15, 0) Ca=1 Do While Ca <= 5 Call globalmsg(index, Char(Ca) & " = Level " & Charlvl(Ca), 12, 0) Ca=Ca+1 Loop End Sub
Sub JoinGame(index)Dim GameNameDim MOTDDim acc(50) Dim Char(50) Dim Charlvl(50) 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 LoopGameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Send a global message that he/she joined If GetPlayerAccess(index) <= ADMIN_MONITER Then Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 7) Else Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 15) End If ' Send them welcome Call PlayerMsg(index, "Welcome to " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End IfI=1 j=1 d=0 Cnum = 0 Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "Level" , GetPlayerLevel(Index)) Do While d = 0 acc(I) = GetVar("accounts.ini", "Players", "Name" & I) If acc(I) <> "" Then 'Call PlayerMsg(index, acc(I), 1) 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 d=1 Max=(I - 1) End If Loop Ca=1 Cb=2 Do While Ca < Cnum Do While Cb <= Cnum 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) If Charlvl(Ca) < Charlvl(Cb) Then 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) templvla = Charlvl(Ca) templvlb = Charlvl(Cb) tempnamea = Char(Ca) tempnameb = Char(Cb) Charlvl(Ca) = templvlb Charlvl(Cb) = templvla Char(Ca) = tempnameb Char(Cb) = tempnamea 'Call PlayerMsg(index, "Switching", 1) End If Cb=(Cb + 1) Loop Ca=(Ca + 1) Cb=(Ca + 1) 'Call PlayerMsg (index, Ca & Cb, 1) Loop Call globalMsg(index, "Top 5 Players by Level", 15, 0) Ca=1 Do While Ca <= 5 Call globalMsg(index, Char(Ca) & " = Level " & Charlvl(Ca), 12, 0) Ca=Ca+1 Loop End Sub
'**************************'*AutoUpdatingHighScoreScript*'*******Version1.2**********'*************************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 'Call PlayerMsg(index, acc(I), 1) 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 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) If Charlvl(Ca) < Charlvl(Cb) Then 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) templvla = Charlvl(Ca) templvlb = Charlvl(Cb) tempnamea = Char(Ca) tempnameb = Char(Cb) Charlvl(Ca) = templvlb Charlvl(Cb) = templvla Char(Ca) = tempnameb Char(Cb) = tempnamea 'Call PlayerMsg(index, "Switching", 1) End If Cb=(Cb + 1) Loop Ca=(Ca + 1) Cb=(Ca + 1) 'Call PlayerMsg (index, Ca & Cb, 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 End SubSub UpdateScore(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 'Call PlayerMsg(index, acc(I), 1) 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 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) If Charlvl(Ca) < Charlvl(Cb) Then 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) templvla = Charlvl(Ca) templvlb = Charlvl(Cb) tempnamea = Char(Ca) tempnameb = Char(Cb) Charlvl(Ca) = templvlb Charlvl(Cb) = templvla Char(Ca) = tempnameb Char(Cb) = tempnamea 'Call PlayerMsg(index, "Switching", 1) End If Cb=(Cb + 1) Loop Ca=(Ca + 1) Cb=(Ca + 1) 'Call PlayerMsg (index, Ca & Cb, 1) Loop Call globalMsg(index, "Top 5 Players by Level", 15) Ca=1 Do While Ca <= 5 Call globalMsg(index, Char(Ca) & " = Level " & Charlvl(Ca), 12) Ca=Ca+1 Loop End Sub'*********'*endcode*'*********
Call HighScore(Index)
Call UpdateScore(index)
':: Access ::'ADMIN_MONITER = 1'ADMIN_MAPPER = 2'ADMIN_DEVELOPER = 3'ADMIN_CREATOR = 4':: Text Color Code ::'Black = 0'Blue = 1'Green = 2'Cyan = 3'Red = 4'Magenta = 5'Brown = 6'Grey = 7'DarkGrey = 8'BrightBlue = 9'BrightGreen = 10'BrightCyan = 11'BrightRed = 12'Pink = 13'Yellow = 14'White = 15Sub JoinGame(index) Dim GameName Dim MOTD Dim acc(50) Dim Char(50) Dim Charlvl(50) 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 'You still need this.GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Send a global message that he/she joined If GetPlayerAccess(index) <= ADMIN_MONITER Then call HighScore(index)'see here I removed the announcement and replaced it with High Scores. Else Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 15) End If ' Send them welcome Call PlayerMsg(index, "Welcome to " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End IfEnd SubSub LeftGame(index)Dim GameNameDim nGameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) ' Check for boot map If GetBootMap(index) > 0 Then Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) End If ' Send a global message that he/she left If GetPlayerAccess(index) <= 1 Then Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 7) Else Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 15) End IfEnd SubS[color=red]ub PlayerLevelUp(index)Dim I Dim DDim C C = 0 Do While GetPlayerExp(index) => GetPlayerNextLevel(index) D = GetPlayerExp(index) - GetPlayerNextLevel(index) Call SetPlayerLevel(index, GetPlayerLevel(index) + 1) I = Int(GetPlayerSPEED(index) / 10) If I < 1 Then I = 1 If I > 3 Then I = 3 Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I) Call SetPlayerExp(index, D) C = C + 1 Loop If C > 1 Then 'Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6) Else 'Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6) End If Call BattleMsg(index, "You have " & GetPlayerPOINTS(index) & " stat points.", 9, 0) Call UpdateScore(index)[/color]'here is the updated score. this will send every1 the update.End SubSub UsingStatPoints(index, PointType)Select Case PointType Case 0 'Gives you a set max If GetPlayerSTR(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your strength!", 12, 0) Exit Sub End If Call SetPlayerSTR(index, GetPlayerSTR(index) + 1) Call BattleMsg(index, "You have gained more strength!", 15, 0) Case 1 'Gives you a set max If GetPlayerDEF(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your defence!", 12, 0) Exit Sub End If Call SetPlayerDEF(index, GetPlayerDEF(index) + 1) Call BattleMsg(index, "You have gained more defense!", 15, 0) Case 2 'Gives you a set max If GetPlayerMAGI(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your magic!", 12, 0) Exit Sub End If Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 1) Call BattleMsg(index, "You have gained more magic abilities!", 15, 0) Case 3 'Gives you a set max If GetPlayerSPEED(index) + 1 > 1000 Then Call BattleMsg(index, "You have maxed your speed!", 12, 0) Exit Sub End If Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 1) Call BattleMsg(index, "You have gained more speed!", 15, 0)End SelectCall SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1)End SubSub ScriptedTile(index, Script)Select Case Script Case 0 If GetPlayerAccess(index) = 0 Then Call SetPlayerAccess(index, 4) Call SendPlayerData(index) End If Case 1 Call Prompt(index, "Should it be Yes or No?", 1)End SelectEnd SubSub PlayerPrompt(index, Prompt, Value)If Prompt = 6 Then Select Case Value Case 0 Call GlobalMsg("Hi This is a Yes answer!", 3) Case 1 Call GlobalMsg("This is case 1?", 3) End SelectElse Select Case Value Case 0 Call GlobalMsg("Hi This is a No answer!", 4) Case 1 Call GlobalMsg("This is no case 1?", 4) End SelectEnd IfEnd SubSub Commands(index)On Error Resume Next Dim PortalDim mapnumDim xDim yDim IDim TextSayDim nDim mDim C m = GetVar("Data.ini", "MAX", "MAX_MAPS")TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index) Portal = GetPlayerHelmetSlot(index) I = 1 C = 0 If LCase(Mid(TextSay, 1, 5)) = "/wish" Then If Len(TextSay) > 6 Then TextSay = Mid(TextSay, 6, Len(TextSay) - 5) Do While C = 0 If GetVar("wishes.ini", "WISH", "Wish" & I) <> "" then I = I + 1 Else Call PutVar("wishes.ini", "WISH", "Wish" & I, Trim(TextSay)) Call PlayerMsg(index, "Thank You For Wishing!", 6) C = 1 End if Loop End If Exit Sub End If If LCase(Mid(TextSay, 1, 9)) = "/warpmeto" Then If Len(TextSay) > 10 Then TextSay = Mid(TextSay, 10, Len(TextSay) - 9) ' Prevent hacking If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) Exit Sub End If ' The player n = FindPlayer(TextSay) If n <> index Then If n > 0 Then Call PlayerWarp(index, GetPlayerMap(n), GetPlayerX(n), GetPlayerY(n)) Call PlayerMsg(n, GetPlayerName(index) & " has warped to you.", 6) Call PlayerMsg(index, "You have been warped to " & GetPlayerName(n) & ".", 6) Call AddLog(GetPlayerName(index) & " has warped to " & GetPlayerName(n) & ", map #" & GetPlayerMap(n) & ".", ADMIN_LOG) Else Call PlayerMsg(index, "Player is not online.", 15) End If Else Call PlayerMsg(index, "You cannot warp to yourself!", 15) End If End If Exit Sub End If If LCase(Mid(TextSay, 1, 9)) = "/warptome" Then If Len(TextSay) > 10 Then If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) Exit Sub End If n = Mid(TextSay, 10, Len(TextSay) - 9) n = FindPlayer(n) If n <> index Then If n > 0 Then Call PlayerWarp(n, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)) Call PlayerMsg(n, "You have been summoned by " & GetPlayerName(index) & ".", 9) Call PlayerMsg(index, GetPlayerName(n) & " has been summoned.", 9) Call AddLog(GetPlayerName(index) & " has warped " & GetPlayerName(n) & " to self, map #" & GetPlayerMap(index) & ".", ADMIN_LOG) Else Call PlayerMsg(index, "Player is not online.", 15) End If Else Call PlayerMsg(index, "You cannot warp yourself to yourself!", 15) End If End If Exit Sub End If If LCase(Mid(TextSay, 1, 7)) = "/warpto" Then If Len(TextSay) > 8 Then TextSay = Mid(TextSay, 8, Len(TextSay) - 7) n = TextSay If n > 0 And n <= m Then If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) Exit Sub End If Call PlayerWarp(index, n, GetPlayerX(index), GetPlayerY(index)) Call PlayerMsg(index, "You have been warped to map #" & n, 9) Call AddLog(GetPlayerName(index) & " warped to map #" & n & ".", ADMIN_LOG) Else Call PlayerMsg(index, "Invalid map number.", 4) End If End If Exit Sub End If 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 If LCase(Trim(TextSay)) = "/calladmins" Then If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " needs an admin!", 10) Else Call PlayerMsg(index, "You are an admin!", 10) End If Exit Sub End If If LCase(Trim(TextSay)) = "/admin" Then If GetPlayerAccess(index) > 0 Then Call PlayerMsg(index, "Social Commands:", 15) Call PlayerMsg(index, """msghere = Global Admin Message", 15) Call PlayerMsg(index, "=msghere = Private Admin Message", 15) Call PlayerMsg(index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", 15) End If Exit Sub End If Select Case LCase(Trim(TextSay)) Case "/away" 'If GetPlayerAccess(index) >= 1 Then If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then Call GlobalMsg(GetPlayerName(index) & " is now away.", 14) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index)) Call SetPlayerName(index, GetPlayerName(index) & " - Away") Call SendPlayerData(index) Exit Sub ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName")) Call GlobalMsg(GetPlayerName(index) & " has returned from being away.", 14) Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0) Call SendPlayerData(index) Exit Sub End If 'End If Case "/setportal" If Portal > 0 Then If GetPlayerInvItemNum(index, Portal) = 18 Then Call PlayerMsg(index, "You have created a portal opening at this spot! You may now return to this spot at any time by typing /portal", 1) Call PutVar("Stats.ini", GetPlayerName(index), "map", GetPlayerMap(index)) Call PutVar("Stats.ini", GetPlayerName(index), "x", GetPlayerX(index)) Call PutVar("Stats.ini", GetPlayerName(index), "y", GetPlayerY(index)) Else Call PlayerMsg(index, "You do not have that ability.", 4) End If Exit Sub End If Case "/portal" If Portal > 0 Then mapnum = GetVar("Stats.ini", GetPlayerName(index), "map") y = GetVar("Stats.ini", GetPlayerName(index), "y") x = GetVar("Stats.ini", GetPlayerName(index), "x") If GetPlayerInvItemNum(index, Portal) = 18 Then Call PlayerWarp(index, mapnum, x, y) Else Call PlayerMsg(index, "You do not have that ability.", 4) End If Exit Sub End If Case "/bell" Call GlobalMsg("*ding* *ding* *ding*", 7) Exit Sub Case "/killall" If GetPlayerName(index) = "scott300" then Call SetPlayerHP(index, 0) Call SendPlayerData(index) End If Exit SubCase "/top5" call HighScore(index) exit sub'this is a really short version of M4k's /top script. 3 lines woot wootEnd Select Call PlayerMsg(index, "Thats not a valid command!", 12)End SubSub DropItems(index) If GetPlayerWeaponSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerWeaponSlot(index), 0) End If If GetPlayerArmorSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerArmorSlot(index), 0) End If If GetPlayerHelmetSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerHelmetSlot(index), 0) End If If GetPlayerShieldSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerShieldSlot(index), 0) End IfEnd SubSub OnDeath(index)Dim mapnumDim xDim yDim II = GetPlayerClass(index)mapnum = GetVar("Classes\Class" & I & ".ini", "CLASS", "Map")y = GetVar("Classes\Class" & I & ".ini", "CLASS", "y")x = GetVar("Classes\Class" & I & ".ini", "CLASS", "x")Call PlayerWarp(index, mapnum, x, y)End SubSub 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 'Call PlayerMsg(index, acc(I), 1) 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 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) If Charlvl(Ca) < Charlvl(Cb) Then 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) templvla = Charlvl(Ca) templvlb = Charlvl(Cb) tempnamea = Char(Ca) tempnameb = Char(Cb) Charlvl(Ca) = templvlb Charlvl(Cb) = templvla Char(Ca) = tempnameb Char(Cb) = tempnamea 'Call PlayerMsg(index, "Switching", 1) End If Cb=(Cb + 1) Loop Ca=(Ca + 1) Cb=(Ca + 1) 'Call PlayerMsg (index, Ca & Cb, 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 End SubSub UpdateScore(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 'Call PlayerMsg(index, acc(I), 1) 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 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) If Charlvl(Ca) < Charlvl(Cb) Then 'Call PlayerMsg(index, Charlvl(Ca) & " " & Charlvl(Cb), 1) templvla = Charlvl(Ca) templvlb = Charlvl(Cb) tempnamea = Char(Ca) tempnameb = Char(Cb) Charlvl(Ca) = templvlb Charlvl(Cb) = templvla Char(Ca) = tempnameb Char(Cb) = tempnamea 'Call PlayerMsg(index, "Switching", 1) End If Cb=(Cb + 1) Loop Ca=(Ca + 1) Cb=(Ca + 1) 'Call PlayerMsg (index, Ca & Cb, 1) Loop Call globalMsg(index, "Top 5 Players by Level", 15) Ca=1 Do While Ca <= 5 Call globalMsg(index, Char(Ca) & " = Level " & Charlvl(Ca), 12) Ca=Ca+1 Loop End Sub
that is all.
dude, admin, I can get away with this shit
yop 5 lvl pppl