[Tutorial]- Crear una pocion de % de vida explicado

[nickitolas]

Hola, ahora les explicare como crear un script de una pocion que te cure un % de la vida que tienes:
el script ira en el sub scripteditems, que es donde se ponen los objetos scritpeados divididos en cases, ademas cuando quieras asignarle un scripta un item debes crearlo y darle la funcion de Scripted, el numero de scripted debera ser = al del case.

Comecemos a crear:

Cita:Case 1
porcientovida= GetPlayerHp(Index) *5
porcientovida= porcientovida / 100
Call SetPlayerHp(Index, GetPlayerHp(Index)+porcientovida)
Exit Sub

Case1:
es el case que usaremos


porcientovida= GetPlayerHp(Index) *5
porcientovida= porcientovida / 100:
esto hace que la variable porciento vida sea igual al 5% de la vida que tiene el jugador (el calculo es numero X porciento deseado / 100)


Call SetPlayerHp(Index, GetPlayerHp(Index)+porcientovida):

Esto hace que la vida del jugador sea = a la vida que posee actualemente + la variable porcientovida (anteriormente hemos hecho que esa variable sea el 5% de la vida dle jugador)

PERO que sucede aqui?
si tenemos toda la vida y lo usamos tendremos mas de nuestra vida maxima, asi que arregluemos eso:

Cita:Case 1
porcientovida= GetPlayerHp(Index) *5
porcientovida= porcientovida / 100
If GetPlayerHp(Index)+porcientovida < GetPlayerMaxHp(Index) Then
Call SetPlayerHp(Index, GetPlayerHp(Index)+porcientovida)
Else
Call SetPlayerHp(Index, GetPlayerMaxHp(Index)
End If
Exit Sub

If GetPlayerHp(Index)+porcientovida < GetPlayerMaxHp(Index) Then:
esto hara que si la vida del jugador+ la variable porcientovida( que ya definimos como el 5% de su vida actual) son menores a la vida maxima del jugador suceda lo de abajo


Else
Call SetPlayerHp(Index, GetPlayerMaxHp(Index)
End If:

Con el Else hacemos que lo que esta abajo se realice si NO se cumple el if dado anteriormente
el Call SetPlayerHp(Index, GetPlayerMaxHp(Index) hace que por el else mas arriba, si la vida que se obtiene al agregar el 5% es mayora su maximo su vida se convierta en su maximo
El End If hace que se terminen las acciones que se realizan relacionadas con el else y el if dados anteriormente


PERO
Si uso la pocion, no se ira de mi inventario y la podre usar infinitas veces, ademas cuando uso la pocion mi vida sigue igual a menos que me golpen.

asi que para reparar lo primero utilizaremos la siguiente funcion (TakeItem) hecha por burdi:
NOTA: Las funciones o subs agregados se ponen al FINAL DE TODO EL MAIN.

Cita:' - TakeItem by Burdi -

Sub TakeItem(index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
If GetPlayerInvItemValue(index, SLOT) = value Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
ElseIf GetPlayerInvItemValue(index, SLOT) > value Then
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
End If
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub

de la funcion:
Te quita x cantidad del item que quieras. Si pones "all" te quita todo lo que tengas, y si pones como value el número que se tiene del item, también lo quita todo. Si lo usas con items no amontonables solo te quita uno.

Y lo otro es porque nos falto un detalle: enviar la informacion del personaje cambiada, para que se actualize en su pantalla
Ahora reparemos el script por ultima vez:

Cita:Case 1
item= REMPLAZAESTO
porcientovida= GetPlayerHp(Index) *5
porcientovida= porcientovida / 100
If GetPlayerHp(Index)+porcientovida < GetPlayerMaxHp(Index) Then
Call SetPlayerHp(Index, GetPlayerHp(Index)+porcientovida)
Else
Call SetPlayerHp(Index, GetPlayerMaxHp(Index)
End If
Call TakeItem(Index, item, 1)
Call SendPlayerData(Index)
Call SendPlayerStats(Index)
Exit Sub

item= REMPLAZAESTO:
REEMPLAZAESTO seria el ID de un item, que deberia ser el cual usas para la pocion.

Call TakeItem(Index, item, 1):
Esto le quitara al jugador UNO de el ID de item que este en la variable item.

Call SendPlayerData(Index)
Call SendPlayerStats(Index)

Estos dos comandos enviaran la informacion de jugador.



Salu2, espero haberles ayudado de algo y que se entienda.
Cualquier cosa dejen un comentario.

[jolmoz]

Esta comprobado que funciona????
lo probare...

---

lo comprobe...
NO SIRVE