Ir para conteúdo

bringsz

Membro
  • Registro em

  • Última visita

Tudo que bringsz postou

  1. bringsz postou uma resposta no tópico em OTServer Derivados
    @Daskyn Acredito que sim '-' @Kazuya9629 Cara só seguir esse tutorial aqui Lembrando que quanto menor o numero no atk speed, mais rápido os personagens vão atacar
  2. bringsz postou uma resposta no tópico em OTServer Derivados
    @netoxdd Da sim cara, só seguir a segunda parte desse tutorial que ensina a compilar sem a pasta dev-cpp
  3. bringsz postou uma resposta no tópico em OTServer Derivados
    Kojack datapack 2015 or DBO Rox
  4. bringsz postou uma resposta no tópico em OTServer Derivados
    Any DBO 8.60
  5. bringsz postou uma resposta no tópico em OTServer Derivados
    @Wakon adicionado
  6. bringsz postou uma resposta no tópico em OTServer Derivados
    Galera estou disponibilizando para vocês uma source que no meu servidor corrigiu o bug das mortes infinitas que já vi em vários OTServ de DBO. Simplesmente eu peguei essas sources e modifiquei para DBO - Effets limit 255 - HP e MP por % - Fisting upando atk speed para 350.
  7. @dissolima Isso mesmo, estou com servidor aberto 24horas e não ocorreu o bug, eu tinha feito isso mudando de sources mas tava crashando o server, agr aparentemente está tudo certo. VLW Vou postar as sources depois para quem está com esse problema tbm, já modificadas para dbo
  8. @dissolima Alguma source para indicar?
  9. @xWhiteWolf Os personagens estão com 0 de vida pois estão bugados, mas do nada simplesmente eles desbugam ou eu tenho que kickar e voltam com HP normal.
  10. @victor4312 Não tem bless nem aol infinito. @Ziguirifido Sabe arrumar isso? só acontece com alguns players @xWhiteWolf White fiz o que você mandou, verifiquei na database um personagem bugado e tipo a vida dela ta em health = 0 e healtmax = 2124670 nada negativo, já testei o servidor e tirei todos os onDeath e onPrepareDeath e o bug continuou E os que tem de onLogin são esses scripts: antimc.lua local config = { max = 4, -- Número de players permitido com o mesmo IP. group_id = 1 -- Kikar apenas player com o group id 1. } local accepted_ip_list = {} -- Lista dos players permitidos a usar MC, exemplo: {"200.85.3.60", "201.36.5.222"} local function antiMC(p) if #getPlayersByIp(getPlayerIp(p.pid)) >= p.max then doRemoveCreature(p.pid) end return true end function onLogin(cid) if getPlayerGroupId(cid) <= config.group_id then if isInArray(accepted_ip_list,doConvertIntegerToIp(getPlayerIp(cid))) == false then addEvent(antiMC, 1000, {pid = cid, max = config.max+1}) end end return true end login.lua local config = { loginMessage = getConfigValue('loginMessage'), useFragHandler = getBooleanFromString(getConfigValue('useFragHandler')) } function onLogin(cid) local loss = getConfigValue('deathLostPercent') if(loss ~= nil) then doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10) end 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 = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "." else str = str .. " Please choose your outfit." doPlayerSendOutfitWindow(cid) setPlayerStorageValue(cid, 30024, 0) 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 getPlayerStorageValue(cid, 67792) == -1 then doPlayerPopupFYI(cid, "Bem vindos ao DBO") doPlayerSetStorageValue(cid, 67792, 0) end if(not isPlayerGhost(cid)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) end registerCreatureEvent(cid, "Mail") registerCreatureEvent(cid, "SkullCheck") registerCreatureEvent(cid, "NoPartyAttack") registerCreatureEvent(cid, "TiraBattle") registerCreatureEvent(cid, "Idle") if(config.useFragHandler) then registerCreatureEvent(cid, "SkullCheck") registerCreatureEvent(cid, "Reward") end registerCreatureEvent(cid, "FullHpMana") registerCreatureEvent(cid, "AdvanceSave") doPlayerPopupFYI(cid, "Bem vindo ao servidor DBO") registerCreatureEvent(cid, "ZombieAttack") registerCreatureEvent(cid, "BlessCheck") registerCreatureEvent(cid, "advance") registerCreatureEvent(cid, "SkullCheck") registerCreatureEvent(cid, "ReportBug") registerCreatureEvent(cid,"Outfit") registerCreatureEvent(cid, "FragReward") registerCreatureEvent(cid, "Niwdeath") registerCreatureEvent(cid, "AdvanceSave") registerCreatureEvent(cid, "LevelRecompense") registerCreatureEvent(cid, "BoasVindas") registerCreatureEvent(cid, "BroadDeath") registerCreatureEvent(cid, "SaveStamina") --------- SHOP --------- registerCreatureEvent(cid, "RemovedorDeFrags") --------- OTHERS --------- registerCreatureEvent(cid, "perdereifeto") registerCreatureEvent(cid, "Maxlvl") registerCreatureEvent(cid, "Maxlvl1") --------------- REFLECT ---------------- registerCreatureEvent(cid, "Reflect") if getPlayerStorageValue(cid, 3482101) ~= 0 then setPlayerStorageValue(cid, 3482101, 0) end registerCreatureEvent(cid, "dodge") if getPlayerStorageValue(cid, 48902) == -1 then setPlayerStorageValue(cid, 48902, 0) end registerCreatureEvent(cid, "critical") if getPlayerStorageValue(cid, 48903) == -1 then setPlayerStorageValue(cid, 48903, 0) end return true end outfit_vocation.lua skillstageslogin.lua dofile(getDataDir() .. "creaturescripts/scripts/stagesconfig.lua") function onLogin(cid) for skill, skillStage in pairs(skillStages) do if(skill >= 0 and skill <= 6) then nowSkill = getPlayerSkillLevel(cid, skill) else nowSkill = getPlayerMagLevel(cid, true) end for i, skillRateInfo in pairs(skillStage) do if(nowSkill >= skillRateInfo[1]) then skillRate = skillRateInfo[2] else break end end doPlayerSetRate(cid, skill, skillRate) end if(showInfoOnLogin) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, getPlayerSkillRatesText(cid)) end registerCreatureEvent(cid, "SkillStagesAdvance") return TRUE end boasvindas.lua local message = [[Seja bem vindo! Utilize o canal help para maiores informações. Digite !notice ou !news para ver as novidades. Bom jogo!]] function onLogin(cid) local accountManager = getPlayerAccountManager(cid) if(accountManager == MANAGER_NEW) then doPlayerPopupFYI(cid, message) end return true end checkbless.lua function onLogin(cid) if(getPlayerBlessing(cid, 1)) then first = "Sim" else first = "Não" end if(getPlayerBlessing(cid, 2)) then second = "Sim" else second = "Não" end if(getPlayerBlessing(cid, 3)) then third = "Sim" else third = "Não" end if(getPlayerBlessing(cid, 4)) then fourth = "Sim" else fourth = "Não" end if(getPlayerBlessing(cid, 5)) then fifth = "Sim" else fifth = "Não" end doPlayerSendTextMessage(cid,20,'Suas Blessings: [1='.. first ..' / 2='.. second ..' / 3='.. third ..' / 4='.. fourth ..' / 5='.. fifth ..']') return true end
  11. @xWhiteWolf Hm.. como eu vejo hp e mana max que a database suporta? realmente eu fiz algumas alterações no hp e mana dos personagens aumentando bastante, mas os personagens tem o mesmo hp e alguns bugam e outros não. Vou fazer isso
  12. bringsz postou uma resposta no tópico em Suporte Tibia OTServer
    Erro: Script --[[ PERFECT UPGRADE SYSTEM 2.0 Criado por Oneshot É proibido a venda ou a cópia sem os devidos créditos desse script. ]]-- UpgradeHandler = { levels = { [1] = {80, false, false}, [2] = {80, true, false}, [3] = {70, true, false}, [4] = {70, true, false}, [5] = {60, true, false}, [6] = {60, true, true}, [7] = {50, true, true}, [8] = {40, true, true}, [9] = {30, true, true}, [10] = {10, true, true}, [11] = {5, true, true}, [12] = {1, true, true} }, broadcast = 10, attributes = { ["attack"] = 1, ["defense"] = 2, ["armor"] = 5 }, message = { console = "Trying to refine %s to level +%s with %s%% success rate.", success = "You have upgraded %s to level +%s", fail = "You have failed in upgrade of %s to level +%s", downgrade = "The upgrade level of %s has downgraded to +%s", erase = "The upgrade level of %s has been erased.", maxlevel = "The targeted %s is already on max upgrade level.", notupgradeable = "This item is not upgradeable.", broadcast = "The player %s was successful in upgrading %s to level +%s.\nCongratulations!!", invalidtool = "This is not a valid upgrade tool.", toolrange = "This upgrade tool can only be used in items with level between +%s and +%s" }, tools = { [8302] = {range = {0, 12}, info = {chance = 0, removeable = true}}, [8300] = {range = {0, 12}, info = {chance = 100, removeable = true}}, [2153] = {range = {0, 12}, info = {chance = 5, removeable = true}} }, isEquipment = function(self) local weaponType = self:getItemWeaponType() return ((weaponType > 0 and weaponType < 7) or self.item.armor ~= 0) end, setItemName = function(self, name) return doItemSetAttribute(self.item.uid, "name", name) end, chance = function(self) local chances = {} chances.upgrade = (self.levels[self.item.level + 1][1] or 100) chances.downgrade = (self.item.level * 5) chances.erase = (self.item.level * 3) return chances end } function UpgradeHandler:new(item) local obj, ret = {} obj.item = {} obj.item.level = 0 obj.item.uid = item.uid for key, value in pairs(getItemInfo(item.itemid)) do obj.item[key] = value end ret = setmetatable(obj, {__index = function(self, index) if _G[index] then return (setmetatable({callback = _G[index]}, {__call = function(self, ...) return self.callback(item.uid, ...) end})) else return UpgradeHandler[index] end end}) if ret:isEquipment() then ret:update() return ret end return false end function UpgradeHandler:update() self.item.level = (tonumber(self:getItemName():match("%+(%d+)")) or 0) end function UpgradeHandler:refine(uid, item) if not self.item then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, self.message.notupgradeable) return "miss" end local tool = self.tools[item.itemid] if(tool == nil) then doPlayerSendTextMessage(uid, MESSAGE_EVENT_DEFAULT, self.message.invalidtool) return "miss" end if(self.item.level > #self.levels) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.maxlevel:format(self.item.name)) return "miss" end if(self.item.level < tool.range[1] or self.item.level >= tool.range[2]) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.toolrange:format(unpack(tool.range))) return "miss" end local chance = (self:chance().upgrade + tool.info.chance) doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_BLUE, self.message.console:format(self.item.name, (self.item.level + 1), math.min(100, chance))) if(tool.info.removeable == true) then doRemoveItem(item.uid, 1) end if chance * 100 > math.random(1, 10000) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_ORANGE, self.message.success:format(self.item.name, (self.item.level + 1))) if (self.item.level + 1) >= self.broadcast then doBroadcastMessage(self.message.broadcast:format(getCreatureName(uid), self.item.name, (self.item.level + 1))) end self:setItemName((self.item.level > 0 and self:getItemName():gsub("%+(%d+)", "+".. (self.item.level + 1)) or (self:getItemName() .." +1"))) for key, value in pairs(self.attributes) do if getItemAttribute(self.item.uid, key) ~= nil or self.item[key] ~= 0 then doItemSetAttribute(self.item.uid, key, (self.item.level > 0 and getItemAttribute(self.item.uid, key) or self.item[key]) + value) end end return "success" else if(self.levels[self.item.level][3] == true and (self:chance().erase * 100) > math.random(1, 10000)) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.erase:format(self.item.name)) self:setItemName(self.item.name) for key, value in pairs(self.attributes) do if self.item[key] > 0 then doItemSetAttribute(self.item.uid, key, self.item[key]) end end elseif(self.levels[self.item.level][2] == true and (self:chance().downgrade * 100) > math.random(1, 10000)) then doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.downgrade:format(self.item.name, (self.item.level - 1))) self:setItemName((self.item.level == 1 and self.item.name or self:getItemName():gsub("%+(%d+)", "+".. (self.item.level - 1)))) for key, value in pairs(self.attributes) do if getItemAttribute(self.item.uid, key) ~= nil or self.item[key] ~= 0 then doItemSetAttribute(self.item.uid, key, (self.item[key] + value * (self.item.level - 1))) end end else doPlayerSendTextMessage(uid, MESSAGE_STATUS_CONSOLE_RED, self.message.fail:format(self.item.name, (self.item.level + 1))) end return "fail" end end
  13. bringsz postou uma resposta no tópico em Suporte Tibia OTServer
    Erro distro: Script local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 226) local arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 2, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) setCombatArea(combat1, area1) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 227) local arr2 = { {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {1, 0, 0, 0, 0}, {2, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, } local area2 = createCombatArea(arr2) setCombatArea(combat2, area2) local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat3, COMBAT_PARAM_EFFECT, 225) local arr3 = { {0, 0, 0, 0, 0}, {0, 0, 1, 2, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, } local area3 = createCombatArea(arr3) setCombatArea(combat3, area3) local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat4, COMBAT_PARAM_EFFECT, 224) local arr4 = { {0, 0, 1, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 2, 0}, } local area4 = createCombatArea(arr4) setCombatArea(combat4, area4) local combat5 = createCombatObject() setCombatParam(combat5, COMBAT_PARAM_HITCOLOR, COLOR_TEAL) setCombatParam(combat5, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat5, COMBAT_FORMULA_LEVELMAGIC, -400.0, 0, -450.0, 0) local arr5 = { {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 1, 0, 0, 0}, {1, 1, 1, 1, 1, 1, 2, 0, 0}, {1, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area5 = createCombatArea(arr5) setCombatArea(combat5, area5) local combat6 = createCombatObject() setCombatParam(combat6, COMBAT_PARAM_HITCOLOR, COLOR_TEAL) setCombatParam(combat6, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat6, COMBAT_FORMULA_LEVELMAGIC, -400.0, 0, -450.0, 0) local arr6 = { {0, 0, 0, 0, 0, 0 ,0}, {0, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 1, 1}, {2, 1, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 0}, } local area6 = createCombatArea(arr6) setCombatArea(combat6, area6) local combat7 = createCombatObject() setCombatParam(combat7, COMBAT_PARAM_HITCOLOR, COLOR_TEAL) setCombatParam(combat7, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat7, COMBAT_FORMULA_LEVELMAGIC, -400.0, 0, -450.0, 0) local arr7 = { {0, 0, 0, 2, 0}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, } local area7 = createCombatArea(arr7) setCombatArea(combat7, area7) local combat8 = createCombatObject() setCombatParam(combat8, COMBAT_PARAM_HITCOLOR, COLOR_TEAL) setCombatParam(combat8, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat8, COMBAT_FORMULA_LEVELMAGIC, -400.0, 0, -450.0, 0) local arr8 = { {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 1, 1, 1}, {0, 0, 0, 2, 0}, } local area8 = createCombatArea(arr8) setCombatArea(combat8, area8) function mc3(cid) if getCreatureLookDirection(cid) == 1 then doCombat(cid, combat1, numberToVariant(cid)) doCombat(cid, combat5, numberToVariant(cid)) doPlayerSay(cid, 'HAAAA!', TALKTYPE_ORANGE_1) elseif getCreatureLookDirection(cid) == 3 then doCombat(cid, combat2, numberToVariant(cid)) doCombat(cid, combat6, numberToVariant(cid)) doPlayerSay(cid, 'HAAAA!', TALKTYPE_ORANGE_1) elseif getCreatureLookDirection(cid) == 0 then doCombat(cid, combat3, numberToVariant(cid)) doCombat(cid, combat7, numberToVariant(cid)) doPlayerSay(cid, 'HAAAA!', TALKTYPE_ORANGE_1) elseif getCreatureLookDirection(cid) == 2 then doCombat(cid, combat4, numberToVariant(cid)) doCombat(cid, combat8, numberToVariant(cid)) doPlayerSay(cid, 'HAAAA!', TALKTYPE_ORANGE_1) end end function mc2(cid) doPlayerSay(cid, 'Desgracado!', TALKTYPE_ORANGE_1) addEvent(mc3,500,cid) end function mc1(cid) doPlayerSay(cid, 'Morra!', TALKTYPE_ORANGE_1) addEvent(mc2,500,cid) end function onCastSpell(cid, var) if exhaustion.check(cid, 13103) == TRUE then doPlayerSendCancel(cid, "Podera usar novamente dentro de 5 segundos.") doSendMagicEffect(getCreaturePosition(cid), 2) return false elseif exhaustion.check(cid, 13104) == TRUE then doPlayerSendCancel(cid, "You are exhauted.") doSendMagicEffect(getCreaturePosition(cid), 2) return false end addEvent(mc1,500,cid) exhaustion.set(cid, 13103, 5.0) return true end
  14. @Radamanthys Wov Erro ainda persiste
  15. novo erro
  16. Erro: Script: local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_HITCOLOR, COLOR_YELLOW) setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 34) setCombatParam(combat1, COMBAT_PARAM_DISTANCEEFFECT, 40) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -116.7, 0, -121.7, 0) local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_HITCOLOR, COLOR_PINK) setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat3, COMBAT_PARAM_DISTANCEEFFECT, 44) setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -116.7, 0, -121.7, 0) local function onCastSpell1(parameters) doCombat(parameters.cid, parameters.combat1, parameters.var) end local function onCastSpell3(parameters) doCombat(parameters.cid, parameters.combat3, parameters.var) end function frr1(cid) for r = 1, 1 do addEvent(function() if isCreature(cid) then local position1 = {x=getThingPosition(getCreatureTarget(cid)).x+1, y=getThingPosition(getCreatureTarget(cid)).y+1, z=getThingPosition(getCreatureTarget(cid)).z} doSendMagicEffect(position1, 48) end end, 1 + ((r-1) * 500)) end end function onCastSpell(cid, var) local parameters = {cid = cid, var = var, combat1 = combat1, combat3 = combat3} for k = 1, 2 do addEvent(function() if isCreature(cid) then addEvent(onCastSpell1, 1, parameters) end end, 1 + ((k-1) * 200)) end for i = 1, 1 do addEvent(function() if isCreature(cid) then addEvent(onCastSpell3, 400, parameters) end end, 1 + ((i-1) * 400)) end for l = 1, 1 do addEvent(function() if isCreature(cid) then addEvent(frr1,500,cid) end end, 1 + ((l-1) * 500)) end return true end
  17. Mesmo erro Só que agora aparece toda hora antes fiquei uns 30m fazendo esse sistema e apareceu 2x
  18. Estou com um erro no meu cassino system, ele funciona normal mas as vezes da esse erro no distro Script: local coins = 2145 local cost = 10 local playing = createConditionObject(CONDITION_INFIGHT) setConditionParam(playing, CONDITION_PARAM_TICKS, 3000) local function checkPrize(array) local prize = 0 if array[1] == array[2] and array[2] == array[3] and array[1] == 9 then --3n iguais = 9 return "jackpot" end if array[1] == array[2] and array[1] == array[3] then -- 3n iguais return 20 * array[1] end if array[1] == array[2] or array[1] == array[3] then return 8 * array[1] end if array[2] == array[3] then return 8 * array[2] end if (array[1] == array[2] - 1 and array[1] == array[3] - 2) or (array[1] == array[2] + 1 and array[1] == array[3] + 2) then return (array[1] + array[2] + array[3]) * 9 end return 0 end function getJackpotEffect() local it = math.random(1,5) if it == 1 then return 27 elseif it == 2 then return 28 elseif it == 3 then return 29 elseif it == 4 then return 84 else return 85 end end function sendJackpotEffect(pos) local pos1 = {x = pos.x + 2, y = pos.y, z = pos.z} local pos2 = {x = pos.x + 1, y = pos.y + 1, z = pos.z} local pos3 = {x = pos.x, y = pos.y + 2, z = pos.z} local pos4 = {x = pos.x - 1, y = pos.y + 1, z = pos.z} local pos5 = {x = pos.x - 2, y = pos.y, z = pos.z} local pos6 = {x = pos.x - 1, y = pos.y - 1, z = pos.z} local pos7 = {x = pos.x, y = pos.y - 2, z = pos.z} local pos8 = {x = pos.x + 1, y = pos.y - 1, z = pos.z} doSendDistanceShoot(pos, pos1, 39) doSendDistanceShoot(pos, pos2, 39) doSendDistanceShoot(pos, pos3, 39) doSendDistanceShoot(pos, pos4, 39) doSendDistanceShoot(pos, pos5, 39) doSendDistanceShoot(pos, pos6, 39) doSendDistanceShoot(pos, pos7, 39) doSendDistanceShoot(pos, pos8, 39) doSendMagicEffect(pos1, getJackpotEffect()) doSendMagicEffect(pos2, getJackpotEffect()) doSendMagicEffect(pos3, getJackpotEffect()) doSendMagicEffect(pos4, getJackpotEffect()) doSendMagicEffect(pos5, getJackpotEffect()) doSendMagicEffect(pos6, getJackpotEffect()) doSendMagicEffect(pos7, getJackpotEffect()) doSendMagicEffect(pos8, getJackpotEffect()) end function onUse(cid, item, frompos, item2, topos) local coinss = 23254 if getPlayerGroupId(cid) == 11 then return true end if topos.y + 1 ~= getThingPos(cid).y or topos.x ~= getThingPos(cid).x then local poss = {x = topos.x, y = topos.y + 1, z = topos.z} if isWalkable(poss, cid, 0, 0) then doPushCreature(cid, getDirectionTo(getThingPos(cid), poss), 1, 0) if not (getThingPos(cid).x == topos.x and getThingPos(cid).y == topos.y + 1) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Por favor, fique na frente da máquina de entalhe para jogar!.") return true end doCreatureSetLookDir(cid, 0) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Por favor, fique na frente da máquina de entalhe para jogar!.") return true end end doCreatureSetLookDir(cid, 0) if getPlayerNoMove(cid) == true then return true end if getPlayerItemCount(cid,coins) < cost then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Você não tem small diamond suficiente para jogar caça-níqueis.") return true end local mymoney = getPlayerItemCount(cid,coins) doPlayerRemoveItem(cid, coins, 10) doPlayerSetNoMove(cid, true) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Você empurrou a alavanca da máquina (-10 small diamonds).") local a = item.itemid doTransformItem(item2.uid, a + 1) local function doPullBack(pos) doTransformItem(getTileItemById(pos, a + 1).uid, a) end addEvent(doPullBack, 500, topos) local function doPlay(cid, pos, first, second, third) doAddCondition(cid, playing) if first == 0 then firstplay = math.random(1, 9) doSendAnimatedText(pos, firstplay, 66) addEvent(doPlay, 900, cid, pos, firstplay, second, third) return true end if second == 0 then secondplay = math.random(1, 9) doSendAnimatedText(pos, secondplay, 66) addEvent(doPlay, 900, cid, pos, first, secondplay, third) return true end if third == 0 then thirdplay = math.random(1, 9) doSendAnimatedText(pos, thirdplay, 66) addEvent(doPlay, 900, cid, pos, first, second, thirdplay) return true end if checkPrize({first, second, third}) == "jackpot" then doSendAnimatedText(pos, "JACKPOT!", 180) sendJackpotEffect(getThingPos(cid)) addEvent(doSendAnimatedText, 600, pos, "JACKPOT!", 66) addEvent(sendJackpotEffect, 600, getThingPos(cid)) addEvent(doSendAnimatedText, 1400, pos, "JACKPOT!", 180) addEvent(sendJackpotEffect, 1400, getThingPos(cid)) addEvent(doSendAnimatedText, 2200, pos, "JACKPOT!", 66) addEvent(sendJackpotEffect, 2200, getThingPos(cid)) local ppos = getThingPos(cid) --local win = 100 addEvent(doSendAnimatedText, 2500, ppos, "+100", 35) doPlayerAddItem(cid, coins,100) --addEvent(setPlayerStorageValue, 100, cid, coinss, win) addEvent(doPlayerSendTextMessage, 2500, cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Voce Ganhou 100 Small Diamonds.") addEvent(doPlayerSetNoMove, 2500, cid, false) elseif checkPrize({first, second, third}) == 0 then doSendAnimatedText(pos, "FAIL", 180) doPlayerSetNoMove(cid, false) elseif checkPrize({first, second, third}) <= 30 then doSendAnimatedText(pos, "GOOD", 215) local ppos = getThingPos(cid) local prize = checkPrize({first, second, third}) --local win = 50 addEvent(doSendAnimatedText, 500, ppos, "+50", 35) --addEvent(setPlayerStorageValue, 50, cid, coinss, win) doPlayerAddItem(cid, coins,50) addEvent(doPlayerSendTextMessage, 500, cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Voce Ganhou 50 Small Diamonds.") addEvent(doPlayerSetNoMove, 500, cid, false) elseif checkPrize({first, second, third}) <= 65 then doSendAnimatedText(pos, "GREAT", 210) local ppos = getThingPos(cid) local prize = checkPrize({first, second, third}) --local win = 60 addEvent(doSendAnimatedText, 500, ppos, "+60", 35) --addEvent(setPlayerStorageValue, 60, cid, coinss, win) doPlayerAddItem(cid, coins,60) addEvent(doPlayerSendTextMessage, 500, cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Voce Ganhou 60 Small Diamonds.") addEvent(doPlayerSetNoMove, 500, cid, false) else doSendAnimatedText(pos, "EXCELLENT", 35) local ppos = getThingPos(cid) local prize = checkPrize({first, second, third}) --local win = 80 addEvent(doSendAnimatedText, 500, ppos, "+80", 35) --addEvent(setPlayerStorageValue, 80, cid, coinss, win) doPlayerAddItem(cid, coins,80) addEvent(doPlayerSendTextMessage, 500, cid, MESSAGE_STATUS_CONSOLE_BLUE, "[Slot Machine] Voce Ganhou 80 Small Diamonds.") addEvent(doPlayerSetNoMove, 500, cid, false) end return true end doAddCondition(cid, playing) addEvent(doPlay, 850, cid, topos, 0, 0, 0) return true end alguém?
  19. bringsz postou uma resposta no tópico em Suporte Tibia OTServer
    A Database Error Occurred Error Number: 1146 Table 'dbo.forums' doesn't exist
  20. @Juantibiano Basicamente para você criar um personagem você deve ter um personagem base para ele se "espelhar" vamos assim dizer, ou seja, esses personagens chamamos de sample... Exemplo para eu criar um Goku no meu servidor de DBO precisa ter um personagem na minha database chamado de Goku Sample, geralmente essas contas ficam na mesma conta que o acc manager... Esse erro pode ser que quando você tenta criar um personagem ele vai procurar o Sample e não acha, esse personagem é um personagem novo? ou quando você baixou já veio com esse erro? Caso já veio assim, só esse personagem da erro ou todos?
  21. Galera descobri no meu servidor que quando vou criar conta ele sempre da erro na hora de colocar nickname.. qualquer 1 da erro ai fui começar a mexer aqui e percebi que quando um jogador cria a primeira conta com o nickname com caracteres ele joga o valor na database para 0 e depois qualquer apelido da erro, porém eu percebi se você digitar um apelido com 4 números + ele cria a conta... meu nickname está só aceitando números? se sim, como muda? *** EDIT *** Bom galera eu fui atras e eu mesmo achei.. quando der esse erro você precisa entrar na sua database clica no + de account e vai em colunas, onde estiver nickname você clica para editar e muda de INT 11 para CHAR 48...
  22. Faz tempo que postei esse script, não tenho ctz, mas provavelmente não pois a extensão que o arquivo está lendo é PNG, mas caso você tenha os arquivos em .gif que se movimentam é so alterar aqui: <img src="Monsters/'. $skill->getLookType() . '_0.png" alt="" /> Caso não ache essa parte é só abrir o script apertar ctrl+f e digitar png Lembrando que as fotos tem q estar dentro da pasta Monsters e ser o ID_0.gif Exemplo: 1_0.gif

Informação Importante

Confirmação de Termo