Moved some functions to compat.lua

added:
```lua
Creature:getSpeed()
Creature:getBaseSpeed()
Creature:setDropLoot(doDrop)
Player:setGuildLevel(level)
Player:setGuildNick(nick)
```
and moved:
```lua
getCreatureSpeed(cid)
getCreatureBaseSpeed(cid)
doSetCreatureDropLoot(cid, doDrop)
doPlayerSetGuildLevel(cid, level)
doPlayerSetGuildNick(cid, nick)
```
to compat.lua