Guest User

Untitled

a guest
May 29th, 2017
85
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. numpad7::
  2. if (isinchat())
  3. {
  4.     send, {lctrl down}{vk41}{vk58}{lctrl up}{F6}
  5. }
  6. else
  7. {
  8.     loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  9.     {
  10.         if RegExMatch(A_LoopReadLine, "^\[\d{2}\:\d{2}\:\d{2}\] \* Вы ударили тазером (.*), он обездвижен на 10 секунд\.", s)
  11.         {
  12.             clipboard := s1
  13.         }
  14.     }
  15.     sendchat("/id " clipboard)
  16. }
  17. return
  18. numpad8::sendchat("/find " Clipboard)
  19. numpadMult::sendchat("/st " clipboard)
  20. ^numpaddiv::sendchat("/checkbdlic " clipboard)
  21. numpaddiv::sendchat("/mdc " clipboard)
  22.  
  23.  
  24. !numpad9::
  25. targetName :=
  26. targetID :=
  27. FileRead, chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  28. chatlog := StrSplit(chatlog, "`n")
  29. sendchat("/id " Clipboard)
  30. sleep 1150
  31. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  32. {
  33.     if (A_Index >= chatlog.MaxIndex() * 2 - 1)
  34.     {
  35.         if RegExMatch(A_LoopReadLine, "^\[\d{2}\:\d{2}\:\d{2}\] ID\: \((.*?)\) (.*);?", lastidtarget)
  36.         {
  37.             targetName := lastidtarget2
  38.             targetID := lastidtarget1
  39.         }
  40.         if RegExMatch(A_LoopReadLine, "^\[\d{2}\:\d{2}\:\d{2}\] ID\: \((.*?)\) (.*) \{\w{6}\}<PAUSE\: \d+ sec\.?>", lastidtarget)
  41.         {
  42.             targetName := lastidtarget2
  43.             targetID := lastidtarget1
  44.         }
  45.     }
  46. }
  47. if (targetName)
  48. {
  49.     sendchat(targetName "[id: " targetID "]")
  50. }
  51. return
  52.  
  53. numpad9::
  54. FileRead, chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  55. chatlog := StrSplit(chatlog, "`n")
  56. sendchat("/id " Clipboard)
  57. sleep 300
  58. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  59. {
  60.     if (A_Index >= chatlog.MaxIndex() * 2 - 1)
  61.     {
  62.         if RegExMatch(A_LoopReadLine, "^\[\d{2}\:\d{2}\:\d{2}\] ID\: \(\d+\) ([a-zA-Z._0-9]{3,20}).*?", lastChatId)
  63.         {
  64.             Clipboard := lastChatId1
  65.         }
  66.     }
  67. }
  68. return
  69.  
  70. /*
  71. ----------------------------------------------------
  72. Copy nickname of last killed suspected
  73. ----------------------------------------------------
  74. */
  75.  
  76. rctrl & F1::
  77. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  78. {
  79.     if RegExMatch(A_LoopReadLine, "^\[\d{2}:\d{2}:\d{2}\] \* Преступник (.*?) арестован и посажен на \d+ секунд\. Вы получили \$\d+\.", arrestTarget)
  80.     clipboard := arrestTarget1
  81. }
  82. sendchat("/id " clipboard)
  83. return
  84.  
  85.  
  86. /*
  87. ----------------------------------------------------
  88. Copy last /pl player
  89. ----------------------------------------------------
  90. */
  91.  
  92. rctrl & F2::
  93. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  94. {
  95.     if RegExMatch(A_LoopReadLine, "^\[\d{2}:\d{2}:\d{2}\] \[PL\] >>> (.*)\[\d+\] \(.*\) вош(ёл|ла) на сервер\.", pltarget)
  96.     clipboard := pltarget1
  97. }
  98. sendchat("/id " clipboard)
  99. return
  100.  
  101. /*
  102. ----------------------------------------------------
  103. Copy last quit player
  104. ----------------------------------------------------
  105. */
  106.  
  107. rctrl & F3::
  108. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  109. {
  110.     if RegExMatch(A_LoopReadLine, "^\[\d{2}:\d{2}:\d{2}\] \* Ответ принят\: (.*?) вышел при аресте и посажен в тюрьму строгого режима\.", quittarget)
  111.     clipboard := quittarget1
  112. }
  113. sendchat("/id " clipboard)
  114. return
  115.  
  116. /*
  117. ----------------------------------------------------
  118. Copy last seen suspected
  119. ----------------------------------------------------
  120. */
  121.  
  122. rctrl & F4::
  123. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  124. {
  125.     if RegExMatch(A_LoopReadLine, "^\[\d{2}:\d{2}:\d{2}\] \[WANTED\] (.*) заметил подозреваемого (.*)", lasttarget)
  126.     clipboard := lasttarget2
  127. }
  128. sendchat("/id " clipboard)
  129. return
  130.  
  131. /*
  132. ----------------------------------------------------
  133. Copy last /su player
  134. ----------------------------------------------------
  135. */
  136.  
  137. rctrl & f5::
  138. loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  139. {
  140.     if RegExMatch(A_LoopReadLine, "^\[\d{2}:\d{2}:\d{2}\] Lewis_Flow\: .*, обвиняемый\: (.*?)\(опасность\: \d+, общий уровень\: \d+\)\.", s)
  141.     clipboard := s1
  142. }
  143. sendchat("/id " clipboard)
  144. return
RAW Paste Data