Sistema de montaria!!!

[vyctor17 35]

Sistema de montaria

Nome: Sistema de Montaria 
Autor: vyctor17 
Versão Testada: TFS 0.3.6PL1 (8.54)
Nivel: facil

Como funciona ?

 

Esse sistema simples funciona da seguinte forma, o player poderá Domar criaturas e ao domar poderá montar na mesma.

 

Action: [para "capturar" a criatura.]

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

   if not isMonster(itemEx.uid) then
       return true
   end

   local cavalo = {
       ["white horse"] = {chance = 90, st = 1},
       ["horse"] = {chance = 88, st = 2},
       ["black horse"] = {chance = 50, st = 3}
   }

   cx  = cavalo[string.lower(getCreatureName(itemEx.uid))]

   if cx then
       if math.random(100) >= cx.chance then
           doSendMagicEffect(toPosition, CONST_ME_FIREWORK_BLUE)
           doPlayerSendTextMessage(cid,22,"you train one " ..getCreatureName(itemEx.uid) .." to use clike mount")
           setPlayerStorageValue(cid, 6768, cx.st)
       else
           doPlayerSendTextMessage(cid,22,"the training of his " ..getCreatureName(itemEx.uid) .." failed!")
           doSendMagicEffect(toPosition, CONST_ME_POFF)
       end
       doRemoveCreature(itemEx.uid)
   end

   return true

end

 

Talkaction: [para "chamar" a criatura.]

function getTime(s) -- function by mkalo noob
       local n = math.floor(s / 60)
       s = s - (60 * n)
       return n, s
end

function onSay(cid, words)

   local cavalo = {
       [1] = {outfit = 383, speed = 150, pa = true},
       [2] = {outfit = 382, speed = 100, pa = true},
       [3] = {outfit = 375, speed = 200, pa = true}
   }

   cx = cavalo[getPlayerStorageValue(cid, 6768)]

   if not cx then
       return doPlayerSendCancel(cid, "You dont have one horse")
   end

   CONT_RIDEOUTIFT = cx.outfit
   s = 9393 -- Não mexa aqui!
   time = 1

   if cx.pa and not isPremium(cid) then
       return doPlayerSendTextMessage(cid, 23, "Sorry, This is premy horse.") -- menssagem se nao for premy
   end

   if os.time()-getPlayerStorageValue(cid, 64233) <= time*5 then
       minutes,seconds = getTime(time*5-(os.time()-getPlayerStorageValue(cid, 64233)))
       return doPlayerSendTextMessage(cid,27, "is exaust, wait " .. seconds .. " seconds for use this mount.")
   end

   if getPlayerStorageValue(cid, s) <= 0 then
       doCreatureSay(cid, "you climbed on his mount!.", 19) -- menssagem quando der ride
       local outfit = getCreatureOutfit(cid)
       outfit.lookType = CONT_RIDEOUTIFT
       doSetCreatureOutfit(cid, outfit, -1)
       doChangeSpeed(cid, cx.speed)
       doSendMagicEffect(getCreaturePosition(cid), 34) -- numero do efeito quando der ride
       setPlayerStorageValue(cid, s, 1)
   else
       doRemoveCondition(cid, CONDITION_OUTFIT)
       doChangeSpeed(cid, -cx.speed)
       doSendMagicEffect(getCreaturePosition(cid), 34) -- numero do efeito quando sair do ride
       setPlayerStorageValue(cid, 64233, os.time())
       setPlayerStorageValue(cid, s, -1)
       doCreatureSay(cid, "you give your mount!", 19) -- menssagem quando sair do ride
   end
   return true

end

 

Obs: script bem antigo. qualquer bug reportem, estarei feliz em ajudar.

Editado 22 Fevereiro, 2012 por vyctor17

[vHp 6]

Excelente vyctor17!

 

Obrigado pela contribuição, continue assim!

[iuniX 4]

Esse sim ficou ótimo, bem indentado como eu te ensinei. Obrigado pela contribuição.

[vyctor17 35]

Esse sim ficou ótimo, bem indentado como eu te ensinei. Obrigado pela contribuição.

uma hora com você e o skyen pegando no meu pé com a indentação tinha que pegar o jeito uhauhaua.

 

Obrigado pelo elogio fico muito feliz.

[Lyon 3]

vyctor17 muito bom esse script vendo superficialmente,tem como colocar uma imagens dele funfando?

To curioso em uma coisa,vc usou uma versão 8.54,mas os outfits vão ficar igual os 9.x podendo trocar de roupa em cima das mounts,ou vai ser algo fixo?

Parabéns!

[vyctor17 35]

vyctor17 muito bom esse script vendo superficialmente,tem como colocar uma imagens dele funfando?

To curioso em uma coisa,vc usou uma versão 8.54,mas os outfits vão ficar igual os 9.x podendo trocar de roupa em cima das mounts,ou vai ser algo fixo?

Parabéns!

 

eu fiz esse script na epoca do 8.54/8.60 n tinha calavo ainda dai me virei com umas out fixa depois talvez eu poste algum video do funcionamento.

Obrigado.

[vuzanitj 1]

como se aplica no ot esta função tentarei aplicar no ot 8.6

[sk8sk8ter 0]

como faz pra usar esse sistema no 8.60 so por isso e ja era

[vyctor17 35]

tem como aplicar no 8.6 sim é so configurar o script

[binhooliveir 0]

quais os comandos para pega amontarias

[GM BLumaster 19]

estou com problema

 

Tipo a id do item era 6768

 

cx = cavalo[getPlayerStorageValue(cid, 6768)]

 

 

Correto?

 

Entao eu mudei ela pra um item que eu criei no id 2112...

 

Ate ai blz

 

Porem eu criei o comando !montar e ! Desmontar

 

quando eu estou com o item em qualquer lugar bp mao tudo qualquer lugar possivel...

 

eu digito !montar fala you dont have one horse...

 

Fiz algo de errado?

 

porque a id que voce colocou pra usar 6768 no meu servidor e uma parede de gelo =P

[tiujakas 0]

do jeito q explico nem ele deve saber... puro ctrl+v

[JulianoRenan 0]

Funciona em 8.60 baiak?

[JulianoRenan 0]

Funciona em 8.60?

[Jakire 0]

cade o help? tambem quero saber como ativar esse sistema no 8.60, e tambem fiz esse procedimento que o GM BLumaster fez e deu a mesma mensagem! " You dont have one horse! " quero uma ajuda por favor...