ZankuR
Director
Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013
 | Tema: Sistema de Suicidio  Dom Ago 11, 2013 1:48 pm | |
| No tiene gran utilidad este código, pero me quiero poner a practicar un rato adaptar boludeces.. SERVER Buscamos: - Código:
-
Meditate Abajo: - Código:
-
Suicidio Buscamos : - Código:
-
case clientpacketid.meditate arriba ponemos - Código:
-
case clientpacketid.suicidio
call handlesuicidio(userindex) al final del modulo protocol ponemos - Código:
-
public sub handleSuicido(byval userindex as integer)
with userlist(userindex)
call .incomingdata.readbyte
if .flags.muerto = 1 then exit sub
if .flags.privilegios = playertype.dios or playertype.semidios then exit sub
UserList(UserIndex).Stats.MinHP = 0: Call UserDie(UserIndex)
Call writeconsolemsg(UserIndex, "¡¡Te has suicidado ¡¡", FONTTYPE_WARNING)
end with
end sub ahora CLIENTE buscamos: - Código:
-
Meditate Abajo: - Código:
-
Suicidio ahora al fondo de modulo protocol ponemos: - Código:
-
public sub writeSuicidio()
with outgoingdata
call .writebyte(clientpacketid.suicidio)
end with
end sub ahora buscamos - Código:
-
case "/MEDITAR" y arriba ponemos - Código:
-
case "/SUICIDIO"
call writesuicidio FUENTE MI BLOCK DE NOTAS LO TENIA HAY Y NO SE DE QUE FORO ES XD | |
|
