KT
pedido

Maquina de scripter -- Derivados é Tibia

Por kttallan, 24 de set. de 2013 em Scripts

maquina de scripter
resolvido
tibia
script
otserv
81
10.8k
kttallanK
24 de setembro de 2013 às 13:41

Ola venho o motivo que criei esse topico é para ajudar é tentar treinar mais minha capacidade de scripter para fazer um pedido de scripter siga o protocolo abaixo para á ajuda de correção de erro tabem siga o protocolo entregarei o trabalho no maximo possivel.

 

Como Fazer Um Pedido De Scripter

 

 

 

Preecha o Seguinte Formulario

 

Função Do Scripter : Assim Ele Passarar Pelo Tile é Ganharar 5000 k.

Servidor utilizado: Tibia Derivados..

Contem Storage : Sim ou Não

 

 

 

 

Como Fazer Procurar A Solução De Tal Erro !

 

 

 

Preencha Seguinte Formulario

 

Qual Servidor Foi Testado : Alissow

Qual Erro Persinste : Poste o Erro Aki

Qual Version : 8.54

 

 

 

 

 

Observação : Seguinte Entregarei o Scripter quando der Caso Não consiga fazer aviso , Para akeles que querem ajudar aceitaria de bom grato a ajuda de algumas pessoas :)

 

Tem como tirar esse negocio de pedido pois tinha que usar um desses. é os scripter não estarar posivel fazer scripter de spell pois não cheguei a essa area.

Editado Setembro 29 por kttallan

KluivertK
24 de setembro de 2013 às 19:26

Bela iniciativa mano depois te do um rep+!

 

 

 

Posso ajudar de vez enquando?

kttallanK
24 de setembro de 2013 às 19:30

Pode sim manow

 

Esperando Pedidos ..

25 de setembro de 2013 às 18:24

Função Do Scripter : Salvar e dar clean 1 em 1 hora

Servidor utilizado: WoDBO Hunter, Versão 8.00

Contem Storage : Não

MaenilseM
25 de setembro de 2013 às 18:40

pedido acima. (NAO TESTADO)

 

local config = {
broadcast = {60, 60},
shallow = "yes",
delay = 60,
events = 60
}
 
config.shallow = getBooleanFromString(config.shallow)
 
local function executeSave(seconds)
if(isInArray(config.broadcast, seconds)) then
local text = ""
if(not config.shallow) then
text = "Full s"
else
text = "S"
end
 
text = text .. "erver Vai Ser Salvo!"
doBroadcastMessage(text)
end
 
if(seconds > 0) then
addEvent(executeSave, config.events * 1, seconds - config.events)
else
doSaveServer(config.shallow)
                doCleanMap()
end
end
 
function onThink(interval, lastExecution, thinkInterval)
if(table.maxn(config.broadcast) == 0) then
doSaveServer(config.shallow)
else
executeSave(config.delay)
                doCleanMap()
end
 
return true
end
25 de setembro de 2013 às 20:03

 

pedido acima. (NAO TESTADO)

local config = {
broadcast = {60, 60},
shallow = "yes",
delay = 60,
events = 60
}
 
config.shallow = getBooleanFromString(config.shallow)
 
local function executeSave(seconds)
if(isInArray(config.broadcast, seconds)) then
local text = ""
if(not config.shallow) then
text = "Full s"
else
text = "S"
end
 
text = text .. "erver Vai Ser Salvo!"
doBroadcastMessage(text)
end
 
if(seconds > 0) then
addEvent(executeSave, config.events * 1, seconds - config.events)
else
doSaveServer(config.shallow)
                doCleanMap()
end
end
 
function onThink(interval, lastExecution, thinkInterval)
if(table.maxn(config.broadcast) == 0) then
doSaveServer(config.shallow)
else
executeSave(config.delay)
                doCleanMap()
end
 
return true
end

 

 

pedido acima. (NAO TESTADO)

local config = {
broadcast = {60, 60},
shallow = "yes",
delay = 60,
events = 60
}
 
config.shallow = getBooleanFromString(config.shallow)
 
local function executeSave(seconds)
if(isInArray(config.broadcast, seconds)) then
local text = ""
if(not config.shallow) then
text = "Full s"
else
text = "S"
end
 
text = text .. "erver Vai Ser Salvo!"
doBroadcastMessage(text)
end
 
if(seconds > 0) then
addEvent(executeSave, config.events * 1, seconds - config.events)
else
doSaveServer(config.shallow)
                doCleanMap()
end
end
 
function onThink(interval, lastExecution, thinkInterval)
if(table.maxn(config.broadcast) == 0) then
doSaveServer(config.shallow)
else
executeSave(config.delay)
                doCleanMap()
end
 
return true
end

Aonde eu devo adicionar isso ?

MaenilseM
25 de setembro de 2013 às 20:39

vai em data/globalevents/scripts copie qualquer arquivo e renomeie para save.lua e cole isso.

 

local config = {
broadcast = {60, 60},
shallow = "yes",
delay = 60,
events = 60
}
 
config.shallow = getBooleanFromString(config.shallow)
 
local function executeSave(seconds)
if(isInArray(config.broadcast, seconds)) then
local text = ""
if(not config.shallow) then
text = "Full s"
else
text = "S"
end
 
text = text .. "erver Vai Ser Salvo!"
doBroadcastMessage(text)
end
 
if(seconds > 0) then
addEvent(executeSave, config.events * 1, seconds - config.events)
else
doSaveServer(config.shallow)
                doCleanMap()
end
end
 
function onThink(interval, lastExecution, thinkInterval)
if(table.maxn(config.broadcast) == 0) then
doSaveServer(config.shallow)
else
executeSave(config.delay)
                doCleanMap()
end
 
return true
end

 

em globalevents.xml adcione essa tag.

<globalevent name="AutoSave" interval="70" script="save.lua"/>
rezendeeR
29 de setembro de 2013 às 14:31

Amigo Será q teria como vc fazer uma lista de scripts de pokemons para min ? eu ja tentei varias vezes mas sempre da erro por favor me ajudan ...

kttallanK
29 de setembro de 2013 às 14:38

Oque vocé queria no que der eu ajudo.

rezendeeR
29 de setembro de 2013 às 15:01

Eu quero q vc por favor crie pra min as scripts dos seguintes pokemons darkray,deoxys,jirachi,dialga,palkia,latios,latias,jiratina... tem mais algumas mas acho q vai ser de mais pedir .... são todas para servider pokemon dash advanced

Matador18M
29 de setembro de 2013 às 15:26

Eu já tenho uma script mais queria que arrumasse...Eu clico numa alavanca dai faz um monstro clico de novo ele troca para outro mais queria que ele só trocasse com o comando !trocar Demon assim...

 

local monsters = {

[1] = 'demon',

[2] = 'vampire',

[3] = 'dragon lord',

[4] = 'hydra',

}

local gstorage1 = 8671

local gstorage2 = 8672

local aid = 75000

 

function onLook(cid, thing, position, lookDistance)

if isCreature(thing.uid) then return true end

if thing.actionid == aid then

local monster = monsters[getGlobalStorageValue(gstorage1)]

if not monster then

monster = monsters[1]

end

local str = ''

for i, monstername in ipairs(monsters) do

str = str.. '['..i..'] '..monstername..'\n'

end

str = 'Monstros disponiveis nesse QG:\n'..str..'Monstro definido atualmente:\n'..monster

doShowTextDialog(cid, thing.itemid, str)

return false

end

return true

end

kttallanK
29 de setembro de 2013 às 15:36

Eu quero q vc por favor crie pra min as scripts dos seguintes pokemons darkray,deoxys,jirachi,dialga,palkia,latios,latias,jiratina... tem mais algumas mas acho q vai ser de mais pedir .... são todas para servider pokemon dash advanced

Tipo man tem tutoriais pra isso que no caos não é lua procurap or ai vocé mermo fais

 

Eu já tenho uma script mais queria que arrumasse...Eu clico numa alavanca dai faz um monstro clico de novo ele troca para outro mais queria que ele só trocasse com o comando !trocar Demon assim...

 

local monsters = {

[1] = 'demon',

[2] = 'vampire',

[3] = 'dragon lord',

[4] = 'hydra',

}

local gstorage1 = 8671

local gstorage2 = 8672

local aid = 75000

 

function onLook(cid, thing, position, lookDistance)

if isCreature(thing.uid) then return true end

if thing.actionid == aid then

local monster = monsters[getGlobalStorageValue(gstorage1)]

if not monster then

monster = monsters[1]

end

local str = ''

for i, monstername in ipairs(monsters) do

str = str.. '['..i..'] '..monstername..'\n'

end

str = 'Monstros disponiveis nesse QG:\n'..str..'Monstro definido atualmente:\n'..monster

doShowTextDialog(cid, thing.itemid, str)

return false

end

return true

end

Hum.. acho que entendi mais acho que ficaria estranho posso tipo fazer assim pra eles sortear qual monstro virar independente. tipo pode vir um agr é outro diferente. pos esse detrocar acho que não consegueria fazer ;(

JeanCristianJ
29 de setembro de 2013 às 15:39

eu queria que vc me desse um sistema de pet com a seguinte função:

* Summona cada monstro conforme o level
*Tem exausted

*só da para sumonar 1 pet por vez aparece a mensagem, "voce ja tem pet summonado!"

* em protectozone o action nao funcionara > entao aparece a mensagem "voce nao pode summonar em protectionzone"

*nao tem o sistema de voltar o summon nao, ele só sumona o monstro ele nao retira!

*Pode ser action ou talkaction

*só "x" vocaçao pode usar o comando ou o item de summon

* se possivel facil de configurar.

se quizer um sistema de base eu tenho um script aki... boa sorte :D

Matador18M
29 de setembro de 2013 às 15:42

Mais assim mais queria que o cara usasse o comando e trocasse o monstro dai tipo assim tenho outro script mais a alavanca nao

funfa dai vo te monstrar.

 

Talktions

function onSay(cid, words, param)local acceptMonsters = {"Dragon", "Kongra", "Rat", "Demon"}if not param or param == "" or #param < 1 thendoPlayerSendTextMessage(cid, 20, "Monstros disponíveis no QG:")for a, b in pairs(acceptMonsters) dodoPlayerSendTextMessage(cid, 20, "- "..b.."")endreturn trueendif param and not isInArray(acceptMonsters, param) thendoPlayerSendTextMessage(cid, 20, "Este monstro não está disponível no QG")return trueendsetPlayerStorageValue(cid, 15469, param)doPlayerSendTextMessage(cid, 20, "O monstro escolhido para o QG é o ["..param.."].")return trueend

Action

 

function onUse(cid, item, frompos, item2, topos)

if getPlayerStorageValue(cid, 15469) < 1 thendoPlayerSendTextMessage(cid, 20, "Você não escolheu ainda o monstro do QG!")return trueendsetPlayerStorageValue(cid, 15469, -1)doPlayerSendTextMessage(cid, 20, "Boa sorte jovem guerreiro!")doCreateMonster(getPlayerStorageValue(cid, 15469), getThingPos(cid))return trueend

Editado Setembro 29 por Matador18

kttallanK
29 de setembro de 2013 às 16:01

Tente esse aki vocé na proxima usa [.spoiler] e [./spoiler] tira os pontos.

 

talkaction

 

 

 

function onSay(cid, words, param)

if not param or param == "" or #param < 1 then
doPlayerSendTextMessage(cid, 20, "Monstros disponíveis no QG:")

for a, b in pairs(cfgm) do
doPlayerSendTextMessage(cid, 20, "- "..b.."")
end

return true
end

if param and not isInArray(cfg, param) then
doPlayerSendTextMessage(cid, 20, "Este monstro não está disponível no QG")
return true
end

setPlayerStorageValue(cid, 15469, param)
doPlayerSendTextMessage(cid, 20, "O monstro escolhido para o QG é o ["..param.."].")
setPlayerStorageValue(cfgm.Storage, 1)
return true
end

 

 

action

 

 

 

function onUse(cid, item, frompos, item2, topos)
if getPlayerStorageValue(cid, cfgm.storage) < 1 then
doPlayerSendTextMessage(cid, 20, "Você não escolheu ainda o monstro do QG!")
return true
end

setPlayerStorageValue(cid, cfgm.storage, -1)
doPlayerSendTextMessage(cid, 20, "Boa sorte jovem guerreiro!")
doCreateMonster(getPlayerStorageValue(cid, cfgm.monster), getThingPos(cid))
return true
end


 

 

agr vai em data/lib crie um arquivo lua é preencha assim

 

cfgm = {
monster = "Demon", Storage = 5000

monster = "Monster", Storage = adicione mais um intt 5001
}

 

não testei amigo mais tenta ai.

 

vocé tbm pode deixar no arquivo do talkactions mais se vocé for preencher ele ai deixa no lib


eu queria que vc me desse um sistema de pet com a seguinte função:

* Summona cada monstro conforme o level
*Tem exausted

*só da para sumonar 1 pet por vez aparece a mensagem, "voce ja tem pet summonado!"

* em protectozone o action nao funcionara > entao aparece a mensagem "voce nao pode summonar em protectionzone"

*nao tem o sistema de voltar o summon nao, ele só sumona o monstro ele nao retira!

*Pode ser action ou talkaction

*só "x" vocaçao pode usar o comando ou o item de summon

* se possivel facil de configurar.

se quizer um sistema de base eu tenho um script aki... boa sorte :D

Me manda o sistema base acho que consigo fazer :)

Editado Setembro 29 por kttallan