[ Encerrado ] Brincadeira-Relâmpago: Seu Ot no Ekz.

local function getEnd(int)
int = tostring(int)
if int:find("1", -1) then
return "st"
elseif int:find("2", -1) then
return "nd"
elseif int:find("3", -1) then
return "rd"
else
return "th"
end
end

function onSay(cid, words, param)
local storageTwitts = 56132
local twitts = getPlayerStorageValue(cid, storageTwitts)


local function addTwitts(cid, value)
return setPlayerStorageValue(cid, storageTwitts, twitts+value)
end

local function getPlayerFollowersCount(cid)
local t = db.getResult("SELECT COUNT(player_id) as count FROM `player_follows` where `follow_id` = ".. getPlayerGUID(cid) ..";")
local c = t:getDataInt("count")
t:free()
return c
end

local function getPlayerFollowingCount(cid)
local t = db.getResult("SELECT COUNT(player_id) as count FROM `player_follows` where `player_id` = ".. getPlayerGUID(cid) ..";")
local c = t:getDataInt("count")
t:free()
return c
end

local function isPlayerFollowing(cid, id)
local t = db.getResult("SELECT `id` FROM `player_follows` WHERE `follow_id` = "..id.." and `player_id` = ".. getPlayerGUID(cid)..";")
if(t:getID() ~= -1) then
return TRUE
end
return FALSE
end

local function getGlobalTwitts()
local twittsCount = db.getResult("SELECT COUNT(id) as count FROM `player_twitts`;")
if(twittsCount:getID() ~= -1) then
return twittsCount:getDataString("count")
end
end

if words == "!twitterinstall" then
if getPlayerGroupId(cid) < 5 then return false end
db.executeQuery("DROP TABLE IF EXISTS `player_twitts`;")
db.executeQuery("CREATE TABLE `player_twitts` (`globid` INTEGER NOT NULL, `player_id` INTEGER NOT NULL ,`id` INTEGER NOT NULL ,`msg` VARCHAR(255) NOT NULL ,`date` VARCHAR(255) NOT NULL, `osdate` DATE NOT NULL);")
db.executeQuery("DROP TABLE IF EXISTS `player_follows`;")
db.executeQuery("CREATE TABLE `player_follows` (`player_id` INTEGER NOT NULL ,`id` INTEGER NOT NULL ,`follow_id` INTEGER NOT NULL ,`follow_name` VARCHAR(255) NOT NULL);")
doPlayerSendTextMessage(cid, 27, 'Twitter System by Uissu installed successfully!')
return true
end

if twitts == -1 then
doPlayerSendTextMessage(cid, 18, "Welcome to Twitter. Twitter is a good way to tell short stories and update yourself to your friends. Hope you enjoy!")
doPlayerSendTextMessage(cid, 18, "You are not following anybody. You can follow someone by saying !follow [name]. Then you\'ll be able to see their twitts.")
setPlayerStorageValue(cid, storageTwitts, 1)
return TRUE
end

if words == "!updates" then
local text = ""
for n=1,getGlobalTwitts() do
local t = db.getResult("SELECT `msg`, `date`, `player_id`, `osdate` FROM `player_twitts` WHERE `globid` = "..n..";")
if(t:getID() ~= -1) then
local pid = t:getDataInt("player_id")
local msg = t:getDataString("msg")
local date = t:getDataString("date")
if isPlayerFollowing(cid, pid) then
text = "The player "..getPlayerNameByGUID(pid).." twitted:\n\'"..msg.."\'\nIn "..date..".\n\n"..text
elseif string.find(tostring(msg), "@"..getCreatureName(cid)) then
text = "The player "..getPlayerNameByGUID(pid).." mentioned you in:\n\'"..msg.."\'\nIn "..date..".\n\n"..text
end
end
end
doShowTextDialog(cid, 1950, text ~= "" and text or "No recent updates, try following someone: !follow [name].")
return TRUE
end
if param == "" then
doPlayerSendCancel(cid, "Param required.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return TRUE
end
local guid = 0

if words == "!twitt" then
if string.find(param, "@") then
m = string.match(tostring(param),"@(.*),")
pid = getPlayerByName(m)

if isPlayer(pid) then
local text = getCreatureName(cid).." mentioned you in a twitt."
guid = pid

if isPlayerFollowing(pid, getPlayerGUID(cid)) then
text = text.." You can see the twitt by typeing \'!updates\'."
else
text = text.." You can see the twitt by following him with the command: \'!follow "..getCreatureName(cid).."\' and then typeing \'!updates\'."
end
doPlayerSendTextMessage(pid, 18, text)
end
end
for n=1,twitts do
local t = db.getResult("SELECT `msg` FROM `player_twitts` WHERE `id` = "..n.." and `player_id` = "..getPlayerGUID(cid)..";")
if(t:getID() == -1) then
db.executeQuery("INSERT INTO `player_twitts` (`globid`,`msg`,`date`,`id`,`player_id`,`osdate`) VALUES ('"..(getGlobalTwitts()+1).."', '".. tostring(param) .. "', '".. os.date("%B").." "..os.date("%d")..""..getEnd(os.date("%d"))..", "..os.date("%Y")..". ("..os.date("%X")..")', '".. n .. "', '".. getPlayerGUID(cid).."', '".. os.time().."');")
if n == twitts then
addTwitts(cid, 1)
end
break
end
end
for _,pid in ipairs(getPlayersOnline()) do
if isPlayer(pid) and isPlayerFollowing(cid, pid) and pid ~= cid and pid ~= guid then
doPlayerSendTextMessage(pid, 18, getCreatureName(cid).." twitted something, you can check by typeing \'!updates\'.")
end
end
doPlayerSendTextMessage(cid, 18, "You\'ve twitted: \""..param.."\".")

elseif words == "!follow" then
local player = db.getResult("SELECT `id` FROM `players` WHERE `name` = '".. param .."';")
if(player:getID() == -1) then
doPlayerSendCancel(cid, "Player with name \'"..param.."\' doesn\'t exists.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return TRUE
end
local pid = getPlayerByName(param)
local cname = getCreatureName(cid)
local GUID = player:getDataString("id")
if pid == cid then
doPlayerSendCancel(cid, "You can\'t follow yourself.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return TRUE
end
local already = 0
for n=1,math.max(1, getPlayerFollowingCount(cid)+1) do
local fl = db.getResult("SELECT `follow_id` FROM `player_follows` WHERE `id` = '".. n .."' and `player_id` = '".. getPlayerGUID(cid) .."';")
if(fl:getID() ~= -1) then
if(fl:getDataString("follow_id") == GUID) then
already = 1
break
end
end
end
if already == 1 then
doPlayerSendCancel(cid, "You\'re already following this player.")
return true
end
for n=1,math.max(1, getPlayerFollowingCount(cid)+1) do
local fl = db.getResult("SELECT `follow_id` FROM `player_follows` WHERE `id` = '".. n .."' and `player_id` = '".. getPlayerGUID(cid) .."';")
if(fl:getID() == -1) then
db.executeQuery("INSERT INTO `player_follows` (`follow_id`,`follow_name`,`id`,`player_id`) VALUES ('".. GUID .. "', '".. param .."', '".. n .. "', '".. getPlayerGUID(cid) .."');")
break
end
end
if isPlayer(pid) then
doPlayerSendTextMessage(pid, 18, "The player \'"..cname.."\' is now following you in Twitter. You have now "..getPlayerFollowersCount(pid).." followers.")
end
doPlayerSendTextMessage(cid, 18, "You\'re now following \'"..param.."\'. You are now following ".. getPlayerFollowingCount(cid) .." players.")

elseif words == "!unfollow" then
local player = db.getResult("SELECT `id` FROM `players` WHERE `name` = '".. param .."';")
if(player:getID() == -1) then
doPlayerSendCancel(cid, "Player with name \'"..param.."\' doesn\'t exists.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return TRUE
end
local pid = getPlayerByName(param)
local cname = getCreatureName(cid)
local GUID = player:getDataString("id")
local following = 0
for n=1,math.max(1, getPlayerFollowingCount(cid)+1) do
local fl = db.getResult("SELECT `follow_id` FROM `player_follows` WHERE `id` = '".. n .."' and `player_id` = '".. getPlayerGUID(cid) .."';")
if(fl:getID() ~= -1) then
if(fl:getDataString("follow_id") == GUID) then
db.executeQuery("DELETE FROM `player_follows` WHERE `id` = ".. n .." AND `player_id` = ".. getPlayerGUID(cid) ..";")
if isPlayer(pid) then
doPlayerSendTextMessage(pid, 18, "The player \'"..cname.."\' is not following you anymore. You have now "..getPlayerFollowersCount(pid).." followers.")
end
doPlayerSendTextMessage(cid, 18, "You\'re not following \'"..param.."\' anymore. You are now following "..getPlayerFollowingCount(cid).." players.")
following = 1
break
end
end
end
if following == 0 then
doPlayerSendCancel(cid, "You are not following \'"..param.."\'.")
doSendMagicEffect(getCreaturePosition(cid), 2)
return TRUE
end

end

return TRUE
end

Vá em Items.xml procure por "Giant Eye" e mude para "Mysterious" Salve e fexe! Ele ficará assim:

<item id="11191" name="mysterious pet">
   <attribute key="weight" value="120" />
</item>

Agora vai em actions.xml e adiciona essa linha:

<action itemid="11191" event="script" value="mount.lua"/>

Agora Volte na Pasta Actions e crie uma chamada "mount.lua" e adicione isso:

-- [( Mount System 1.4 created by Leonard02 for ww.xtibia.com )] --
function onUse(cid, item)
local outfit = {lookType = 342} -- Outfit da montaria!
local exhaust = 60 -- Tempo para player poder usar o item novamente! (tempo em segundos)
local time = 60 -- Tempo para ficar na montaria! (tempo em segundos)
local speed = 300 -- Velocidade adicionada ao player após usar o item! (300 = velocidade, quanto maior mais rapido...)
local mana = 1300 -- Quantidade de mana que o player necessita para usar o sistema!
local premium = "yes" -- Apenas players premium accounts "yes" or "no"!?
local storage = 9393 -- Não mexa aqui!
if premium == "yes" and not isPremium(cid) then
return doPlayerSendTextMessage(cid, 23, "Sorry, only premium players.")
end
if(getCreatureMana(cid) < mana) then
return doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTENOUGHMANA)
end
if (getPlayerStorageValue(cid, storage) <= os.time()) then
doCreatureSay(cid, "Yeeeah!!!\nYou went up on his ride.", 19)
doSetCreatureOutfit(cid, outfit, time*1000)
doChangeSpeed(cid, speed)
doSendMagicEffect(getCreaturePosition(cid), 34)
setPlayerStorageValue(cid, storage, os.time()+exhaust)
doPlayerAddMana(cid, -mana)
addEvent(doChangeSpeed, time*1000+40, cid, -speed)
addEvent(doPlayerSendTextMessage, time*1000+45, cid, 23, "Mount System is time out!")
addEvent(doSendMagicEffect, time*1000+50, getCreaturePosition(cid), 2)
doRemoveItem(item.uid, 1)
else
doPlayerSendCancel(cid, "Sorry, you only can again use this item after "..exhaust.." seconds.")
end
return TRUE
end

Pronto, Agora configure do geito que quiser!

items.xml

pasta lib