Advertisement
Guest User

Untitled

a guest
May 26th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.57 KB | None | 0 0
  1. If Hechizos(H).Paraliza <> 0 Or Hechizos(H).Inmoviliza <> 0 Then
  2. If UserList(tu).flags.Paralizado = 0 Then
  3. If Not PuedeAtacar(UserIndex, tu) Then Exit Sub
  4.  
  5. If UserIndex <> tu Then
  6. Call UsuarioAtacadoPorUsuario(UserIndex, tu)
  7. End If
  8. If UserList(tu).flags.Paralizado = 1 Then
  9. 'Modificado 31-03-10
  10. 'Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El usuario ya esta Paralizado, el hechizo no tendria efecto alguno." & FONTTYPE_INFO)
  11. Call EnviaTexto(SendTarget.ToIndex, UserIndex, 0, 606)
  12. Exit Sub
  13. End If
  14. 'binmode: probabilidad de no paralizar
  15. If Not ((UserList(tu).Clase = ClaseDruida) And (RandomNumber(0, 100) > 30)) And UserList(tu).flags.Privilegios = 0 Then
  16. UserList(tu).flags.Paralizado = 1
  17. UserList(tu).Counters.Paralisis = IntervaloParalizado
  18.  
  19. Call SendData(SendTarget.ToIndex, tu, 0, "QUIETOK" & IIf(Hechizos(H).Paraliza = 1, "0", "1"))
  20.  
  21. 'Call SendData(SendTarget.ToIndex, TU, 0, "PU" & UserList(TU).Pos.X & "," & UserList(TU).Pos.Y)
  22. Call Corr_ActualizarPosicion(tu, UserList(tu).Pos.X, UserList(tu).Pos.Y)
  23.  
  24. Call InfoHechizo(UserIndex)
  25. Else
  26. Call InfoHechizo(UserIndex)
  27. 'Modificado 31-03-10
  28. 'Call SendData(SendTarget.ToIndex, TU, 0, "||Has logrado escapar de la paralisis!" & FONTTYPE_FIGHT)
  29. Call EnviaTextoFight(SendTarget.ToIndex, tu, 0, 607)
  30. End If
  31.  
  32. b = True
  33. End If
  34. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement