Script Acho Que É Dificil Mais Não Imposivel

cacaiu
Por cacaiu
em Scripts
  • 1
  • 2

cacaiu

Criador !!
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 17/10/10Posts: 230Char no Tibia: Nascont

Ola pessoal olha eu aqui de novo =D

 

dessa vez vim pedir um script dificil mais não imposivel queria um script que fizesse o seguinte:

 

O player fala com o npc:

 

player: HI

npc: ola (player name) voçe deseja viajar?

 

player:Yes

npc: OK! boa viajem.

 

 

logo em seguiada o player quanha um outifit EX: outifit de um carinha montado na moto (eu ja tenho aki)

 

e segue uma rota pre-destinada ate o local, que irei editar aki.

 

OBS: ate chegar la o player n podera se mexer.

quando o player chega la a outifit sai e ele volta ao normal.

 

 

valendo rep+

Se gostou da um rep+ =D

 

POKEMON CENTURION CLICK/\

torcida.gif

 

 

Para contatos:

 

 

Skype: claudio.alexandre95

 

Msn: cacaiu_alexandre@hotmail.com

 

Facebook: http://www.facebook....io.alexandre.90

notle2012

uoʇן£
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 03/01/12Posts: 884Char no Tibia: Segredo

bom tava tentando fazer aqui o melhor que conseguir fazer foi assim

 

ver video em tela grande eu não tenho newtype de moto então coloquei 127 de test

ta parando no pz

 

data\npc\nomedonpc.xml

<npc name="NPC NOME" script="data/npc/scripts/nmoto.lua" walkinterval="2000" floorchange="0">
	<health now="100" max="100"/>
	<look type="134" head="78" body="88" legs="0" feet="88" addons="3"/>
			<parameters>
			<parameter key="message_greet" value="Ola |PLAYERNAME|.voce deseja viajar?" />
			<parameter key="message_farewell" value="Tchau." />
			<parameter key="message_walkaway" value="Tchau." />
			</parameters>
</npc>

 

data\npc\scripts\nmoto.lua

 

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
pos = {x=1060,y=1065,z=7} -- aqui coloca na onde que vai ativa a moto
newtypemoto = 127  -- newtype da sua moto
effect = 34 -- efeito que sair atrás da moto fumaças
local storages = { speed = 115625, status = 222995 } -- storages
local cfg = { min_speed = 300, -- não mexe ou deixa de 200 a 300 pode regular
max_speed = 200,  -- melhor não diminuir do que isso [a velocidade máxima da sua Moto ]
Moto_Explode = true --  não mexe
}
function isWalkable(pos, creature, pz)
if getTopCreature(pos).uid > 0 and creature then return false end
if getTileInfo(pos).protection and pz then return false, true end
local n = not proj and 3 or 2
for i = 0, 255 do
pos.stackpos = i
local tile = getTileThingByPos(pos)
if tile.itemid ~= 0 and not isCreature(tile.uid) then
if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
return false
end
end
end
return true
end
function getMotoSpeed(cid) return getPlayerStorageValue(cid,storages.speed) end
function setMotoSpeed(cid,value) return setPlayerStorageValue(cid,storages.speed, getPlayerStorageValue(cid,storages.speed) + value) end
function setMotoStatus(cid,value) return setPlayerStorageValue(cid,storages.status,value) end
function MotoMove(cid) return getPlayerStorageValue(cid,storages.status) > 0 and true or false end
function move(cid,time)
local dir = getCreatureLookDir(cid)
local place = getPositionByDirection(getThingPos(cid),dir,1)
if isWalkable(place,true,true,true) then
doTeleportThing(cid,place,false)
addEvent(doSendMagicEffect,time+10,place,effect)
if MotoMove(cid) then
addEvent(move,time,cid,getMotoSpeed(cid))
else
end
else
doCreatureSetNoMove(cid, 0)
doPlayerSendTextMessage(cid,27,"You have hit somthng.")
setMotoStatus(cid,0)
if cfg.Moto_Explode then
doRemoveCondition(cid, CONDITION_OUTFIT)
doSendAnimatedText(getThingPos(cid),"Crashed",TEXTCOLOR_RED)
doSendMagicEffect(getThingPos(cid),31)
end
end
end
function onCreatureAppear(cid)				  npcHandler:onCreatureAppear(cid)				end
function onCreatureDisappear(cid)			   npcHandler:onCreatureDisappear(cid)			 end
function onCreatureSay(cid, type, msg)		  npcHandler:onCreatureSay(cid, type, msg)		end
function onThink()							  npcHandler:onThink()							end
function creatureSayCallback(cid, type, msg)
if msgcontains(msg, 'yes') then		  
selfSay("OK! boa viajem.", cid)
if doTeleportThing(cid, pos) then
doSetCreatureOutfit(cid, {lookType = newtypemoto}, -1)
if not MotoMove(cid) then
end
setPlayerStorageValue(cid,storages.speed,cfg.min_speed)
setMotoStatus(cid,1)
doCreatureSetNoMove(cid, 1)
move(cid,getMotoSpeed(cid))
else
doPlayerSendCancel(cid,"Moto is already moving.")
end
return true
end
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Por Favor quando for fazer pedidos faz o pedido com mais clareza e com os mínimos detalhes
GOSTO DOS MEUS SCRIPT CLICK EM CURTIR :D

 

sistema de fome

TROCA TROCA

sistema coliseum by notle v1

new sistema [KILLER-UP]

 

 

jcLmJPT.png

cacaiu

Criador !!
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 17/10/10Posts: 230Char no Tibia: Nascont

notle2012

 

 

 

vc é fod4 vlw msm veyi exatamente oq eu queria quando libera mais rep aki te dou lo uns 4 ^^

 

 

OBS: esse serve é o centurion hueheuheuh

 

 

 

 

Duvida!

 

onde mexo pra determina o destino da moto.

Se gostou da um rep+ =D

 

POKEMON CENTURION CLICK/\

torcida.gif

 

 

Para contatos:

 

 

Skype: claudio.alexandre95

 

Msn: cacaiu_alexandre@hotmail.com

 

Facebook: http://www.facebook....io.alexandre.90

notle2012

uoʇן£
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 03/01/12Posts: 884Char no Tibia: Segredo

notle2012

 

 

 

vc é fod4 vlw msm veyi exatamente oq eu queria quando libera mais rep aki te dou lo uns 4 ^^

 

 

OBS: esse serve é o centurion hueheuheuh

 

 

 

 

Duvida!

 

onde mexo pra determina o destino da moto.

 

que nada to aprendendo agora essas paradas de for i = 0, 255 do

 

esse scripts ta funcionando da seguinte forma

vc coloca

 

pos ={x=1060,y=1065,z=7}-- aqui coloca na onde que vai ativa a moto

 

ai pra parar que é lugar onde vc quer chegar vc coloca no chão PZ com map editor

exemplo

semttulove.png

se vc quer acelerar moto

vc edita aqui

local cfg = { min_speed = 300, -- recomendo de 200 a 300

eu não deixo mais melhor pq to aprendendo mais alguém mais experiente quiser edita ai se sinta a vontade :D

 

 

edit

sim o ot é o centurion baixei pra testa kkk :)

ah tbm vou tenta aqui se eu conseguir melhorar mais eu aposto

Por Favor quando for fazer pedidos faz o pedido com mais clareza e com os mínimos detalhes
GOSTO DOS MEUS SCRIPT CLICK EM CURTIR :D

 

sistema de fome

TROCA TROCA

sistema coliseum by notle v1

new sistema [KILLER-UP]

 

 

jcLmJPT.png

Gee1

avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 22/07/12Posts: 118Gênero: Masculino

Onde que configura o caminho que a moto tem que ir ?

 

Tipo o sistema de barco por uma rota.

Classic Pokemon - Project

 

Em Breve

cacaiu

Criador !!
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 17/10/10Posts: 230Char no Tibia: Nascont

notle2012

 

tipo colocamos o caminho em pz ai o script vai seguindo o pz, ou so no final pra ele para de andar?

 

galera axo q esse script aki poke ajuda pra defenir a rota:

 

 

 

 

<?xml version="1.0" encoding="UTF-8"?>

<mod name="BoatSystem" enabled="yes" author="MatheusMkalo" forum="XTibia.com">

<config name="BoatSystemLib"><![CDATA[

mydirs= {

[1] = {type = 1, ids = {3587, 3590, 3591}, xy = {0, -1}},

[2] = {type = 2, ids = {3592, 3595, 3596}, xy = {1, 0}},

[3] = {type = 1, ids = {3587, 3590, 3591}, xy = {0, 1}},

[4] = {type = 2, ids = {3592, 3595, 3596}, xy = {-1, 0}}

}

allids = {3587, 3590, 3591, 3592, 3595, 3596}

function newEndb(endb, dir)

local xx = endb.x

local yy = endb.y

for i = 1, #dir do

xx = xx+mydirs[dir].xy[1]

yy = yy+mydirs[dir].xy[2]

end

return {x=xx, y=yy, z=endb.z}

end

function doMoveBoat(post, dir, cid)

local newboat = {}

for i,s in ipairs(post) do

local backu = getThingPos(s)

doRemoveItem(s, 1)

doCreateItem(mydirs[dir].ids, 1, {x=backu.x+mydirs[dir].xy[1], y=backu.y+mydirs[dir].xy[2], z=backu.z})

table.insert(newboat, getThingFromPos({x=backu.x+mydirs[dir].xy[1], y=backu.y+mydirs[dir].xy[2], z=backu.z, stackpos=1}).uid)

end

if mydirs[dir].type ~= post.type and mydirs[dir].type == 1 then

doCreateItem(getThing(newboat[1]).itemid, 1, {x=getThingPos(newboat[1]).x+1, y=getThingPos(newboat[1]).y-1, z=getThingPos(newboat[1]).z})

doRemoveItem(newboat[1], 1)

doCreateItem(getThing(newboat[3]).itemid, 1, {x=getThingPos(newboat[3]).x-1, y=getThingPos(newboat[3]).y+1, z=getThingPos(newboat[3]).z})

doRemoveItem(newboat[3], 1)

elseif mydirs[dir].type ~= post.type and mydirs[dir].type == 2 then

doCreateItem(getThing(newboat[1]).itemid, 1, {x=getThingPos(newboat[1]).x-1, y=getThingPos(newboat[1]).y+1, z=getThingPos(newboat[1]).z})

doRemoveItem(newboat[1], 1)

doCreateItem(getThing(newboat[3]).itemid, 1, {x=getThingPos(newboat[3]).x+1, y=getThingPos(newboat[3]).y-1, z=getThingPos(newboat[3]).z})

doRemoveItem(newboat[3], 1)

end

if cid then

doTeleportThing(cid, {x=getCreaturePosition(cid).x+mydirs[dir].xy[1], y=getCreaturePosition(cid).y+mydirs[dir].xy[2], z=getCreaturePosition(cid).z}, false)

end

end

function getPosBoat(cid, pos)

local pcid = not pos and getCreaturePosition(cid) or pos

local check = getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).itemid == mydirs[1].ids[2] and 1 or 2

if check == 1 then

return {getThingFromPos({x=pcid.x, y=pcid.y-1, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y+1, z=pcid.z, stackpos=1}).uid, type = check}

elseif check == 2 then

return {getThingFromPos({x=pcid.x-1, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x, y=pcid.y, z=pcid.z, stackpos=1}).uid, getThingFromPos({x=pcid.x+1, y=pcid.y, z=pcid.z, stackpos=1}).uid, type = check}

end

return false

end

function reverse(t)

local result = {}

for i = #t, 1, -1 do

table.insert(result, t == 1 and 3 or t == 2 and 4 or t == 3 and 1 or t == 4 and 2)

end

return result

end

]]></config>

<movevent type="StepIn" actionid="6616" event="script"><![CDATA[

domodlib("BoatSystemLib")

local t = {4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}

local postart = {x=968, y=1001, z=7, stackpos=1}

local posback = {x=994, y=978, z=7, stackpos=1}

local delay = 350

if toPosition.x == posback.x and toPosition.y == posback.y then

doCreatureSetNoMove(cid, true)

for i = 1, #reverse(t) do

addEvent(function() doMoveBoat(getPosBoat(cid), reverse(t), cid) end, i*delay)

end

addEvent(doCreatureSetNoMove, delay*#reverse(t)+100, cid, false)

addEvent(function() doItemSetAttribute(getThingFromPos(postart).uid, "aid", 6616) end, delay*#t+100)

elseif toPosition.x == postart.x and toPosition.y == postart.y then

doCreatureSetNoMove(cid, true)

for i = 1, #t do

addEvent(function() doMoveBoat(getPosBoat(cid), t, cid) end, i*delay)

end

addEvent(doCreatureSetNoMove, delay*#t+100, cid, false)

addEvent(function() doItemSetAttribute(getThingFromPos(posback).uid, "aid", 6616) end, delay*#t+100)

end

]]></movevent>

<movevent type="StepIn" actionid="6617" event="script"><![CDATA[

domodlib("BoatSystemLib")

if not isInArray(allids, getThingFromPos({x=toPosition.x, y=toPosition.y, z=toPosition.z, stackpos=1}).itemid) then

doTeleportThing(cid, fromPosition, false)

end

]]></movevent>

</mod>

 

 

 

 

 

edita nessa parte aki:

 

 

 

 

local t = {4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1,

1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2,

2, 2, 2, 2, 2, 2, 2, 2, 2}

local postart = {x=968, y=1001, z=7, stackpos=1}

local posback = {x=994, y=978, z=7, stackpos=1}

local delay = 350

 

No Local T sao Todas as Direçoes que o barco vai andar em sentido horario

 

 

 

1 = norte

2 = leste

3 = sul

4 = oeste

 

 

 

sera que com isso pode ajudar a fazer?

Se gostou da um rep+ =D

 

POKEMON CENTURION CLICK/\

torcida.gif

 

 

Para contatos:

 

 

Skype: claudio.alexandre95

 

Msn: cacaiu_alexandre@hotmail.com

 

Facebook: http://www.facebook....io.alexandre.90

LuckOake

avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 23/07/12Posts: 1104Gênero: MasculinoChar no Tibia: Luck Oake

Cara, eu acho que dá pra fazer uma edição no script pra, ao invés de criar um item, colocar uma outfit (motoqueiro na moto).

 

Vou dar uma estudada nele aqui, se eu conseguir eu edito.

 

Só que ai teria que fazer um NPC inteiro com as funções desse MOD. Infelizmente, eu não consigo fazer isso ainda. Muito complexo.

 

O que poderia fazer é o player subir em cima da moto e começar a andar, mas ai teria que editar uma série de coisas, como o client (fazer uma moto que pode ser "pisada"). Vou consultar o Mestre Supremo dos Scripts, se ele conseguir ajudar, eu posto aqui.

cacaiu

Criador !!
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 17/10/10Posts: 230Char no Tibia: Nascont

LuckOake

 

blz, em relaçao com as sprites não se preucupe, conssigo fazer isso facil.

Se gostou da um rep+ =D

 

POKEMON CENTURION CLICK/\

torcida.gif

 

 

Para contatos:

 

 

Skype: claudio.alexandre95

 

Msn: cacaiu_alexandre@hotmail.com

 

Facebook: http://www.facebook....io.alexandre.90

brun123

vash
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 24/09/06Posts: 512

Fiz um script aqui, ele é bem complexozinho e eu não testei, portanto é bem provável que dê alguns bugs:

 

 

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end

local config = {
LOOKTYPE_DA_MOTO = 127, -- outfit da moto, apenas looktype
DELAY_ENTRE_ANDADAS = 450, -- intervalo (em ms) a cada passo que o player dá
VELOCIDADE_EXTRA = 1000, -- velocidade a mais que o player ganha na moto
EMPURRAR_CRIATURAS = true, -- true/false, se true, todos os monstros/players que estiverem no caminho serão empurrados pro lado
ATRAVESSAR_OBSTACULOS = true, -- true/false, se true, vai entrar e passar por dentro de paredes, árvores etc...
POS_INICIAL = {x = 100, y = 100, z = 7}, -- onde o player irá ser teleportado ao confirmar a msg do npc
POS_FINAL = {x = 102, y = 95, z = 7},
ROTA_AUTOMATICA = false, -- procura por direções automaticamente, sem precisar configurar as directions
-- porém há grandes chance de encontrar obstáculos/falhar
ROTA_POR_DIRECTION = {NORTH, NORTH, EAST, NORTH, NORTH, NORTH, EAST} -- apenas se ROTA_AUTOMATICA for false
}

local function getNextDir(playerpos, finalpos)
local result = {}
local xy = 999999
for newDir = 0, 3 do
	local p = getPosByDir(playerpos, newDir)
	if doTileQueryAdd(cid, p, config.EMPURRAR_CRIATURAS and 4 or 0) == 1 or config.ATRAVESSAR_OBSTACULOS then
		local d = math.abs(p.x - finalpos.x) + math.abs(p.y - finalpos.y)
		if d < xy then result = {newDir}
		elseif d == xy then table.insert(result, newDir) end
	end
end
if #result == 0 then
	for newDir = 4, 7 do
		local p = getPosByDir(playerpos, newDir)
		if doTileQueryAdd(cid, p, config.EMPURRAR_CRIATURAS and 4 or 0) == 1 or config.ATRAVESSAR_OBSTACULOS then
			local d = math.abs(p.x - finalpos.x) + math.abs(p.y - finalpos.y)
			if d < xy then result = {newDir}
			elseif d == xy then table.insert(result, newDir) end
		end
	end
	return #result == 0 and false or result[math.random(#result)]	
else
	return result[math.random(#result)]
end
return false
end		

local function doPlayerFollowRoute(cid, stepId)
if not isCreature(cid) then return true end
if not stepId then
	doCreatureSetNoMove(cid, true)
	doSendMagicEffect(getThingPos(cid), CONST_ME_TELEPORT)
	doChangeSpeed(cid, config.VELOCIDADE_EXTRA)
	doSetCreatureOutfit(cid, {lookType = config.LOOKTYPE_DA_MOTO}, -1)
	addEvent(doPlayerFollowRoute, config.DELAY_ENTRE_ANDADAS, cid, 1)
return true
end
local begin, finish = getThingPos(cid), config.POS_FINAL
if (begin.x == finish.x and begin.y == finish.y) or (not config.ROTA_AUTOMATICA and stepId == #config.ROTA_POR_DIRECTION + 1) then
	doPlayerSendCancel(cid, "Destino alcançado!")
	doCreatureSetNoMove(cid, false)
	doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
	doRemoveCondition(cid, CONDITION_OUTFIT)
return true
end
if getCreatureOutfit(cid).lookType ~= config.LOOKTYPE_DA_MOTO then
doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
return true end
local nextPos = {}
if config.ROTA_AUTOMATICA then
	nextPos = getPosByDir(getThingPos(cid), getNextDir(getThingPos(cid), config.POS_FINAL) or getDirectionTo(getThingPos(cid), config.POS_FINAL))
else
	nextPos = getPosByDir(getThingPos(cid), ROTA_POR_DIRECTION[stepId or 1])
end

if not (doTileQueryAdd(cid, nextPos) == 1 or config.ATRAVESSAR_OBSTACULOS) then
doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
doRemoveCondition(cid, CONDITION_OUTFIT)
doCreatureSetNoMove(cid, false)
return doPlayerSendCancel(cid, "Obstáculo encontrado!")
end

if config.EMPURRAR_CRIATURAS and config.ATRAVESSAR_OBSTACULOS and getTileInfo(nextPos).creatures > 0 then
	for pushCreatures = 1, #getTileInfo(nextPos).creatures do
		local creature = getTopCreature(nextPos).uid
	    addEvent(doTeleportThing, 50, creature, getClosestFreeTile(creature, getThingPos(creature)))
	end
end

doTeleportThing(cid, nextPos)
addEvent(doPlayerFollowRoute, config.DELAY_ENTRE_ANDADAS, cid, (stepId or 1) + 1)
end


function creatureSayCallback(cid, type, msg)

if msgcontains(msg, 'yes') then		  
selfSay("OK! boa viajem.", cid)
doTeleportThing(cid, config.POS_INICIAL, false)
doPlayerFollowRoute(cid)
return true
end

end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

 

Use o mesmo XML que o Luck postou aqui e veja se funciona...

Não se esqueça de configurar o npc! basta alterar aquela tabela "config" que tem várias variáveis com letra maiúscula

5303fg1.png

ewertonsilva157

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 04/09/12Posts: 92

Parabéns pelo Script \o

cacaiu

Criador !!
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 17/10/10Posts: 230Char no Tibia: Nascont

brun123

 

vou tes

ta aki se pega te dou rep 2x xD

 

uma duvida:

ROTA_POR_DIRECTION = {NORTH, NORTH, EAST, NORTH, NORTH, NORTH, EAST} -- apenas se ROTA_AUTOMATICA for false

 

aki eu escolho a rota certo!

 

ex: cada NORTH é um sqm?

 

 

 

 

 

e outra coisa:

 

POS_INICIAL = {x = 856, y = 502, z = 2}, -- onde o player irá ser teleportado ao confirmar a msg do npc

POS_FINAL = {x = 856, y = 520, z = 2},

 

 

se eu bota a pos final, so quando o ele procura a rota altomaticamente? ou não vai interferir no false da rota altomatica?

 

 

 

@EDIT:

 

Bugs: 1°:ao chegar perto do npc e so fala yes ele ja manda vc pro local inicial.

 

2°:quando é teleportado o player não anda pra local nenhum. imagem \/

 

 

fKn0d.png

 

 

 

No distro:

 

 

 

 

[11/09/2012 12:07:25] [Error - Npc interface]

[11/09/2012 12:07:25] In a timer event called from:

[11/09/2012 12:07:25] data/npc/scripts/Motorista Jonh.lua:onCreatureSay

[11/09/2012 12:07:25] Description:

[11/09/2012 12:07:25] data/npc/scripts/Motorista Jonh.lua:74: attempt to index global 'ROTA_POR_DIRECTION' (a nil value)

[11/09/2012 12:07:25] stack traceback:

[11/09/2012 12:07:25] data/npc/scripts/Motorista Jonh.lua:74: in function <data/npc/scripts/Motorista Jonh.lua:49>

 

 

 

 

 

Adiçoes: podia botar pra o player não poder relogar quando estiver na viajem?

 

e poderia por uma funçao pra o npc remover um X item quando o player fala com ele?

Se gostou da um rep+ =D

 

POKEMON CENTURION CLICK/\

torcida.gif

 

 

Para contatos:

 

 

Skype: claudio.alexandre95

 

Msn: cacaiu_alexandre@hotmail.com

 

Facebook: http://www.facebook....io.alexandre.90

brun123

vash
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 24/09/06Posts: 512

Aqui:

 

 

local avoidLogout = createConditionObject(CONDITION_INFIGHT, -1, 1660)

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end

local config = {
ITEM_REMOVIDO = 2160, -- id do item a ser removido
ITEM_COUNT = 10, -- quantidade do item a ser removido
LOOKTYPE_DA_MOTO = 127, -- outfit da moto, apenas looktype
DELAY_ENTRE_ANDADAS = 450, -- intervalo (em ms) a cada passo que o player dá
VELOCIDADE_EXTRA = 1000, -- velocidade a mais que o player ganha na moto
EMPURRAR_CRIATURAS = true, -- true/false, se true, todos os monstros/players que estiverem no caminho serão empurrados pro lado
ATRAVESSAR_OBSTACULOS = true, -- true/false, se true, vai entrar e passar por dentro de paredes, árvores etc...
POS_INICIAL = {x = 100, y = 100, z = 7}, -- onde o player irá ser teleportado ao confirmar a msg do npc
POS_FINAL = {x = 102, y = 95, z = 7},
ROTA_AUTOMATICA = false, -- procura por direções automaticamente, sem precisar configurar as directions
-- porém há grandes chance de encontrar obstáculos/falhar
ROTA_POR_DIRECTION = {NORTH, NORTH, EAST, NORTH, NORTH, NORTH, EAST} -- apenas se ROTA_AUTOMATICA for false
}

local function getNextDir(cid, playerpos, finalpos)
	local result = {}
	local xy = 999999
	for newDir = 0, 3 do
			local p = getPosByDir(playerpos, newDir)
			if doTileQueryAdd(cid, p, config.EMPURRAR_CRIATURAS and 4 or 0) == 1 or config.ATRAVESSAR_OBSTACULOS then
					local d = math.abs(p.x - finalpos.x) + math.abs(p.y - finalpos.y)
					if d < xy then result = {newDir} xy = d
					elseif d == xy then table.insert(result, newDir) end
			end
	end
	if #result == 0 then
			for newDir = 4, 7 do
					local p = getPosByDir(playerpos, newDir)
					if doTileQueryAdd(cid, p, config.EMPURRAR_CRIATURAS and 4 or 0) == 1 or config.ATRAVESSAR_OBSTACULOS then
							local d = math.abs(p.x - finalpos.x) + math.abs(p.y - finalpos.y)
							if d < xy then result = {newDir} xy = d
							elseif d == xy then table.insert(result, newDir) end
					end
			end
			return #result == 0 and false or result[math.random(#result)]  
	else
			return result[math.random(#result)]
	end
return false
end			

local function doPlayerFollowRoute(cid, stepId)
	if not isCreature(cid) then return true end
	if not stepId then
			doCreatureSetNoMove(cid, true)
			doSendMagicEffect(getThingPos(cid), CONST_ME_TELEPORT)
			doChangeSpeed(cid, config.VELOCIDADE_EXTRA)
			doSetCreatureOutfit(cid, {lookType = config.LOOKTYPE_DA_MOTO}, -1)
			doAddCondition(cid, avoidLogout)
			addEvent(doPlayerFollowRoute, config.DELAY_ENTRE_ANDADAS, cid, 1)
	return true
	end
	local begin, finish = getThingPos(cid), (config.ROTA_AUTOMATICA and config.POS_FINAL or {x = -1, y = -1})
	if (begin.x == finish.x and begin.y == finish.y) or (not config.ROTA_AUTOMATICA and stepId == #config.ROTA_POR_DIRECTION + 1) then
			doPlayerSendCancel(cid, "Destino alcançado!")
			doCreatureSetNoMove(cid, false)
			doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
			doRemoveCondition(cid, CONDITION_OUTFIT)
			doRemoveCondition(cid, CONDITION_INFIGHT, 1660)
	return true
	end
	if getCreatureOutfit(cid).lookType ~= config.LOOKTYPE_DA_MOTO then
	doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
	doCreatureSetNoMove(cid, false)
	doRemoveCondition(cid, CONDITION_OUTFIT)
	doRemoveCondition(cid, CONDITION_INFIGHT, 1660)
	return true end
	local nextPos = {}
	if config.ROTA_AUTOMATICA then
			nextPos = getPosByDir(getThingPos(cid), getNextDir(cid, getThingPos(cid), config.POS_FINAL) or getDirectionTo(getThingPos(cid), config.POS_FINAL))
	else
			nextPos = getPosByDir(getThingPos(cid), config.ROTA_POR_DIRECTION[stepId or 1])
	end

	if not (doTileQueryAdd(cid, nextPos) == 1 or config.ATRAVESSAR_OBSTACULOS) then
	doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
	doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
	doRemoveCondition(cid, CONDITION_OUTFIT)
	doCreatureSetNoMove(cid, false)
	doRemoveCondition(cid, CONDITION_INFIGHT, 1660)
	return doPlayerSendCancel(cid, "Obstáculo encontrado!")
	end

	if config.EMPURRAR_CRIATURAS and config.ATRAVESSAR_OBSTACULOS and getTileInfo(nextPos).creatures > 0 then
			for pushCreatures = 1, #getTileInfo(nextPos).creatures do
					local creature = getTopCreature(nextPos).uid
				addEvent(doTeleportThing, 50, creature, getClosestFreeTile(creature, getThingPos(creature)))
			end
	end

	doTeleportThing(cid, nextPos)
addEvent(doPlayerFollowRoute, config.DELAY_ENTRE_ANDADAS, cid, (stepId or 1) + 1)
end


function creatureSayCallback(cid, type, msg)

if msgcontains(msg, 'yes') then
	if not doPlayerRemoveItem(cid, config.ITEM_REMOVIDO, config.ITEM_COUNT) then
		selfSay("Você não tem o item necessário!")
	return true
	end
	selfSay("OK! boa viajem.", cid)
	doTeleportThing(cid, config.POS_INICIAL, false)
	doPlayerFollowRoute(cid)
return true
end

end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

 

Detalhes:

 

1 - Achei que você quisesse que ao falar yes, o player fosse teleportado para uma certa posição (POS_INICIAL no caso) e aí sim começasse a andar, se não quiser isso, basta remover essa linha:

 

doTeleportThing(cid, config.POS_INICIAL, false)

 

2 - O POS_FINAL é só se a ROTA_AUTOMATICA estiver true, o player fica andando até alcançar a POS_FINAL e aí ele para de andar.

 

3 - Se você determinar a ROTA_POR_DIRECTIONS e colocar ROTA_AUTOMATICA como false, ele vai seguir a ROTA_POR_DIRECTION até chegar na última direction especificada e para de andar novamente. No caso: {NORTH, NORTH, EAST, NORTH, EAST}, o player vai andar 1 sqm pro NORTE, depois mais 1 pro NORTE, aí 1 pro LESTE, aí um pro NORTE de novo e outro pro LESTE e vai finalizar a viagem.

 

4 - adicionado a condição infight pro player não dar logout, adicionado também as configurações ITEM_REMOVIDO e ITEM_COUNT pra configurar um item a ser removido pra poder viajar, e sua quantidade também.

 

As direções são:

 

NORTH /\ (norte, pra cima)

EAST > (leste, pra direita)

SOUTH \/ (sul, pra baixo)

WEST < (oeste, para esquerda)

SOUTHWEST (diagonal para baixo/esquerda)

SOUTHEAST (diagonal para baixo/direita)

NORTHWEST (diagonal para cima/esquerda)

NORTHEAST (diagonal para cima/direita)

 

você deve usar as palavras grifadas para completar a tabela de direções, ou então você usa números, sendo:

0 = norte

1 = leste

2 = sul

3 = oeste

4 = sudoeste

5 = sudeste

6 = noroeste

7 = nordeste

5303fg1.png

cacaiu

Criador !!
avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 17/10/10Posts: 230Char no Tibia: Nascont

  • brun123 vou7 testa, se aparecer bug eu edito XD

 

  • agora sim brun ficou show ta 99% =D
  • esse 1% é: a funçao do player não relogar não ta saindo dps q acaba a viajem =l

 

 

rep pra vc ja xD

Se gostou da um rep+ =D

 

POKEMON CENTURION CLICK/\

torcida.gif

 

 

Para contatos:

 

 

Skype: claudio.alexandre95

 

Msn: cacaiu_alexandre@hotmail.com

 

Facebook: http://www.facebook....io.alexandre.90

Zikar

Not listening, not anymore. More I learn,more I ignore.
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 30/08/12Posts: 43

Nussa, esse script me ajudo d++, so gostaria de fazer um pedido, quando o player chega na POS_FINAL ele ser TELEPORTADO

40580996.gif

notle2012

uoʇן£
avatar
Conde
Conde

INFOS

Grupo: CondeRegistrado: 03/01/12Posts: 884Char no Tibia: Segredo
  • brun123 vou7 testa, se aparecer bug eu edito XD

  • agora sim brun ficou show ta 99% =D
  • esse 1% é: a funçao do player não relogar não ta saindo dps q acaba a viajem =l

rep pra vc ja xD

 

 

 

 

depois do brun123 ter feito essa configuração tão complexa

fico facil deixa 100%

tenta assim quando acaba a viajem

se da pra desloga com esse scripts a baixo :D

 

 

 

local avoidLogout = createConditionObject(CONDITION_INFIGHT, -1 ,1660)
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
local config = {
ITEM_REMOVIDO = 2160, -- id do item a ser removido
ITEM_COUNT = 10, -- quantidade do item a ser removido
LOOKTYPE_DA_MOTO = 127, -- outfit da moto, apenas looktype
DELAY_ENTRE_ANDADAS = 450, -- intervalo (em ms) a cada passo que o player dá
VELOCIDADE_EXTRA = 1000, -- velocidade a mais que o player ganha na moto
EMPURRAR_CRIATURAS = true, -- true/false, se true, todos os monstros/players que estiverem no caminho serão empurrados pro lado
ATRAVESSAR_OBSTACULOS = true, -- true/false, se true, vai entrar e passar por dentro de paredes, árvores etc...
POS_INICIAL = {x = 1058, y = 1065, z = 7}, -- onde o player irá ser teleportado ao confirmar a msg do npc
POS_FINAL = {x = 1009, y = 1065, z = 7},
ROTA_AUTOMATICA = false, -- procura por direções automaticamente, sem precisar configurar as directions
-- porém há grandes chance de encontrar obstáculos/falhar
ROTA_POR_DIRECTION = {WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST,WEST} -- apenas se ROTA_AUTOMATICA for false
}
local function getNextDir(cid, playerpos, finalpos)
local result = {}
local xy = 999999
for newDir = 0, 3 do
local p = getPosByDir(playerpos, newDir)
if doTileQueryAdd(cid, p, config.EMPURRAR_CRIATURAS and 4 or 0) == 1 or config.ATRAVESSAR_OBSTACULOS then
local d = math.abs(p.x - finalpos.x) + math.abs(p.y - finalpos.y)
if d < xy then result = {newDir} xy = d
elseif d == xy then table.insert(result, newDir) end
end
end
if #result == 0 then
for newDir = 4, 7 do
local p = getPosByDir(playerpos, newDir)
if doTileQueryAdd(cid, p, config.EMPURRAR_CRIATURAS and 4 or 0) == 1 or config.ATRAVESSAR_OBSTACULOS then
local d = math.abs(p.x - finalpos.x) + math.abs(p.y - finalpos.y)
if d < xy then result = {newDir} xy = d
elseif d == xy then table.insert(result, newDir) end
end
end
return #result == 0 and false or result[math.random(#result)]
else
return result[math.random(#result)]
end
return false
end					

local function doPlayerFollowRoute(cid, stepId)
if not isCreature(cid) then return true end
if not stepId then
doCreatureSetNoMove(cid, true)
doSendMagicEffect(getThingPos(cid), CONST_ME_TELEPORT)
doChangeSpeed(cid, config.VELOCIDADE_EXTRA)
doSetCreatureOutfit(cid, {lookType = config.LOOKTYPE_DA_MOTO}, -1)
doAddCondition(cid, avoidLogout)
addEvent(doPlayerFollowRoute, config.DELAY_ENTRE_ANDADAS, cid, 1)
return true
end
local begin, finish = getThingPos(cid), (config.ROTA_AUTOMATICA and config.POS_FINAL or {x = -1, y = -1})
if (begin.x == finish.x and begin.y == finish.y) or (not config.ROTA_AUTOMATICA and stepId == #config.ROTA_POR_DIRECTION + 1) then
doPlayerSendCancel(cid, "Destino alcançado!")
doCreatureSetNoMove(cid, false)
doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
doRemoveCondition(cid, CONDITION_OUTFIT)
doRemoveCondition(cid, CONDITION_INFIGHT)
return true
end
if getCreatureOutfit(cid).lookType ~= config.LOOKTYPE_DA_MOTO then
doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
doCreatureSetNoMove(cid, false)
doRemoveCondition(cid, CONDITION_OUTFIT)		  
doRemoveCondition(cid, CONDITION_INFIGHT)
return true end
local nextPos = {}
if config.ROTA_AUTOMATICA then
nextPos = getPosByDir(getThingPos(cid), getNextDir(cid, getThingPos(cid), config.POS_FINAL) or getDirectionTo(getThingPos(cid), config.POS_FINAL))
else
nextPos = getPosByDir(getThingPos(cid), config.ROTA_POR_DIRECTION[stepId or 1])
end
if not (doTileQueryAdd(cid, nextPos) == 1 or config.ATRAVESSAR_OBSTACULOS) then
doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
doChangeSpeed(cid, -getCreatureSpeed(cid) + getCreatureBaseSpeed(cid))
doRemoveCondition(cid, CONDITION_OUTFIT)
doCreatureSetNoMove(cid, false)
doRemoveCondition(cid, CONDITION_INFIGHT)
return doPlayerSendCancel(cid, "Obstáculo encontrado!")
end
if config.EMPURRAR_CRIATURAS and config.ATRAVESSAR_OBSTACULOS and getTileInfo(nextPos).creatures > 0 then
for pushCreatures = 1, #getTileInfo(nextPos).creatures do
local creature = getTopCreature(nextPos).uid
addEvent(doTeleportThing, 50, creature, getClosestFreeTile(creature, getThingPos(creature)))
end
end
doTeleportThing(cid, nextPos)
addEvent(doPlayerFollowRoute, config.DELAY_ENTRE_ANDADAS, cid, (stepId or 1) + 1)
end
function creatureSayCallback(cid, type, msg)
if msgcontains(msg, 'yes') then
if not doPlayerRemoveItem(cid, config.ITEM_REMOVIDO, config.ITEM_COUNT) then
selfSay("Você não tem o item necessário!")
return true
end
selfSay("OK! boa viajem.", cid)
doTeleportThing(cid, config.POS_INICIAL, false)
doPlayerFollowRoute(cid)
return true
end
end								
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

 

 

Por Favor quando for fazer pedidos faz o pedido com mais clareza e com os mínimos detalhes
GOSTO DOS MEUS SCRIPT CLICK EM CURTIR :D

 

sistema de fome

TROCA TROCA

sistema coliseum by notle v1

new sistema [KILLER-UP]

 

 

jcLmJPT.png

  • 1
  • 2