moveevent [ Moveevent ]Montaria System Perfect [8.54+]

[Saymon14 115]

EDIT-- Como prometido adicionei velocidade na montaria, e fiz um sistema de blokeio para impossibilitar abrir o loot da criatura e assim debugar o server, aumentei o tempo de montaria e só espero que gostem

---------------------------------------------------------------------------------------------------

Novato na area galera, bom esse sistema vai funcionar assim voce mata o War wolf clika nele (quando ele tiver morto) e voce vira um orc rider e o corpo dele some (pra deixar mais realista pra variar)... sem mais delongas peguei esse script do usuario chain q nao tinha nada a ver com esse abaixo e o editei, depois posto o link original

 

-- Montaria system by Chain and Modified for Saymon14 ;D
local function montar(parametros)
cid = params[1]
if getPlayerStorageValue(cid, 5555) == 1 then
setPlayerStorageValue(cid,montado,-1)
doPlayerSendTextMessage(cid,22,"Voce desceu da montaria.")
if voc == 1 or voc == 5 then
elseif voc == 2 or voc == 6 then
elseif voc == 3 or voc == 7 then
elseif voc == 4 or voc == 8 then
end
end
end
function onUse(cid, item, frompos, item2, itemEx, topos)
--Configs--
local mount_creature = 6009 -- id do corpo da criatura
local vipstorage = 1111 -- id do storagevalue do vip
local voc = getPlayerVocation(cid)
local sex = getPlayerSex(cid)
params = { [1]=cid, [2]=lvl, [3]=voc, [4]=ml }
roupamontado1 = {lookType = 4}
roupamontado2 = {lookType = 4}
roupamontado3 = {lookType = 4}
roupamontado4 = {lookType = 4}
local speed = 40 getCreatureSpeed(cid)
montado = getPlayerStorageValue(cid,5555)
vip = getPlayerStorageValue(cid,vipstorage)
--end of configs--

--ACTION TIME!--
if item.itemid == mount_creature then
addEvent(montar, 120000, params)
--Sorc
if voc == 1 or voc == 5 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1) 
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado1, 120000)
--Druid
elseif voc == 2 or voc == 6 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1) 
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado2, 12000)
--Pally
elseif voc == 3 or voc == 7 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1) 
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado3, 120000)
--Kina
elseif voc == 4 or voc == 8 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1)
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado4, 120000)
--No Voc
elseif voc == 0 then
doPlayerSay(cid,"Eu nao tenho voc!", 17)
---
else
return 0
end
end
return TRUE
end

 

<action itemid="6009" script="mwolf.lua" />

 

 

esse ID 6009 é o corpo do War Wolf, esse script gasta 1 de Soul para montar.

 

DICA: tire o loot do War Wolf do seu server porque se os players mexer no loot dele tipo pega o food dentro do corpo vai dar DEBUG no server.

 

SS:

 

 

 

 

para os troxas coleguinhas que axam que só fiz Copiar, Colar, ta ai o LINK Original(CREDITOS 100% ao usuario CHAIN):

 

Clique aqui

 

INSTALANDO: va em \data\actions\scripts, copie qualquer arquivo e cole edit, dentro dele cole o codigo la de cima, e em seguida cole a tag no actions.XML

--------------------------------------------------------------------------------

Finalizado ai em cima vamos seguir para um novo script

 

Sistema de Montaria com Orc Marauder:

 

-- Montaria system by Chain and Modified for Saymon14 ;D
local function montar(parametros)
cid = params[1]
if getPlayerStorageValue(cid, 5555) == 1 then
setPlayerStorageValue(cid,montado,-1)
doPlayerSendTextMessage(cid,22,"Voce desceu da montaria.")
if voc == 1 or voc == 5 then
elseif voc == 2 or voc == 6 then
elseif voc == 3 or voc == 7 then
elseif voc == 4 or voc == 8 then
end
end
end
function onUse(cid, item, frompos, item2, itemEx, topos)
--Configs--
local mount_creature = 11241 -- id do corpo da criatura
local vipstorage = 1111 -- id do storagevalue do vip
local voc = getPlayerVocation(cid)
local sex = getPlayerSex(cid)
params = { [1]=cid, [2]=lvl, [3]=voc, [4]=ml }
roupamontado1 = {lookType = 342}
roupamontado2 = {lookType = 342}
roupamontado3 = {lookType = 342}
roupamontado4 = {lookType = 342}
local speed = 40 getCreatureSpeed(cid)
montado = getPlayerStorageValue(cid,5555)
vip = getPlayerStorageValue(cid,vipstorage)
--end of configs--

--ACTION TIME!--
if item.itemid == mount_creature then
addEvent(montar, 120000, params)
--Sorc
if voc == 1 or voc == 5 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1) 
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado1, 120000)
--Druid
elseif voc == 2 or voc == 6 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1) 
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado2, 12000)
--Pally
elseif voc == 3 or voc == 7 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1) 
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado3, 120000)
--Kina
elseif voc == 4 or voc == 8 then
doSendAnimatedText(getPlayerPosition(cid), "Uhuuuu!...", TEXTCOLOR_ORANGE)
setPlayerStorageValue(cid,montado,1)
doChangeSpeed(cid, speed)
doRemoveItem(item.uid, 1)
doSendMagicEffect(roupamontado1, 14)
doSetCreatureOutfit(cid,roupamontado4, 120000)
--No Voc
elseif voc == 0 then
doPlayerSay(cid,"Eu nao tenho voc!", 17)
---
else
return 0
end
end
return TRUE
end

 

<action itemid="11241" script="marauder.lua" />

 

Mesma coisa do outro só mudei o ID (11241) do corpo e o Looktype para os novatos que nao sabem modificar...

 

 

SS

 

 

 

 

 

LEMBRE SE Tire o loot das duas criaturas acima porque senao, dar DEBUG

Editado Maio 27, 2010 por Saymon14

[PedrinhuHenrique 7]

Ótimo script cara, parabéns mesmo!

Agora sim, todo mundo compartilhando as coisas no Xtibia, assim sempre ficará melhor.

 

Area de Scripting ta começando a melhorar! :]

[lucasatak 14]

para os troxas coleguinhas que axam que só fiz Copiar, Colar, ta ai o LINK Original:

 

tá,você mudou só o looktype.

 

oque era isso:

roupamontado1 = {lookType = 16, lookHead = 20, lookBody = 30, lookLegs = 40, lookFeet = 50, lookAddons = 0}

 

voce pois isso:

roupamontado1 = {lookType = 4}

 

isso seria modificar o script?

se é modificar,você modificou o LOOKTYPE não o script.

falando que voce modificou o script,parece que você modificou todo ele,e nao parece isso.

 

ja ia me esquecendo voce modificou as falas também

Editado Maio 11, 2010 por lucasatak

[Gabnois 1]

Muito bom Tutorial!! Excelente, +RP.

Uma dica que ficaria perfeita: colocar para aumentar a velocidade quando ele monta. Ai ficaria Mais que perfeito!

By: Gabnois

[Saymon14 115]

para os troxas coleguinhas que axam que só fiz Copiar, Colar, ta ai o LINK Original:

 

tá,você mudou só o looktype.

 

oque era isso:

 

voce pois isso:

 

isso seria modificar o script?

se é modificar,você modificou o LOOKTYPE não o script.

falando que voce modificou o script,parece que você modificou todo ele,e nao parece isso.

 

ja ia me esquecendo voce modificou as falas também

 

*Trokei Looktype

*Corpse

*Adicionei a linha (doRemoveItem(item.uid, 1)) para quando clika no corpo da criatura ela sumir

*Diminui o gasto de soul para 1

 

 

Quer mais o que ? Criar meu propio Script ?

[guedes101 6]

claro,se é uma copia parcial do script voce deveria colocar o credito do criador e uma parte dos creditos seria o seu também, pelo aperfeiçoamento do script,como remover algumas linhas disnecessarias,ou adicionar as mesma.

Coloque os creditos para que não seje considera Rip.

 

 

@Script

 

Achei bem interessante,Aprovado.

[lucasatak 14]

@Saymon

 

*Trokei Looktype

*Corpse

*Adicionei a linha (doRemoveItem(item.uid, 1)) para quando clika no corpo da criatura ela sumir

*Diminui o gasto de soul para 1

 

 

Quer mais o que ? Criar meu propio Script ?

 

seria muito bom.

 

em nenhum momento voce disse os devidos creditos,apenas colocou o link do topico original,e no seu topico tem que ter no minimo um Creditos para Chain.

[Saymon14 115]

Coloquei os Creditos mais, nem precisava pois no propio Script ja havia o nome de usuario dele =P

 

----------------------------------------

proximo passo conseguir colocar para aumentar a velocidade quando montar na criatura...

Editado Maio 17, 2010 por Saymon14

[luisfe23 199]

Ótimo script, obrigado por compartilhar ao XTibia.

 

@Saymon é sempre bom por os creditos, pqe ripping é ban e creio qe vc nao qeira ser banido.

[danielprist 0]

Olha muito bom , aki funcionou

MAS, qndo eu uso o do gnarlhound o meu ot simplesmente fexa

nem msg d debug aparece

oq seria? =p

[Saymon14 115]

Olha muito bom , aki funcionou

MAS, qndo eu uso o do gnarlhound o meu ot simplesmente fexa

nem msg d debug aparece

oq seria? =p

 

é a loot dele que ta dando debug, mais ja estou provindenciando a atualização do script, com a impossibilidade de abrir o loot de tal criatura

[matheus1000 11]

Não gostei.

 

Você edito quase nada, só uns detalhes que nem dá para perceber. Se for editando script de outras pessoas para postar, seria muito fácil.

[flavinhoo 2]

Perfeito.

 

ake funfou perfeito

[ricktcs 3]

parabens, sendo voce ou nao que fez, está realmente muito bom, voce sabe se daria pra adaptar para um sistema com sprites ?

[mtkevil 1]

não consegui usar, pode explicar um pouco mais?

eu faço o monstro "War Wolf" mato ele, e clico em USE e fala que não posso usar este item.