Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If Hechizos(H).Paraliza <> 0 Or Hechizos(H).Inmoviliza <> 0 Then
- If UserList(tu).flags.Paralizado = 0 Then
- If Not PuedeAtacar(UserIndex, tu) Then Exit Sub
- If UserIndex <> tu Then
- Call UsuarioAtacadoPorUsuario(UserIndex, tu)
- End If
- If UserList(tu).flags.Paralizado = 1 Then
- 'Modificado 31-03-10
- 'Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El usuario ya esta Paralizado, el hechizo no tendria efecto alguno." & FONTTYPE_INFO)
- Call EnviaTexto(SendTarget.ToIndex, UserIndex, 0, 606)
- Exit Sub
- End If
- 'binmode: probabilidad de no paralizar
- If Not ((UserList(tu).Clase = ClaseDruida) And (RandomNumber(0, 100) > 30)) And UserList(tu).flags.Privilegios = 0 Then
- UserList(tu).flags.Paralizado = 1
- UserList(tu).Counters.Paralisis = IntervaloParalizado
- Call SendData(SendTarget.ToIndex, tu, 0, "QUIETOK" & IIf(Hechizos(H).Paraliza = 1, "0", "1"))
- 'Call SendData(SendTarget.ToIndex, TU, 0, "PU" & UserList(TU).Pos.X & "," & UserList(TU).Pos.Y)
- Call Corr_ActualizarPosicion(tu, UserList(tu).Pos.X, UserList(tu).Pos.Y)
- Call InfoHechizo(UserIndex)
- Else
- Call InfoHechizo(UserIndex)
- 'Modificado 31-03-10
- 'Call SendData(SendTarget.ToIndex, TU, 0, "||Has logrado escapar de la paralisis!" & FONTTYPE_FIGHT)
- Call EnviaTextoFight(SendTarget.ToIndex, tu, 0, 607)
- End If
- b = True
- End If
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement