[ES]Rankig para Guild

Administrador Mensagens : 711

Script Guild Evilbunnie do Ranking
Adicionar ao principal:

Código:: Sub SetGuildRank(Index, Rank)
If Rank = vbNullString Then
Exit Sub
End If

Call PutVar("Guild Rankings.ini", GetPlayerName(Index), "Rank", Cstr(Rank))
Call PlayerMsg(Index, "Your Guild Rank has been set to: " & Rank, WHITE)
End Sub
Function GetGuildRank(Index)
GetGuildRank = GetVar("Guild Rankings.ini", GetPlayerName(Index), "Rank")
End Function

Adicionar aos Comandos Sub (Commands.ess)

Código:: Case "/myrank"
Call PlayerMsg(Index, "Your current Guild Ranking is: " & GetGuildRank(Index), WHITE)
Exit Sub

Case "/setplayerrank"
If GetPlayerAccess(Index) > 3 Then
Call SetGuildRank(FindPlayer(TextSay(1)), TextSay(2))
End If
Exit Sub

Então, em Profile.ess encontrar

Código:: If GetPlayerGuild(Index) = "" Then
Call CustomMenuLabel(Index, ElementIndex, "Guild: None", 20, 100 + (ElementIndex - 1) * 20, 10, WHITE, LEFT, 400, 20)
ElementIndex = ElementIndex + 1
Else
Call CustomMenuLabel(Index, ElementIndex, "Guild: " & GetPlayerGuild(Target), 20, 100 + (ElementIndex - 1) * 20, 10, WHITE, LEFT, 400, 20)
ElementIndex = ElementIndex + 1
End If

E substitua por:

Código:: If GetPlayerGuild(Index) = "" Then
Call CustomMenuLabel(Index, ElementIndex, "Guild: None", 20, 100 + (ElementIndex - 1) * 20, 10, WHITE, LEFT, 400, 20)
ElementIndex = ElementIndex + 1
Else
Call CustomMenuLabel(Index, ElementIndex, "Guild: " & GetPlayerGuild(Target), 20, 100 + (ElementIndex - 1) * 20, 10, WHITE, LEFT, 400, 20)
ElementIndex = ElementIndex + 1
If Not GetGuildRank(Target) = vbNullString Then
Call CustomMenuLabel(Index, ElementIndex, "Guild Ranking: " & GetGuildRank(Target), 20, 100 + (ElementIndex - 1) * 20, 10, WHITE, LEFT, 400, 20)
ElementIndex = ElementIndex + 1
End If
End If

Creditos~
Desconhecido

Convidado

O que isso faz?

Convidado

Se você digitar /myrank verá seu rank da guild

e com /setplayerrank você seta o rank da guild do player