;'God - Ban User'

TargetID = GetUserFlag(#USERID, 45)

If GetUserAccess(#USERID) < 5
	SetUserSkill(#USERID,161,0)
	GoTo END
EndIf

MSG=Lower(GetUserMessage(#USERID))
NAME=Lower(GetUserName(TargetID))

If MSG="unban"
	UnbanUser(NAME)
	SendMessageToUser(#USERID,GetUserName(TargetID)+" has been unbanned.",#MSG_EMOTE)
ElseIf MSG=NAME
	SendMessageToUser(#USERID,"Please say the number of hours to ban this charactor for.",#MSG_EMOTE)
Else
	BanUser(NAME,MSG)
	SendMessageToUser(#USERID,GetUserName(TargetID)+" has been banned for "+MSG+" hours.",#MSG_EMOTE)
EndIf

Label END

Continue = 1