FANDOM


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