Error em Script de Fishing System!

Postado Dezembro 21, 2014 10 anos

ALO COM QUE EU FALO?

Galera tenho um Server de Poketibia, com lvl System e coloquei um Script de Fishing System, que faz quando o Player for Pescar, terá de colocar uma roupa especifica...

Informações sobre o Server:

Pokemon Dash Advanced

Level System

Gender System

8.54

OTClient

TFS 1.0

Script(data/actions\scripts\tools/fishing.lua):

local storage = 15458
local storageP = 154581
local bonus = 1
local limite = 80

local function doFish(cid, pos, ppos, chance, interval, number)
if not isCreature(cid) then return false end

if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then
return false end

if getPlayerStorageValue(cid, storage) ~= number then return false end

doSendMagicEffect(pos, CONST_ME_LOSEENERGY)

local peixe = 0
local playerpos = getClosestFreeTile(cid, getThingPos(cid))
local fishes = {}
local randomfish = ""

--alterado!!
if getPlayerSkillLevel(cid, 6) < limite then
doPlayerAddSkillTry(cid, 6, 20)
end

for a, b in pairs (fishing) do
if getPlayerSkillLevel(cid, 6) >= b.skill then
table.insert(fishes, a)
end
end

if math.random(1, 100) <= chance then
if getPlayerSkillLevel(cid, 6) < limite then
doPlayerAddSkillTry(cid, 6, bonus)
end
randomfish = fishes[math.random(#fishes)]
peixe = doSummonCreature(randomfish, playerpos)
if not isCreature(peixe) then
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
return true
end
doSetMonsterPassive(peixe)
doWildAttackPlayer(peixe, cid)
if #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) ---- 1 e o efeito que ira sair ao usar a rod na agua.
doChallengeCreature(getCreatureSummons(cid)[1], peixe)
else
doSendMagicEffect(getThingPos(cid), 173)
doChallengeCreature(cid, peixe)
end
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, false)
doRemoveCondition(cid, CONDITION_OUTFIT)
return true
end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, true)
return true
end

local waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825}

function onUse(cid, item, fromPos, itemEx, toPos)

if getPlayerGroupId(cid) == 11 then
return true
end

local checkPos = toPos
checkPos.stackpos = 0

if getTileThingByPos(checkPos).itemid <= 0 then
doPlayerSendCancel(cid, '!')
return true
end

if not isInArray(waters, getTileInfo(toPos).itemid) then
return true
end

if (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) and not canFishWhileSurfingOrFlying then
doPlayerSendCancel(cid, "You can't fish while surfing/flying.")
return true
end

if isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then
doPlayerSendCancel(cid, "You can't fish while surfing neither flying above water.")
return true
end

if getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then
doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.")
return true
end

if getPlayerStorageValue(cid, storageP) > 0 then
doPlayerSendTextMessage(cid, 27, "You are already fishing.")
return true
end
if getPlayerSex(cid) == 1 then
if getCreatureOutfit(cid).lookType ~= 520 then ---- Outfit necessaria para usar o fishing
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
return false
end
else
if getCreatureOutfit(cid).lookType ~= 521 then ---- Outfit necessaria para usar o fishing
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
return false
end
end

if not tonumber(getPlayerStorageValue(cid, storage)) then
local test = io.open("data/sendtobrun123.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
read = read.."\n[fishing.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, storage)..""
local reopen = io.open("data/sendtobrun123.txt", "w")
reopen:write(read)
reopen:close()
setPlayerStorageValue(cid, storage, 1)
end

setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1)
if getPlayerStorageValue(cid, storage) >= 800 then
setPlayerStorageValue(cid, storage, 1)
end

local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25
local chance = 10 + getPlayerSkillLevel(cid, 6) / 2.5
outfit = getCreatureOutfit(cid)
if getPlayerSex(cid) == 0 then
out = 1467 --- Outfit de Pesca FEMININA
else
out = 1468 --- Outfit de Pesca MASCULINA
end
doSetCreatureOutfit(cid, {lookType = out, lookHead = outfit.lookHead, lookBody = outfit.lookBody, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

return true
end

Tag no Action.xml

<action itemid="2580" event="script" value="tools/fishing.lua" allowfaruse="1"/>

<action itemid="10223" event="script" value="tools/fishing.lua" allowfaruse="1"/>

Topico do System:

http://www.tibiaking.com/forum/topic/20581-action-fishing-system-pxg/

Error no Distro:

[21/12/2014 14:46:07] [Error - Action Interface] 
[21/12/2014 14:46:07] data/actions/scripts/tools/fishing.lua:onUse
[21/12/2014 14:46:07] Description: 
[21/12/2014 14:46:07] data/actions/scripts/tools/fishing.lua:26: bad argument #1 to 'pairs' (table expected, got nil)
[21/12/2014 14:46:07] stack traceback:
[21/12/2014 14:46:07] 	[C]: in function 'pairs'
[21/12/2014 14:46:07] 	data/actions/scripts/tools/fishing.lua:26: in function 'doFish'
[21/12/2014 14:46:07] 	data/actions/scripts/tools/fishing.lua:144: in function <data/actions/scripts/tools/fishing.lua:64>

@up

Editado Dezembro 21, 2014 10 anos por TsplayerT (veja o histórico de edições)

Meus Contatos!

Minhas Funções:

Skype: TsplayerT

Facebook: TakaFukushii

YouTube: ADoseDupla

Twitter: @_Splayer_

Mapper:▓▓▓▓▓▓▓▓▓▓ 97%

Programmer:▓▓▓▓▓▒▒▒▒▒ 45%

Scripter:▓▓▓▓▓▓▓▓▓▒ 83%

Spriter:▓▓▓▓▓▓▒▒▒▒ 57%

Gamemaster:▓▓▓▓▓▓▓▓▓▓ 99%

Ot Creator:▓▓▓▓▓▓▓▒▒▒71%

Ot Client Maker:▓▓▓▓▓▓▓▒▒▒74%

Citar

Mention

Postado Dezembro 21, 2014 10 anos

for a, b in pairs (fishing) do

Não existe a tabela "fishing", nem local, nem global, sendo assim não há valor para atribuir. Originalmente, esse sistema deve ter sido instalado por partes.

Citar

Mention

Postado Dezembro 21, 2014 10 anos

Autor

for a, b in pairs (fishing) do
Não existe a tabela "fishing", nem local, nem global, sendo assim não há valor para atribuir. Originalmente, esse sistema deve ter sido instalado por partes.

Nossa...

Tem como refazer o script para mim?

for a, b in pairs (fishing) do
Não existe a tabela "fishing", nem local, nem global, sendo assim não há valor para atribuir. Originalmente, esse sistema deve ter sido instalado por partes.

Obrg cara

Meus Contatos!

Minhas Funções:

Skype: TsplayerT

Facebook: TakaFukushii

YouTube: ADoseDupla

Twitter: @_Splayer_

Mapper:▓▓▓▓▓▓▓▓▓▓ 97%

Programmer:▓▓▓▓▓▒▒▒▒▒ 45%

Scripter:▓▓▓▓▓▓▓▓▓▒ 83%

Spriter:▓▓▓▓▓▓▒▒▒▒ 57%

Gamemaster:▓▓▓▓▓▓▓▓▓▓ 99%

Ot Creator:▓▓▓▓▓▓▓▒▒▒71%

Ot Client Maker:▓▓▓▓▓▓▓▒▒▒74%

Citar

Mention

Postado Dezembro 21, 2014 10 anos

local storage = 15458
local storageP = 154581
local bonus = 1
local limite = 80
local chance = 20

  local fishing = {
  ["Magikarp"] = {skill = 1},
  ["Goldeen"] =  {skill = 10},
  ["Seaking"] =  {skill = 40}
  } 

local function doFish(cid, pos, ppos, chance, interval, number)
if not isCreature(cid) then return false end

if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then
return false end

if getPlayerStorageValue(cid, storage) ~= number then return false end

doSendMagicEffect(pos, CONST_ME_LOSEENERGY)

local peixe = 0
local playerpos = getClosestFreeTile(cid, getThingPos(cid))
local fishes = {}
local randomfish = ""


--alterado!!
if getPlayerSkillLevel(cid, 6) < limite then
doPlayerAddSkillTry(cid, 6, 20)
end

for a, b in pairs (fishing) do
if getPlayerSkillLevel(cid, 6) >= b.skill then
table.insert(fishes, a)
end
end

if math.random(1, 100) <= chance then
if getPlayerSkillLevel(cid, 6) < limite then
doPlayerAddSkillTry(cid, 6, bonus)
end
randomfish = fishes[math.random(#fishes)]
peixe = doSummonCreature(randomfish, playerpos)
if not isCreature(peixe) then
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
return true
end
doSetMonsterPassive(peixe)
doWildAttackPlayer(peixe, cid)
if #getCreatureSummons(cid) >= 1 then
doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173) ---- 1 e o efeito que ira sair ao usar a rod na agua.
doChallengeCreature(getCreatureSummons(cid)[1], peixe)
else
doSendMagicEffect(getThingPos(cid), 173)
doChallengeCreature(cid, peixe)
end
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, false)
doRemoveCondition(cid, CONDITION_OUTFIT)
return true
end
addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
setPlayerStorageValue(cid, storageP, 1)
doCreatureSetNoMove(cid, true)
return true
end

local waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825}

function onUse(cid, item, fromPos, itemEx, toPos)

if getPlayerGroupId(cid) == 11 then
return true
end

local checkPos = toPos
checkPos.stackpos = 0

if getTileThingByPos(checkPos).itemid <= 0 then
doPlayerSendCancel(cid, '!')
return true
end

if not isInArray(waters, getTileInfo(toPos).itemid) then
return true
end

if (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) and not canFishWhileSurfingOrFlying then
doPlayerSendCancel(cid, "You can't fish while surfing/flying.")
return true
end

if isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then
doPlayerSendCancel(cid, "You can't fish while surfing neither flying above water.")
return true
end

if getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then
doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.")
return true
end



if getPlayerStorageValue(cid, storageP) > 0 then
doPlayerSendTextMessage(cid, 27, "You are already fishing.")
return true
end
if getPlayerSex(cid) == 1 then
if getCreatureOutfit(cid).lookType ~= 520 then ---- Outfit necessaria para usar o fishing
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
return false
end
else
if getCreatureOutfit(cid).lookType ~= 521 then ---- Outfit necessaria para usar o fishing
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need fisher outfit for fishing.")
return false
end
end


if not tonumber(getPlayerStorageValue(cid, storage)) then
local test = io.open("data/sendtobrun123.txt", "a+")
local read = ""
if test then
read = test:read("*all")
test:close()
end
read = read.."\n[fishing.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, storage)..""
local reopen = io.open("data/sendtobrun123.txt", "w")
reopen:write(read)
reopen:close()
setPlayerStorageValue(cid, storage, 1)
end

setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1)
if getPlayerStorageValue(cid, storage) >= 800 then
setPlayerStorageValue(cid, storage, 1)
end

local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25
local chance = 10 + getPlayerSkillLevel(cid, 6) / 2.5
outfit = getCreatureOutfit(cid)
if getPlayerSex(cid) == 0 then
out = 1467 --- Outfit de Pesca FEMININA
else
out = 1468 --- Outfit de Pesca MASCULINA
end
doSetCreatureOutfit(cid, {lookType = out, lookHead = outfit.lookHead, lookBody = outfit.lookBody, lookLegs = outfit.lookLegs, lookFeet = outfit.lookFeet}, -1)
doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

return true
end

Citar

Mention

Postado Dezembro 21, 2014 10 anos

Autor

local bonus = 1

local limite = 80

local chance = 20

["Seaking"] = {skill = 40}

local peixe = 0

local playerpos = getClosestFreeTile(cid, getThingPos(cid))
local fishes = {}
local randomfish = ""

if getPlayerSkillLevel(cid, 6) < limite then
doPlayerAddSkillTry(cid, 6, 20)
end

ME EXPLICA TUDO ISSO? POR FAVOR

Meus Contatos!

Minhas Funções:

Skype: TsplayerT

Facebook: TakaFukushii

YouTube: ADoseDupla

Twitter: @_Splayer_

Mapper:▓▓▓▓▓▓▓▓▓▓ 97%

Programmer:▓▓▓▓▓▒▒▒▒▒ 45%

Scripter:▓▓▓▓▓▓▓▓▓▒ 83%

Spriter:▓▓▓▓▓▓▒▒▒▒ 57%

Gamemaster:▓▓▓▓▓▓▓▓▓▓ 99%

Ot Creator:▓▓▓▓▓▓▓▒▒▒71%

Ot Client Maker:▓▓▓▓▓▓▓▒▒▒74%