[Quest API] Add IsBerserk() to Perl/Lua (#2997)

* [Quest API] Add IsBerserk() to Perl/Lua

# Perl
- Add `$client->IsBerserk()`.

# Lua
- Add `client:IsBerserk()`.
- Remove `mob:IsBerserk()` to move to client.

# Notes
- Allows operators to check if a client is berserk.

* Move to Mob.

* Update lua_client.cpp

zone/lua_client.cpp

@@ -3049,7 +3049,6 @@ bool Lua_Client::IsAutoFireEnabled()
 {
 	Lua_Safe_Call_Bool();
 	return self->AutoFireEnabled();
-
 }
 
 luabind::scope lua_register_client() {