Ayuda con un script que hice

[Alaann_vpc]

Estoy aprendiendo a hacer esto de los scripts, pero nose porque este no me funciona...

Cita:Sub ScriptedItem(Index, Script)
Select Case Script
Case 0
Call PlayerMsg(Index, "Este objeto scripteado no tiene uso aparente.", WHITE)
Exit Sub

Case 1
HP = GetPlayerHP(index)
PM = GetPlayerPM(index)
Call SetPlayerHP(index,HP+1000)
Call SendHP(index)
Call SetPlayerPM(index,PM+1000)
Call SendPM(index)
Call SendPlayerData(index)

Case Else
Call PlayerMsg(Index, "No se encontro el objeto scripteado. Contacta con un administrador", WHITE)
Exit Sub
End Select
End Sub

[Augusto]

Ps si no me equivoco que te falto un Exit Sub al final del Case 1.

[Alaann_vpc]

Mmm... Sigue sin hacer nada...

[canido]

el Exit Sub debe de ir debajo de Call SendPlayerData(index)

[judoka]

(22-01-2012 03:32 AM)Alaann_vpc escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.Estoy aprendiendo a hacer esto de los scripts, pero nose porque este no me funciona...

Cita:Sub ScriptedItem(Index, Script)
Select Case Script
Case 0
Call PlayerMsg(Index, "Este objeto scripteado no tiene uso aparente.", WHITE)
Exit Sub

Case 1
HP = GetPlayerHP(index)
PM = GetPlayerPM(index)
Call SetPlayerHP(index,HP+1000)
Call SendHP(index)
Call SetPlayerPM(index,PM+1000)
Call SendPM(index)
Call SendPlayerData(index)

Case Else
Call PlayerMsg(Index, "No se encontro el objeto scripteado. Contacta con un administrador", WHITE)
Exit Sub
End Select
End Sub

Debes colocarlo así:

Cita:Sub ScriptedItem(Index, Script)
Select Case Script
Case 0
Call PlayerMsg(Index, "Este objeto scripteado no tiene uso aparente.", WHITE)
Exit Sub

Case 1
HP = GetPlayerHP(index)
PM = GetPlayerPM(index)
Call SetPlayerHP(index,HP+1000)
Call SendHP(index)
Call SetPlayerPM(index,PM+1000)
Call SendPM(index)
Call SendPlayerData(index)
Exit Sub
Case Else
Call PlayerMsg(Index, "No se encontro el objeto scripteado. Contacta con un administrador", WHITE)
Exit Sub
End Select
End Sub

[Alaann_vpc]

Ya arregle el script...

Lo q pasaba era que habia que poner PM = GetPlayerMP(index) y yo puse PM = GetPlayerPM(index) (ademas de poner el Exit Sub)

Gracias a todos Iguaal

[judoka]

(24-01-2012 04:54 PM)Alaann_vpc escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.Ya arregle el script...

Lo q pasaba era que habia que poner PM = GetPlayerMP(index) y yo puse PM = GetPlayerPM(index) (ademas de poner el Exit Sub)

Gracias a todos Iguaal

Y al igual con el SenPlayerPM