Advertisement
Guest User

Untitled

a guest
Jul 21st, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.03 KB | None | 0 0
  1. #SingleInstance, Force
  2. #Persistent
  3. #UseHook
  4. #NoEnv
  5. #ErrorStdOut
  6.  
  7. if (!A_IsAdmin) {
  8. Run *RunAs "%A_ScriptFullPath%"
  9. }
  10.  
  11. #Include, %A_ScriptDir%\AutoHotKey\includes\SAMP.UDF.ahk
  12.  
  13. global session := false
  14. global cmd, nick, result
  15.  
  16. Loop {
  17. if (!session && RegExMatch(getChatLineEx(), "^\[A\]\s(\w+)\[\d{1,4}\]:\s(\/?ban|/?kick|/?warn|/?jail|/?mute|/?unmute|/?offwarn|/?offmute|/?offjail|/?sban|/?skick|/?fv|/?slap|/?okay|/?nookay)(.*)$", match)) {
  18. session := true
  19. Random, result, 1, 1000
  20. match3 := RegExReplace(match3, "(.*)\s[by|от].*", "$1")
  21. Sleep, 100
  22. addChatMessageEx(0xBDBDBD, "{0070ba}[AHK] {ffffff}" RegExReplace(match1, "_", " ") " {bdbdbd}просит выполнить команду {ffffff}""" match2 match3 """")
  23. Sleep, 100
  24. addChatMessageEx(0xBDBDBD, "{0070ba}[AHK] {bdbdbd}Для выполнения нажмите {1AA507}Alt+Y{bdbdbd}, для отказа {B72626}Alt+N{bdbdbd}."), timer := 10
  25. f := RegExReplace(match1, "([A-Z]{1})[a-z]+_([A-Za-z]+)", "$1.$2")
  26. cmd := SubStr(match2, 1) = "/" ? match2 match3 " | by " f : "/" match2 match3 " | by " f, nick := match1
  27. SetTimer, check, 1000
  28. }
  29. }
  30.  
  31. !vk59:: ;Alt+Y
  32. {
  33. if (session) {
  34. SendChat(cmd), session := false
  35. } else {
  36. addChatMessageEx(0xBDBDBD, "{0070ba}[AHK] {bdbdbd}В данный момент никаких действий предпринимать не надо.")
  37. }
  38. }
  39. return
  40.  
  41. !vk4E:: ;Alt+N
  42. {
  43. if (session) {
  44. addChatMessageEx(0xBDBDBD, "{0070ba}[AHK] {bdbdbd}Вы отказались выполнять команду."), session := false
  45. } else {
  46. addChatMessageEx(0xBDBDBD, "{0070ba}[AHK] {bdbdbd}В данный момент никаких действий предпринимать не надо.")
  47. }
  48. }
  49. return
  50.  
  51. check:
  52. {
  53. if (session) {
  54. if (timer > 0) {
  55. if (timer > 5) {
  56. showGameText("~g~" timer, 1000, 3)
  57. } else if (timer < 5) {
  58. showGameText("~r~1", 1000, 3)
  59. }
  60. timer--
  61. } else {
  62. showGameText("~w~time out", 1000, 3), session := false
  63. SetTimer, check, Off
  64. }
  65. }
  66. }
  67. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement