powerid
Inicial
Cantidad de envíos : 18
Fecha de inscripción : 14/08/2013
Edad : 24
Localización : Pehuajo
 | Tema: X Posibilidad De Que El Echizo Falle 11.5  Miér Ago 14, 2013 2:24 pm | |
| Explicación:Al intentar pegarle a un usuario con hechizo tenes x posibilidades de que el hechizo falle. Comenzamos. En el sub hechizopropusuario buscamos - Código:
-
'If UserList(UserIndex).Name = "EL OSO" Then
' Call SendData(SendTarget.ToIndex, UserIndex, 0, "|| le tiro el hechizo " & H & " a " & UserList(tempChr).Name & FONTTYPE_VENENO)
'End If Abajo ponen - Código:
-
Dim defensaAzar As Integer
defensaAzar = RandomNumber(1, 6)
If defensaAzar = 1 Then
Call SendData(SendTarget.ToIndex, userindex, 0, "||Tu hechizo ha fallado." & FONTTYPE_GUILD)
Call SendData(SendTarget.ToPCArea, userindex, UserList(userindex).Pos.Map, "||" & &HFFFF& & "°¡Fallo!" & "°" & str(UserList(userindex).Char.CharIndex))
Exit Sub
End If Listo gente es funcional,testeado. | |
|
