17 minutos atrás, Yan18 disse:

Vamos testar sem eventos, pode ser algum evento.

 

Substitui o código por esse:

 

local config = {
    loginMessage = getConfigValue('loginMessage'),
    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

--alterado v2.6 tabelas soh em lib/configuration.lua;

local looktype_accountmanager = 352 -- LOOKTYPE DO ACCOUNT MANAGER
local storage_online_points = 5984548 -- STORAGE QUE ARMAZENA PONTOS ONLINE

function onLogin(cid)

	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, 'Bem Vindo Ao Pokemon Venetta Server')
	
----------------------------------------------------------- ACCOUNT MANAGER -----------------------------------------------------------
    local accountManager = getPlayerAccountManager(cid)

    if(accountManager == MANAGER_NONE) then
        local lastLogin = getPlayerLastLoginSaved(cid)
		local str = config.loginMessage
		
        if(lastLogin > 0) then
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
            str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."
        end
        
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)

    elseif(accountManager == MANAGER_NAMELOCK) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Ola, parece que voce teve seu nome bloqueado (nameblock), escolha outro nome.")
	
	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 = {lookType = looktype_accountmanager} -- OUTFIT QUE O ACCOUNT MANAGER TEM SE NÃO FOR OUTFIT DE POKÉMON RANDOM
        end
    
        doSetCreatureOutfit(cid, outfit, -1)
    return true
    end
	
---------------------------------------------------------------------------------------------------------------------------------------

	------------------ EVENTOS ------------------
	  --registerCreatureEvent(cid, "hmup")
	  --registerCreatureEvent(cid, "PlayerAttack")
      --registerCreatureEvent(cid, "dropStone") 
      --registerCreatureEvent(cid, "OnAdvanced")
	  --registerCreatureEvent(cid, "vipexp")
      --registerCreatureEvent(cid, "ShowPokedex") 
      --registerCreatureEvent(cid, "ClosePokedex")
      --registerCreatureEvent(cid, "WatchTv")
	  --registerCreatureEvent(cid, "DropShiny")
      --registerCreatureEvent(cid, "StopWatchingTv")
      --registerCreatureEvent(cid, "WalkTv")
      --registerCreatureEvent(cid, "RecordTv")
      --registerCreatureEvent(cid, "Death")
      --registerCreatureEvent(cid, "PlayerLogout")
      --registerCreatureEvent(cid, "WildAttack")
      --registerCreatureEvent(cid, "Idle")
      --registerCreatureEvent(cid, "PokemonIdle")
      --registerCreatureEvent(cid, "EffectOnAdvance")
      --registerCreatureEvent(cid, "reward")
      --registerCreatureEvent(cid, "GeneralConfiguration")
      --registerCreatureEvent(cid, "ExtendedOpcode")
      --registerCreatureEvent(cid, "ReportBug")
      --registerCreatureEvent(cid, "LookSystem")
      --registerCreatureEvent(cid, "T1")
      --registerCreatureEvent(cid, "T2")
      --registerCreatureEvent(cid, "ll1")
      --registerCreatureEvent(cid, "task_count")
      --registerCreatureEvent(cid, "effectdeath")
      --registerCreatureEvent(cid, "dota")
      --registerCreatureEvent(cid, "atk")
      --registerCreatureEvent(cid, "balance")
	  --registerCreatureEvent(cid, "BlockHit")
	  --registerCreatureEvent(cid, "Ataque")
	  --registerCreatureEvent(cid, "NlooT")
	  --registerCreatureEvent(cid, "KillTask")
	  --registerCreatureEvent(cid, "KillTaske")
	  --registerCreatureEvent(cid, "KillTask3")
	  --registerCreatureEvent(cid, "KillTask4")
	  --registerCreatureEvent(cid, "PlayerDeath")
	  --registerCreatureEvent(cid, "PetKill")
	  --registerCreatureEvent(cid, "onlinebonus")
	  --registerCreatureEvent(cid, "AtLoot")
	  --registerCreatureEvent(cid, "Monster Hunterl")
	  --registerCreatureEvent(cid, "Monster Hunter")
	  
	
    doCreatureSetDropLoot(cid, false)
	  
      doRegainSpeed(cid)
      
		  
	if getCreatureName(cid) ~= "Account Manager" then -- O "ACCOUNT MANAGER" É EXCEÇÃO.
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "(Online Points) Voce Possui " ..getPlayerStorageValue(cid, storage_online_points).. " Online Points Armazenados Em Seu Personagem. Digite !opshop A Qualquer Momento Para Saber Quantos Online Points Voce Possui.")
	end	  
	

	if getPlayerStorageValue(cid, 17000) >= 1 then
	setPlayerStorageValue(cid, 17000, 0)
	doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false) 
	sendMsgToPlayer(cid, 20, "Voce Deslogou No Fly E Foi Teleportado Para O CP Por Questoes De Seguranca.")    
	return true
	end

	setPlayerStorageValue(cid, 17001, 0) --ride
	setPlayerStorageValue(cid, 92003, 0) --water robotic
	setPlayerStorageValue(cid, 92002, 0) --fire robotic
	setPlayerStorageValue(cid, 92001, 0) --water robotic
	setPlayerStorageValue(cid, 32001, 0) --bike 


	

	if getPlayerStorageValue(cid, storage_online_points) < 0 then
		setPlayerStorageValue(cid, storage_online_points, 0)
	return true end
	

-- SE AS QUANTIDADES DE FUSION HELDS POINTS FOREM MENOR QUE 0, SETA AS QUANTIDADES DE FUSION HELDS POINTS PARA 0
	if getPlayerStorageValue(cid, 1234601) < 0 then
		setPlayerStorageValue(cid, 1234601, 0)
	return true end
	
    if getPlayerStorageValue(cid, 1234602) < 0 then
		setPlayerStorageValue(cid, 1234602, 0)
	return true end
	
    if getPlayerStorageValue(cid, 1234603) < 0 then
		setPlayerStorageValue(cid, 1234603, 0)
	return true end
	
    if getPlayerStorageValue(cid, 1234604) < 0 then
		setPlayerStorageValue(cid, 1234604, 0)
	return true end
	
    if getPlayerStorageValue(cid, 1234605) < 0 then
		setPlayerStorageValue(cid, 1234605, 0)
	return true end
	
	
    if getPlayerStorageValue(cid, 1234606) < 0 then
		setPlayerStorageValue(cid, 1234606, 0)
	return true end
	
    if getPlayerStorageValue(cid, 1234607) < 0 then
		setPlayerStorageValue(cid, 1234607, 0)
	return true end
	

    if(not isPlayerGhost(cid)) then
        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
    end
	
	doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 25)
	
	doUpdatePokemonsBar(cid)

    local outfit = {}

    if getPlayerVocation(cid) == 0 then
        doPlayerSetMaxCapacity(cid, 7)
        doPlayerSetVocation(cid, 1)
        setCreatureMaxMana(cid, 6)
        doPlayerAddSoul(cid, -getPlayerSoul(cid))
        setPlayerStorageValue(cid, 19898, 0)
            if getCreatureOutfit(cid).lookType == 510 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 == 511 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	  
	  
    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 v2.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)                 --alterado v2.6
              -- 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)
                local addonfly = getPlayerSlotItem(cid, 8).uid
                local addofly = getItemAttribute(addonfly,"addonfly")
                if not addofly then
                                doSetItemAttribute(addonfly,"addonfly",0) 
                                        doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1)

                end
                if addofly > 0 then
                               doSetCreatureOutfit(cid, {lookType = addofly}, -1)

                end

    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 v2.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")
                     local addonsurf = getPlayerSlotItem(cid, 8).uid
                local addosurf = getItemAttribute(addonsurf,"addonsurf")
                if not addosurf then
                                doSetItemAttribute(addonsurf,"addonsurf",0) 
        doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1)

                end
                if addosurf > 0 then
                                doSetCreatureOutfit(cid, {lookType = addosurf}, -1)

                end    
        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 v2.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)
                     local addonride = getPlayerSlotItem(cid, 8).uid
                local addoride = getItemAttribute(addonride,"addonride")
                if not addofly then
                                doSetItemAttribute(addonride,"addonride",0) 
           doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1)

                end
                if addoride > 0 then
                                doSetCreatureOutfit(cid, {lookType = addoride}, -1)

                end
           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 v2.8
           end 
        else
        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)
            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 v2.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 v2.9 \/
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false)  
        setPlayerStorageValue(cid, 75846, -1)
        sendMsgToPlayer(cid, 20, "You have been moved to your town!")    
     else
        doRegainSpeed(cid)  --alterado v2.6
     end
    
    if getPlayerStorageValue(cid, 22545) >= 1 then   --golden arena
       setPlayerStorageValue(cid, 22545, -1)              --alterado v2.4
       doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)
       setPlayerRecordWaves(cid)     --alterado v2.7 
    end
	
	-- local CP = {x=1056, y=1049, z=7}
	
	-- if getPlayerStorageValue(cid, 17000) >= 1 then
-- setPlayerStorageValue(cid, 17000, 0)
       -- doTeleportThing(cid, CP)

-- end
    
    return true
end 

 

Testei deu bug aquele bug da barra de pokemons que aparece no lado e as mensagens continuo =/