[8.1] Afogamento System

[Mock 32]

Nome: Afogamento system.

Versão: 1.0

Servidor testado: Aries 4.0

Creditos: \o/ eu dinovo

no tibia global quem ja ouviu falar q se vc tiver em calassa e tirar o helmet of deep vc morre.

eu fiz com base nisso.

Eo seguinte o player entra na area submarina, Anda; Se o player estiver com o helemt of deep na cabeça n acontece NADA. Mas se n estiver la. uHAUHauha Ele pega condigtion de Drown (afogamento) e fica tirando 1k de dano.

Bom o script e um dos mais simples.

Ai vai:

1º Va em movments.xml e add isso:

[color=Blue]<movevent event="[color=SeaGreen]StepIn[/color]" itemid="[color=seagreen]5405[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5406[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5407[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5408[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5409[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5410[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5743[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5744[/color]" script="[color=seagreen]agua.lua[/color]"/>
<movevent event="[color=seagreen]StepIn[/color]" itemid="[color=seagreen]5764[/color]" script="[color=seagreen]agua.lua[/color]"/>[/color]

Esses ids são os ids do chao que seria o chao debaixo da agua.

Agora crie um script chamado Agua.lua e ponha isso:

-- Afogamento by mock

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BUBBLES)

setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)

local condition = createConditionObject(CONDITION_DROWN)

setConditionParam(condition, CONDITION_PARAM_DELAYED, 1)

addDamageCondition(condition, 9, 2000, -1000)

addDamageCondition(condition, 1, 2000, -1000)

setCombatCondition(combat, condition)

 

function onStepIn(cid, item, pos)

if (isPlayer(cid) == TRUE) then

var = numberToVariant(cid)

lot1 = getPlayerSlotItem(cid, 1)

if (lot1.itemid == 5461) then

else

doCombat(cid, combat, var)

return 1

end

end

end

esse 9 e o numero de veses que vai sair o dano

o -1000 e o dano que vai sair por ves

e em roxo e o intervalo em mili segundos.

 

Espero que gostem.

FUIZ

Editado 8 Junho, 2008 por Dark

[Dark 3]

Já temos scripts parecidos com esse, mas como o seu tem diferenças, irei aprovar

 

Aprovado

 

Movido

(Scripting → Downloads → Ações)

[Nahruto 0]

-- Afogamento by mock
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BUBBLES)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
local condition = createConditionObject(CONDITION_DROWN)
setConditionParam(condition, CONDITION_PARAM_DELAYED, 1)
addDamageCondition(condition, 9, 2000, -1000)
addDamageCondition(condition, 1, 2000, -1000)
setCombatCondition(combat, condition)

function onStepIn(cid, item, pos)
if (isPlayer(cid) == TRUE) then
var = numberToVariant(cid)
if getPlayerSlotItem(cid, 1).itemid ~= 5461 then
doCombat(cid, combat, var)
end
end
return TRUE
end

better

[Harison 0]

bom o scrip...

 

Obs: se vc estiver sem o helmet..quando vc for pular a tabua...vc simplesmente volta...

 

agora se vc tirar o helmet debaixo da agua...vc fika perdendo hit q nem energy..25..25...até vc colokar o helmet novamente...

 

;D

[Mock 32]

uhAUHa

Nahruto apra de me corrgi dexa eu faze errado

xD zuera continau corrigindo

[gl1707 0]

Aprovado.

Legalzin

[raphaellv 0]

É esse tipo de script que deixa o ot mais realístico

na maioria dos ots nós podemos andar debaixo d'água sem nem ter esse capacete xD

ta mais que Aprovado cara

 

Aprovadíssimo, e continue assim

 

 

g@ara do deserto

[Majesty 1755]

Legal esse script, eu estava procurando algumas coisas para atualizar meu server, agora tirar 1k de dano é exagero =)

Obrigado Mock..

[Roger 0]

Muito Realistico...

Parabéns...

Continue se esforçando e faça mais sistemas realisticos

 

~ Vlw ~

[Mephisto 0]

Nuss vééy gostei !

Nunca tinha visto algo iqual !

 

Parabens !

 

Mephy~

[Devil Dark 0]

Bem Legal Cara, Gostei.

Aprovado~

[Coyoty 0]

na boa, gostei d+.

faz tempo que não se tem scripts que necessitam do minimo de criatividade.

 

esta tendo apenas monsters, monsters e spells

 

estamos entrando na era em que os membros preverem guardar os scripts para deixar em seus otserver e ganhar dinheiro!

 

PARABENS!

 

30 ot$ de presente, vc merece

[BlueAvenger 0]

Boa cara, muito bom script, está muito bom e ralistico, para deichar o ot mais sério, Parabens.

 

Aprovado~

[Uria 0]

Bem legal

 

Vou afogar todo mundo em meu OT porque to editando o Helmet of the Deep

[caips 0]

uhauhauhah

vou usar isso no meu server baseado em D&D

muito daora isso parabens

e muito obrigado!

Caips.

[Mock 32]

vlw pelos elogios.

eu so acho q o hit de 1k q fico errado e ficar tirando dano enquanto n por o helmet acho q vo fazer uma action p evita isso

[anSoft 0]

Muito bom!

[Slayerr 0]

Sem Virus sem nada mais

ta dando um bug

sabe me explicar?

[_RIBEIRO_ 0]

Nossa cara achei bem bacana e tbm bem divertido para zuar um OTserv.

[Elys Zarox 0]

melhor assim =x

 

-- Afogamento by mock

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_BUBBLES)

setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)

local condition = createConditionObject(CONDITION_DROWN)

setConditionParam(condition, CONDITION_PARAM_DELAYED, 1)

addDamageCondition(condition, 9, 2000, -1000)

addDamageCondition(condition, 1, 2000, -1000)

setCombatCondition(combat, condition)

 

------separando-----------

 

function onStepIn(cid, item, pos)

if (isPlayer(cid) == TRUE) then

var = numberToVariant(cid)

if getPlayerSlotItem(cid, 1).itemid ~= 5461 then

doCombat(cid, combat, var)

end

end

return TRUE

end

 

apesar que aqui num da pra colocar espaço =*