Sub OnClickPlayer(Index)
If GetMapMoral(GetPlayerMap(Index)) = 1 Then
If GetTargetName(Index) <> GetPlayerName(Index) Then
Call PlayerMsg(Index, "You are now viewing " & GetTargetName(Index) & "'s profile.", BRIGHTGREEN)
Call PlayerMsg(GetPlayerTarget(Index), GetPlayerName(Index) & " is viewing your profile and equipment.", BRIGHTGREEN)
Else
Call PlayerMsg(Index, "Opening your profile.", BRIGHTGREEN)
End If
Call CustomMenuShow(index, "Player Profile", "\GUI\CUSTOM\Profile.bmp", 1)
NamePrefix = "Player"
If GetPlayerAccess(Index) > 0 Then
NamePrefix = "Moderator"
If GetPlayerAccess(Index) > 3 Then
NamePrefix = "Admin"
If GetPlayerAccess(Index) > 4 Then
NamePrefix = "Developer"
End If
End If
End If
Call CustomMenuLabel(index, 1, NamePrefix & ": " & GetTargetName(index), 150, 50, 10, BRIGHTGREEN, 0, 400, 20)
Rawr = FindPlayer(GetTargetName(Index))
Call CustomMenuLabel(index, 2, "Level: " & GetPlayerLevel(Rawr), 20, 100, 10, BRIGHTCYAN, 0, 80, 20)
Call CustomMenuLabel(index, 3, "Job: " & GetTargetJob(index), 20, 120, 10, BRIGHTCYAN, 0, 100, 20)
Call CustomMenuLabel(index, 4, "Guild: " & GetTargetGuild(index), 20, 140, 10, BRIGHTCYAN, 0, 400, 20)
Call CustomMenuLabel(index, 5, "STR: " & GetTargetStr(index), 20, 160, 10, BRIGHTCYAN, 0, 400, 20)
Call CustomMenuLabel(index, 6, "DEF: " & GetTargetDef(index), 20, 180, 10, BRIGHTCYAN, 0, 400, 20)
Call CustomMenuLabel(index, 7, "MAGI: " & GetTargetMagi(index), 20, 200, 10, BRIGHTCYAN, 0, 400, 20)
Call CustomMenuLabel(index, 8, "SPEED: " & GetTargetSpeed(index), 20, 220, 10, BRIGHTCYAN, 0, 400, 20)
Slot = GetPlayerWeaponSlot(Rawr)
Call CustomMenuLabel(index, 9, "Weapon: ---", 150, 100, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 9, "Weapon: " & GetItemName(Item), 150, 100, 10, YELLOW, 0, 200, 20)
End If
Slot = GetPlayerArmorSlot(Rawr)
Call CustomMenuLabel(index, 10, "Armor: ---", 150, 120, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 10, "Armor: " & GetItemName(Item), 150, 120, 10, YELLOW, 0, 200, 20)
End If
Slot = GetPlayerHelmetSlot(Rawr)
Call CustomMenuLabel(index, 11, "Helm: ---", 150, 140, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 11, "Helm: " & GetItemName(Item), 150, 140, 10, YELLOW, 0, 200, 20)
End If
Slot = GetPlayerLegsSlot(Rawr)
Call CustomMenuLabel(index, 12, "Legs: ---", 150, 160, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 2, "Legs: " & GetItemName(Item), 150, 160, 10, YELLOW, 0, 200, 20)
End If
Slot = GetPlayerShieldSlot(Rawr)
Call CustomMenuLabel(index, 13, "Shield: ---", 150, 180, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 13, "Shield: " & GetItemName(Item), 150, 180, 10, YELLOW, 0, 200, 20)
End If
Slot = GetPlayerRingSlot(Rawr)
Call CustomMenuLabel(index, 14, "Ring: ---", 150, 200, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 14, "Ring: " & GetItemName(Item), 150, 200, 10, YELLOW, 0, 200, 20)
End If
Slot = GetPlayerNecklaceSlot(Rawr)
Call CustomMenuLabel(index, 15, "Necklace: ---", 150, 220, 10, YELLOW, 0, 200, 20)
If Slot > 0 Then
Item = GetPlayerInvItemNum(Rawr, Slot)
Call CustomMenuLabel(index, 15, "Necklace: " & GetItemName(Item), 150, 220, 10, YELLOW, 0, 200, 20)
End If
ProfileColor = GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileColor")
If GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileColor") = "" Then
ProfileColor = 12
End If
Call CustomMenuLabel(index, 16, "Profile: - Blank -", 20, 250, 10, ProfileColor, 0, 400, 20)
If GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine1") <> "" Then
Call CustomMenuLabel(index, 16, "Profile: " & GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine1"), 20, 250, 10, ProfileColor, 0, 400, 20)
End If
Call CustomMenuLabel(Index, 17, "", 20, 265, 10, BRIGHTRED, 0, 400, 20)
If GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine2") <> "" Then
Call CustomMenuLabel(index, 17, GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine2"), 20, 265, 10, ProfileColor, 0, 400, 20)
End If
Call CustomMenuLabel(Index, 18, "", 20, 280, 10, BRIGHTRED, 0, 400, 20)
If GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine3") <> "" Then
Call CustomMenuLabel(index, 18, GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine3"), 20, 280, 10, ProfileColor, 0, 400, 20)
End If
Call CustomMenuLabel(Index, 19, "", 20, 295, 10, BRIGHTRED, 0, 400, 20)
If GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine4") <> "" Then
Call CustomMenuLabel(index, 19, GetVar("Config\Profiles.dll", GetPlayerName(GetPlayerTarget(Index)), "ProfileLine4"), 20, 295, 10, ProfileColor, 0, 400, 20)
End If
Else
Call PlayerMsg(Index, "Your target is now " & GetTargetName(Index) & ".", YELLOW)
End If
End Sub