Created by Piysta.
This will give you all information on a single player. I used this as a spell, but it can be incorperated into a in-game command as well.
Using "RC_Core.rcm"
; Ithis Online
; Date/Time: 9:59:25 PM on 1/10/2011
; By Dillan Cobb on COBB-PC
Function Main()
Player = Actor()
GM = PlayerIsGM(Player)
Info$ = Input(Player, "Players Name", ">", 1)
Find$ = FindActor(Info)
PlayerName$ = Name(Find)
Email$ = PlayerAccountEmail(Find)
Account$ = PlayerAccountName(Find)
Online$ = PlayerInGame(Find)
Ban$ = PlayerIsBanned(Find)
DM$ = PlayerIsGM(Find)
Gname$ = Tag(Find)
Grank$ = ActorGlobal(Find, 8)
X# = ActorX(Find)
Y# = ActorY(Find)
Z# = ActorZ(Find)
Zone$ = ActorZone(Find)
Clas$ = Class(Find)
Rac$ = Race(Find)
Found = OpenDialog(Player, Find, PlayerName + "'s Information")
DialogOutput(Player, Found, "Account Name: " + Account)
DialogOutput(Player, Found, "Account Email: " + Email)
If Online = 1
DialogOutput(Player, Found, "Connection: Online")
ElseIf Online = 0
DialogOutput(Player, Found, "Connection: Offline")
EndIf
If Ban = 1
DialogOutput(Player, Found, "Status: Banned")
ElseIf Ban = 0
DialogOutput(Player, Found, "Status: Not Banned")
EndIf
If DM = 1
DialogOutput(Player, Found, "Server Rank: Admin")
ElseIf DM = 0
DialogOutput(Player, Found, "Server Rank: Player")
EndIf
If Gname = ""
DialogOutput(Player, Found, "Not in a guild.")
Else
DialogOutput(Player, Found, "Guild Name: " + Gname)
EndIf
If Grank = "0"
DialogOutput(Player, Found, "Not in a guild.")
ElseIf Grank = "1"
DialogOutput(Player, Found, "Guild Rank: Member")
ElseIf Grank = "2"
DialogOutput(Player, Found, "Guild Rank: Veteran")
ElseIf Grank = "3"
DialogOutput(Player, Found, "Guild Rank: Officer")
ElseIf Grank = "4"
DialogOutput(Player, Found, "Guild Rank: Guild Master")
EndIf
DialogOutput(Player, Found, "Class: " + Clas)
DialogOutput(Player, Found, "Race: " + Rac)
DialogOutput(Player, Found, "Zone: " + Zone)
DialogOutput(Player, Found, "Location: " + X + "," + Y + "," + Z)
C = DialogInput(Player, Found, "Close Window")
If C = 1
CloseDialog(Player, Found)
EndIf
Return
End Function