dúvida Bug House não compra

[eduardosm14 9]

Galera Estou Com Os Seguintes Erros, Quando O Player Tenta Comprar 1 House Da Erro Em Data/actions/others/dool.lua c n me engano e esse o diretorio.......E O PLAYER NAO CONSEGUE COMPRAR A HOUSE COM O CAMANDO !buyhouse

 

doors.lua

local function checkStackpos(item, position)

position.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE

local thing = getThingfromPos(position)

position.stackpos = STACKPOS_TOP_FIELD

local field = getThingfromPos(position)

if(item.uid ~= thing.uid and thing.itemid >= 100 or field.itemid ~= 0) then

return FALSE

end

 

return TRUE

end

 

function onUse(cid, item, fromPosition, itemEx, toPosition)

local nuevas = {

{closed=10269, open=10270},

{closed=10272, open=10273},

{closed=10274, open=10275},

{closed=10276, open=10277},

{closed=10278, open=10279},

{closed=10280, open=10281},

{closed=10282, open=10283},

{closed=10284, open=10285},

{closed=10469, open=10470},

{closed=10471, open=10472},

{closed=10473, open=10474},

{closed=10475, open=10476},

{closed=10478, open=10479},

{closed=10480, open=10481},

{closed=10482, open=10483},

{closed=10484, open=10485},

}

for ia = 1,#nuevas do

if (item.itemid == nuevas[ia].closed) then

doTransformItem(item.uid, nuevas[ia].open)

elseif (item.itemid == nuevas[ia].open) then

doTransformItem(item.uid, nuevas[ia].closed)

end

end

 

if(getItemLevelDoor(item.itemid) > 0) then

if(item.actionid > 0 and getPlayerLevel(cid) >= (item.actionid - getItemLevelDoor(item.itemid))) then

doTransformItem(item.uid, item.itemid + 1)

doTeleportThing(cid, toPosition, TRUE)

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")

end

 

return TRUE

end

 

if(isInArray(specialDoors, item.itemid) == TRUE) then

if(item.actionid ~= 0 and getPlayerStorageValue(cid, item.actionid) ~= -1) then

doTransformItem(item.uid, item.itemid + 1)

doTeleportThing(cid, toPosition, TRUE)

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "The door seems to be sealed against unwanted intruders.")

end

 

return TRUE

end

 

if(isInArray(keys, item.itemid) == TRUE) then

if(itemEx.actionid > 0) then

if(item.actionid == itemEx.actionid) then

if doors[itemEx.itemid] ~= nil then

doTransformItem(itemEx.uid, doors[itemEx.itemid])

return TRUE

end

end

 

doPlayerSendCancel(cid, "The key does not match.")

return TRUE

end

 

return FALSE

end

 

if(isInArray(horizontalOpenDoors, item.itemid) == TRUE and checkStackpos(item, fromPosition) == TRUE) then

local newPosition = toPosition

newPosition.y = newPosition.y + 1

local doorPosition = fromPosition

doorPosition.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE

local doorCreature = getThingfromPos(doorPosition)

if(doorCreature.itemid ~= 0) then

if(getTilePzInfo(doorPosition) == TRUE and getTilePzInfo(newPosition) == FALSE and doorCreature.uid ~= cid) then

doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)

else

doTeleportThing(doorCreature.uid, newPosition, TRUE)

if(isInArray(closingDoors, item.itemid) ~= TRUE) then

doTransformItem(item.uid, item.itemid - 1)

end

end

 

return TRUE

end

 

doTransformItem(item.uid, item.itemid - 1)

return TRUE

end

 

if(isInArray(verticalOpenDoors, item.itemid) == TRUE and checkStackpos(item, fromPosition) == TRUE) then

local newPosition = toPosition

newPosition.x = newPosition.x + 1

local doorPosition = fromPosition

doorPosition.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE

local doorCreature = getThingfromPos(doorPosition)

if(doorCreature.itemid ~= 0) then

if(getTilePzInfo(doorPosition) == TRUE and getTilePzInfo(newPosition) == FALSE and doorCreature.uid ~= cid) then

doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)

else

doTeleportThing(doorCreature.uid, newPosition, TRUE)

if(isInArray(closingDoors, item.itemid) ~= TRUE) then

doTransformItem(item.uid, item.itemid - 1)

end

end

 

return TRUE

end

 

doTransformItem(item.uid, item.itemid - 1)

return TRUE

end

 

if(doors[item.itemid] ~= nil and checkStackpos(item, fromPosition) == TRUE) then

if(item.actionid == 0) then

doTransformItem(item.uid, doors[item.itemid])

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is locked.")

end

 

return TRUE

end

 

return FALSE

end

 

TAMBEM ESTOU COM ERRO NA DEMON OAK QUANDO U PLAYER TERMINA ELA NAO RESETA PRA OUTROS FAZEREM, TEM Q REINCIAR O SERV PRA OUTROS PODEREM FAZER.....

 

demonoak.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)

treepos = {x=1163, y=1111, z=7, stackpos=1}

monster1 = {x=1161, y=1114, z=7}

monster2 = {x=1168, y=1115, z=7}

monster3 = {x=1166, y=1122, z=7}

monster4 = {x=1159, y=1122, z=7}

tree = getThingfromPos(treepos).uid

playerPos = getCreaturePosition(cid)

local randomizer = math.random(1,6)

queststatus = getPlayerStorageValue(cid,8181)

queststatus2 = getPlayerStorageValue(cid,8282)

queststatus3 = getPlayerStorageValue(cid,8383)

queststatus4 = getPlayerStorageValue(cid,8484)

Level = getPlayerLevel(cid)

 

if itemEx.itemid == 2709 and itemEx.actionid == 7787 and Level >= 170 then

doRemoveItem(tree)

doTeleportThing(cid, toPosition, TRUE)

setPlayerStorageValue(cid,8181,1)

else

doSendMagicEffect(toPosition, CONST_ME_POFF)

doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "Only level 170+.")

end

if itemEx.itemid == 2709 and itemEx.actionid == 7788 then

doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "A player is already doing this quest.")

end

if itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer == 1) and queststatus == 1 then

doSummonCreature("Crypt Shambler", monster1)

doSummonCreature("Crypt Shambler", monster2)

doSummonCreature("Crypt Shambler", monster3)

doSummonCreature("Crypt Shambler", monster4)

elseif itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer == 2) and queststatus == 1 then

doSummonCreature("Bone Beast", monster1)

doSummonCreature("Bone Beast", monster2)

doSummonCreature("Bone Beast", monster3)

doSummonCreature("Bone Beast", monster4)

elseif itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer == 3) and queststatus == 1 then

doSummonCreature("Orshabaal", monster1)

setPlayerStorageValue(cid,8181,-1)

setPlayerStorageValue(cid,8282,1)

elseif itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer >= 4) and queststatus == 1 then

doSendMagicEffect(playerPos, 45)

doCreatureAddHealth(cid, -1000)

doSendAnimatedText(playerPos, '1000', TEXTCOLOR_LIGHTGREEN)

end

if itemEx.itemid == 8289 and itemEx.actionid == 8181 and queststatus == -1 then

doSendMagicEffect(toPosition, CONST_ME_POFF)

end

if itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer == 1) and queststatus2 == 1 then

doSummonCreature("Crypt Shambler", monster1)

doSummonCreature("Crypt Shambler", monster2)

doSummonCreature("Crypt Shambler", monster3)

doSummonCreature("Crypt Shambler", monster4)

elseif itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer == 2) and queststatus2 == 1 then

doSummonCreature("Giant Spider", monster1)

doSummonCreature("Giant Spider", monster4)

elseif itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer == 3) and queststatus2 == 1 then

doSummonCreature("Blightwalker", monster1)

setPlayerStorageValue(cid,8282,-1)

setPlayerStorageValue(cid,8383,1)

elseif itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer >= 4) and queststatus2 == 1 then

doSendMagicEffect(playerPos, 45)

doCreatureAddHealth(cid, -1000)

doSendAnimatedText(playerPos, '1000', TEXTCOLOR_LIGHTGREEN)

end

if itemEx.itemid == 8288 and itemEx.actionid == 8282 and queststatus2 == -1 then

doSendMagicEffect(toPosition, CONST_ME_POFF)

end

if itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer == 1) and queststatus3 == 1 then

doSummonCreature("Crypt Shambler", monster1)

doSummonCreature("Crypt Shambler", monster2)

doSummonCreature("Crypt Shambler", monster3)

doSummonCreature("Crypt Shambler", monster4)

elseif itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer == 2) and queststatus3 == 1 then

doSummonCreature("Lich", monster1)

doSummonCreature("Lich", monster2)

doSummonCreature("Lich", monster3)

doSummonCreature("Massacre", monster4)

elseif itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer == 3) and queststatus3 == 1 then

doSummonCreature("Plaguesmith", monster1)

setPlayerStorageValue(cid,8383,-1)

setPlayerStorageValue(cid,8484,1)

elseif itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer >= 4) and queststatus3 == 1 then

doSendMagicEffect(playerPos, 45)

doCreatureAddHealth(cid, -1000)

doSendAnimatedText(playerPos, '1000', TEXTCOLOR_LIGHTGREEN)

end

if itemEx.itemid == 8290 and itemEx.actionid == 8383 and queststatus3 == -1 then

doSendMagicEffect(toPosition, CONST_ME_POFF)

end

if itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 1) and queststatus4 == 1 then

doSummonCreature("Hellgorak", monster1)

doSummonCreature("Crypt Shambler", monster2)

doSummonCreature("Crypt Shambler", monster3)

doSummonCreature("Crypt Shambler", monster4)

elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 2) and queststatus4 == 1 then

doSummonCreature("Lich", monster1)

doSummonCreature("Lich", monster2)

doSummonCreature("Giant Spider", monster2)

doSummonCreature("Giant Spider", monster3)

elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 3) and queststatus4 == 1 then

doSummonCreature("Ushuriel", monster1)

doSummonCreature("Juggernaut", monster2)

setPlayerStorageValue(cid,8484,-1)

setPlayerStorageValue(cid,8585,1)

elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer >= 4) and queststatus4 == 1 then

doSendMagicEffect(playerPos, 45)

doCreatureAddHealth(cid, -1000)

doSendAnimatedText(playerPos, '1000', TEXTCOLOR_LIGHTGREEN)

end

if itemEx.itemid == 8291 and itemEx.actionid == 8484 and queststatus4 == -1 then

doSendMagicEffect(toPosition, CONST_ME_POFF)

end

end

 

 

POREM AINDA TEM 1 ERRO Q NAO SEI O QUE MAIS FIK ESCRITO ISSO NO EXECUTAVEL DO OT......

 

Error During GetDataInt (Play er_id).

 

Aguardando...

 

(OBS: ESSE SERVER EU PASSEI PARA 9.53 MAIS COMO TODO MUNDO SAB QND MUDA DE VERSAO APARECE AQUELES ERROS XATOS, INTAO QRO AJUDA DE VOCES PQ OS OUTROS EU CORRIGI, FALTA SO ESSES QUE NAO CONSEGUI MSM PRINCIPALMENTE AS HOUSES...AI SERV FIK LEGAL SEM BUGS....

Editado Junho 7, 2012 por DragMaster

[Makelin1 89]

Tópico fora das regras

REPORTADO

[eduardosm14 9]

que que ta fora de regras???

[Makelin1 89]

o título do tópico

e também evite postar assim sem aver ao tópico que e como flood

ate

[eduardosm14 9]

A Vei Fala Serio Neh, Intao Fala Como Devo Botar o Titutlo....

 

So Qro 1 Ajuda Para Resolver Meus Poblemas

 

Eu So Perguntei Porque Tava Fora Das Regras Issu Nao E Flodar

[Makelin1 89]

Poem o título do tópico com sua duvida

ate

[Leoxtibia 137]

Sobre o problema do !buyhouse...

Tenta substituir seu doors.lua por esse:

local function checkStackpos(item, position)
position.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE
local thing = getThingFromPos(position)
position.stackpos = STACKPOS_TOP_FIELD
local field = getThingFromPos(position)
return (item.uid == thing.uid or thing.itemid < 100 or field.itemid == 0)
end
local function doorEnter(cid, item, toPosition)
doTransformItem(item.uid, item.itemid + 1)
doTeleportThing(cid, toPosition)
end
function onUse(cid, item, fromPosition, itemEx, toPosition)
if(fromPosition.x ~= CONTAINER_POSITION and isPlayerPzLocked(cid) and getTileInfo(fromPosition).protection) then
 doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
 return true
end
if(getItemLevelDoor(item.itemid) > 0) then
 if(item.actionid == 189) then
  if(not isPremium(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")
return true
  end
  doorEnter(cid, item, toPosition)
  return true
 end
 local gender = item.actionid - 186
 if(isInArray({PLAYERSEX_FEMALE,  PLAYERSEX_MALE, PLAYERSEX_GAMEMASTER}, gender)) then
  if(gender ~= getPlayerSex(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")
return true
  end
  doorEnter(cid, item, toPosition)
  return true
 end
 local skull = item.actionid - 180
 if(skull >= SKULL_NONE and skull <= SKULL_BLACK) then
  if(skull ~= getCreatureSkullType(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")
return true
  end
  doorEnter(cid, item, toPosition)
  return true
 end
 local group = item.actionid - 150
 if(group >= 0 and group < 30) then
  if(group > getPlayerGroupId(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")
return true
  end
  doorEnter(cid, item, toPosition)
  return true
 end
 local vocation = item.actionid - 100
 if(vocation >= 0 and vocation < 50) then
  local playerVocationInfo = getVocationInfo(getPlayerVocation(cid))
  if(playerVocationInfo.id ~= vocation and playerVocationInfo.fromVocation ~= vocation) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")
return true
  end
  doorEnter(cid, item, toPosition)
  return true
 end
 if(item.actionid == 190 or (item.actionid ~= 0 and getPlayerLevel(cid) >= (item.actionid - getItemLevelDoor(item.itemid)))) then
  doorEnter(cid, item, toPosition)
 else
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Only the worthy may pass.")
 end
 return true
end
if(isInArray(specialDoors, item.itemid)) then
 if(item.actionid == 100 or (item.actionid ~= 0 and getPlayerStorageValue(cid, item.actionid) > 0)) then
  doorEnter(cid, item, toPosition)
 else
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "The door seems to be sealed against unwanted intruders.")
 end
 return true
end
if(isInArray(keys, item.itemid)) then
 if(itemEx.actionid > 0) then
  if(item.actionid == itemEx.actionid and doors[itemEx.itemid] ~= nil) then
doTransformItem(itemEx.uid, doors[itemEx.itemid])
return true
  end
  doPlayerSendCancel(cid, "The key does not match.")
  return true
 end
 return false
end
if(isInArray(horizontalOpenDoors, item.itemid) and checkStackpos(item, fromPosition)) then
 local newPosition = toPosition
 newPosition.y = newPosition.y + 1
 local doorPosition = fromPosition
 doorPosition.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE
 local doorCreature = getThingfromPos(doorPosition)
 if(doorCreature.itemid ~= 0) then
  local pzDoorPosition = getTileInfo(doorPosition).protection
  local pzNewPosition = getTileInfo(newPosition).protection
  if((pzDoorPosition and not pzNewPosition and doorCreature.uid ~= cid) or
(not pzDoorPosition and pzNewPosition and doorCreature.uid == cid and isPlayerPzLocked(cid))) then
doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
  else
doTeleportThing(doorCreature.uid, newPosition)
if(not isInArray(closingDoors, item.itemid)) then
 doTransformItem(item.uid, item.itemid - 1)
end
  end
  return true
 end
 doTransformItem(item.uid, item.itemid - 1)
 return true
end
if(isInArray(verticalOpenDoors, item.itemid) and checkStackpos(item, fromPosition)) then
 local newPosition = toPosition
 newPosition.x = newPosition.x + 1
 local doorPosition = fromPosition
 doorPosition.stackpos = STACKPOS_TOP_MOVEABLE_ITEM_OR_CREATURE
 local doorCreature = getThingfromPos(doorPosition)
 if(doorCreature.itemid ~= 0) then
  if(getTileInfo(doorPosition).protection and not getTileInfo(newPosition).protection and doorCreature.uid ~= cid) then
doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
  else
doTeleportThing(doorCreature.uid, newPosition)
if(not isInArray(closingDoors, item.itemid)) then
 doTransformItem(item.uid, item.itemid - 1)
end
  end
  return true
 end
 doTransformItem(item.uid, item.itemid - 1)
 return true
end
if(doors[item.itemid] ~= nil and checkStackpos(item, fromPosition)) then
 if(item.actionid == 0) then
  doTransformItem(item.uid, doors[item.itemid])
 else
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is locked.")
 end
 return true
end
return false
end

Vlw ai, abraços

Editado Junho 7, 2012 por Leoxtibia

[Vilden 137]

Seja expressivo com sua dúvida no titulo do tópico, títulos pedindo ajuda são proibidos.

Smartbox rep-, você podia dizer os três comentários em apenas um.

 

Renomeado.

[eduardosm14 9]

Leoxtibia

 

Colocuqie Este Escript Pois, Quando eu Uso o !buyhouse Nao Da Erro No Executor Mais, Mais Ele Tambem Nao Compra a House, E Como Se O Comando Nao Exixtisse Nao Da Nenhum Erro Nenhum Efeito Nada....

 

 

Aguardando