Advertisement
Guest User

Биндер

a guest
Feb 3rd, 2019
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Numpad0::
  2. SendMessage, 0x50,, 0x4190419,, A
  3. SendInput, {F6}/ans{Space}
  4. userID := getID()
  5. if (userID = -1) {
  6.     SendInput, {BackSpace 100}{F6}
  7.     return
  8. }
  9. SendInput, {Space}
  10. return
  11.  
  12. Numpad1::
  13. SendMessage, 0x50,, 0x4190419,, A
  14. SendInput, {F6}{BackSpace 100}/helpahk{Space}
  15. userID := getID()
  16. if (userID = -1) {
  17.     SendInput, {BackSpace 100}{F6}
  18.     return
  19. }
  20. SendInput, {Space}
  21. Input, comand, V, {Space}{F6}
  22. if (ErrorLevel := "EndKey:Space")
  23. {
  24.     SendInput, {BackSpace 100}
  25.     %comand%(userID)
  26. }
  27. else if (ErrorLevel := "EndKey:F6")
  28. {
  29.     SendInput, {BackSpace 100}{F6}
  30. }
  31. return
  32.  
  33. Numpad2::
  34. SendMessage, 0x50,, 0x4190419,, A
  35. SendInput, {F6}/commahk{Space}
  36. userID := getID()
  37. if (userID = -1) {
  38.     SendInput, {BackSpace 100}{F6}
  39.     return
  40. }
  41. SendInput, {BackSpace 100}
  42. SendInput, /ans %userID% Для этого используйте команду "".{Left 2}
  43. SendInput, {Alt down}{Shift down}{Alt up}{Shift up}
  44. return
  45.  
  46.  
  47. getID(){
  48.     Input, key, L1, {Up}
  49.     if (ErrorLevel = "EndKey:Up")
  50.     {
  51.         userIDs := []
  52.         IDcount := 0
  53.         Loop, Read, C:\Users\Данил\Documents\GTA San Andreas User Files\CR-MP\GenerationC\chatlog.txt
  54.         {
  55.             if ("[A] Вопрос от " = SubStr(A_LoopReadLine, 12, 14))
  56.             {
  57.                 idStartPos := InStr(A_LoopReadLine, "[", false, 1, 3) + 1
  58.                 idLen := InStr(A_LoopReadLine, "]", false, 1, 3) - idStartPos
  59.                 curUserID := SubStr(A_LoopReadLine, idStartPos, idLen)
  60.                 userIDs.Push(curUserID)
  61.                 IDcount := IDcount + 1
  62.             }
  63.         }
  64.         curUserIDIndex := IDcount
  65.         curUserID := userIDs[curUserIDIndex]
  66.         SendInput, %curUserID%
  67.         while (curentUserIDIndex != -1)
  68.         {
  69.             Input, key, L1, {Up}{Down}{Space}{F6}
  70.             if (ErrorLevel = "EndKey:Up")
  71.             {
  72.                 if (((curUserIDIndex - 1) > 0) && ((curUserIDIndex - 1) < (IDcount + 1)))
  73.                 {
  74.                     curUserIDIndex := curUserIDIndex - 1
  75.                     del := StrLen(curUserID)
  76.                     loop, %del%
  77.                     {
  78.                         SendInput, {BackSpace}
  79.                     }
  80.                     curUserID := userIDs[curUserIDIndex]
  81.                     SendInput, %curUserID%
  82.                 }
  83.             }
  84.             else if (ErrorLevel = "EndKey:Down")
  85.             {
  86.                 if (((curUserIDIndex + 1) > 0) && ((curUserIDIndex + 1) < (IDcount + 1)))
  87.                 {
  88.                     curUserIDIndex := curUserIDIndex + 1
  89.                     del := StrLen(curUserID)
  90.                     loop, %del%
  91.                     {
  92.                         SendInput, {BackSpace}
  93.                     }
  94.                     curUserID := userIDs[curUserIDIndex]
  95.                     SendInput, %curUserID%
  96.                 }
  97.             }
  98.             else if (ErrorLevel = "EndKey:F6")
  99.             {
  100.                 curUserID := -1
  101.                 curUserIDIndex := -1
  102.                 Break
  103.                
  104.             }
  105.             else if (ErrorLevel = "EndKey:Space")
  106.             {
  107.                 curUserIDIndex := -1
  108.                 Break
  109.             }
  110.         }
  111.     }
  112.     return curUserID
  113. }
  114.  
  115. кмнд(userIDtemp){
  116.     SendMessage, 0x50,, 0x4190419,, A
  117.     SendInput, /ans %userIDtemp% Для этого используйте команду "".{Left 2}
  118. }
  119.  
  120. гос(userIDtemp){
  121.     SendMessage, 0x50,, 0x4190419,, A
  122.     SendInput, /ans %userIDtemp% Следите за государственными новостями, их объявляют лидеры или заместители.
  123. }
  124.  
  125. мост(userIDtemp){
  126.     SendMessage, 0x50,, 0x4190419,, A
  127.     SendInput, /ans %userIDtemp% Мост поднимается каждые 30 минут и через 3 минуты опускается.
  128. }
  129.  
  130. увал(userIDtemp){
  131. SendMessage, 0x50,, 0x4190419,, A
  132. SendInput, /ans %userIDtemp% Ожидайте лидера или заместителей. VIP аккаунтам доступна команда "/leave".
  133. }
  134.  
  135. вб(userIDtemp){
  136.     SendMessage, 0x50,, 0x4190419,, A
  137.     SendInput, /ans %userIDtemp% Военный билет выдаётся по достижении 5-го ранга в армии.
  138. }
  139.  
  140. кат(userIDtemp){
  141.     SendMessage, 0x50,, 0x4190419,, A
  142.     SendInput, /ans %userIDtemp% A - мотоциклы, B - легковые, C - грузовые, D - автобусы.
  143. }
  144.  
  145. лиц(userIDtemp){
  146.     SendMessage, 0x50,, 0x4190419,, A
  147.     SendInput, /ans %userIDtemp% Лицензии Вы можете купить у лицензера в администрации области (/gps > 4 > 1)
  148. }
  149.  
  150. права(userIDtemp){
  151.     SendMessage, 0x50,, 0x4190419,, A
  152.     SendInput, /ans %userIDtemp% Водительские права Вы можете получить в автошколе (/gps > 1 > 13)
  153. }
  154.  
  155. бенз(userIDtemp){
  156.     SendMessage, 0x50,, 0x4190419,, A
  157.     SendInput, /ans %userIDtemp% Подойдите к машине и нажмите английскую клавишу "H".{left 53}
  158. }
  159.  
  160. мет(userIDtemp){
  161.     SendMessage, 0x50,, 0x4190419,, A
  162.     SendInput, /ans %userIDtemp% Металл Вы можете купить на шахте (/gps > 2 > 2)
  163. }
  164.  
  165. дер(userIDtemp){
  166.     SendMessage, 0x50,, 0x4190419,, A
  167.     SendInput, /ans %userIDtemp% Дерево Вы можете купить на лесорубах (/gps > 2 > 1)
  168. }
  169.  
  170. рыба(userIDtemp){
  171.     SendMessage, 0x50,, 0x4190419,, A
  172.     SendInput, /ans %userIDtemp% Для рыбалки приедьте на причал (/gps > 1 > 22) и пропишите команду "/fish".
  173. }
  174.  
  175. вх(userIDtemp){
  176.     SendMessage, 0x50,, 0x4190419,, A
  177.     SendInput, /ans %userIDtemp% WH - постоянные прыжки на велосипеде.
  178. }
  179.  
  180. дм(userIDtemp){
  181.     SendMessage, 0x50,, 0x4190419,, A
  182.     SendInput, /ans %userIDtemp% DM - причинение ущерба здоровью игрового персонажа без весомой на то игровой причины.
  183. }
  184.  
  185. мг(userIDtemp){
  186.     SendMessage, 0x50,, 0x4190419,, A
  187.     SendInput, /ans %userIDtemp% MG - смешивание игровой и внеигровой информации.
  188. }
  189.  
  190. нрп(userIDtemp){
  191.     SendMessage, 0x50,, 0x4190419,, A
  192.     SendInput, /ans %userIDtemp% NonRP - действия персонажа, которые бы он не сделал в реальной жизни.
  193. }
  194.  
  195. рп(userIDtemp){
  196.     SendMessage, 0x50,, 0x4190419,, A
  197.     SendInput, /ans %userIDtemp% RP - игра персонажами по ролям, приближённая к реальной жизни.
  198. }
  199.  
  200. бх(userIDtemp){
  201.     SendMessage, 0x50,, 0x4190419,, A
  202.     SendInput, /ans %userIDtemp% BH - бег с постоянным использованием прыжков.
  203. }
  204.  
  205. дб(userIDtemp){
  206.     SendMessage, 0x50,, 0x4190419,, A
  207.     SendInput, /ans %userIDtemp% DB - причинение ущерба здоровью с машины персонажу без весомой на то игровой причины.
  208. }
  209.  
  210. пг(userIDtemp){
  211.     SendMessage, 0x50,, 0x4190419,, A
  212.     SendInput, /ans %userIDtemp% PG - преувеличение возможностей своего персонажа.
  213. }
  214.  
  215. рвк(userIDtemp){
  216.     SendMessage, 0x50,, 0x4190419,, A
  217.     SendInput, /ans %userIDtemp% RVK - причинение ущерба здоровью игровому персонажу в отместку, который ранее Вас убил.
  218. }
  219.  
  220. рпк(userIDtemp){
  221.     SendMessage, 0x50,, 0x4190419,, A
  222.     SendInput, /ans %userIDtemp% RPK - намеренное повторное убийство одного и того же игрока, которого Вы уже убили ранее.
  223. }
  224.  
  225. тк(userIDtemp){
  226.     SendMessage, 0x50,, 0x4190419,, A
  227.     SendInput, /ans %userIDtemp% TK - причинение ущерба здоровью члена своей фракции без весомой на то игровой причины.
  228. }
  229.  
  230. раб(userIDtemp){
  231.     SendMessage, 0x50,, 0x4190419,, A
  232.     SendInput, /ans %userIDtemp% Устроиться на работу Вы можете в администрации области (/gps > 4 > 1)
  233. }
  234.  
  235. ном(userIDtemp){
  236.     SendMessage, 0x50,, 0x4190419,, A
  237.     SendInput, /ans %userIDtemp% Номера на транспорт можно приобрести в ДПС (/gps > 4 > 3) или через "/donate".
  238. }
  239.  
  240. цкат(userIDtemp){
  241.     SendMessage, 0x50,, 0x4190419,, A
  242.     SendInput, /ans %userIDtemp% "A" - 4.000 рублей, "B" - 5.000 рублей, "C" - 5.500 рублей, "D" - 6.500 рублей.
  243. }
  244.  
  245. рвц(userIDtemp){
  246.     SendMessage, 0x50,, 0x4190419,, A
  247.     SendInput,/ans %userIDtemp% Ожидайте о проведении RWC в чате.
  248. }
  249.  
  250. баня(userIDtemp){
  251.     SendMessage, 0x50,, 0x4190419,, A
  252.     SendInput,/ans %userIDtemp% Увы, но помыться можно только в бане (gps > общественные места)
  253. }
  254.  
  255. че(userIDtemp){
  256.     SendMessage, 0x50,, 0x4190419,, A
  257.     SendInput,/ans %userIDtemp% Не совсем понял Ваше обращение, перефразируйте его, пожалуйста
  258. }
  259.  
  260. н(userIDtemp){
  261.     SendMessage, 0x50,, 0x4190419,, A
  262.     SendInput, /ans %userIDtemp% Никак.
  263. }
  264.  
  265. муз(userIDtemp){
  266.     SendMessage, 0x50,, 0x4190419,, A
  267.     SendInput, /ans %userIDtemp% На рынке у других игроков или в ларьке.
  268. }
  269.  
  270. рил(userIDtemp){
  271.     SendMessage, 0x50,, 0x4190419,, A
  272.     SendInput,/ans %userIDtemp% Вы должны решить данный вопрос без участия администрации сервера..
  273.     Sleep 4000
  274.     SendInput, {F6}/ans %userIDtemp% .. это ролевое действие, а у нас RolePlay сервер :)
  275. }
  276.  
  277. удоч(userIDtemp){
  278.     SendMessage, 0x50,, 0x4190419,, A
  279.     SendInput, /ans %userIDtemp% С 0 по 9 уровень - Вам будет доступна удочка TF 100, с 10 по 29 - удочка..
  280.     Sleep 4000
  281.     SendInput, /ans %userIDtemp% ..RT 350, с 30 и последующие уровни - удочка HF 1000.
  282. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement