;'Player Info Skill'
UserID = GetUserID(GetUserMessage(#USERID))

If GetUserAccess(#USERID) < 5
	SendMessageToUser(#USERID,"This skill is now mod-only - Comrade",#MSG_SERVER)
	SetUserSkill(#USERID,15,-1)
	GoTo END
EndIf


If UserID < 1
   SendMessageToUser(#USERID,"Enter the name of a user, and then use this skill.",#MSG_SERVER)
   GoTo END
EndIf

If IsOnline(UserID) = 0
   If GetUserAccess(#USERID) = 0
      SendMessageToUser(#USERID,GetUserName(UserID) + "is not online.",#MSG_TELL)
      Goto END
   EndIf
EndIf


SendMessageToUser(#USERID,"User: "+GetUserName(UserID)+" (ID: "+UserID+")",#MSG_TELL)

;The name of the target"s guild

If GetUserGuild(UserID) <> 0
	GuildName = GetGuildName(GetUserGuild(UserID))
	
	RANK = GetUserGuildRank(UserID)
    
	If RANK = #GUILDRANK_INITIATE
		GuildRank="Initiated Member"
	ElseIf RANK = #GUILDRANK_MEMBER
		GuildRank="Full Member"
	ElseIf RANK = #GUILDRANK_LORD
		GuildRank="Lord of the Guild"
	EndIf
	
	SendMessageToUser(#USERID,"Guild:"+GuildName+" ("+GuildRank+")",#MSG_TELL)
Else
        SendMessageToUser(#USERID,"Guild: None",#MSG_TELL)
EndIf

If GetUserAccess(UserID) < 6
	AreaText=GetMapName(GetUserMap(UserID))
EndIf

SendMessageToUser(#USERID,"Area: "+AreaText,#MSG_TELL)

If GetUserAccess(UserID) > 0
	SendMessageToUser(#USERID,"Rank "+GetUserAccess(UserID) +" Moderater",#MSG_TELL)
Endif

;Block code
If 1 <> 1

TargetLvl = GetUserStrength(UserID)+GetUserEndurance(UserID) + GetUserWisdom(UserID) + GetUserAgility(UserID)
TargetLvl = TargetLvl / 4
TargetLvl = Abs(TargetLvl)
TargetLvl = FTrim(TargetLvl) 

UserLvl = GetUserStrength(#USERID)+GetUserEndurance(#USERID) + GetUserWisdom(#USERID) + GetUserAgility(#USERID)
UserLvl = UserLvl / 4
UserLvl = Abs(UserLvl)
UserLvl = FTrim(UserLvl)

POWER_MARK ="This player is about equal to you."

If UserLvl > TargetLvl
	POWER_MARK ="This player is slightly weaker than you."

     TargetLvl = TargetLvl+ 5
     If UserLvl > TargetLvl
        POWER_MARK ="This player is weaker than you."
        
        TargetLvl = TargetLvl+ 5
        If UserLvl > TargetLvl
           POWER_MARK ="This player is alot weaker than you."
        EndIf
     EndIf
ElseIf UserLvl < TargetLvl
	POWER_MARK ="This player is somewhat stronger than you."
     
     UserLvl = UserLvl + 5
     If UserLvl < TargetLvl
        POWER_MARK ="This player is stronger than you."
        
        UserLvl = UserLvl + 5
        If UserLvl < TargetLvl
           POWER_MARK ="This player is much stronger than you."
        EndIf
     EndIf
EndIf

;Block code
EndIf

If GetUserAccess(#USERID) = 0
	SendMessageToUser(#USERID,POWER_MARK,#MSG_TELL)
EndIf

SendMessageToUser(#USERID,"IP Address: "+GetUserIP(UserID),#MSG_TELL)

If GetUserAccess(#USERID) > 0
   If IsOnline(UserID) = 0
      SendMessageToUser(#USERID,GetUserName(UserID) + "is not online.",#MSG_TELL)
   Else
      SendMessageToUser(#USERID,GetUserName(UserID) + "is currently online.",#MSG_TELL)
   EndIf
EndIf

If GetUserAccess(#USERID) > 5
   SendMessageToUser(#USERID,"___________________________",#MSG_TELL)
   SendMessageToUser(#USERID,"HP: "+GetUserHP(UserID)+"/"+GetUserMaxHP(UserID)+"    Blood: "+GetUserMana(UserID)+"/"+GetUserMaxMana(UserID),#MSG_TELL)
   SendMessageToUser(#USERID,"Strength: "+GetUserStrength(UserID)+" : "+GetUserStrengthBonus(UserID)+"                [Exp: "+GetUserStrengthExp(UserID)+"]",#MSG_TELL)
   SendMessageToUser(#USERID,"Endurance: "+GetUserEndurance(UserID)+" : "+GetUserEnduranceBonus(UserID)+"             [Exp: "+GetUserEnduranceExp(UserID)+"]",#MSG_TELL)
   SendMessageToUser(#USERID,"Wisdom: "+GetUserWisdom(UserID)+" : "+GetUserWisdomBonus(UserID)+"                 [Exp: "+GetUserWisdomExp(UserID)+"]",#MSG_TELL)
   SendMessageToUser(#USERID,"Agility: "+GetUserAgility(UserID)+" : "+GetUserAgilityBonus(UserID)+"                  [Exp: "+GetUserAgilityExp(UserID)+"]",#MSG_TELL)
   
   SendMessageToUser(#USERID,GetUserName(UserID)+" has "+GetUserSilver(UserID)+" silver.",#MSG_TELL)
   SendMessageToUser(#USERID,GetUserName(UserID)+" has "+GetUserFlag(UserID,47)+" silver stored away.",#MSG_TELL)
   ;SendMessageToUser(#USERID,GetUserName(UserID)+" has "+GetUserFlag(#USERID,38)+" silver from a loan.",#MSG_TELL)
   ITEMS=""
   If GetUserInvItem(UserID,GetUserEquippedWeapon(UserID)) > 0
		ITEMS=ITEMS+GetItemName(GetUserInvItem(UserID,GetUserEquippedWeapon(UserID)))+", "
   EndIf
   If GetUserInvItem(UserID,GetUserEquippedArmor(UserID)) > 0
		ITEMS=ITEMS+GetItemName(GetUserInvItem(UserID,GetUserEquippedArmor(UserID)))+", "
   EndIf
   If GetUserInvItem(UserID,GetUserEquippedHelmet(UserID)) > 0
		ITEMS=ITEMS+GetItemName(GetUserInvItem(UserID,GetUserEquippedHelmet(UserID)))+", "
   EndIf
   If GetUserInvItem(UserID,GetUserEquippedBoots(UserID)) > 0
		ITEMS=ITEMS+GetItemName(GetUserInvItem(UserID,GetUserEquippedBoots(UserID)))+", "
   EndIf
   If GetUserInvItem(UserID,GetUserEquippedAccessory(UserID)) > 0
		ITEMS=ITEMS+GetItemName(GetUserInvItem(UserID,GetUserEquippedAccessory(UserID)))+", "
   EndIf
   
   If ITEMS = ""
      ITEMS="None"
   EndIf
   
   SendMessageToUser(#USERID,"Equiped items: "+ITEMS,#MSG_TELL)
EndIf

Label END

Continue = 1
