[News]Healando Area

por Thelost Qui 01 Jul 2010, 10:24

Este script é uma telha que você coloca e quando você andar sobre ele, se sua saúde for inferior a um quarto de saúde max vai multiplicar o que você tem por 3, mas se a sua saúde ainda é alto, você só receberá uma mensagem dizendo que você não pode ser curado.
Vaamos Láa :

1- Primeiro Colee O script Abaixo e cole noo main txt. Que Fica na Pasta Server/scripts/Main txt.

Case (Numero Do Iten vaai aki: exemplo - 75 é o numero do Piso)
Call LightHeal(Index)
Exit Sub
Sub LightHeal(Index)
Dim H
Dim M
H = GetPlayerHp(Index)
M = GetPlayerMaxHP(Index)

If H < M/4 Then
Call PlayerMsg(Index, "Você Foi Curado.", 1)
Call SetPlayerHp(Index, H * 3)
Exit Sub
End If
If H > M/4 THEN
Call PlayerMsg(Index, "Voce Não Precisa ser curado , já esta no maximo de vida. ", 1)
Exit Sub
End If
End Sub

Pronto Lembre : Ali em cimaa eu dei um Exemplo 75 Não é oo numero do piso.
Creditos : http://www.touchofdeathforums.com/

por DshFox Qui 01 Jul 2010, 12:05

explica cara

fica assim

na sub scripted item ou spell(qndo o player usar spell ,ele vai curar 1/4 da vida )

Código:: Case ? '<coloca uma case livre Call LightHeal(Index) Exit Sub

agora la no final do main tu add essa sub

Código:: Sub LightHeal(Index) Dim H Dim M H = GetPlayerHp(Index) M = GetPlayerMaxHP(Index) If H < M/4 Then Call PlayerMsg(Index, "Você Foi Curado.", 1) Call SetPlayerHp(Index, H * 3) Exit Sub End If If H > M/4 THEN Call PlayerMsg(Index, "Voce Não Precisa ser curado , já esta no maximo de vida. ", 1) Exit Sub End If End Sub

se tu quer q o player perca mp qndo for usar a spell ou pisar no tile
fica assim

Código:: If H < M/4 Then if getplayermp(index) >= 30 then'se o player tiver 30 de mp ou mais Call PlayerMsg(Index, "Você Foi Curado.", 1) Call SetPlayerHp(Index, H * 3) Call SetPlayerMp(Index, getplayermp(index)-30) 'vai tirar 30 de mp else call playermsg(index,"sem mp suficiente",grey) Exit Sub End If end if If H > M/4 THEN Call PlayerMsg(Index, "Voce Não Precisa ser curado , já esta no maximo de vida. ", 1) Exit Sub End If End Sub

[News]Healando Area

[News]Healando Area

Re: [News]Healando Area