[ APORTE ]x posibilidad de que el Hechizo falle

Ir abajo

[ APORTE ]x posibilidad de que el Hechizo falle

Mensaje por Shermie80 el Dom Ago 25, 2013 3:06 am

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 ponemos
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


fue
Fuente:
Gs zone
Shermie80
Shermie80



CoverAOStaff
Aportes : 55
Mensajes : 139
Puntos : 822
Edad : 22

Ver perfil de usuario http://todo-argentum.foroargentina.net

Volver arriba Ir abajo

Re: [ APORTE ]x posibilidad de que el Hechizo falle

Mensaje por Felipiño el Jue Ago 29, 2013 10:35 pm

no entendi ._.
Felipiño
Felipiño



Mensajes : 25
Puntos : 27

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.