CreatureScript%25252FGlobalEvent%25252FMoveMent [Mostrar Qtdade de Player na Guild e Qtos Online]

Emersonssss · Julho 11, 2014

Boa Noite Galera Acabei de Termia esse script e venho postar para vcs, no global quando se da look em um player é mostrado qtos player tem na Guild dele e qtos online!
 
Vamos aos .xml
 
Creaturescripts/

<event type="look" name="RepLook" event="script" value="relook.lua"/>

em Login.lua

if isPlayer(cid) then
    local guild = getPlayerGuildId(cid)
    playerid = getPlayerGUID(cid)
    if getPlayerGuildId(cid) ~= 0 then
    db.query("UPDATE `players` SET `guild_id` = "..guild.." WHERE `players`.`id` = "..playerid..";")
    else
    db.query("UPDATE `players` SET `guild_id` = 0 WHERE `players`.`id` = "..playerid..";")
    end
    end

registerCreatureEvent(cid, "RepLook")

Na DataBase Adc esse SQL:

ALTER TABLE `players` ADD `guild_id` int(11) NOT NULL DEFAULT '0';

em relook.lua

function onLook(cid, thing, position, lookDistance)
local tabela = {}
if isPlayer(thing.uid) then
if getPlayerGuildId(thing.uid) ~= 0 then
playerid = getPlayerGUID(thing.uid)
query2 = db.getResult("SELECT Count( guild_id ) FROM `players` WHERE `players`.`guild_id` = "..getPlayerGuildId(thing.uid)..";")
query3 = db.getResult("SELECT Count( online ) FROM `players` WHERE `players`.`online` = 1 AND `players`.`guild_id` = "..getPlayerGuildId(thing.uid)..";")
table.insert(tabela, "\nExiste "..query2:getDataInt("Count( guild_id )").." Player na Guild.\n"..query3:getDataInt("Count( online )").." Players Online")
end
local concatena = table.concat(tabela)
doPlayerSetSpecialDescription(thing.uid, concatena)
end
return true
end

Qualquer Bugs Avise

Para os TFS que usa db.executeQuery mude os db.query para db.executeQuery

Editado Julho 11, 2014 por Emersonssss (veja o histórico de edições)

roriscrave · Julho 11, 2014

fotos do funcionamento?

Emersonssss · Julho 11, 2014

fotos do funcionamento?

~~Absolute~~ · Julho 11, 2014

Acho que nem todos possuem o banco de dados com o nome de 'otserv'

Porém acho interessante deixar explicado que aqui:

db.query("UPDATE `otserv`.`players` SET `guild_id` = "..guild.." WHERE `players`.`id` = "..playerid..";")
	else
	db.query("UPDATE `otserv`.`players` SET `guild_id` = 0 WHERE `players`.`id` = "..playerid..";")

em otserv você coloca o nome da sua databse, caso contrário não irá achar a coluna players pelo fato de não ter a database.

Simples, mas tenho certeza que haverá duvidas sobre.

Emersonssss · Julho 11, 2014

Acho que nem todos possuem o banco de dados com o nome de 'otserv'

Porém acho interessante deixar explicado que aqui:
db.query("UPDATE `otserv`.`players` SET `guild_id` = "..guild.." WHERE `players`.`id` = "..playerid..";")
	else
	db.query("UPDATE `otserv`.`players` SET `guild_id` = 0 WHERE `players`.`id` = "..playerid..";")
em otserv você coloca o nome da sua databse, caso contrário não irá achar a coluna players pelo fato de não ter a database.

Simples, mas tenho certeza que haverá duvidas sobre.

Sim..Olha ta aprendendo mysql não precisa mais fica me perguntando como adc dias vip

tenho 2 servidor na msm db então eu especifico para não fazer caca mais #FIKADIKA

Wend · Julho 11, 2014

Reputado

éé Mais quando vou executar a SQL da esse erro

#1064 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '`guildnick` VARCHAR( 255 ) CHARACTER SET latin1 COLLATE latin1_swedish_ci NOT NU' at line 1

macalo · Julho 11, 2014

Reputado

éé Mais quando vou executar a SQL da esse erro

#1064 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '`guildnick` VARCHAR( 255 ) CHARACTER SET latin1 COLLATE latin1_swedish_ci NOT NU' at line 1

tb estou com esse erro .

Emersonssss · Julho 11, 2014

tb estou com esse erro .

 

Desculpe erro meu

ALTER TABLE `players` ADD `guild_id` int(11) NOT NULL DEFAULT '0';

Editado Julho 11, 2014 por Emersonssss (veja o histórico de edições)

DeathRocks · Julho 12, 2014

Aqui nao funcionou testando em TFS 0.4 e 8.60

~~Absolute~~ · Julho 12, 2014

Aqui nao funcionou testando em TFS 0.4 e 8.60

AEUHAUEHAUHEAUHEAUHEAUEHA

Death, se quiser me chama private tenho um funcional.

Emersonssss · Julho 12, 2014

Aqui nao funcionou testando em TFS 0.4 e 8.60

Meu TFS é 0.4 e 8.60 se não funcionou poq o senhor fez algo errado

O Senhor verificou seu comando se é db.query ou db.executeQuery?

Poste o Erro

Editado Julho 12, 2014 por Emersonssss (veja o histórico de edições)

Wend · Julho 12, 2014

Meu TFS é 0.4 e 8.60 se não funcionou poq o senhor fez algo errado

O Senhor verificou seu comando se é db.query ou db.executeQuery?

Poste o Erro

Meu server é 8.54 e da esse erro

[12/07/2014 08:37:07] [Error - CreatureScript Interface]

[12/07/2014 08:37:07] data/creaturescripts/scripts/login.lua:onLogin

[12/07/2014 08:37:07] Description:

[12/07/2014 08:37:07] data/creaturescripts/scripts/login.lua:223: attempt to call field 'query' (a nil value)

[12/07/2014 08:37:07] stack traceback:

[12/07/2014 08:37:07] data/creaturescripts/scripts/login.lua:223: in function <data/creaturescripts/scripts/login.lua:6>

Login.lua

local config = {

loginMessage = getConfigValue('loginMessage'),

useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))

}

function onLogin(cid)

if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 10 then --alterado v1.8

doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 0)

else

doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, (getPlayerLevel(cid) >= 200 and 100 or math.floor(getPlayerLevel(cid)/2)) )

end

doCreatureSetDropLoot(cid, false)

local accountManager = getPlayerAccountManager(cid)

if(accountManager == MANAGER_NONE) then

local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage

if(lastLogin > 0) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)

str = "Sua ultima visita foi em " .. os.date("%a %b %d %X %Y", lastLogin) .. "."

else

str = str

end

doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)

elseif(accountManager == MANAGER_NAMELOCK) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, it appears that your character has been namelocked, what would you like as your new name?")

elseif(accountManager == MANAGER_ACCOUNT) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.")

else

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.")

end

if getCreatureName(cid) == "Account Manager" then

local outfit = {}

if accountManagerRandomPokemonOutfit then

outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])}

else

outfit = accountManagerOutfit

end

doSetCreatureOutfit(cid, outfit, -1)

return true

end

if(not isPlayerGhost(cid)) then

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)

end

local outfit = {}

if getPlayerVocation(cid) == 0 then

doPlayerSetMaxCapacity(cid, 0)

doPlayerSetVocation(cid, 1)

setCreatureMaxMana(cid, 6)

doPlayerAddSoul(cid, -getPlayerSoul(cid))

setPlayerStorageValue(cid, 19898, 0)

if getCreatureOutfit(cid).lookType == 128 then

outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}

elseif getCreatureOutfit(cid).lookType == 136 then

outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)}

end

doCreatureChangeOutfit(cid, outfit)

end

registerCreatureEvent(cid, "dropStone")

registerCreatureEvent(cid, "ShowPokedex")

registerCreatureEvent(cid, "ClosePokedex")

registerCreatureEvent(cid, "WatchTv")

registerCreatureEvent(cid, "StopWatchingTv")

registerCreatureEvent(cid, "WalkTv")

registerCreatureEvent(cid, "RecordTv")

registerCreatureEvent(cid, "PlayerLogout")

registerCreatureEvent(cid, "WildAttack")

registerCreatureEvent(cid, "Idle")

registerCreatureEvent(cid, "EffectOnAdvance")

registerCreatureEvent(cid, "GeneralConfiguration")

registerCreatureEvent(cid, "SaveReportBug")

registerCreatureEvent(cid, "LookSystem")

registerCreatureEvent(cid, "T1")

registerCreatureEvent(cid, "T2")

registerCreatureEvent(cid, "task_count")

registerCreatureEvent(cid, "KillAlavanca")

registerCreatureEvent(cid, "ExpVip")

registerCreatureEvent(cid, "HouseTranslation")

if getPlayerStorageValue(cid, 99284) == 1 then

setPlayerStorageValue(cid, 99284, -1)

end

if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then

setPlayerStorageValue(cid, 6598754, -1)

setPlayerStorageValue(cid, 6598755, -1)

doRemoveCondition(cid, CONDITION_OUTFIT) --alterado v1.9 \/

doTeleportThing(cid, posBackPVP, false)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

end

doChangeSpeed(cid, -(getCreatureSpeed(cid)))

--///////////////////////////////////////////////////////////////////////////--

local storages = {17000, 63215, 17001, 13008, 5700}

for s = 1, #storages do

if not tonumber(getPlayerStorageValue(cid, storages)) then

if s == 3 then

setPlayerStorageValue(cid, storages, 1)

elseif s == 4 then

setPlayerStorageValue(cid, storages, -1)

else

if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then

setPlayerStorageValue(cid, storages, 1)

else

setPlayerStorageValue(cid, storages, -1)

end

end

doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright")

end

end

--/////////////////////////////////////////////////////////////////////////--

if getPlayerStorageValue(cid, 17000) >= 1 then -- fly

local item = getPlayerSlotItem(cid, 8)

local poke = getItemAttribute(item.uid, "poke")

doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

doRemoveCondition(cid, CONDITION_OUTFIT)

doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)

local apos = getFlyingMarkedPos(cid)

apos.stackpos = 0

if getTileThingByPos(apos).itemid <= 2 then

doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE)

doCreateItem(460, 1, getFlyingMarkedPos(cid))

end

doTeleportThing(cid, apos, false)

if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then

sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8

end

local posicao = getTownTemplePosition(getPlayerTown(cid))

markFlyingPos(cid, posicao)

elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf

local item = getPlayerSlotItem(cid, 8)

local poke = getItemAttribute(item.uid, "poke")

doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) --alterado v1.6

doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then

sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8

end

elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride

local item = getPlayerSlotItem(cid, 8)

local poke = getItemAttribute(item.uid, "poke")

if rides[poke] then

doChangeSpeed(cid, getPlayerStorageValue(cid, 54844))

doRemoveCondition(cid, CONDITION_OUTFIT)

doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)

if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then

sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v1.8

end

else

setPlayerStorageValue(cid, 17001, -1)

doRegainSpeed(cid)

end

local posicao2 = getTownTemplePosition(getPlayerTown(cid))

markFlyingPos(cid, posicao2)

elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive

if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then

setPlayerStorageValue(cid, 13008, 0)

doRegainSpeed(cid)

doRemoveCondition(cid, CONDITION_OUTFIT)

return true

end

if getPlayerSex(cid) == 1 then

doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)

else

doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1)

end

doChangeSpeed(cid, 800)

elseif getPlayerStorageValue(cid, 5700) > 0 then --bike

doChangeSpeed(cid, -getCreatureSpeed(cid))

doChangeSpeed(cid, getPlayerStorageValue(cid, 5700)) --alterado v1.8

if getPlayerSex(cid) == 1 then

doSetCreatureOutfit(cid, {lookType = 1394}, -1)

else

doSetCreatureOutfit(cid, {lookType = 1393}, -1)

end

elseif getPlayerStorageValue(cid, 75846) >= 1 then --alterado v1.9 \/

doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false)

setPlayerStorageValue(cid, 75846, -1)

sendMsgToPlayer(cid, 20, "You have been moved to your town!")

else

doRegainSpeed(cid)

end

if getPlayerStorageValue(cid, 22545) >= 1 then

setPlayerStorageValue(cid, 22545, -1)

doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)

setPlayerRecordWaves(cid)

end

if isPlayer(cid) then

local guild = getPlayerGuildId(cid)

playerid = getPlayerGUID(cid)

if getPlayerGuildId(cid) ~= 0 then

db.query("UPDATE `players` SET `guild_id` = "..guild.." WHERE `players`.`id` = "..playerid..";")

else

db.query("UPDATE `players` SET `guild_id` = 0 WHERE `players`.`id` = "..playerid..";")

end

end

registerCreatureEvent(cid, "RepLook")

if useKpdoDlls then

doUpdateMoves(cid)

doUpdatePokemonsBar(cid)

end

return true

end

Editado Julho 12, 2014 por AnnaFeeh (veja o histórico de edições)

Emersonssss · Julho 12, 2014

[12/07/2014 08:37:07] data/creaturescripts/scripts/login.lua:223: attempt to call field 'query' (a nil value)

Poxa Amigo com 250 Rep não sabe arruma isso :/

Segue anexo ja prontinho para você

Substitua isso :

if isPlayer(cid) then
local guild = getPlayerGuildId(cid)
playerid = getPlayerGUID(cid)
if getPlayerGuildId(cid) ~= 0 then
db.executeQuery("UPDATE `players` SET `guild_id` = "..guild.." WHERE `players`.`id` = "..playerid..";")
else
db.executeQuery("UPDATE `players` SET `guild_id` = 0 WHERE `players`.`id` = "..playerid..";")
end
end

Wend · Julho 12, 2014

[12/07/2014 08:37:07] data/creaturescripts/scripts/login.lua:223: attempt to call field 'query' (a nil value)

Poxa Amigo com 250 Rep não sabe arruma isso :/

Segue anexo ja prontinho para você

Substitua isso :
if isPlayer(cid) then
local guild = getPlayerGuildId(cid)
playerid = getPlayerGUID(cid)
if getPlayerGuildId(cid) ~= 0 then
db.executeQuery("UPDATE `players` SET `guild_id` = "..guild.." WHERE `players`.`id` = "..playerid..";")
else
db.executeQuery("UPDATE `players` SET `guild_id` = 0 WHERE `players`.`id` = "..playerid..";")
end
end

Foi uma Desatenção minha mais já tinha Resolvido

está funcional agora *--*

DeathRocks · Julho 12, 2014

Não da erro no distro. mais é que nao pega...

Emersonssss · Julho 12, 2014

Não da erro no distro. mais é que nao pega...

Como a AnnaFeeh mesmo disse esta funcional, o senhor esta fazendo algo errado :/

Sadness · Julho 12, 2014

.

macalo · Julho 13, 2014

Não da erro no distro. mais é que nao pega...

TB TESTEI E N MOSTRA ERRO MAIS N FUNFA AKI

Emersonssss · Julho 13, 2014

TB TESTEI E N MOSTRA ERRO MAIS N FUNFA AKI

Ae Fica Impossivel eu saber, se não da erro e tbm não pega algo na sua TFS não é compativel :/

macalo · Julho 13, 2014

Ae Fica Impossivel eu saber, se não da erro e tbm não pega algo na sua TFS não é compativel :/

POIS É FICA MSM

Entrar

CreatureScript%25252FGlobalEvent%25252FMoveMent [Mostrar Qtdade de Player na Guild e Qtos Online]

Posts Recomendados

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Link para o post

Compartilhar em outros sites

Participe da conversa

Quem Está Navegando 0 membros estão online

TibiaKing

Open Tibia Server

Redes Sociais

Anuncie no TibiaKing

Informação Importante