API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 17th, 2017
737
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 400.59 KB | None | 0 0
raw download clone embed print report
  1. // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
  2. {$CLEO .cs}
  3.  
  4. //-------------MAIN---------------
  5. thread 'garner1'
  6. 0000: NOP
  7. wait 2000
  8. if
  9. not $707 >= 17
  10. jf @garner1_48
  11. call @garner4_12359 0
  12. 0A93: end_custom_thread
  13.  
  14. :garner1_48
  15. wait 300
  16. SAMP.Available
  17. jf @garner1_48
  18. if
  19. 8AAB: not file_exists "cleo\AdminTools.cs"
  20. jf @garner1_368
  21. chatmsg "{FFA500}[AdminTools]{FF1100} Внимание! Скрипт был переименован!" 16777215
  22. chatmsg "{FFA500}[AdminTools]{FF1100} Убедитесь, что файл скрипта имеет название 'AdminTools.cs'." 16777215
  23. chatmsg "{FFA500}[AdminTools]{FF1100} В противном случае, переименуйте скрипт и перезапустите игру." 16777215
  24. 0A93: end_custom_thread
  25.  
  26. :garner1_368
  27. 0BFC: set_global_var "ADMINPANEL_FLAG" = 0
  28. 0BFC: set_global_var "COMMAND_FROM_ADM_CHAT_STATUS" = 0
  29. 0BFC: set_global_var "AUTO_ANSWER" = 0
  30. 0BFC: set_global_var "AT_CLICK_SOUND" = 0
  31. 0BFC: set_global_var "AT_NOTIFICATION_SOUND" = 0
  32. alloc 31@ 200
  33. 0C11: memset destination 31@ value 0 size 200
  34. if
  35. 8AE4: not directory_exists "CLEO\AdminTools"
  36. jf @garner1_932
  37. 0C92: 0@ = get_cleo_library_version
  38. if
  39. not 0@ >= 67310336
  40. jf @garner1_573
  41. call @garner4_12787 0
  42. 0A93: end_custom_thread
  43.  
  44. :garner1_573
  45. if
  46. 0AE5: create_directory "CLEO\AdminTools" // IF and SET
  47. jf @garner1_764
  48. 0AE5: create_directory "CLEO\AdminTools\logs" // IF and SET
  49. call @garner4_17418 0
  50. call @garner4_19664 0
  51. 1@ = File.Open("cleo\AdminTools\punishment_list.txt", "w")
  52. File.Close(1@)
  53. format 31@ "Конфигурационные файлы успешно созданы."
  54. call @garner4_17369 1 31@
  55. goto @garner1_932
  56.  
  57. :garner1_764
  58. format 31@ "Произошла ошибка при попытке создания конфигурационных файлов."
  59. call @garner4_17369 1 31@
  60. format 31@ "Проверьте, разрешено ли игре производить операции над файлами."
  61. call @garner4_17369 1 31@
  62. 0A93: end_custom_thread
  63.  
  64. :garner1_932
  65. if
  66. 8AE4: not directory_exists "CLEO\AdminTools\data"
  67. jf @garner1_991
  68. 0AE5: create_directory "CLEO\AdminTools\data" // IF and SET
  69.  
  70. :garner1_991
  71. if
  72. 8AE4: not directory_exists "CLEO\AdminTools\data\audio"
  73. jf @garner1_1062
  74. 0AE5: create_directory "CLEO\AdminTools\data\audio" // IF and SET
  75.  
  76. :garner1_1062
  77. if
  78. 8AE4: not directory_exists "CLEO\AdminTools\logs"
  79. jf @garner1_1121
  80. 0AE5: create_directory "CLEO\AdminTools\logs" // IF and SET
  81.  
  82. :garner1_1121
  83. if
  84. 8AAB: not file_exists "cleo\AdminTools\config.ini"
  85. jf @garner1_1175
  86. call @garner4_17418 1 31@
  87.  
  88. :garner1_1175
  89. if
  90. 8AAB: not file_exists "cleo\AdminTools\data\tempdata"
  91. jf @garner1_1229
  92. call @garner4_19664 0
  93.  
  94. :garner1_1229
  95. if
  96. 8AE4: not directory_exists "CLEO\AdminTools\checker"
  97. jf @garner1_1294
  98. 0AE5: create_directory "CLEO\AdminTools\checker" // IF and SET
  99.  
  100. :garner1_1294
  101. if
  102. 0AAB: file_exists "cleo\AdminTools\tempdata"
  103. jf @garner1_1392
  104. 0B02: move_file "cleo\AdminTools\tempdata" to "cleo\AdminTools\data\tempdata" // IF and SET
  105.  
  106. :garner1_1392
  107. if
  108. 8AAB: not file_exists "cleo\AdminTools\checker\leaders.txt"
  109. jf @garner1_1520
  110. 1@ = File.Open("cleo\AdminTools\checker\leaders.txt", "w")
  111. format 31@ "David_Garner"
  112. File.WriteString(1@, 31@)
  113. File.Close(1@)
  114.  
  115. :garner1_1520
  116. if
  117. 8AAB: not file_exists "cleo\AdminTools\checker\admins.txt"
  118. jf @garner1_1717
  119. 1@ = File.Open("cleo\AdminTools\checker\admins.txt", "w")
  120. format 31@ "Andrey_Ringo 7%c" 10
  121. File.WriteString(1@, 31@)
  122. format 31@ "Smart_Jackson 7%c" 10
  123. File.WriteString(1@, 31@)
  124. format 31@ "David_Garner 4"
  125. File.WriteString(1@, 31@)
  126. File.Close(1@)
  127.  
  128. :garner1_1717
  129. if
  130. 8AAB: not file_exists "cleo\AdminTools\checker\friends.txt"
  131. jf @garner1_1910
  132. 1@ = File.Open("cleo\AdminTools\checker\friends.txt", "w")
  133. format 31@ "Andrey_Ringo%c" 10
  134. File.WriteString(1@, 31@)
  135. format 31@ "Smart_Jackson%c" 10
  136. File.WriteString(1@, 31@)
  137. format 31@ "David_Garner"
  138. File.WriteString(1@, 31@)
  139. File.Close(1@)
  140.  
  141. :garner1_1910
  142. if
  143. 8AAB: not file_exists "cleo\AdminTools\punishment_list.txt"
  144. jf @garner1_2010
  145. 1@ = File.Open("cleo\AdminTools\punishment_list.txt", "w")
  146. File.Close(1@)
  147.  
  148. :garner1_2010
  149. if or
  150. 8AE4: not directory_exists "cleo\AdminTools\punishments"
  151. 8AAB: not file_exists "cleo\AdminTools\punishments\bans.txt"
  152. 8AAB: not file_exists "cleo\AdminTools\punishments\warns.txt"
  153. 8AAB: not file_exists "cleo\AdminTools\punishments\kicks.txt"
  154. 8AAB: not file_exists "cleo\AdminTools\punishments\mutes.txt"
  155. 8AAB: not file_exists "cleo\AdminTools\punishments\jails.txt"
  156. 8AAB: not file_exists "cleo\AdminTools\events.txt"
  157. jf @garner1_3894
  158. if
  159. 8AE4: not directory_exists "cleo\AdminTools\punishments"
  160. jf @garner1_2359
  161. 0AE5: create_directory "cleo\AdminTools\punishments" // IF and SET
  162.  
  163. :garner1_2359
  164. if
  165. 8AAB: not file_exists "CLEO\AdminTools\punishments\bans.txt"
  166. jf @garner1_2680
  167. 1@ = File.Open("cleo\AdminTools\punishments\bans.txt", "w")
  168. format 31@ "30 Использование чит-программ%c" 10
  169. File.WriteString(1@, 31@)
  170. format 31@ "20 Использование чит-программ%c" 10
  171. File.WriteString(1@, 31@)
  172. format 31@ "30 Упоминание родных%c" 10
  173. File.WriteString(1@, 31@)
  174. format 31@ "15 Продажа номера в отеле%c" 10
  175. File.WriteString(1@, 31@)
  176. format 31@ "15 Обход системы%c" 10
  177. File.WriteString(1@, 31@)
  178. File.Close(1@)
  179.  
  180. :garner1_2680
  181. if
  182. 8AAB: not file_exists "cleo\AdminTools\punishments\warns.txt"
  183. jf @garner1_2888
  184. 1@ = File.Open("cleo\AdminTools\punishments\warns.txt", "w")
  185. format 31@ "DeathMatch%c" 10
  186. File.WriteString(1@, 31@)
  187. format 31@ "Сбив анимации%c" 10
  188. File.WriteString(1@, 31@)
  189. format 31@ "/drugs в зелёной зоне%c" 10
  190. File.WriteString(1@, 31@)
  191. File.Close(1@)
  192.  
  193. :garner1_2888
  194. if
  195. 8AAB: not file_exists "cleo\AdminTools\punishments\kicks.txt"
  196. jf @garner1_3120
  197. 1@ = File.Open("cleo\AdminTools\punishments\kicks.txt", "w")
  198. format 31@ "DeathMatch%c" 10
  199. File.WriteString(1@, 31@)
  200. format 31@ "Помеха%c" 10
  201. File.WriteString(1@, 31@)
  202. format 31@ "NonRP игрок%c" 10
  203. File.WriteString(1@, 31@)
  204. format 31@ "Капс в названии такси%c" 10
  205. File.WriteString(1@, 31@)
  206. File.Close(1@)
  207.  
  208. :garner1_3120
  209. if
  210. 8AAB: not file_exists "cleo\AdminTools\punishments\mutes.txt"
  211. jf @garner1_3468
  212. 1@ = File.Open("cleo\AdminTools\punishments\mutes.txt", "w")
  213. format 31@ "30 Нецензурная лексика%c" 10
  214. File.WriteString(1@, 31@)
  215. format 31@ "60 Оскорбление%c" 10
  216. File.WriteString(1@, 31@)
  217. format 31@ "20 Флуд%c" 10
  218. File.WriteString(1@, 31@)
  219. format 31@ "15 Капс%c" 10
  220. File.WriteString(1@, 31@)
  221. format 31@ "15 Транслит%c" 10
  222. File.WriteString(1@, 31@)
  223. format 31@ "30 Нарушение интервала%c" 10
  224. File.WriteString(1@, 31@)
  225. format 31@ "300 Упоминание родных%c" 10
  226. File.WriteString(1@, 31@)
  227. File.Close(1@)
  228.  
  229. :garner1_3468
  230. if
  231. 8AAB: not file_exists "cleo\AdminTools\punishments\jails.txt"
  232. jf @garner1_3758
  233. 1@ = File.Open("cleo\AdminTools\punishments\jails.txt", "w")
  234. format 31@ "30 DeathMatch%c" 10
  235. File.WriteString(1@, 31@)
  236. format 31@ "60 DeathMatch в зелёной зоне%c" 10
  237. File.WriteString(1@, 31@)
  238. format 31@ "20 Помеха%c" 10
  239. File.WriteString(1@, 31@)
  240. format 31@ "80 /drugs в зелёной зоне%c" 10
  241. File.WriteString(1@, 31@)
  242. format 31@ "60 NonRP сон%c" 10
  243. File.WriteString(1@, 31@)
  244. File.Close(1@)
  245.  
  246. :garner1_3758
  247. if
  248. 8AAB: not file_exists "cleo\AdminTools\events.txt"
  249. jf @garner1_3894
  250. 1@ = File.Open("cleo\AdminTools\events.txt", "w")
  251. format 31@ "Дерби%c" 10
  252. File.WriteString(1@, 31@)
  253. format 31@ "Поливалка%c" 10
  254. File.WriteString(1@, 31@)
  255. File.Close(1@)
  256.  
  257. :garner1_3894
  258. alloc 2@ 200
  259. 0C11: memset destination 2@ value 0 size 200
  260. 3@ = 0
  261. if
  262. 3@ == 0
  263. jf @garner1_4042
  264. format 2@ "%s" '1.7.3.3'
  265. format 31@ "Скрипт загружен. Версия: %s. Разработчик: David Garner." 2@
  266. call @garner4_17369 1 31@
  267. goto @garner1_4351
  268.  
  269. :garner1_4042
  270. format 2@ "%s Developer Preview %i" '1.7.3.3' 0
  271. format 31@ "Скрипт загружен. Версия: %s. Разработчик: David Garner." 2@
  272. call @garner4_17369 1 31@
  273. format 31@ "Данная версия является бэта-версией, возможны ошибки при работе скрипта." 2@
  274. call @garner4_17369 1 31@
  275. format 31@ "Обо всех найденных Вами ошибках, пожалуйста, сообщайте разработчику." 2@
  276. call @garner4_17369 1 31@
  277.  
  278. :garner1_4351
  279. free 2@
  280. if
  281. not SAMP.IsLocalPlayerSpawned
  282. jf @garner1_4384
  283. 0BFC: set_global_var "ADMIN_LVL" = 0
  284.  
  285. :garner1_4384
  286. if
  287. call @garner4_13215 0 10@ 11@
  288. jf @garner1_4584
  289. 0BFD: 0@ = get_global_var "admins-in-file-count"
  290. 1@ = 25
  291. 006A: 1@ *= 0@ // (int)
  292. alloc 13@ 1@
  293. 0C11: memset destination 13@ value 0 size 1@
  294. 1@ = 4
  295. 006A: 1@ *= 0@ // (int)
  296. alloc 14@ 1@
  297. 0C11: memset destination 14@ value 0 size 1@
  298. 1@ = 2
  299. 006A: 1@ *= 0@ // (int)
  300. alloc 15@ 1@
  301. 0C11: memset destination 15@ value 0 size 1@
  302. 0@ -= 1
  303. 1@ = 0
  304.  
  305. :garner1_4551
  306. 0C0F: array 14@ element 1@ = 2000
  307. 1@ += 1
  308. 001D: 1@ > 0@ // (int)
  309. jf @garner1_4551
  310.  
  311. :garner1_4584
  312. if
  313. call @garner4_13738 0 12@
  314. jf @garner1_4785
  315. 0BFD: 0@ = get_global_var "leaders-in-file-count"
  316. 0BFD: 2@ = get_global_var "friends-in-file-count"
  317. 005A: 0@ += 2@ // (int)
  318. 1@ = 25
  319. 006A: 1@ *= 0@ // (int)
  320. alloc 16@ 1@
  321. 0C11: memset destination 16@ value 0 size 1@
  322. 1@ = 4
  323. 006A: 1@ *= 0@ // (int)
  324. alloc 17@ 1@
  325. 0C11: memset destination 17@ value 0 size 1@
  326. 0@ -= 1
  327. 1@ = 0
  328.  
  329. :garner1_4752
  330. 0C0F: array 17@ element 1@ = 2000
  331. 1@ += 1
  332. 001D: 1@ > 0@ // (int)
  333. jf @garner1_4752
  334.  
  335. :garner1_4785
  336. 0BE3: raknet setup_incoming_rpc_hook -133084
  337. if or
  338. 8AAB: not file_exists "cleo\AdminTools\data\audio\click.mp3"
  339. 8AAB: not file_exists "cleo\AdminTools\data\audio\notification.mp3"
  340. jf @garner1_5290
  341. alloc 1@ 128
  342. 0C11: memset destination 1@ value 0 size 128
  343. format 1@ "https:%c%cwww.dropbox.com/s/zqxj9kytk282zaw/click.mp3?dl=1" 47 47
  344. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools/data/audio/click.mp3"
  345. free 1@
  346. 1@ = -1
  347.  
  348. :garner1_5036
  349. 1@ == -1
  350. jf @garner1_5069
  351. wait 0
  352. 0C66: 1@ = get_download 2@ state
  353. goto @garner1_5036
  354.  
  355. :garner1_5069
  356. 0C7D: release_download 2@
  357. if
  358. 1@ == 0
  359. jf @garner1_5290
  360. alloc 1@ 128
  361. 0C11: memset destination 1@ value 0 size 128
  362. format 1@ "https:%c%cwww.dropbox.com/s/w3iw1qxcyqra9wt/notification.mp3?dl=1" 47 47
  363. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools/data/audio/notification.mp3"
  364. free 1@
  365. 1@ = -1
  366.  
  367. :garner1_5252
  368. 1@ == -1
  369. jf @garner1_5285
  370. wait 0
  371. 0C66: 1@ = get_download 2@ state
  372. goto @garner1_5252
  373.  
  374. :garner1_5285
  375. 0C7D: release_download 2@
  376.  
  377. :garner1_5290
  378. SAMP.GetScreenResolution(5@, 6@)
  379. if
  380. not 5@ >= 1600
  381. jf @garner1_5331
  382. 5@ = 8
  383. goto @garner1_5338
  384.  
  385. :garner1_5331
  386. 5@ = 10
  387.  
  388. :garner1_5338
  389. 0@ = Render.CreateFont("Arial", 5@, 13)
  390. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "status"
  391. 0BFC: set_global_var "auto-invite-status" = 1@
  392. 4@ = 0
  393. 0C74: 3@ = create_timer_interval 1000 on_label -144661
  394. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key1"
  395. 0BFC: set_global_var "reconnect-on-key1" = 1@
  396. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key2"
  397. 0BFC: set_global_var "reconnect-on-key2" = 1@
  398.  
  399. :garner1_5628
  400. 0C79: is_timer 3@ active
  401. jf @garner1_5833
  402. wait 0
  403. 0BFD: 1@ = get_global_var "reconnect-on-key1"
  404. 0BFD: 2@ = get_global_var "reconnect-on-key2"
  405. if
  406. not 2@ == 0
  407. jf @garner1_5750
  408. if and
  409. key_down 1@
  410. 0C89: key_just_pressed 2@
  411. not SAMP.ChatInputOpened
  412. jf @garner1_5743
  413. call @garner4_480 0
  414.  
  415. :garner1_5743
  416. goto @garner1_5778
  417.  
  418. :garner1_5750
  419. if and
  420. 0C89: key_just_pressed 1@
  421. not SAMP.ChatInputOpened
  422. jf @garner1_5778
  423. call @garner4_480 0
  424.  
  425. :garner1_5778
  426. 0BFD: 5@ = get_global_var "ADMIN_LVL"
  427. if and
  428. 5@ >= 1
  429. not 5@ > 5
  430. jf @garner1_5826
  431. goto @garner1_5833
  432.  
  433. :garner1_5826
  434. goto @garner1_5628
  435.  
  436. :garner1_5833
  437. alloc 2@ 200
  438. 0C11: memset destination 2@ value 0 size 200
  439. SAMP.GetCurrentServerAddress(2@, 0)
  440. if or
  441. 8C29: not 1@ = stristr string1 2@ string2 "5.254.104"
  442. 8C79: not is_timer 3@ active
  443. jf @garner1_5979
  444. format 2@ "Данный скрипт предназначен для администраторов Advance-RP."
  445. call @garner4_17369 1 2@
  446. free 2@
  447. 0A93: end_custom_thread
  448.  
  449. :garner1_5979
  450. free 2@
  451. 0C75: kill_timer 3@
  452. 0BFD: 1@ = get_global_var "UPDATING_STATUS"
  453. if
  454. 1@ == 1
  455. jf @garner1_6716
  456. 0BFD: 5@ = get_global_var "admins-in-file-count"
  457. if
  458. 5@ > 0
  459. jf @garner1_6226
  460. 5@ -= 1
  461. 6@ = 0
  462.  
  463. :garner1_6088
  464. 0C1F: 18@ = string_array 10@ element 6@ size 25
  465. 0C8A: samp 1@ = get_max_player_id streamed_only 0
  466. 3@ = 0
  467.  
  468. :garner1_6115
  469. if
  470. SAMP.IsPlayerConnected(3@)
  471. jf @garner1_6182
  472. 4@ = SAMP.GetPlayerNickname(3@)
  473. if
  474. 0C21: stricmp string1 18@ string2 4@
  475. jf @garner1_6182
  476. 0C20: string_array 13@ element 6@ size 25 = 18@
  477. 0C0F: array 14@ element 6@ = 3@
  478.  
  479. :garner1_6182
  480. 3@ += 1
  481. 001D: 3@ > 1@ // (int)
  482. jf @garner1_6115
  483. 6@ += 1
  484. 001D: 6@ > 5@ // (int)
  485. jf @garner1_6088
  486.  
  487. :garner1_6226
  488. 0BFD: 5@ = get_global_var "leaders-in-file-count"
  489. if
  490. 5@ > 0
  491. jf @garner1_6424
  492. 5@ -= 1
  493. 6@ = 0
  494.  
  495. :garner1_6286
  496. 0C1F: 18@ = string_array 12@ element 6@ size 25
  497. 0C8A: samp 1@ = get_max_player_id streamed_only 0
  498. 3@ = 0
  499.  
  500. :garner1_6313
  501. if
  502. SAMP.IsPlayerConnected(3@)
  503. jf @garner1_6380
  504. 4@ = SAMP.GetPlayerNickname(3@)
  505. if
  506. 0C21: stricmp string1 18@ string2 4@
  507. jf @garner1_6380
  508. 0C20: string_array 16@ element 6@ size 25 = 18@
  509. 0C0F: array 17@ element 6@ = 3@
  510.  
  511. :garner1_6380
  512. 3@ += 1
  513. 001D: 3@ > 1@ // (int)
  514. jf @garner1_6313
  515. 6@ += 1
  516. 001D: 6@ > 5@ // (int)
  517. jf @garner1_6286
  518.  
  519. :garner1_6424
  520. 0BFD: 5@ = get_global_var "leaders-in-file-count"
  521. 0BFD: 7@ = get_global_var "friends-in-file-count"
  522. if
  523. 5@ > 0
  524. jf @garner1_6659
  525. 005A: 7@ += 5@ // (int)
  526. 7@ -= 1
  527. 0085: 6@ = 5@ // (int)
  528.  
  529. :garner1_6521
  530. 0C1F: 18@ = string_array 12@ element 6@ size 25
  531. 0C8A: samp 1@ = get_max_player_id streamed_only 0
  532. 3@ = 0
  533.  
  534. :garner1_6548
  535. if
  536. SAMP.IsPlayerConnected(3@)
  537. jf @garner1_6615
  538. 4@ = SAMP.GetPlayerNickname(3@)
  539. if
  540. 0C21: stricmp string1 18@ string2 4@
  541. jf @garner1_6615
  542. 0C20: string_array 16@ element 6@ size 25 = 18@
  543. 0C0F: array 17@ element 6@ = 3@
  544.  
  545. :garner1_6615
  546. 3@ += 1
  547. 001D: 3@ > 1@ // (int)
  548. jf @garner1_6548
  549. 6@ += 1
  550. 001D: 6@ > 7@ // (int)
  551. jf @garner1_6521
  552.  
  553. :garner1_6659
  554. format 31@ "Обновление успешно завершено."
  555. call @garner4_17369 1 31@
  556. goto @garner1_6740
  557.  
  558. :garner1_6716
  559. 0665: get_actor $PLAYER_ACTOR model_to 1@
  560. 0BFC: set_global_var "main-skin" = 1@
  561.  
  562. :garner1_6740
  563. 0BFC: set_global_var "UPDATING_STATUS" = 0
  564. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  565. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "temp-id"
  566. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  567. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "status"
  568. 0BFC: set_global_var "PIP_STATUS" = 1@
  569. 0AF2: 1@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "x-pos"
  570. 0092: 2@ = float 1@ to_integer
  571. 0BFC: set_global_var "PIP_X_POS" = 2@
  572. 0AF2: 1@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "y-pos"
  573. 0092: 2@ = float 1@ to_integer
  574. 0BFC: set_global_var "PIP_Y_POS" = 2@
  575. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  576. 0BFC: set_global_var "leader-checker-status" = 1@
  577. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  578. 0BFC: set_global_var "friends-checker-status" = 1@
  579. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  580. 0BFC: set_global_var "admin-checker-status" = 1@
  581. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key1"
  582. 0BFC: set_global_var "checker-on-key1" = 1@
  583. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key2"
  584. 0BFC: set_global_var "checker-on-key2" = 1@
  585. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "panel-status"
  586. 0BFC: set_global_var "panel-status" = 1@
  587. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key1"
  588. 0BFC: set_global_var "wh-on-key1" = 1@
  589. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key2"
  590. 0BFC: set_global_var "wh-on-key2" = 1@
  591. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key1"
  592. 0BFC: set_global_var "gm-on-key1" = 1@
  593. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key2"
  594. 0BFC: set_global_var "gm-on-key2" = 1@
  595. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key1"
  596. 0BFC: set_global_var "ab-on-key1" = 1@
  597. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key2"
  598. 0BFC: set_global_var "ab-on-key2" = 1@
  599. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "player-id-in-mask"
  600. 0BFC: set_global_var "player-id-in-mask" = 1@
  601. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "about-transport"
  602. 0BFC: set_global_var "about-transport" = 1@
  603. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "adm-textdraw-upd-notice"
  604. 0BFC: set_global_var "adm-textdraw-upd-notice" = 1@
  605. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "cmd-from-adm-chat"
  606. 0BFC: set_global_var "cmd-from-adm-chat" = 1@
  607. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "menu-on-key"
  608. 0BFC: set_global_var "menu-on-key" = 1@
  609. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "fast-comm-menu-key"
  610. 0BFC: set_global_var "fast-comm-menu-key" = 1@
  611. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "pos-indication"
  612. 0BFC: set_global_var "pos-indication" = 1@
  613. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "status"
  614. 0BFC: set_global_var "skin-changer-status" = 1@
  615. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "tempskin"
  616. 0BFC: set_global_var "tempskin" = 1@
  617. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "punishments-list" key "auto-mode"
  618. 0BFC: set_global_var "pl-auto-mode" = 1@
  619. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "next-id-on-key"
  620. 0BFC: set_global_var "next-id-on-key" = 1@
  621. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "prev-id-on-key"
  622. 0BFC: set_global_var "prev-id-on-key" = 1@
  623. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "confirm-on-key"
  624. 0BFC: set_global_var "confirm-on-key" = 1@
  625. 0BFC: set_global_var "tp-no-drivers-status" = 0
  626. 0BFC: set_global_var "check-find" = 0
  627. 0BFC: set_global_var "check-a-find" = 0
  628. 0BFC: set_global_var "first-sp" = 0
  629. 0BFC: set_global_var "airbreak-status" = 0
  630. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-start"
  631. if
  632. 1@ == 1
  633. jf @garner1_9348
  634. 0BFC: set_global_var "godmode-status" = 1
  635. goto @garner1_9368
  636.  
  637. :garner1_9348
  638. 0BFC: set_global_var "godmode-status" = 0
  639.  
  640. :garner1_9368
  641. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-start"
  642. if
  643. 1@ == 1
  644. jf @garner1_9468
  645. 0BFC: set_global_var "wallhack-status" = 1
  646. goto @garner1_9489
  647.  
  648. :garner1_9468
  649. 0BFC: set_global_var "wallhack-status" = 0
  650.  
  651. :garner1_9489
  652. 0BFC: set_global_var "check-reg-status" = 0
  653. 0BFC: set_global_var "check-reg-a-status" = 0
  654. 0BFC: set_global_var "lip-status" = 0
  655. 0BFC: set_global_var "lip-bans-status" = 0
  656. 0BFC: set_global_var "rskin-status" = 0
  657. 0BFC: set_global_var "rskins-status" = 0
  658. 0BFC: set_global_var "auto-skick-status" = 0
  659. 0BFC: set_global_var "car-spawn-status" = 0
  660. 0BFC: set_global_var "pl-match" = 0
  661. 0BFC: set_global_var "pl-count" = 0
  662. 0BFC: set_global_var "2warns" = 0
  663. 0BFC: set_global_var "apay-player-id" = -1
  664. 0BFC: set_global_var "check-forum" = 0
  665. 0BFC: set_global_var "rasform" = 0
  666. 0C6A: 1@ = create_custom_thread_at_label -23178
  667. 0C6A: 1@ = create_custom_thread_at_label -96016
  668. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "auto-check-update"
  669. if
  670. 1@ == 1
  671. jf @garner1_9854
  672. 0C6A: 1@ = create_custom_thread_at_label -132336
  673.  
  674. :garner1_9854
  675. SAMP.WriteSAMPMemory(643864, 37008, 2)
  676. 0A8C: write_memory 4928928 size 4 value 1443687555 virtual_protect 1
  677. 0A8C: write_memory 4928932 size 2 value 61835 virtual_protect 1
  678. format 31@ "Информация об игроке.%cНачните слежку за игроком." 10
  679.  
  680. :garner1_9959
  681. wait 0
  682. 0BFD: 1@ = get_global_var "reconnect-on-key1"
  683. 0BFD: 2@ = get_global_var "reconnect-on-key2"
  684. if
  685. not 2@ == 0
  686. jf @garner1_10069
  687. if and
  688. key_down 1@
  689. 0C89: key_just_pressed 2@
  690. not SAMP.ChatInputOpened
  691. jf @garner1_10062
  692. call @garner4_480 0
  693.  
  694. :garner1_10062
  695. goto @garner1_10097
  696.  
  697. :garner1_10069
  698. if and
  699. 0C89: key_just_pressed 1@
  700. not SAMP.ChatInputOpened
  701. jf @garner1_10097
  702. call @garner4_480 0
  703.  
  704. :garner1_10097
  705. if
  706. SAMP.IsLocalPlayerSpawned
  707. jf @garner1_10938
  708. alloc 1@ 150
  709. 0C11: memset destination 1@ value 0 size 150
  710. 0BFD: 2@ = get_global_var "first-sp"
  711. if
  712. 2@ == 1
  713. jf @garner1_10696
  714. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  715. if
  716. SAMP.IsPlayerConnected(2@)
  717. jf @garner1_10696
  718. 3@ = SAMP.GetPlayerNickname(2@)
  719. 4@ = SAMP.GetPlayerScore(2@)
  720. 0AF0: 5@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "temp-id"
  721. if
  722. 003B: 5@ == 2@ // (int)
  723. jf @garner1_10522
  724. 0AF4: 1@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  725. if
  726. 0C14: strcmp string1 3@ string2 1@
  727. jf @garner1_10465
  728. format 31@ "Ник игрока: %s[%i]%cУровень игрока: %i" 3@ 2@ 10 4@
  729. goto @garner1_10515
  730.  
  731. :garner1_10465
  732. format 31@ "Ник игрока: %s%cСтатус: Вышел из игры" 1@ 10
  733.  
  734. :garner1_10515
  735. goto @garner1_10696
  736.  
  737. :garner1_10522
  738. format 31@ "Ник игрока: %s[%i]%cУровень игрока: %i" 3@ 2@ 10 4@
  739. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "temp-id"
  740. 0AF5: write_string 3@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  741.  
  742. :garner1_10696
  743. free 1@
  744. 0BFD: 1@ = get_global_var "PIP_STATUS"
  745. if
  746. 1@ == 1
  747. jf @garner1_10938
  748. 0BFD: 2@ = get_global_var "PIP_X_POS"
  749. 0093: 3@ = integer 2@ to_float
  750. 0BFD: 2@ = get_global_var "PIP_Y_POS"
  751. 0093: 4@ = integer 2@ to_float
  752. 0B60: convert_game_screen_coords 3@ 4@ to_window_screen_coords 1@ 2@
  753. SAMP.GetScreenResolution(5@, 6@)
  754. if
  755. not 5@ >= 1600
  756. jf @garner1_10847
  757. 7@ = 230
  758. 8@ = 40
  759. goto @garner1_10862
  760.  
  761. :garner1_10847
  762. 7@ = 295
  763. 8@ = 50
  764.  
  765. :garner1_10862
  766. Render.DrawBorderedBox(1@, 2@, 7@, 8@, 2013265920, 2, -1929403136)
  767. 3@ += 3.0
  768. 4@ += 3.0
  769. 0B60: convert_game_screen_coords 3@ 4@ to_window_screen_coords 1@ 2@
  770. Render.DrawText(0@, 31@, 1@, 2@, -1)
  771.  
  772. :garner1_10938
  773. 0BFD: 1@ = get_global_var "panel-status"
  774. if and
  775. 1@ == 1
  776. SAMP.IsLocalPlayerSpawned
  777. jf @garner1_11824
  778. alloc 4@ 200
  779. 0C11: memset destination 4@ value 0 size 200
  780. alloc 5@ 200
  781. 0C11: memset destination 5@ value 0 size 200
  782. 0BFD: 1@ = get_global_var "godmode-status"
  783. if
  784. 1@ == 0
  785. jf @garner1_11091
  786. format 4@ " {696969}GodMode"
  787. 0C15: strcat destination 5@ source 4@
  788. goto @garner1_11141
  789.  
  790. :garner1_11091
  791. if
  792. 1@ == 1
  793. jf @garner1_11141
  794. format 4@ " {00FF00}GodMode"
  795. 0C15: strcat destination 5@ source 4@
  796.  
  797. :garner1_11141
  798. 0BFD: 1@ = get_global_var "wallhack-status"
  799. if
  800. 1@ == 0
  801. jf @garner1_11221
  802. format 4@ " {696969}WallHack"
  803. 0C15: strcat destination 5@ source 4@
  804. goto @garner1_11272
  805.  
  806. :garner1_11221
  807. if
  808. 1@ == 1
  809. jf @garner1_11272
  810. format 4@ " {00FF00}WallHack"
  811. 0C15: strcat destination 5@ source 4@
  812.  
  813. :garner1_11272
  814. 0BFD: 1@ = get_global_var "airbreak-status"
  815. if
  816. 1@ == 0
  817. jf @garner1_11352
  818. format 4@ " {696969}AirBreak"
  819. 0C15: strcat destination 5@ source 4@
  820. goto @garner1_11403
  821.  
  822. :garner1_11352
  823. if
  824. 1@ == 1
  825. jf @garner1_11403
  826. format 4@ " {00FF00}AirBreak"
  827. 0C15: strcat destination 5@ source 4@
  828.  
  829. :garner1_11403
  830. 0BFD: 1@ = get_global_var "pos-indication"
  831. if
  832. 1@ == 1
  833. jf @garner1_11504
  834. Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
  835. format 4@ " {00FF00}%.1f %.1f %.1f" 1@ 2@ 3@
  836. 0C15: strcat destination 5@ source 4@
  837.  
  838. :garner1_11504
  839. free 4@
  840. SAMP.GetScreenResolution(2@, 0)
  841. 0BFD: 1@ = get_global_var "pos-indication"
  842. if and
  843. 2@ >= 1600
  844. 1@ == 1
  845. jf @garner1_11585
  846. 3@ = 380
  847. 4@ = 28
  848. goto @garner1_11689
  849.  
  850. :garner1_11585
  851. if and
  852. not 2@ >= 1600
  853. 1@ == 1
  854. jf @garner1_11633
  855. 3@ = 295
  856. 4@ = 20
  857. goto @garner1_11689
  858.  
  859. :garner1_11633
  860. if
  861. not 2@ >= 1600
  862. jf @garner1_11674
  863. 3@ = 180
  864. 4@ = 20
  865. goto @garner1_11689
  866.  
  867. :garner1_11674
  868. 3@ = 225
  869. 4@ = 28
  870.  
  871. :garner1_11689
  872. SAMP.GetScreenResolution(1@, 2@)
  873. 0062: 1@ -= 3@ // (int)
  874. 0062: 2@ -= 4@ // (int)
  875. Render.DrawBorderedBox(1@, 2@, 3@, 4@, 2013265920, 2, -16777216)
  876. SAMP.GetScreenResolution(3@, 0)
  877. if
  878. 3@ >= 1600
  879. jf @garner1_11786
  880. 1@ += 2
  881. 2@ += 5
  882. goto @garner1_11800
  883.  
  884. :garner1_11786
  885. 1@ += 2
  886. 2@ += 2
  887.  
  888. :garner1_11800
  889. Render.DrawText(0@, 5@, 1@, 2@, -1946157056)
  890. free 5@
  891.  
  892. :garner1_11824
  893. 0BFD: 1@ = get_global_var "ab-on-key1"
  894. 0BFD: 2@ = get_global_var "ab-on-key2"
  895. if
  896. 2@ == 0
  897. jf @garner1_12157
  898. if and
  899. 0C89: key_just_pressed 1@
  900. not SAMP.ChatInputOpened
  901. jf @garner1_12150
  902. 0BFD: 1@ = get_global_var "airbreak-status"
  903. if
  904. 1@ == 0
  905. jf @garner1_12036
  906. 0BFC: set_global_var "airbreak-status" = 1
  907. print "~G~AirBreak ON" 1000
  908. 0AF3: write_float 0.4 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  909. goto @garner1_12150
  910.  
  911. :garner1_12036
  912. 0BFC: set_global_var "airbreak-status" = 0
  913. if
  914. not Actor.Driving($PLAYER_ACTOR)
  915. jf @garner1_12099
  916. 0687: clear_actor $PLAYER_ACTOR task
  917. 0619: enable_actor $PLAYER_ACTOR collision_detection 1
  918. Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
  919. goto @garner1_12128
  920.  
  921. :garner1_12099
  922. 1@ = Actor.CurrentCar($PLAYER_ACTOR)
  923. Car.LockInCurrentPosition(1@) = False
  924. 099A: set_car 1@ collision_detection 1
  925. Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
  926.  
  927. :garner1_12128
  928. print "~R~AirBreak OFF" 1000
  929.  
  930. :garner1_12150
  931. goto @garner1_12436
  932.  
  933. :garner1_12157
  934. if and
  935. key_down 1@
  936. 0C89: key_just_pressed 2@
  937. not SAMP.ChatInputOpened
  938. jf @garner1_12436
  939. 0BFD: 1@ = get_global_var "airbreak-status"
  940. if
  941. 1@ == 0
  942. jf @garner1_12322
  943. 0BFC: set_global_var "airbreak-status" = 1
  944. print "~G~AirBreak ON" 1000
  945. 0AF3: write_float 0.4 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  946. goto @garner1_12436
  947.  
  948. :garner1_12322
  949. 0BFC: set_global_var "airbreak-status" = 0
  950. if
  951. not Actor.Driving($PLAYER_ACTOR)
  952. jf @garner1_12385
  953. 0687: clear_actor $PLAYER_ACTOR task
  954. 0619: enable_actor $PLAYER_ACTOR collision_detection 1
  955. Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
  956. goto @garner1_12414
  957.  
  958. :garner1_12385
  959. 1@ = Actor.CurrentCar($PLAYER_ACTOR)
  960. Car.LockInCurrentPosition(1@) = False
  961. 099A: set_car 1@ collision_detection 1
  962. Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
  963.  
  964. :garner1_12414
  965. print "~R~AirBreak OFF" 1000
  966.  
  967. :garner1_12436
  968. 0BFD: 1@ = get_global_var "airbreak-status"
  969. if
  970. 1@ == 1
  971. jf @garner1_14724
  972. if and
  973. key_down 81
  974. not SAMP.ChatInputOpened
  975. jf @garner1_12646
  976. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  977. 7@ += 0.04
  978. 0AD0: show_formatted_text_lowpriority "~b~AirBreak Speed: %.2f" time 1000 7@
  979. 0AF3: write_float 7@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  980. goto @garner1_12809
  981.  
  982. :garner1_12646
  983. if and
  984. key_down 69
  985. not SAMP.ChatInputOpened
  986. jf @garner1_12809
  987. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  988. 7@ -= 0.04
  989. 0AD0: show_formatted_text_lowpriority "~b~AirBreak Speed: %.2f" time 1000 7@
  990. 0AF3: write_float 7@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  991.  
  992. :garner1_12809
  993. if
  994. not Actor.Driving($PLAYER_ACTOR)
  995. jf @garner1_12916
  996. Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
  997. 0619: enable_actor $PLAYER_ACTOR collision_detection 0
  998. 04ED: load_animation "PED"
  999. if
  1000. 04EE: animation "PED" loaded
  1001. jf @garner1_12909
  1002. 0812: AS_actor $PLAYER_ACTOR perform_animation "IDLE_STANCE" IFP "PED" framedelta 4.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1 // versionB
  1003. 04EF: release_animation "PED"
  1004.  
  1005. :garner1_12909
  1006. goto @garner1_13023
  1007.  
  1008. :garner1_12916
  1009. 1@ = Actor.CurrentCar($PLAYER_ACTOR)
  1010. Car.LockInCurrentPosition(1@) = True
  1011. 099A: set_car 1@ collision_detection 0
  1012. 02F9: get_car 1@ Z_angle_cosine_to 3@
  1013. 068D: get_camera_position_to 4@ 5@ 6@
  1014. 0407: store_coords_to 7@ 8@ 9@ from_car 1@ with_offset 0.0 0.0 0.0
  1015. 000F: 7@ -= 4@ // Note: the incorrect math opcode was used here
  1016. 000F: 8@ -= 5@ // Note: the incorrect math opcode was used here
  1017. 0604: get_Z_angle_for_point 7@ 8@ store_to 3@
  1018. Car.Angle(1@) = 3@
  1019. Camera.Restore
  1020.  
  1021. :garner1_13023
  1022. 068D: get_camera_position_to 4@ 5@ 6@
  1023. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
  1024. 000F: 1@ -= 4@ // Note: the incorrect math opcode was used here
  1025. 000F: 2@ -= 5@ // Note: the incorrect math opcode was used here
  1026. 0604: get_Z_angle_for_point 1@ 2@ store_to 3@
  1027. Actor.Angle($PLAYER_ACTOR) = 3@
  1028. if and
  1029. key_down 87
  1030. not SAMP.ChatInputOpened
  1031. not Actor.Driving($PLAYER_ACTOR)
  1032. jf @garner1_13224
  1033. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1034. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 7@ 0.0
  1035. call @garner4_626 3 1@ 2@ 3@
  1036. goto @garner1_13354
  1037.  
  1038. :garner1_13224
  1039. if and
  1040. key_down 87
  1041. not SAMP.ChatInputOpened
  1042. Actor.Driving($PLAYER_ACTOR)
  1043. jf @garner1_13354
  1044. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1045. 4@ = Actor.CurrentCar($PLAYER_ACTOR)
  1046. 0407: store_coords_to 1@ 2@ 3@ from_car 4@ with_offset 0.0 7@ 0.0
  1047. call @garner4_687 4 4@ 1@ 2@ 3@
  1048.  
  1049. :garner1_13354
  1050. if and
  1051. key_down 65
  1052. not SAMP.ChatInputOpened
  1053. not Actor.Driving($PLAYER_ACTOR)
  1054. jf @garner1_13495
  1055. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1056. 8@ = 0
  1057. 0063: 8@ -= 7@ // (float)
  1058. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 8@ 0.0 0.0
  1059. call @garner4_626 3 1@ 2@ 3@
  1060. goto @garner1_13640
  1061.  
  1062. :garner1_13495
  1063. if and
  1064. key_down 65
  1065. not SAMP.ChatInputOpened
  1066. Actor.Driving($PLAYER_ACTOR)
  1067. jf @garner1_13640
  1068. 4@ = Actor.CurrentCar($PLAYER_ACTOR)
  1069. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1070. 8@ = 0
  1071. 0063: 8@ -= 7@ // (float)
  1072. 0407: store_coords_to 1@ 2@ 3@ from_car 4@ with_offset 8@ 0.0 0.0
  1073. call @garner4_687 4 4@ 1@ 2@ 3@
  1074.  
  1075. :garner1_13640
  1076. if and
  1077. key_down 83
  1078. not SAMP.ChatInputOpened
  1079. not Actor.Driving($PLAYER_ACTOR)
  1080. jf @garner1_13781
  1081. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1082. 8@ = 0
  1083. 0063: 8@ -= 7@ // (float)
  1084. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 8@ 0.0
  1085. call @garner4_626 3 1@ 2@ 3@
  1086. goto @garner1_13926
  1087.  
  1088. :garner1_13781
  1089. if and
  1090. key_down 83
  1091. not SAMP.ChatInputOpened
  1092. Actor.Driving($PLAYER_ACTOR)
  1093. jf @garner1_13926
  1094. 4@ = Actor.CurrentCar($PLAYER_ACTOR)
  1095. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1096. 8@ = 0
  1097. 0063: 8@ -= 7@ // (float)
  1098. 0407: store_coords_to 1@ 2@ 3@ from_car 4@ with_offset 0.0 8@ 0.0
  1099. call @garner4_687 4 4@ 1@ 2@ 3@
  1100.  
  1101. :garner1_13926
  1102. if and
  1103. key_down 68
  1104. not SAMP.ChatInputOpened
  1105. not Actor.Driving($PLAYER_ACTOR)
  1106. jf @garner1_14052
  1107. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1108. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 7@ 0.0 0.0
  1109. call @garner4_626 3 1@ 2@ 3@
  1110. goto @garner1_14182
  1111.  
  1112. :garner1_14052
  1113. if and
  1114. key_down 68
  1115. not SAMP.ChatInputOpened
  1116. Actor.Driving($PLAYER_ACTOR)
  1117. jf @garner1_14182
  1118. 4@ = Actor.CurrentCar($PLAYER_ACTOR)
  1119. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1120. 0407: store_coords_to 1@ 2@ 3@ from_car 4@ with_offset 7@ 0.0 0.0
  1121. call @garner4_687 4 4@ 1@ 2@ 3@
  1122.  
  1123. :garner1_14182
  1124. if and
  1125. key_down 32
  1126. not SAMP.ChatInputOpened
  1127. not Actor.Driving($PLAYER_ACTOR)
  1128. jf @garner1_14308
  1129. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1130. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 7@
  1131. call @garner4_626 3 1@ 2@ 3@
  1132. goto @garner1_14438
  1133.  
  1134. :garner1_14308
  1135. if and
  1136. key_down 32
  1137. not SAMP.ChatInputOpened
  1138. Actor.Driving($PLAYER_ACTOR)
  1139. jf @garner1_14438
  1140. 4@ = Actor.CurrentCar($PLAYER_ACTOR)
  1141. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1142. 0407: store_coords_to 1@ 2@ 3@ from_car 4@ with_offset 0.0 0.0 7@
  1143. call @garner4_687 4 4@ 1@ 2@ 3@
  1144.  
  1145. :garner1_14438
  1146. if and
  1147. key_down 16
  1148. not SAMP.ChatInputOpened
  1149. not Actor.Driving($PLAYER_ACTOR)
  1150. jf @garner1_14579
  1151. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1152. 8@ = 0
  1153. 0063: 8@ -= 7@ // (float)
  1154. 04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 8@
  1155. call @garner4_626 3 1@ 2@ 3@
  1156. goto @garner1_14724
  1157.  
  1158. :garner1_14579
  1159. if and
  1160. key_down 16
  1161. not SAMP.ChatInputOpened
  1162. Actor.Driving($PLAYER_ACTOR)
  1163. jf @garner1_14724
  1164. 4@ = Actor.CurrentCar($PLAYER_ACTOR)
  1165. 0AF2: 7@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-speed"
  1166. 8@ = 0
  1167. 0063: 8@ -= 7@ // (float)
  1168. 0407: store_coords_to 1@ 2@ 3@ from_car 4@ with_offset 0.0 0.0 8@
  1169. call @garner4_687 4 4@ 1@ 2@ 3@
  1170.  
  1171. :garner1_14724
  1172. 0BFD: 1@ = get_global_var "gm-on-key1"
  1173. 0BFD: 2@ = get_global_var "gm-on-key2"
  1174. if
  1175. 2@ == 0
  1176. jf @garner1_15300
  1177. if and
  1178. 0C89: key_just_pressed 1@
  1179. not SAMP.ChatInputOpened
  1180. jf @garner1_15293
  1181. 0BFD: 1@ = get_global_var "godmode-status"
  1182. if
  1183. 1@ == 0
  1184. jf @garner1_15035
  1185. 0BFC: set_global_var "godmode-status" = 1
  1186. print "~G~GM ON" 1000
  1187. if and
  1188. Player.Defined($PLAYER_CHAR)
  1189. Actor.Driving($PLAYER_ACTOR)
  1190. jf @garner1_15028
  1191. 1@ = Actor.CurrentCar($PLAYER_ACTOR)
  1192. 0731: set_car 1@ y_angle_to 0
  1193. wait 500
  1194. Car.Health(1@) = 1000
  1195. wait 1000
  1196. if
  1197. 0185: car 1@ health >= 999
  1198. jf @garner1_15028
  1199. 0A30: repair_car 1@
  1200. alloc 3@ 128
  1201. 0C11: memset destination 3@ value 0 size 128
  1202. format 3@ "Транспортное средство отремонтировано."
  1203. call @garner4_17369 1 3@
  1204. free 3@
  1205.  
  1206. :garner1_15028
  1207. goto @garner1_15293
  1208.  
  1209. :garner1_15035
  1210. 0BFC: set_global_var "godmode-status" = 0
  1211. Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
  1212. 0568: set_actor $PLAYER_ACTOR untargetable 0
  1213. 02A9: set_actor $PLAYER_ACTOR immune_to_nonplayer 0
  1214. 1@ = 137
  1215. 0A8C: write_memory 4928287 size 1 value 1@ virtual_protect 1
  1216. 1@ = 150
  1217. 0A8C: write_memory 4928288 size 1 value 1@ virtual_protect 1
  1218. 1@ = 64
  1219. 0A8C: write_memory 4928289 size 1 value 1@ virtual_protect 1
  1220. 1@ = 5
  1221. 0A8C: write_memory 4928290 size 1 value 1@ virtual_protect 1
  1222. 1@ = 0
  1223. 0A8C: write_memory 4928291 size 1 value 1@ virtual_protect 1
  1224. 1@ = 0
  1225. 0A8C: write_memory 4928292 size 1 value 1@ virtual_protect 1
  1226. if and
  1227. Player.Defined($PLAYER_CHAR)
  1228. Actor.Driving($PLAYER_ACTOR)
  1229. jf @garner1_15277
  1230. 2@ = Actor.CurrentCar($PLAYER_ACTOR)
  1231. Car.SetImmunities(2@, 0, 0, 0, 0, 0)
  1232. 053F: set_car 2@ tires_vulnerability 1
  1233. Car.ImmuneToNonPlayer(2@) = False
  1234. 03F5: set_car 2@ apply_damage_rules 1
  1235.  
  1236. :garner1_15277
  1237. print "~R~GM OFF" 1000
  1238.  
  1239. :garner1_15293
  1240. goto @garner1_15822
  1241.  
  1242. :garner1_15300
  1243. if and
  1244. key_down 1@
  1245. 0C89: key_just_pressed 2@
  1246. not SAMP.ChatInputOpened
  1247. jf @garner1_15822
  1248. 0BFD: 1@ = get_global_var "godmode-status"
  1249. if
  1250. 1@ == 0
  1251. jf @garner1_15564
  1252. 0BFC: set_global_var "godmode-status" = 1
  1253. print "~G~GM ON" 1000
  1254. if and
  1255. Player.Defined($PLAYER_CHAR)
  1256. Actor.Driving($PLAYER_ACTOR)
  1257. jf @garner1_15557
  1258. 1@ = Actor.CurrentCar($PLAYER_ACTOR)
  1259. 0731: set_car 1@ y_angle_to 0
  1260. wait 500
  1261. Car.Health(1@) = 1000
  1262. wait 1000
  1263. if
  1264. 0185: car 1@ health >= 999
  1265. jf @garner1_15557
  1266. 0A30: repair_car 1@
  1267. alloc 3@ 128
  1268. 0C11: memset destination 3@ value 0 size 128
  1269. format 3@ "Транспортное средство отремонтировано."
  1270. call @garner4_17369 1 3@
  1271. free 3@
  1272.  
  1273. :garner1_15557
  1274. goto @garner1_15822
  1275.  
  1276. :garner1_15564
  1277. 0BFC: set_global_var "godmode-status" = 0
  1278. Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
  1279. 0568: set_actor $PLAYER_ACTOR untargetable 0
  1280. 02A9: set_actor $PLAYER_ACTOR immune_to_nonplayer 0
  1281. 1@ = 137
  1282. 0A8C: write_memory 4928287 size 1 value 1@ virtual_protect 1
  1283. 1@ = 150
  1284. 0A8C: write_memory 4928288 size 1 value 1@ virtual_protect 1
  1285. 1@ = 64
  1286. 0A8C: write_memory 4928289 size 1 value 1@ virtual_protect 1
  1287. 1@ = 5
  1288. 0A8C: write_memory 4928290 size 1 value 1@ virtual_protect 1
  1289. 1@ = 0
  1290. 0A8C: write_memory 4928291 size 1 value 1@ virtual_protect 1
  1291. 1@ = 0
  1292. 0A8C: write_memory 4928292 size 1 value 1@ virtual_protect 1
  1293. if and
  1294. Player.Defined($PLAYER_CHAR)
  1295. Actor.Driving($PLAYER_ACTOR)
  1296. jf @garner1_15806
  1297. 2@ = Actor.CurrentCar($PLAYER_ACTOR)
  1298. Car.SetImmunities(2@, 0, 0, 0, 0, 0)
  1299. 053F: set_car 2@ tires_vulnerability 1
  1300. Car.ImmuneToNonPlayer(2@) = False
  1301. 03F5: set_car 2@ apply_damage_rules 1
  1302.  
  1303. :garner1_15806
  1304. print "~R~GM OFF" 1000
  1305.  
  1306. :garner1_15822
  1307. 0BFD: 1@ = get_global_var "godmode-status"
  1308. if
  1309. 1@ == 1
  1310. jf @garner1_15981
  1311. 0A8C: write_memory 4928287 size 6 value -1869574000 virtual_protect 1
  1312. Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
  1313. 02A9: set_actor $PLAYER_ACTOR immune_to_nonplayer 1
  1314. 0467: clear_actor $PLAYER_ACTOR last_weapon_damage
  1315. 054E: clear_actor $PLAYER_ACTOR damage
  1316. 0568: set_actor $PLAYER_ACTOR untargetable 1
  1317. if and
  1318. Player.Defined($PLAYER_CHAR)
  1319. Actor.Driving($PLAYER_ACTOR)
  1320. jf @garner1_15981
  1321. 2@ = Actor.CurrentCar($PLAYER_ACTOR)
  1322. Car.SetImmunities(2@, 1, 1, 1, 1, 1)
  1323. 053F: set_car 2@ tires_vulnerability 0
  1324. Car.ImmuneToNonPlayer(2@) = True
  1325. 03F5: set_car 2@ apply_damage_rules 0
  1326.  
  1327. :garner1_15981
  1328. 0BFD: 1@ = get_global_var "wh-on-key1"
  1329. 0BFD: 2@ = get_global_var "wh-on-key2"
  1330. if
  1331. not 2@ == 0
  1332. jf @garner1_16397
  1333. if and
  1334. key_down 1@
  1335. 0C89: key_just_pressed 2@
  1336. not SAMP.ChatInputOpened
  1337. jf @garner1_16390
  1338. 0BFD: 1@ = get_global_var "wallhack-status"
  1339. if
  1340. 1@ == 0
  1341. jf @garner1_16139
  1342. 0BFC: set_global_var "wallhack-status" = 1
  1343. print "~G~WH ON" 1000
  1344. goto @garner1_16390
  1345.  
  1346. :garner1_16139
  1347. 0BFC: set_global_var "wallhack-status" = 0
  1348. 0AA2: 9@ = load_library "samp.dll" // IF and SET
  1349. 0A8E: 1@ = 9@ + 457971 // int
  1350. 0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
  1351. 0A8E: 2@ = 1@ + 4 // int
  1352. 0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
  1353. 0A8E: 3@ = 9@ + 458004 // int
  1354. 0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
  1355. 0A8E: 4@ = 3@ + 4 // int
  1356. 0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
  1357. 0A8E: 5@ = 9@ + 458280 // int
  1358. 0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
  1359. 0A8E: 6@ = 9@ + 462648 // int
  1360. 0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
  1361. 0A8E: 7@ = 9@ + 462372 // int
  1362. 0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
  1363. 0A8E: 8@ = 7@ + 4 // int
  1364. 0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
  1365. 0AA3: free_library 9@
  1366. print "~R~WH OFF" 1000
  1367.  
  1368. :garner1_16390
  1369. goto @garner1_16749
  1370.  
  1371. :garner1_16397
  1372. if and
  1373. 0C89: key_just_pressed 1@
  1374. not SAMP.ChatInputOpened
  1375. jf @garner1_16749
  1376. 0BFD: 1@ = get_global_var "wallhack-status"
  1377. if
  1378. 1@ == 0
  1379. jf @garner1_16498
  1380. 0BFC: set_global_var "wallhack-status" = 1
  1381. print "~G~WH ON" 1000
  1382. goto @garner1_16749
  1383.  
  1384. :garner1_16498
  1385. 0BFC: set_global_var "wallhack-status" = 0
  1386. 0AA2: 9@ = load_library "samp.dll" // IF and SET
  1387. 0A8E: 1@ = 9@ + 457971 // int
  1388. 0A8C: write_memory 1@ size 4 value 24216591 virtual_protect 1
  1389. 0A8E: 2@ = 1@ + 4 // int
  1390. 0A8C: write_memory 2@ size 2 value 0 virtual_protect 1
  1391. 0A8E: 3@ = 9@ + 458004 // int
  1392. 0A8C: write_memory 3@ size 4 value 22053903 virtual_protect 1
  1393. 0A8E: 4@ = 3@ + 4 // int
  1394. 0A8C: write_memory 4@ size 2 value 0 virtual_protect 1
  1395. 0A8E: 5@ = 9@ + 458280 // int
  1396. 0A8C: write_memory 5@ size 2 value 16500 virtual_protect 1
  1397. 0A8E: 6@ = 9@ + 462648 // int
  1398. 0A8C: write_memory 6@ size 2 value 24948 virtual_protect 1
  1399. 0A8E: 7@ = 9@ + 462372 // int
  1400. 0A8C: write_memory 7@ size 4 value 24218127 virtual_protect 1
  1401. 0A8E: 8@ = 7@ + 4 // int
  1402. 0A8C: write_memory 8@ size 2 value 0 virtual_protect 1
  1403. 0AA3: free_library 9@
  1404. print "~R~WH OFF" 1000
  1405.  
  1406. :garner1_16749
  1407. 0BFD: 1@ = get_global_var "wallhack-status"
  1408. if
  1409. 1@ == 1
  1410. jf @garner1_16944
  1411. 0AA2: 9@ = load_library "samp.dll" // IF and SET
  1412. 0A8E: 1@ = 9@ + 457971 // int
  1413. 0A8C: write_memory 1@ size 6 value -1869574000 virtual_protect 1
  1414. 0A8E: 2@ = 9@ + 458004 // int
  1415. 0A8C: write_memory 2@ size 6 value -1869574000 virtual_protect 1
  1416. 0A8E: 3@ = 9@ + 458280 // int
  1417. 0A8C: write_memory 3@ size 2 value 37008 virtual_protect 1
  1418. 0A8E: 4@ = 9@ + 462648 // int
  1419. 0A8C: write_memory 4@ size 2 value 37008 virtual_protect 1
  1420. 0A8E: 5@ = 9@ + 462372 // int
  1421. 0A8C: write_memory 5@ size 6 value -1869574000 virtual_protect 1
  1422. 0AA3: free_library 9@
  1423.  
  1424. :garner1_16944
  1425. 0BFD: 1@ = get_global_var "player-id-in-mask"
  1426. if
  1427. 1@ == 1
  1428. jf @garner1_17667
  1429. if
  1430. 0C8A: samp 2@ = get_max_player_id streamed_only 1
  1431. jf @garner1_17667
  1432. 3@ = 0
  1433.  
  1434. :garner1_17011
  1435. if
  1436. SAMP.IsPlayerConnected(3@)
  1437. jf @garner1_17645
  1438. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  1439. if
  1440. 056D: actor 4@ defined
  1441. jf @garner1_17579
  1442. 5@ = SAMP.GetPlayerColor(3@)
  1443. 0B66: render argb 5@ to_a 0 r 6@ g 7@ b 8@
  1444. if and
  1445. 6@ == 34
  1446. 7@ == 34
  1447. 8@ == 34
  1448. jf @garner1_17290
  1449. alloc 9@ 60
  1450. 0C11: memset destination 9@ value 0 size 60
  1451. format 9@ "%i" 3@
  1452. if
  1453. SAMP.3DTextDefined(3@)
  1454. jf @garner1_17241
  1455. 0C46: samp get_3d_text_info_by_id 3@ string_ptr 0 color 0 position 0 0 0 view_distance 1@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1456. if
  1457. not 1@ == 300.0
  1458. jf @garner1_17234
  1459. 0C45: samp create_3d_text id 3@ text 9@ color -1 position 0.0 0.0 0.6 view_distance 300.0 show_behind_walls 1 attached_to_player 3@ attached_to_vehicle -1
  1460.  
  1461. :garner1_17234
  1462. goto @garner1_17278
  1463.  
  1464. :garner1_17241
  1465. 0C45: samp create_3d_text id 3@ text 9@ color -1 position 0.0 0.0 0.6 view_distance 300.0 show_behind_walls 1 attached_to_player 3@ attached_to_vehicle -1
  1466.  
  1467. :garner1_17278
  1468. free 9@
  1469. goto @garner1_17572
  1470.  
  1471. :garner1_17290
  1472. if and
  1473. 6@ == 0
  1474. 7@ == 0
  1475. 8@ == 255
  1476. jf @garner1_17506
  1477. alloc 9@ 60
  1478. 0C11: memset destination 9@ value 0 size 60
  1479. format 9@ "%i" 3@
  1480. if
  1481. SAMP.3DTextDefined(3@)
  1482. jf @garner1_17457
  1483. 0C46: samp get_3d_text_info_by_id 3@ string_ptr 0 color 0 position 0 0 0 view_distance 1@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1484. if
  1485. not 1@ == 300.0
  1486. jf @garner1_17450
  1487. 0C45: samp create_3d_text id 3@ text 9@ color -1 position 0.0 0.0 0.6 view_distance 300.0 show_behind_walls 1 attached_to_player 3@ attached_to_vehicle -1
  1488.  
  1489. :garner1_17450
  1490. goto @garner1_17494
  1491.  
  1492. :garner1_17457
  1493. 0C45: samp create_3d_text id 3@ text 9@ color -1 position 0.0 0.0 0.6 view_distance 300.0 show_behind_walls 1 attached_to_player 3@ attached_to_vehicle -1
  1494.  
  1495. :garner1_17494
  1496. free 9@
  1497. goto @garner1_17572
  1498.  
  1499. :garner1_17506
  1500. if
  1501. SAMP.3DTextDefined(3@)
  1502. jf @garner1_17572
  1503. 0C46: samp get_3d_text_info_by_id 3@ string_ptr 0 color 0 position 0 0 0 view_distance 1@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1504. if
  1505. 1@ == 300.0
  1506. jf @garner1_17572
  1507. SAMP.Destroy3DText(3@)
  1508.  
  1509. :garner1_17572
  1510. goto @garner1_17645
  1511.  
  1512. :garner1_17579
  1513. if
  1514. SAMP.3DTextDefined(3@)
  1515. jf @garner1_17645
  1516. 0C46: samp get_3d_text_info_by_id 3@ string_ptr 0 color 0 position 0 0 0 view_distance 1@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1517. if
  1518. 1@ == 300.0
  1519. jf @garner1_17645
  1520. SAMP.Destroy3DText(3@)
  1521.  
  1522. :garner1_17645
  1523. 3@ += 1
  1524. 001D: 3@ > 2@ // (int)
  1525. jf @garner1_17011
  1526.  
  1527. :garner1_17667
  1528. 0BFD: 1@ = get_global_var "about-transport"
  1529. if
  1530. 1@ == 1
  1531. jf @garner1_18210
  1532. Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
  1533. if
  1534. 0AE2: 6@ = random_vehicle_near_point 1@ 2@ 3@ in_radius 50.0 find_next 1 pass_wrecked 1 //IF and SET
  1535. jf @garner1_18084
  1536. 5@ = SAMP.GetSAMPVehicleIDByCarHandle(6@)
  1537. if
  1538. 056E: car 6@ defined
  1539. jf @garner1_18084
  1540. 02E3: 7@ = car 6@ speed
  1541. 7@ *= 2.0
  1542. 3@ = Car.Model(6@)
  1543. alloc 4@ 128
  1544. 0ADB: 4@ = car_model 3@ name
  1545. 9@ = Car.Health(6@)
  1546. alloc 8@ 128
  1547. 0C11: memset destination 8@ value 0 size 128
  1548. format 8@ "Модель: %s[%i]%cСкорость: %.1f Км/ч%cHP: %i | ID: %i" 4@ 3@ 10 7@ 10 9@ 5@
  1549. if
  1550. SAMP.3DTextDefined(5@)
  1551. jf @garner1_18034
  1552. 0C46: samp get_3d_text_info_by_id 5@ string_ptr 0 color 0 position 0 0 0 view_distance 1@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1553. if
  1554. 1@ == 50.0
  1555. jf @garner1_18027
  1556. 0C45: samp create_3d_text id 5@ text 8@ color -1747133220 position 0.0 0.0 0.2 view_distance 50.0 show_behind_walls 1 attached_to_player -1 attached_to_vehicle 5@
  1557.  
  1558. :garner1_18027
  1559. goto @garner1_18074
  1560.  
  1561. :garner1_18034
  1562. 0C45: samp create_3d_text id 5@ text 8@ color -1747133220 position 0.0 0.0 0.2 view_distance 50.0 show_behind_walls 1 attached_to_player -1 attached_to_vehicle 5@
  1563.  
  1564. :garner1_18074
  1565. free 8@
  1566. free 4@
  1567.  
  1568. :garner1_18084
  1569. 1@ = 0
  1570.  
  1571. :garner1_18091
  1572. if
  1573. SAMP.3DTextDefined(1@)
  1574. jf @garner1_18181
  1575. 0C46: samp get_3d_text_info_by_id 1@ string_ptr 0 color 0 position 0 0 0 view_distance 2@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1576. if
  1577. 2@ == 50.0
  1578. jf @garner1_18181
  1579. 3@ = SAMP.GetVehicleHandleBySAMPVehicleID(1@)
  1580. if
  1581. 856E: not car 3@ defined
  1582. jf @garner1_18181
  1583. SAMP.Destroy3DText(1@)
  1584.  
  1585. :garner1_18181
  1586. 1@ += 1
  1587. 1@ > 1000
  1588. jf @garner1_18091
  1589. goto @garner1_18305
  1590.  
  1591. :garner1_18210
  1592. 1@ = 0
  1593.  
  1594. :garner1_18217
  1595. if
  1596. SAMP.3DTextDefined(1@)
  1597. jf @garner1_18283
  1598. 0C46: samp get_3d_text_info_by_id 5@ string_ptr 0 color 0 position 0 0 0 view_distance 2@ show_behind_walls 0 attached_to_player 0 attached_to_vehicle 0
  1599. if
  1600. 2@ == 50.0
  1601. jf @garner1_18283
  1602. SAMP.Destroy3DText(1@)
  1603.  
  1604. :garner1_18283
  1605. 1@ += 1
  1606. 1@ > 1000
  1607. jf @garner1_18217
  1608.  
  1609. :garner1_18305
  1610. 0BFD: 1@ = get_global_var "checker-on-key1"
  1611. 0BFD: 2@ = get_global_var "checker-on-key2"
  1612. if
  1613. not 2@ == 0
  1614. jf @garner1_19254
  1615. if and
  1616. key_down 1@
  1617. 0C89: key_just_pressed 2@
  1618. not SAMP.ChatInputOpened
  1619. jf @garner1_19247
  1620. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  1621. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  1622. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  1623. if or
  1624. 1@ == 1
  1625. 2@ == 1
  1626. 3@ == 1
  1627. jf @garner1_18937
  1628. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  1629. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  1630. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  1631. 0BFC: set_global_var "admin-checker-status" = 0
  1632. 0BFC: set_global_var "leader-checker-status" = 0
  1633. 0BFC: set_global_var "friends-checker-status" = 0
  1634. 0BFC: set_global_var "panel-status" = 0
  1635. 0BFC: set_global_var "PIP_STATUS" = 0
  1636. goto @garner1_19247
  1637.  
  1638. :garner1_18937
  1639. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  1640. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  1641. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  1642. 0BFC: set_global_var "admin-checker-status" = 1
  1643. 0BFC: set_global_var "leader-checker-status" = 1
  1644. 0BFC: set_global_var "friends-checker-status" = 1
  1645. 0BFC: set_global_var "panel-status" = 1
  1646. 0BFC: set_global_var "PIP_STATUS" = 1
  1647.  
  1648. :garner1_19247
  1649. goto @garner1_20129
  1650.  
  1651. :garner1_19254
  1652. if and
  1653. 0C89: key_just_pressed 1@
  1654. not SAMP.ChatInputOpened
  1655. jf @garner1_20129
  1656. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  1657. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  1658. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  1659. if or
  1660. 1@ == 1
  1661. 2@ == 1
  1662. 3@ == 1
  1663. jf @garner1_19819
  1664. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  1665. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  1666. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  1667. 0BFC: set_global_var "admin-checker-status" = 0
  1668. 0BFC: set_global_var "leader-checker-status" = 0
  1669. 0BFC: set_global_var "friends-checker-status" = 0
  1670. 0BFC: set_global_var "panel-status" = 0
  1671. 0BFC: set_global_var "PIP_STATUS" = 0
  1672. goto @garner1_20129
  1673.  
  1674. :garner1_19819
  1675. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  1676. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  1677. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  1678. 0BFC: set_global_var "admin-checker-status" = 1
  1679. 0BFC: set_global_var "leader-checker-status" = 1
  1680. 0BFC: set_global_var "friends-checker-status" = 1
  1681. 0BFC: set_global_var "panel-status" = 1
  1682. 0BFC: set_global_var "PIP_STATUS" = 1
  1683.  
  1684. :garner1_20129
  1685. 1@ = SAMP.GetGamestate()
  1686. if
  1687. not 1@ == 3
  1688. jf @garner1_20494
  1689. 0BFC: set_global_var "ADMINPANEL_FLAG" = 0
  1690. 0BFD: 1@ = get_global_var "admins-in-file-count"
  1691. if
  1692. not 1@ == 0
  1693. jf @garner1_20315
  1694. 2@ = 25
  1695. 006A: 2@ *= 1@ // (int)
  1696. 0C11: memset destination 13@ value 0 size 2@
  1697. 2@ = 4
  1698. 006A: 2@ *= 1@ // (int)
  1699. 0C11: memset destination 14@ value 0 size 2@
  1700. 1@ -= 1
  1701. 2@ = 0
  1702.  
  1703. :garner1_20282
  1704. 0C0F: array 14@ element 2@ = 2000
  1705. 2@ += 1
  1706. 001D: 2@ > 1@ // (int)
  1707. jf @garner1_20282
  1708.  
  1709. :garner1_20315
  1710. 0BFD: 1@ = get_global_var "leaders-in-file-count"
  1711. 0BFD: 3@ = get_global_var "friends-in-file-count"
  1712. if
  1713. not 1@ == 0
  1714. jf @garner1_20494
  1715. 005A: 1@ += 3@ // (int)
  1716. 2@ = 25
  1717. 006A: 2@ *= 1@ // (int)
  1718. 0C11: memset destination 16@ value 0 size 2@
  1719. 2@ = 4
  1720. 006A: 2@ *= 1@ // (int)
  1721. 0C11: memset destination 17@ value 0 size 2@
  1722. 1@ -= 1
  1723. 2@ = 0
  1724.  
  1725. :garner1_20461
  1726. 0C0F: array 17@ element 2@ = 2000
  1727. 2@ += 1
  1728. 001D: 2@ > 1@ // (int)
  1729. jf @garner1_20461
  1730.  
  1731. :garner1_20494
  1732. 0BFD: 1@ = get_global_var "leader-checker-status"
  1733. if and
  1734. 1@ == 1
  1735. SAMP.IsLocalPlayerSpawned
  1736. jf @garner1_21185
  1737. alloc 18@ 20
  1738. 0C11: memset destination 18@ value 0 size 20
  1739. format 18@ "Лидеры в сети:"
  1740. 0BFD: 1@ = get_global_var "PIP_X_POS"
  1741. 0093: 9@ = integer 1@ to_float
  1742. 0BFD: 1@ = get_global_var "PIP_Y_POS"
  1743. 0093: 2@ = integer 1@ to_float
  1744. 2@ += 27.0
  1745. 3@ = 0
  1746. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 1@ 4@
  1747. Render.DrawText(0@, 18@, 1@, 4@, -1)
  1748. free 18@
  1749. 0BFD: 1@ = get_global_var "leaders-in-file-count"
  1750. if
  1751. not 1@ == 0
  1752. jf @garner1_21091
  1753. 1@ -= 1
  1754. 4@ = 0
  1755.  
  1756. :garner1_20740
  1757. 0C1F: 5@ = string_array 16@ element 4@ size 25
  1758. 0C17: 6@ = strlen 5@
  1759. if
  1760. not 6@ == 0
  1761. jf @garner1_20954
  1762. 0C0E: 6@ = array 17@ element 4@
  1763. 3@ += 1
  1764. 2@ += 7.0
  1765. alloc 18@ 50
  1766. 0C11: memset destination 18@ value 0 size 50
  1767. if
  1768. SAMP.IsPlayerPaused(6@)
  1769. jf @garner1_20888
  1770. format 18@ "%i. %s [%i] {FF0000}[AFK]" 3@ 5@ 6@
  1771. goto @garner1_20916
  1772.  
  1773. :garner1_20888
  1774. format 18@ "%i. %s [%i]" 3@ 5@ 6@
  1775.  
  1776. :garner1_20916
  1777. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1778. Render.DrawText(0@, 18@, 5@, 6@, -83886081)
  1779. free 18@
  1780.  
  1781. :garner1_20954
  1782. 4@ += 1
  1783. 001D: 4@ > 1@ // (int)
  1784. jf @garner1_20740
  1785. if
  1786. 3@ == 0
  1787. jf @garner1_21084
  1788. 2@ += 7.0
  1789. alloc 18@ 50
  1790. 0C11: memset destination 18@ value 0 size 50
  1791. format 18@ "Лидеров в сети нет"
  1792. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1793. Render.DrawText(0@, 18@, 5@, 6@, 1694498815)
  1794. free 18@
  1795.  
  1796. :garner1_21084
  1797. goto @garner1_21185
  1798.  
  1799. :garner1_21091
  1800. 2@ += 7.0
  1801. alloc 18@ 30
  1802. 0C11: memset destination 18@ value 0 size 30
  1803. format 18@ "Список с лидерами пуст"
  1804. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1805. Render.DrawText(0@, 18@, 5@, 6@, 1694498815)
  1806. free 18@
  1807.  
  1808. :garner1_21185
  1809. 0BFD: 1@ = get_global_var "friends-checker-status"
  1810. if and
  1811. 1@ == 1
  1812. SAMP.IsLocalPlayerSpawned
  1813. jf @garner1_21976
  1814. alloc 18@ 20
  1815. 0C11: memset destination 18@ value 0 size 20
  1816. format 18@ "Друзья в сети:"
  1817. 0BFD: 1@ = get_global_var "leader-checker-status"
  1818. if
  1819. 1@ == 1
  1820. jf @garner1_21335
  1821. 2@ += 14.0
  1822. goto @garner1_21393
  1823.  
  1824. :garner1_21335
  1825. 0BFD: 1@ = get_global_var "PIP_X_POS"
  1826. 0093: 9@ = integer 1@ to_float
  1827. 0BFD: 1@ = get_global_var "PIP_Y_POS"
  1828. 0093: 2@ = integer 1@ to_float
  1829. 2@ += 27.0
  1830.  
  1831. :garner1_21393
  1832. 3@ = 0
  1833. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 1@ 4@
  1834. Render.DrawText(0@, 18@, 1@, 4@, -1)
  1835. free 18@
  1836. 0BFD: 7@ = get_global_var "leaders-in-file-count"
  1837. 0BFD: 1@ = get_global_var "friends-in-file-count"
  1838. if
  1839. not 1@ == 0
  1840. jf @garner1_21882
  1841. 005A: 1@ += 7@ // (int)
  1842. 1@ -= 1
  1843. 0085: 4@ = 7@ // (int)
  1844.  
  1845. :garner1_21532
  1846. 0C1F: 5@ = string_array 16@ element 4@ size 25
  1847. 0C17: 6@ = strlen 5@
  1848. if
  1849. not 6@ == 0
  1850. jf @garner1_21746
  1851. 0C0E: 6@ = array 17@ element 4@
  1852. 3@ += 1
  1853. 2@ += 7.0
  1854. alloc 18@ 50
  1855. 0C11: memset destination 18@ value 0 size 50
  1856. if
  1857. SAMP.IsPlayerPaused(6@)
  1858. jf @garner1_21680
  1859. format 18@ "%i. %s [%i] {FF0000}[AFK]" 3@ 5@ 6@
  1860. goto @garner1_21708
  1861.  
  1862. :garner1_21680
  1863. format 18@ "%i. %s [%i]" 3@ 5@ 6@
  1864.  
  1865. :garner1_21708
  1866. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1867. Render.DrawText(0@, 18@, 5@, 6@, -83886081)
  1868. free 18@
  1869.  
  1870. :garner1_21746
  1871. 4@ += 1
  1872. 001D: 4@ > 1@ // (int)
  1873. jf @garner1_21532
  1874. if
  1875. 3@ == 0
  1876. jf @garner1_21875
  1877. 2@ += 7.0
  1878. alloc 18@ 50
  1879. 0C11: memset destination 18@ value 0 size 50
  1880. format 18@ "Друзей в сети нет"
  1881. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1882. Render.DrawText(0@, 18@, 5@, 6@, 1694498815)
  1883. free 18@
  1884.  
  1885. :garner1_21875
  1886. goto @garner1_21976
  1887.  
  1888. :garner1_21882
  1889. 2@ += 7.0
  1890. alloc 18@ 30
  1891. 0C11: memset destination 18@ value 0 size 30
  1892. format 18@ "Список с друзьями пуст"
  1893. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1894. Render.DrawText(0@, 18@, 5@, 6@, 1694498815)
  1895. free 18@
  1896.  
  1897. :garner1_21976
  1898. 0BFD: 1@ = get_global_var "admin-checker-status"
  1899. if and
  1900. 1@ == 1
  1901. SAMP.IsLocalPlayerSpawned
  1902. jf @garner1_23079
  1903. alloc 18@ 25
  1904. 0C11: memset destination 18@ value 0 size 25
  1905. format 18@ "Администраторы в сети:"
  1906. 0BFD: 1@ = get_global_var "leader-checker-status"
  1907. 0BFD: 4@ = get_global_var "friends-checker-status"
  1908. if or
  1909. 1@ == 1
  1910. 4@ == 1
  1911. jf @garner1_22168
  1912. 2@ += 14.0
  1913. goto @garner1_22226
  1914.  
  1915. :garner1_22168
  1916. 0BFD: 1@ = get_global_var "PIP_X_POS"
  1917. 0093: 9@ = integer 1@ to_float
  1918. 0BFD: 1@ = get_global_var "PIP_Y_POS"
  1919. 0093: 2@ = integer 1@ to_float
  1920. 2@ += 27.0
  1921.  
  1922. :garner1_22226
  1923. 3@ = 0
  1924. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1925. Render.DrawText(0@, 18@, 5@, 6@, -1)
  1926. free 18@
  1927. 0BFD: 1@ = get_global_var "admins-in-file-count"
  1928. if
  1929. 1@ > 0
  1930. jf @garner1_22977
  1931. 1@ -= 1
  1932. 4@ = 0
  1933.  
  1934. :garner1_22327
  1935. 0C1F: 5@ = string_array 13@ element 4@ size 25
  1936. 0C17: 6@ = strlen 5@
  1937. if
  1938. not 6@ == 0
  1939. jf @garner1_22832
  1940. 0C1F: 7@ = string_array 11@ element 4@ size 2
  1941. 0C0E: 6@ = array 14@ element 4@
  1942. 3@ += 1
  1943. 2@ += 7.0
  1944. alloc 18@ 50
  1945. 0C11: memset destination 18@ value 0 size 50
  1946. if
  1947. SAMP.IsPlayerPaused(6@)
  1948. jf @garner1_22488
  1949. format 18@ "%i. %s [%i] {FF0000}[AFK]" 3@ 5@ 6@
  1950. goto @garner1_22516
  1951.  
  1952. :garner1_22488
  1953. format 18@ "%i. %s [%i]" 3@ 5@ 6@
  1954.  
  1955. :garner1_22516
  1956. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  1957. if
  1958. 0C21: stricmp string1 7@ string2 "7"
  1959. jf @garner1_22575
  1960. Render.DrawText(0@, 18@, 5@, 6@, -83951616)
  1961. goto @garner1_22827
  1962.  
  1963. :garner1_22575
  1964. if
  1965. 0C21: stricmp string1 7@ string2 "6"
  1966. jf @garner1_22620
  1967. Render.DrawText(0@, 18@, 5@, 6@, -97076978)
  1968. goto @garner1_22827
  1969.  
  1970. :garner1_22620
  1971. if
  1972. 0C21: stricmp string1 7@ string2 "5"
  1973. jf @garner1_22665
  1974. Render.DrawText(0@, 18@, 5@, 6@, -95422341)
  1975. goto @garner1_22827
  1976.  
  1977. :garner1_22665
  1978. if
  1979. 0C21: stricmp string1 7@ string2 "4"
  1980. jf @garner1_22710
  1981. Render.DrawText(0@, 18@, 5@, 6@, -96243986)
  1982. goto @garner1_22827
  1983.  
  1984. :garner1_22710
  1985. if
  1986. 0C21: stricmp string1 7@ string2 "3"
  1987. jf @garner1_22755
  1988. Render.DrawText(0@, 18@, 5@, 6@, -83886336)
  1989. goto @garner1_22827
  1990.  
  1991. :garner1_22755
  1992. if or
  1993. 0C21: stricmp string1 7@ string2 "2"
  1994. 0C21: stricmp string1 7@ string2 "1"
  1995. jf @garner1_22808
  1996. Render.DrawText(0@, 18@, 5@, 6@, -100614145)
  1997. goto @garner1_22827
  1998.  
  1999. :garner1_22808
  2000. Render.DrawText(0@, 18@, 5@, 6@, -83886081)
  2001.  
  2002. :garner1_22827
  2003. free 18@
  2004.  
  2005. :garner1_22832
  2006. 4@ += 1
  2007. 001D: 4@ > 1@ // (int)
  2008. jf @garner1_22327
  2009. if
  2010. 3@ == 0
  2011. jf @garner1_22970
  2012. 2@ += 7.0
  2013. alloc 18@ 50
  2014. 0C11: memset destination 18@ value 0 size 50
  2015. format 18@ "Администраторов в сети нет"
  2016. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  2017. Render.DrawText(0@, 18@, 5@, 6@, 1694498815)
  2018. free 18@
  2019.  
  2020. :garner1_22970
  2021. goto @garner1_23079
  2022.  
  2023. :garner1_22977
  2024. 2@ += 7.0
  2025. alloc 18@ 50
  2026. 0C11: memset destination 18@ value 0 size 50
  2027. format 18@ "Список с администраторами пуст"
  2028. 0B60: convert_game_screen_coords 9@ 2@ to_window_screen_coords 5@ 6@
  2029. Render.DrawText(0@, 18@, 5@, 6@, 1694498815)
  2030. free 18@
  2031.  
  2032. :garner1_23079
  2033. 0BFD: 1@ = get_global_var "UPDATING_STATUS"
  2034. if
  2035. 1@ == 1
  2036. jf @garner1_23171
  2037. free 31@
  2038. free 10@
  2039. free 11@
  2040. free 12@
  2041. free 13@
  2042. free 14@
  2043. free 15@
  2044. free 16@
  2045. free 17@
  2046. Render.ReleaseFont(0@)
  2047. 0A93: end_custom_thread
  2048.  
  2049. :garner1_23171
  2050. goto @garner1_9959
  2051. thread 'garner2'
  2052. alloc 31@ 128
  2053. 0C11: memset destination 31@ value 0 size 128
  2054. 0B34: samp register_client_command "at" to_label @garner4_81
  2055. format 31@ "Используйте команду /at для вызова меню."
  2056. call @garner4_17369 1 31@
  2057. free 31@
  2058.  
  2059. :garner2_106
  2060. wait 0
  2061. 0BFD: 1@ = get_global_var "UPDATING_STATUS"
  2062. if
  2063. 1@ == 1
  2064. jf @garner2_158
  2065. SAMP.UnregisterClientCommand("at")
  2066. end_thread
  2067.  
  2068. :garner2_158
  2069. 0BFD: 8@ = get_global_var "ADMINPANEL_FLAG"
  2070. if and
  2071. 8@ == 1
  2072. not Dialog.IsExists(0@)
  2073. not Dialog.IsExists(20@)
  2074. jf @garner2_960
  2075. 0BFD: 2@ = get_global_var "first-sp"
  2076. if
  2077. 2@ == 1
  2078. jf @garner2_686
  2079. alloc 5@ 200
  2080. alloc 6@ 64
  2081. 0C11: memset destination 6@ value 0 size 64
  2082. 0C11: memset destination 5@ value 0 size 200
  2083. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  2084. 3@ = SAMP.GetPlayerNickname(2@)
  2085. format 6@ "[SP] %s[%i]" 3@ 2@
  2086. 0C17: 4@ = strlen 6@
  2087. 30@ = 0
  2088. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  2089. 9@ = 0
  2090.  
  2091. :garner2_396
  2092. wait 0
  2093. 8@ = 99
  2094.  
  2095. :garner2_407
  2096. SAMP.GetChatString(8@, 5@, 0, 0, 0)
  2097. if
  2098. 0C25: strncmp string1 5@ string2 6@ size 4@
  2099. jf @garner2_531
  2100. if
  2101. 0C2C: 17@ = strrchr 5@ char 80
  2102. jf @garner2_531
  2103. 17@ += 2
  2104. 0AF5: write_string 17@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "ip"
  2105. goto @garner2_552
  2106.  
  2107. :garner2_531
  2108. 8@ -= 1
  2109. 95 > 8@
  2110. jf @garner2_407
  2111.  
  2112. :garner2_552
  2113. if
  2114. 8C79: not is_timer 29@ active
  2115. jf @garner2_575
  2116. goto @garner2_593
  2117.  
  2118. :garner2_575
  2119. 0C25: strncmp string1 5@ string2 6@ size 4@
  2120. jf @garner2_396
  2121.  
  2122. :garner2_593
  2123. 0C75: kill_timer 29@
  2124. free 5@
  2125. free 6@
  2126. wait 500
  2127. Actor.StorePos($PLAYER_ACTOR, 17@, 18@, 19@)
  2128. if and
  2129. 17@ == 50.0
  2130. 18@ == 50.0
  2131. jf @garner2_672
  2132. say "/sp %i" 2@
  2133.  
  2134. :garner2_672
  2135. 0BFC: set_global_var "first-sp" = 0
  2136.  
  2137. :garner2_686
  2138. Actor.StorePos($PLAYER_ACTOR, 17@, 18@, 19@)
  2139. 0092: 5@ = float 17@ to_integer
  2140. 0092: 6@ = float 18@ to_integer
  2141. 0092: 7@ = float 19@ to_integer
  2142. 0AF0: 17@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "x-pos-defore-sp"
  2143. 0AF0: 18@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "y-pos-defore-sp"
  2144. 0AF0: 19@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "z-pos-defore-sp"
  2145. if and
  2146. 003B: 17@ == 5@ // (int)
  2147. 003B: 18@ == 6@ // (int)
  2148. 003B: 19@ == 7@ // (int)
  2149. jf @garner2_960
  2150. 0BFC: set_global_var "ADMINPANEL_FLAG" = 0
  2151.  
  2152. :garner2_960
  2153. 0BFD: 8@ = get_global_var "ADMINPANEL_FLAG"
  2154. 0BFD: 7@ = get_global_var "fast-comm-menu-key"
  2155. if and
  2156. 8@ == 1
  2157. 0C89: key_just_pressed 7@
  2158. not Dialog.IsExists(20@)
  2159. not Dialog.IsExists(0@)
  2160. jf @garner2_1394
  2161. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  2162. SAMP.SetCursorMode(1)
  2163. 0B5E: get_cursor_pos 10@ 15@
  2164. Dialog.Create(20@, "AdminTools")
  2165. Dialog.SetRECT(20@, 10@, 15@, 108, 395)
  2166. Dialog.AddButton(20@, 1, "UPDATE", 5, 5, 100, 30)
  2167. Dialog.AddButton(20@, 2, "STATS", 5, 38, 100, 30)
  2168. Dialog.AddButton(20@, 3, "WEAP", 5, 71, 100, 30)
  2169. Dialog.AddButton(20@, 4, "GET", 5, 104, 100, 30)
  2170. Dialog.AddButton(20@, 5, "LIP", 5, 137, 100, 30)
  2171. Dialog.AddButton(20@, 6, "MUTE", 5, 175, 100, 30)
  2172. Dialog.AddButton(20@, 7, "KICK", 5, 208, 100, 30)
  2173. Dialog.AddButton(20@, 8, "JAIL", 5, 241, 100, 30)
  2174. Dialog.AddButton(20@, 9, "WARN", 5, 274, 100, 30)
  2175. Dialog.AddButton(20@, 10, "BAN", 5, 307, 100, 30)
  2176. Dialog.AddButton(20@, 11, "RBAN", 5, 340, 100, 30)
  2177. Dialog.AddButton(20@, 12, "x", 110, -17, 15, 18)
  2178.  
  2179. :garner2_1394
  2180. if
  2181. Dialog.IsExists(20@)
  2182. jf @garner2_10862
  2183. SAMP.ToggleCursor(1)
  2184. if
  2185. Dialog.IsMinimized(20@)
  2186. jf @garner2_1439
  2187. Dialog.Free(20@)
  2188. SAMP.ToggleCursor(0)
  2189.  
  2190. :garner2_1439
  2191. if
  2192. 0ADC: test_cheat "t"
  2193. SAMP.SetChatInputEnabled(0)
  2194. if
  2195. Dialog.PopEvent(20@, 10@, 11@)
  2196. jf @garner2_8322
  2197. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  2198. if
  2199. 0@ == 1
  2200. jf @garner2_1652
  2201. if and
  2202. not 10@ == 1794
  2203. not 10@ == 1538
  2204. not 10@ == 1537
  2205. jf @garner2_1652
  2206. 0@ = Audiostream.Load("CLEO\AdminTools\data\audio\click.mp3")
  2207. 0BFC: set_global_var "AT_CLICK_SOUND" = 0@
  2208. Audiostream.PerformAction(0@, PLAY)
  2209.  
  2210. :garner2_1652
  2211. if
  2212. 10@ == 257
  2213. jf @garner2_8322
  2214. if
  2215. 11@ == 1
  2216. jf @garner2_1719
  2217. Dialog.Free(20@)
  2218. 20@ = 0
  2219. SAMP.ToggleCursor(0)
  2220. say "/sp %i" 2@
  2221.  
  2222. :garner2_1719
  2223. if
  2224. 11@ == 2
  2225. jf @garner2_1770
  2226. Dialog.Free(20@)
  2227. 20@ = 0
  2228. SAMP.ToggleCursor(0)
  2229. say "/stats %i" 2@
  2230.  
  2231. :garner2_1770
  2232. if
  2233. 11@ == 3
  2234. jf @garner2_1820
  2235. Dialog.Free(20@)
  2236. 20@ = 0
  2237. SAMP.ToggleCursor(0)
  2238. say "/weap %i" 2@
  2239.  
  2240. :garner2_1820
  2241. if
  2242. 11@ == 4
  2243. jf @garner2_1949
  2244. Dialog.Free(20@)
  2245. 20@ = 0
  2246. SAMP.ToggleCursor(0)
  2247. alloc 3@ 32
  2248. 0C11: memset destination 3@ value 0 size 32
  2249. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2250. say "/get %s" 3@
  2251. free 3@
  2252.  
  2253. :garner2_1949
  2254. if
  2255. 11@ == 5
  2256. jf @garner2_2962
  2257. Dialog.Free(20@)
  2258. 20@ = 0
  2259. SAMP.ToggleCursor(0)
  2260. alloc 3@ 32
  2261. 0C11: memset destination 3@ value 0 size 32
  2262. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "ip"
  2263. SAMP.CloseDialog(1)
  2264. say "/lip %s" 3@
  2265. 30@ = 0
  2266. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  2267.  
  2268. :garner2_2091
  2269. wait 0
  2270. if
  2271. SAMP.IsDialogActive(-1)
  2272. jf @garner2_2117
  2273. goto @garner2_2129
  2274.  
  2275. :garner2_2117
  2276. 8C79: not is_timer 29@ active
  2277. jf @garner2_2091
  2278.  
  2279. :garner2_2129
  2280. 0C75: kill_timer 29@
  2281. alloc 10@ 1000
  2282. 0C11: memset destination 10@ value 0 size 1000
  2283. 0BD8: samp get_dialog_caption 10@
  2284. if
  2285. 0C21: stricmp string1 10@ string2 3@
  2286. jf @garner2_2952
  2287. 0BD7: samp get_dialog_text 10@
  2288. 0@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "w")
  2289. File.WriteString(0@, 10@)
  2290. File.Close(0@)
  2291. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  2292. alloc 15@ 25
  2293. 0C11: memset destination 15@ value 0 size 25
  2294. 8@ = 0
  2295.  
  2296. :garner2_2305
  2297. if
  2298. File.ReadString(1@, 15@, 25)
  2299. jf @garner2_2333
  2300. 8@ += 1
  2301.  
  2302. :garner2_2333
  2303. File.EOF(1@)
  2304. jf @garner2_2305
  2305. File.Close(1@)
  2306. free 15@
  2307. if
  2308. not 8@ == 0
  2309. jf @garner2_2952
  2310. 5@ = 50
  2311. 006A: 5@ *= 8@ // (int)
  2312. alloc 13@ 5@
  2313. alloc 15@ 30
  2314. 0C11: memset destination 15@ value 0 size 30
  2315. 0C11: memset destination 13@ value 0 size 5@
  2316. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  2317. 4@ = 1
  2318.  
  2319. :garner2_2473
  2320. if
  2321. File.ReadString(1@, 15@, 25)
  2322. jf @garner2_2853
  2323. if
  2324. 0C2C: 5@ = strrchr 15@ char 10
  2325. jf @garner2_2524
  2326. 0C11: memset destination 5@ value 0 size 1
  2327.  
  2328. :garner2_2524
  2329. 5@ = 0
  2330. 0@ = 0
  2331.  
  2332. :garner2_2538
  2333. if
  2334. SAMP.IsPlayerConnected(0@)
  2335. jf @garner2_2711
  2336. 2@ = SAMP.GetPlayerNickname(0@)
  2337. if
  2338. 0C21: stricmp string1 2@ string2 15@
  2339. jf @garner2_2711
  2340. if
  2341. 803B: not 4@ == 8@ // (int)
  2342. jf @garner2_2661
  2343. format 10@ "{32CD32}%i. %s[%i]%c" 4@ 15@ 0@ 10
  2344. 0C15: strcat destination 13@ source 10@
  2345. 5@ = 1
  2346. goto @garner2_2711
  2347.  
  2348. :garner2_2661
  2349. format 10@ "{32CD32}%i. %s[%i]" 4@ 15@ 0@
  2350. 0C15: strcat destination 13@ source 10@
  2351. 5@ = 1
  2352.  
  2353. :garner2_2711
  2354. 0@ += 1
  2355. 0@ > 1000
  2356. jf @garner2_2538
  2357. if
  2358. 5@ == 0
  2359. jf @garner2_2853
  2360. if
  2361. 803B: not 4@ == 8@ // (int)
  2362. jf @garner2_2817
  2363. format 10@ "{9C9C9C}%i. %s%c" 4@ 15@ 10
  2364. 0C15: strcat destination 13@ source 10@
  2365. goto @garner2_2853
  2366.  
  2367. :garner2_2817
  2368. format 10@ "{9C9C9C}%i. %s" 4@ 15@
  2369. 0C15: strcat destination 13@ source 10@
  2370.  
  2371. :garner2_2853
  2372. 4@ += 1
  2373. 001D: 4@ > 8@ // (int)
  2374. jf @garner2_2473
  2375. SAMP.ShowDialog(700, 3@, 13@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  2376. File.Close(1@)
  2377. free 13@
  2378. free 15@
  2379. 0B00: delete_file "cleo\AdminTools\data\lip-nicks.txt" // IF and SET
  2380.  
  2381. :garner2_2952
  2382. free 10@
  2383. free 3@
  2384.  
  2385. :garner2_2962
  2386. if or
  2387. 11@ == 6
  2388. 11@ == 7
  2389. 11@ == 8
  2390. 11@ == 9
  2391. 11@ == 10
  2392. jf @garner2_3221
  2393. 0@ = 1
  2394.  
  2395. :garner2_3015
  2396. Dialog.FreeControl(20@, 0@)
  2397. 0@ += 1
  2398. 0@ > 12
  2399. jf @garner2_3015
  2400. Dialog.AddStatic(20@, 100, "", 10, 5, 400, 30)
  2401. Dialog.AddStatic(20@, 101, "Выберите причину наказания из списка.", 10, 40, 350, 20)
  2402. Dialog.AddStatic(20@, 104, "После чего, нажмите клавишу Enter.", 10, 190, 350, 20)
  2403. Dialog.AddEditBox(20@, 105, "", 10, 220, 350, 40)
  2404. Dialog.AddButton(20@, 20, "Отмена", 135, 265, 100, 30)
  2405. Dialog.SetControlFocus(20@, 105)
  2406.  
  2407. :garner2_3221
  2408. if
  2409. 11@ == 6
  2410. jf @garner2_4209
  2411. alloc 16@ 128
  2412. 0C11: memset destination 16@ value 0 size 128
  2413. alloc 3@ 32
  2414. 0C11: memset destination 3@ value 0 size 32
  2415. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2416. format 16@ "{FFFFFF}Выдать затычку игроку{32CD32}%c%s[%i]{FFFFFF}." 32 3@ 2@
  2417. free 3@
  2418. 0B60: convert_game_screen_coords 250.0 161.0 to_window_screen_coords 10@ 15@
  2419. Dialog.SetRECT(20@, 10@, 15@, 370, 320)
  2420. Dialog.AddStatic(20@, 103, "Или введите количество минут и причину.", 10, 170, 350, 20)
  2421. Dialog.SetControlText(20@, 100, 16@)
  2422. free 16@
  2423. Dialog.AddListBox(20@, 102, 10, 67, 350, 93)
  2424. 0@ = File.Open("cleo\AdminTools\punishments\mutes.txt", "r")
  2425. alloc 15@ 60
  2426. 0C11: memset destination 15@ value 0 size 60
  2427. 8@ = 0
  2428.  
  2429. :garner2_3601
  2430. if
  2431. File.ReadString(0@, 15@, 60)
  2432. jf @garner2_3629
  2433. 8@ += 1
  2434.  
  2435. :garner2_3629
  2436. File.EOF(0@)
  2437. jf @garner2_3601
  2438. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "mutes-in-file-count"
  2439. File.Close(0@)
  2440. free 15@
  2441. 6@ = 5
  2442. 5@ = 60
  2443. 006A: 5@ *= 8@ // (int)
  2444. 006A: 6@ *= 8@ // (int)
  2445. alloc 14@ 5@
  2446. alloc 15@ 60
  2447. alloc 16@ 6@
  2448. 0C11: memset destination 15@ value 0 size 60
  2449. 0C11: memset destination 14@ value 0 size 5@
  2450. 0C11: memset destination 16@ value 0 size 6@
  2451. 0@ = File.Open("cleo\AdminTools\punishments\mutes.txt", "r")
  2452. if
  2453. 8@ > 0
  2454. jf @garner2_3869
  2455. 8@ -= 1
  2456.  
  2457. :garner2_3869
  2458. 1@ = 0
  2459.  
  2460. :garner2_3876
  2461. if
  2462. File.ReadString(0@, 15@, 60)
  2463. jf @garner2_4177
  2464. if
  2465. 0C2C: 4@ = strrchr 15@ char 10
  2466. jf @garner2_3927
  2467. 0C11: memset destination 4@ value 0 size 1
  2468.  
  2469. :garner2_3927
  2470. alloc 12@ 60
  2471. 0C11: memset destination 12@ value 0 size 60
  2472. if
  2473. 0C19: 4@ = strcspn string1 15@ string2 " "
  2474. jf @garner2_4172
  2475. alloc 24@ 5
  2476. 0C11: memset destination 24@ value 0 size 5
  2477. 0C27: strncat destination 24@ source 15@ size 4@
  2478. 0C20: string_array 16@ element 1@ size 5 = 24@
  2479. alloc 13@ 60
  2480. 0C11: memset destination 13@ value 0 size 60
  2481. 0C2D: strrev in 15@ out 13@
  2482. if
  2483. 0C19: 4@ = strcspn string1 13@ string2 "1234567890"
  2484. jf @garner2_4162
  2485. 0C24: strncpy destination 12@ source 13@ size 4@
  2486. if
  2487. 0C2C: 4@ = strrchr 12@ char 32
  2488. jf @garner2_4101
  2489. 0C11: memset destination 4@ value 0 size 1
  2490.  
  2491. :garner2_4101
  2492. 0C2D: strrev in 12@ out 15@
  2493. 0C20: string_array 14@ element 1@ size 60 = 15@
  2494. format 12@ "%s (%s мин.)" 15@ 24@
  2495. Dialog.ListBoxInsertElement(20@, 102, 12@, 1, -1)
  2496.  
  2497. :garner2_4162
  2498. free 13@
  2499. free 24@
  2500.  
  2501. :garner2_4172
  2502. free 12@
  2503.  
  2504. :garner2_4177
  2505. 1@ += 1
  2506. 001D: 1@ > 8@ // (int)
  2507. jf @garner2_3876
  2508. free 15@
  2509. File.Close(0@)
  2510.  
  2511. :garner2_4209
  2512. if
  2513. 11@ == 7
  2514. jf @garner2_4926
  2515. alloc 16@ 128
  2516. 0C11: memset destination 16@ value 0 size 128
  2517. alloc 3@ 32
  2518. 0C11: memset destination 3@ value 0 size 32
  2519. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2520. format 16@ "{FFFFFF}Кикнуть игрока {32CD32}%c%s[%i]{FFFFFF}." 32 3@ 2@
  2521. free 3@
  2522. 0B60: convert_game_screen_coords 250.0 161.0 to_window_screen_coords 10@ 15@
  2523. Dialog.SetRECT(20@, 10@, 15@, 370, 320)
  2524. Dialog.AddStatic(20@, 103, "Или введите причину наказания.", 10, 170, 350, 20)
  2525. Dialog.SetControlText(20@, 100, 16@)
  2526. free 16@
  2527. Dialog.AddListBox(20@, 106, 10, 67, 350, 93)
  2528. 0@ = File.Open("cleo\AdminTools\punishments\kicks.txt", "r")
  2529. alloc 15@ 100
  2530. 0C11: memset destination 15@ value 0 size 100
  2531. 8@ = 0
  2532.  
  2533. :garner2_4574
  2534. if
  2535. File.ReadString(0@, 15@, 100)
  2536. jf @garner2_4602
  2537. 8@ += 1
  2538.  
  2539. :garner2_4602
  2540. File.EOF(0@)
  2541. jf @garner2_4574
  2542. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "kicks-in-file-count"
  2543. File.Close(0@)
  2544. free 15@
  2545. 5@ = 60
  2546. 006A: 5@ *= 8@ // (int)
  2547. alloc 14@ 5@
  2548. alloc 15@ 60
  2549. 0C11: memset destination 15@ value 0 size 60
  2550. 0C11: memset destination 14@ value 0 size 5@
  2551. 0@ = File.Open("cleo\AdminTools\punishments\kicks.txt", "r")
  2552. if
  2553. 8@ > 0
  2554. jf @garner2_4809
  2555. 8@ -= 1
  2556.  
  2557. :garner2_4809
  2558. 1@ = 0
  2559.  
  2560. :garner2_4816
  2561. if
  2562. File.ReadString(0@, 15@, 60)
  2563. jf @garner2_4894
  2564. if
  2565. 0C2C: 4@ = strrchr 15@ char 10
  2566. jf @garner2_4867
  2567. 0C11: memset destination 4@ value 0 size 1
  2568.  
  2569. :garner2_4867
  2570. 0C20: string_array 14@ element 1@ size 60 = 15@
  2571. Dialog.ListBoxInsertElement(20@, 106, 15@, 1, -1)
  2572.  
  2573. :garner2_4894
  2574. 1@ += 1
  2575. 001D: 1@ > 8@ // (int)
  2576. jf @garner2_4816
  2577. free 15@
  2578. File.Close(0@)
  2579.  
  2580. :garner2_4926
  2581. if
  2582. 11@ == 8
  2583. jf @garner2_5915
  2584. alloc 16@ 128
  2585. 0C11: memset destination 16@ value 0 size 128
  2586. alloc 3@ 32
  2587. 0C11: memset destination 3@ value 0 size 32
  2588. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2589. format 16@ "{FFFFFF}Посадить в КПЗ игрока {32CD32}%c%s[%i]{FFFFFF}." 32 3@ 2@
  2590. free 3@
  2591. 0B60: convert_game_screen_coords 250.0 161.0 to_window_screen_coords 10@ 15@
  2592. Dialog.SetRECT(20@, 10@, 15@, 370, 320)
  2593. Dialog.AddStatic(20@, 103, "Или введите количество минут и причину.", 10, 170, 350, 20)
  2594. Dialog.SetControlText(20@, 100, 16@)
  2595. free 16@
  2596. Dialog.AddListBox(20@, 107, 10, 67, 350, 93)
  2597. 0@ = File.Open("cleo\AdminTools\punishments\jails.txt", "r")
  2598. alloc 15@ 60
  2599. 0C11: memset destination 15@ value 0 size 60
  2600. 8@ = 0
  2601.  
  2602. :garner2_5307
  2603. if
  2604. File.ReadString(0@, 15@, 60)
  2605. jf @garner2_5335
  2606. 8@ += 1
  2607.  
  2608. :garner2_5335
  2609. File.EOF(0@)
  2610. jf @garner2_5307
  2611. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "jails-in-file-count"
  2612. File.Close(0@)
  2613. free 15@
  2614. 6@ = 5
  2615. 5@ = 60
  2616. 006A: 5@ *= 8@ // (int)
  2617. 006A: 6@ *= 8@ // (int)
  2618. alloc 14@ 5@
  2619. alloc 15@ 60
  2620. alloc 16@ 6@
  2621. 0C11: memset destination 15@ value 0 size 60
  2622. 0C11: memset destination 14@ value 0 size 5@
  2623. 0C11: memset destination 16@ value 0 size 6@
  2624. 0@ = File.Open("cleo\AdminTools\punishments\jails.txt", "r")
  2625. if
  2626. 8@ > 0
  2627. jf @garner2_5575
  2628. 8@ -= 1
  2629.  
  2630. :garner2_5575
  2631. 1@ = 0
  2632.  
  2633. :garner2_5582
  2634. if
  2635. File.ReadString(0@, 15@, 60)
  2636. jf @garner2_5883
  2637. if
  2638. 0C2C: 4@ = strrchr 15@ char 10
  2639. jf @garner2_5633
  2640. 0C11: memset destination 4@ value 0 size 1
  2641.  
  2642. :garner2_5633
  2643. alloc 12@ 60
  2644. 0C11: memset destination 12@ value 0 size 60
  2645. if
  2646. 0C19: 4@ = strcspn string1 15@ string2 " "
  2647. jf @garner2_5878
  2648. alloc 24@ 5
  2649. 0C11: memset destination 24@ value 0 size 5
  2650. 0C27: strncat destination 24@ source 15@ size 4@
  2651. 0C20: string_array 16@ element 1@ size 5 = 24@
  2652. alloc 13@ 60
  2653. 0C11: memset destination 13@ value 0 size 60
  2654. 0C2D: strrev in 15@ out 13@
  2655. if
  2656. 0C19: 4@ = strcspn string1 13@ string2 "1234567890"
  2657. jf @garner2_5868
  2658. 0C24: strncpy destination 12@ source 13@ size 4@
  2659. if
  2660. 0C2C: 4@ = strrchr 12@ char 32
  2661. jf @garner2_5807
  2662. 0C11: memset destination 4@ value 0 size 1
  2663.  
  2664. :garner2_5807
  2665. 0C2D: strrev in 12@ out 15@
  2666. 0C20: string_array 14@ element 1@ size 60 = 15@
  2667. format 12@ "%s (%s мин.)" 15@ 24@
  2668. Dialog.ListBoxInsertElement(20@, 107, 12@, 1, -1)
  2669.  
  2670. :garner2_5868
  2671. free 13@
  2672. free 24@
  2673.  
  2674. :garner2_5878
  2675. free 12@
  2676.  
  2677. :garner2_5883
  2678. 1@ += 1
  2679. 001D: 1@ > 8@ // (int)
  2680. jf @garner2_5582
  2681. free 15@
  2682. File.Close(0@)
  2683.  
  2684. :garner2_5915
  2685. if
  2686. 11@ == 9
  2687. jf @garner2_6637
  2688. alloc 16@ 128
  2689. 0C11: memset destination 16@ value 0 size 128
  2690. alloc 3@ 32
  2691. 0C11: memset destination 3@ value 0 size 32
  2692. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2693. format 16@ "{FFFFFF}Выдать пред. игроку {32CD32}%c%s[%i]{FFFFFF}." 32 3@ 2@
  2694. free 3@
  2695. 0B60: convert_game_screen_coords 250.0 161.0 to_window_screen_coords 10@ 15@
  2696. Dialog.SetRECT(20@, 10@, 15@, 370, 320)
  2697. Dialog.AddStatic(20@, 103, "Или введите причину наказания.", 10, 170, 350, 20)
  2698. Dialog.SetControlText(20@, 100, 16@)
  2699. free 16@
  2700. Dialog.AddListBox(20@, 108, 10, 67, 350, 93)
  2701. 0@ = File.Open("cleo\AdminTools\punishments\warns.txt", "r")
  2702. alloc 15@ 100
  2703. 0C11: memset destination 15@ value 0 size 100
  2704. 8@ = 0
  2705.  
  2706. :garner2_6285
  2707. if
  2708. File.ReadString(0@, 15@, 100)
  2709. jf @garner2_6313
  2710. 8@ += 1
  2711.  
  2712. :garner2_6313
  2713. File.EOF(0@)
  2714. jf @garner2_6285
  2715. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "warns-in-file-count"
  2716. File.Close(0@)
  2717. free 15@
  2718. 5@ = 60
  2719. 006A: 5@ *= 8@ // (int)
  2720. alloc 14@ 5@
  2721. alloc 15@ 60
  2722. 0C11: memset destination 15@ value 0 size 60
  2723. 0C11: memset destination 14@ value 0 size 5@
  2724. 0@ = File.Open("cleo\AdminTools\punishments\warns.txt", "r")
  2725. if
  2726. 8@ > 0
  2727. jf @garner2_6520
  2728. 8@ -= 1
  2729.  
  2730. :garner2_6520
  2731. 1@ = 0
  2732.  
  2733. :garner2_6527
  2734. if
  2735. File.ReadString(0@, 15@, 60)
  2736. jf @garner2_6605
  2737. if
  2738. 0C2C: 4@ = strrchr 15@ char 10
  2739. jf @garner2_6578
  2740. 0C11: memset destination 4@ value 0 size 1
  2741.  
  2742. :garner2_6578
  2743. 0C20: string_array 14@ element 1@ size 60 = 15@
  2744. Dialog.ListBoxInsertElement(20@, 108, 15@, 1, -1)
  2745.  
  2746. :garner2_6605
  2747. 1@ += 1
  2748. 001D: 1@ > 8@ // (int)
  2749. jf @garner2_6527
  2750. free 15@
  2751. File.Close(0@)
  2752.  
  2753. :garner2_6637
  2754. if
  2755. 11@ == 10
  2756. jf @garner2_7615
  2757. alloc 16@ 128
  2758. 0C11: memset destination 16@ value 0 size 128
  2759. alloc 3@ 32
  2760. 0C11: memset destination 3@ value 0 size 32
  2761. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2762. format 16@ "{FFFFFF}Забанить игрока {32CD32}%c%s[%i]{FFFFFF}." 32 3@ 2@
  2763. free 3@
  2764. 0B60: convert_game_screen_coords 250.0 161.0 to_window_screen_coords 10@ 15@
  2765. Dialog.SetRECT(20@, 10@, 15@, 370, 320)
  2766. Dialog.AddStatic(20@, 103, "Или введите количество дней и причину.", 10, 170, 350, 20)
  2767. Dialog.SetControlText(20@, 100, 16@)
  2768. free 16@
  2769. Dialog.AddListBox(20@, 109, 10, 67, 350, 93)
  2770. 0@ = File.Open("cleo\AdminTools\punishments\bans.txt", "r")
  2771. alloc 15@ 60
  2772. 0C11: memset destination 15@ value 0 size 60
  2773. 8@ = 0
  2774.  
  2775. :garner2_7010
  2776. if
  2777. File.ReadString(0@, 15@, 60)
  2778. jf @garner2_7038
  2779. 8@ += 1
  2780.  
  2781. :garner2_7038
  2782. File.EOF(0@)
  2783. jf @garner2_7010
  2784. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "bans-in-file-count"
  2785. File.Close(0@)
  2786. free 15@
  2787. 6@ = 5
  2788. 5@ = 60
  2789. 006A: 5@ *= 8@ // (int)
  2790. 006A: 6@ *= 8@ // (int)
  2791. alloc 14@ 5@
  2792. alloc 15@ 60
  2793. alloc 16@ 6@
  2794. 0C11: memset destination 15@ value 0 size 60
  2795. 0C11: memset destination 14@ value 0 size 5@
  2796. 0C11: memset destination 16@ value 0 size 6@
  2797. 0@ = File.Open("cleo\AdminTools\punishments\bans.txt", "r")
  2798. if
  2799. 8@ > 0
  2800. jf @garner2_7276
  2801. 8@ -= 1
  2802.  
  2803. :garner2_7276
  2804. 1@ = 0
  2805.  
  2806. :garner2_7283
  2807. if
  2808. File.ReadString(0@, 15@, 60)
  2809. jf @garner2_7583
  2810. if
  2811. 0C2C: 4@ = strrchr 15@ char 10
  2812. jf @garner2_7334
  2813. 0C11: memset destination 4@ value 0 size 1
  2814.  
  2815. :garner2_7334
  2816. alloc 12@ 60
  2817. 0C11: memset destination 12@ value 0 size 60
  2818. if
  2819. 0C19: 4@ = strcspn string1 15@ string2 " "
  2820. jf @garner2_7578
  2821. alloc 24@ 5
  2822. 0C11: memset destination 24@ value 0 size 5
  2823. 0C27: strncat destination 24@ source 15@ size 4@
  2824. 0C20: string_array 16@ element 1@ size 5 = 24@
  2825. alloc 13@ 60
  2826. 0C11: memset destination 13@ value 0 size 60
  2827. 0C2D: strrev in 15@ out 13@
  2828. if
  2829. 0C19: 4@ = strcspn string1 13@ string2 "1234567890"
  2830. jf @garner2_7568
  2831. 0C24: strncpy destination 12@ source 13@ size 4@
  2832. if
  2833. 0C2C: 4@ = strrchr 12@ char 32
  2834. jf @garner2_7508
  2835. 0C11: memset destination 4@ value 0 size 1
  2836.  
  2837. :garner2_7508
  2838. 0C2D: strrev in 12@ out 15@
  2839. 0C20: string_array 14@ element 1@ size 60 = 15@
  2840. format 12@ "%s (%s дн.)" 15@ 24@
  2841. Dialog.ListBoxInsertElement(20@, 109, 12@, 1, -1)
  2842.  
  2843. :garner2_7568
  2844. free 13@
  2845. free 24@
  2846.  
  2847. :garner2_7578
  2848. free 12@
  2849.  
  2850. :garner2_7583
  2851. 1@ += 1
  2852. 001D: 1@ > 8@ // (int)
  2853. jf @garner2_7283
  2854. free 15@
  2855. File.Close(0@)
  2856.  
  2857. :garner2_7615
  2858. if
  2859. 11@ == 11
  2860. jf @garner2_8215
  2861. Dialog.Free(20@)
  2862. 20@ = 0
  2863. SAMP.ToggleCursor(0)
  2864. alloc 4@ 500
  2865. 0C11: memset destination 4@ value 0 size 500
  2866. alloc 5@ 128
  2867. 0C11: memset destination 5@ value 0 size 128
  2868. alloc 6@ 128
  2869. 0C11: memset destination 6@ value 0 size 128
  2870. format 4@ "{FFFFFF}Подсеть игрока будет заблокирована на 10 дней.%c" 10
  2871. 0AF4: 5@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "nickname"
  2872. format 6@ "{FFD700}Ник игрока: %s[%i], " 5@ 2@
  2873. 0C15: strcat destination 4@ source 6@
  2874. 0AF4: 5@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "ip"
  2875. 0AD4: 1@ = scan_string 5@ format "%i.%i" 7@ 8@
  2876. format 5@ "подсеть: %i.%i.%c%c" 7@ 8@ 10 10
  2877. 0C15: strcat destination 4@ source 5@
  2878. format 5@ "{FFFFFF}%c%c%c%c%c%cПродолжить?" 9 9 32 32 32 32
  2879. 0C15: strcat destination 4@ source 5@
  2880. 7@ = 700
  2881. 7@ += 1
  2882. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 4@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  2883. free 4@
  2884. free 5@
  2885. free 6@
  2886.  
  2887. :garner2_8128
  2888. SAMP.IsDialogActive(7@)
  2889. jf @garner2_8215
  2890. wait 0
  2891. if
  2892. SAMP.DialogRespond(7@, 4@, 0, 0)
  2893. jf @garner2_8208
  2894. if
  2895. 4@ == 1
  2896. jf @garner2_8208
  2897. say "/rban %i" 2@
  2898. goto @garner2_8215
  2899.  
  2900. :garner2_8208
  2901. goto @garner2_8128
  2902.  
  2903. :garner2_8215
  2904. if
  2905. 11@ == 12
  2906. jf @garner2_8270
  2907. Dialog.Free(20@)
  2908. 20@ = 0
  2909. SAMP.ToggleCursor(0)
  2910. 0BFC: set_global_var "ADMINPANEL_FLAG" = 0
  2911.  
  2912. :garner2_8270
  2913. if
  2914. 11@ == 20
  2915. jf @garner2_8314
  2916. Dialog.Free(20@)
  2917. 20@ = 0
  2918. SAMP.ToggleCursor(0)
  2919. free 14@
  2920. free 16@
  2921.  
  2922. :garner2_8314
  2923. 0085: 13@ = 11@ // (int)
  2924.  
  2925. :garner2_8322
  2926. if and
  2927. 10@ == 1537
  2928. not SAMP.ChatInputOpened
  2929. jf @garner2_9532
  2930. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  2931. if
  2932. 11@ == 105
  2933. jf @garner2_9532
  2934. if
  2935. 13@ == 6
  2936. jf @garner2_8647
  2937. alloc 17@ 64
  2938. 0C11: memset destination 17@ value 0 size 64
  2939. Dialog.GetControlText(20@, 105, 17@)
  2940. 0C17: 15@ = strlen 17@
  2941. if
  2942. 15@ > 0
  2943. jf @garner2_8551
  2944. SAMP.ToggleCursor(0)
  2945. Dialog.Free(20@)
  2946. say "/mute %i %s" 2@ 17@
  2947. free 17@
  2948. 20@ = 0
  2949. 13@ = 0
  2950. free 14@
  2951. free 16@
  2952. goto @garner2_8640
  2953.  
  2954. :garner2_8551
  2955. alloc 3@ 128
  2956. 0C11: memset destination 3@ value 0 size 128
  2957. format 3@ "Укажите количество минут и причину наказания."
  2958. call @garner4_17369 1 3@
  2959. free 3@
  2960.  
  2961. :garner2_8640
  2962. goto @garner2_9532
  2963.  
  2964. :garner2_8647
  2965. if
  2966. 13@ == 7
  2967. jf @garner2_8861
  2968. alloc 17@ 64
  2969. 0C11: memset destination 17@ value 0 size 64
  2970. Dialog.GetControlText(20@, 105, 17@)
  2971. 0C17: 15@ = strlen 17@
  2972. if
  2973. 15@ > 0
  2974. jf @garner2_8784
  2975. SAMP.ToggleCursor(0)
  2976. Dialog.Free(20@)
  2977. say "/kick %i %s" 2@ 17@
  2978. free 17@
  2979. 20@ = 0
  2980. 13@ = 0
  2981. free 14@
  2982. free 16@
  2983. goto @garner2_8854
  2984.  
  2985. :garner2_8784
  2986. alloc 3@ 128
  2987. 0C11: memset destination 3@ value 0 size 128
  2988. format 3@ "Укажите причину наказания."
  2989. call @garner4_17369 1 3@
  2990. free 3@
  2991.  
  2992. :garner2_8854
  2993. goto @garner2_9532
  2994.  
  2995. :garner2_8861
  2996. if
  2997. 13@ == 8
  2998. jf @garner2_9094
  2999. alloc 17@ 64
  3000. 0C11: memset destination 17@ value 0 size 64
  3001. Dialog.GetControlText(20@, 105, 17@)
  3002. 0C17: 15@ = strlen 17@
  3003. if
  3004. 15@ > 0
  3005. jf @garner2_8998
  3006. SAMP.ToggleCursor(0)
  3007. Dialog.Free(20@)
  3008. say "/jail %i %s" 2@ 17@
  3009. free 17@
  3010. 20@ = 0
  3011. 13@ = 0
  3012. free 14@
  3013. free 16@
  3014. goto @garner2_9087
  3015.  
  3016. :garner2_8998
  3017. alloc 3@ 128
  3018. 0C11: memset destination 3@ value 0 size 128
  3019. format 3@ "Укажите количество минут и причину наказания."
  3020. call @garner4_17369 1 3@
  3021. free 3@
  3022.  
  3023. :garner2_9087
  3024. goto @garner2_9532
  3025.  
  3026. :garner2_9094
  3027. if
  3028. 13@ == 9
  3029. jf @garner2_9308
  3030. alloc 17@ 64
  3031. 0C11: memset destination 17@ value 0 size 64
  3032. Dialog.GetControlText(20@, 105, 17@)
  3033. 0C17: 15@ = strlen 17@
  3034. if
  3035. 15@ > 0
  3036. jf @garner2_9231
  3037. SAMP.ToggleCursor(0)
  3038. Dialog.Free(20@)
  3039. say "/warn %i %s" 2@ 17@
  3040. free 17@
  3041. 20@ = 0
  3042. 13@ = 0
  3043. free 14@
  3044. free 16@
  3045. goto @garner2_9301
  3046.  
  3047. :garner2_9231
  3048. alloc 3@ 128
  3049. 0C11: memset destination 3@ value 0 size 128
  3050. format 3@ "Укажите причину наказания."
  3051. call @garner4_17369 1 3@
  3052. free 3@
  3053.  
  3054. :garner2_9301
  3055. goto @garner2_9532
  3056.  
  3057. :garner2_9308
  3058. if
  3059. 13@ == 10
  3060. jf @garner2_9532
  3061. alloc 17@ 64
  3062. 0C11: memset destination 17@ value 0 size 64
  3063. Dialog.GetControlText(20@, 105, 17@)
  3064. 0C17: 15@ = strlen 17@
  3065. if
  3066. 15@ > 0
  3067. jf @garner2_9444
  3068. SAMP.ToggleCursor(0)
  3069. Dialog.Free(20@)
  3070. say "/ban %i %s" 2@ 17@
  3071. free 17@
  3072. 20@ = 0
  3073. 13@ = 0
  3074. free 14@
  3075. free 16@
  3076. goto @garner2_9532
  3077.  
  3078. :garner2_9444
  3079. alloc 3@ 128
  3080. 0C11: memset destination 3@ value 0 size 128
  3081. format 3@ "Укажите количество дней и причину наказания."
  3082. call @garner4_17369 1 3@
  3083. free 3@
  3084.  
  3085. :garner2_9532
  3086. if
  3087. 11@ == 102
  3088. jf @garner2_9808
  3089. if
  3090. 10@ == 1793
  3091. jf @garner2_9808
  3092. Dialog.ListBoxGetSelectedAndCount(20@, 11@, 12@, 4@)
  3093. 0AF0: 8@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "mutes-in-file-count"
  3094. if
  3095. 8@ > 0
  3096. jf @garner2_9672
  3097. 8@ -= 1
  3098.  
  3099. :garner2_9672
  3100. 0@ = 0
  3101.  
  3102. :garner2_9679
  3103. if
  3104. 003B: 12@ == 0@ // (int)
  3105. jf @garner2_9779
  3106. Dialog.Free(20@)
  3107. 0C1F: 17@ = string_array 14@ element 0@ size 60
  3108. 0C1F: 18@ = string_array 16@ element 0@ size 5
  3109. say "/mute %i %s %s." 2@ 18@ 17@
  3110. free 14@
  3111. free 16@
  3112. SAMP.ToggleCursor(0)
  3113. goto @garner2_9801
  3114.  
  3115. :garner2_9779
  3116. 0@ += 1
  3117. 001D: 0@ > 8@ // (int)
  3118. jf @garner2_9679
  3119.  
  3120. :garner2_9801
  3121. 20@ = 0
  3122.  
  3123. :garner2_9808
  3124. if
  3125. 11@ == 106
  3126. jf @garner2_10060
  3127. if
  3128. 10@ == 1793
  3129. jf @garner2_10060
  3130. Dialog.ListBoxGetSelectedAndCount(20@, 11@, 12@, 4@)
  3131. 0AF0: 8@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "kicks-in-file-count"
  3132. if
  3133. 8@ > 0
  3134. jf @garner2_9948
  3135. 8@ -= 1
  3136.  
  3137. :garner2_9948
  3138. 0@ = 0
  3139.  
  3140. :garner2_9955
  3141. if
  3142. 003B: 12@ == 0@ // (int)
  3143. jf @garner2_10031
  3144. Dialog.Free(20@)
  3145. 0C1F: 15@ = string_array 14@ element 0@ size 60
  3146. say "/kick %i %s." 2@ 15@
  3147. free 14@
  3148. SAMP.ToggleCursor(0)
  3149. goto @garner2_10053
  3150.  
  3151. :garner2_10031
  3152. 0@ += 1
  3153. 001D: 0@ > 8@ // (int)
  3154. jf @garner2_9955
  3155.  
  3156. :garner2_10053
  3157. 20@ = 0
  3158.  
  3159. :garner2_10060
  3160. if
  3161. 11@ == 107
  3162. jf @garner2_10336
  3163. if
  3164. 10@ == 1793
  3165. jf @garner2_10336
  3166. Dialog.ListBoxGetSelectedAndCount(20@, 11@, 12@, 4@)
  3167. 0AF0: 8@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "jails-in-file-count"
  3168. if
  3169. 8@ > 0
  3170. jf @garner2_10200
  3171. 8@ -= 1
  3172.  
  3173. :garner2_10200
  3174. 0@ = 0
  3175.  
  3176. :garner2_10207
  3177. if
  3178. 003B: 12@ == 0@ // (int)
  3179. jf @garner2_10307
  3180. Dialog.Free(20@)
  3181. 0C1F: 17@ = string_array 14@ element 0@ size 60
  3182. 0C1F: 18@ = string_array 16@ element 0@ size 5
  3183. say "/jail %i %s %s." 2@ 18@ 17@
  3184. free 14@
  3185. free 16@
  3186. SAMP.ToggleCursor(0)
  3187. goto @garner2_10329
  3188.  
  3189. :garner2_10307
  3190. 0@ += 1
  3191. 001D: 0@ > 8@ // (int)
  3192. jf @garner2_10207
  3193.  
  3194. :garner2_10329
  3195. 20@ = 0
  3196.  
  3197. :garner2_10336
  3198. if
  3199. 11@ == 108
  3200. jf @garner2_10588
  3201. if
  3202. 10@ == 1793
  3203. jf @garner2_10588
  3204. Dialog.ListBoxGetSelectedAndCount(20@, 11@, 12@, 4@)
  3205. 0AF0: 8@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "warns-in-file-count"
  3206. if
  3207. 8@ > 0
  3208. jf @garner2_10476
  3209. 8@ -= 1
  3210.  
  3211. :garner2_10476
  3212. 0@ = 0
  3213.  
  3214. :garner2_10483
  3215. if
  3216. 003B: 12@ == 0@ // (int)
  3217. jf @garner2_10559
  3218. Dialog.Free(20@)
  3219. 0C1F: 15@ = string_array 14@ element 0@ size 60
  3220. say "/warn %i %s." 2@ 15@
  3221. free 14@
  3222. SAMP.ToggleCursor(0)
  3223. goto @garner2_10581
  3224.  
  3225. :garner2_10559
  3226. 0@ += 1
  3227. 001D: 0@ > 8@ // (int)
  3228. jf @garner2_10483
  3229.  
  3230. :garner2_10581
  3231. 20@ = 0
  3232.  
  3233. :garner2_10588
  3234. if
  3235. 11@ == 109
  3236. jf @garner2_10862
  3237. if
  3238. 10@ == 1793
  3239. jf @garner2_10862
  3240. Dialog.ListBoxGetSelectedAndCount(20@, 11@, 12@, 4@)
  3241. 0AF0: 8@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "bans-in-file-count"
  3242. if
  3243. 8@ > 0
  3244. jf @garner2_10727
  3245. 8@ -= 1
  3246.  
  3247. :garner2_10727
  3248. 0@ = 0
  3249.  
  3250. :garner2_10734
  3251. if
  3252. 003B: 12@ == 0@ // (int)
  3253. jf @garner2_10833
  3254. Dialog.Free(20@)
  3255. 0C1F: 17@ = string_array 14@ element 0@ size 60
  3256. 0C1F: 18@ = string_array 16@ element 0@ size 5
  3257. say "/ban %i %s %s." 2@ 18@ 17@
  3258. free 14@
  3259. free 16@
  3260. SAMP.ToggleCursor(0)
  3261. goto @garner2_10855
  3262.  
  3263. :garner2_10833
  3264. 0@ += 1
  3265. 001D: 0@ > 8@ // (int)
  3266. jf @garner2_10734
  3267.  
  3268. :garner2_10855
  3269. 20@ = 0
  3270.  
  3271. :garner2_10862
  3272. 0BFD: 5@ = get_global_var "menu-on-key"
  3273. if
  3274. not 5@ == 0
  3275. jf @garner2_11060
  3276. if and
  3277. not SAMP.ChatInputOpened
  3278. 0C89: key_just_pressed 5@
  3279. not Dialog.IsExists(0@)
  3280. not Dialog.IsExists(20@)
  3281. jf @garner2_10940
  3282. 0C8F: samp process_chat_input "/at"
  3283. goto @garner2_11060
  3284.  
  3285. :garner2_10940
  3286. if and
  3287. not SAMP.ChatInputOpened
  3288. 0C89: key_just_pressed 5@
  3289. Dialog.IsExists(0@)
  3290. jf @garner2_11060
  3291. Dialog.Free(0@)
  3292. 0@ = 0
  3293. SAMP.ToggleCursor(0)
  3294. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  3295. if
  3296. 0C5D: samp textdraw 420 is_exists
  3297. jf @garner2_11060
  3298. 0C5E: samp textdraw 420 delete
  3299.  
  3300. :garner2_11060
  3301. if
  3302. Dialog.IsExists(0@)
  3303. jf @garner2_72831
  3304. SAMP.ToggleCursor(1)
  3305. if
  3306. not Dialog.IsMinimized(0@)
  3307. jf @garner2_11109
  3308. if
  3309. 0ADC: test_cheat "t"
  3310. SAMP.SetChatInputEnabled(0)
  3311.  
  3312. :garner2_11109
  3313. if
  3314. Dialog.PopEvent(0@, 1@, 2@)
  3315. jf @garner2_72831
  3316. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  3317. if
  3318. 3@ == 1
  3319. jf @garner2_11309
  3320. if and
  3321. not 1@ == 1794
  3322. not 1@ == 1538
  3323. not 10@ == 1537
  3324. jf @garner2_11309
  3325. 3@ = Audiostream.Load("CLEO\AdminTools\data\audio\click.mp3")
  3326. 0BFC: set_global_var "AT_CLICK_SOUND" = 3@
  3327. Audiostream.PerformAction(3@, PLAY)
  3328.  
  3329. :garner2_11309
  3330. if
  3331. 1@ == 257
  3332. jf @garner2_30226
  3333. if
  3334. 2@ == 101
  3335. jf @garner2_11388
  3336. Dialog.Free(0@)
  3337. 0@ = 0
  3338. SAMP.ToggleCursor(0)
  3339. if
  3340. 0C5D: samp textdraw 420 is_exists
  3341. jf @garner2_11383
  3342. 0C5E: samp textdraw 420 delete
  3343.  
  3344. :garner2_11383
  3345. free 10@
  3346.  
  3347. :garner2_11388
  3348. if
  3349. 2@ == 102
  3350. jf @garner2_11616
  3351. Dialog.Free(0@)
  3352. 0@ = 0
  3353. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  3354. if
  3355. 1@ == 1
  3356. jf @garner2_11582
  3357. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  3358. free 25@
  3359. free 26@
  3360. free 27@
  3361. free 28@
  3362. free 29@
  3363.  
  3364. :garner2_11582
  3365. call @garner4_81 0 0@
  3366. if
  3367. 0C5D: samp textdraw 420 is_exists
  3368. jf @garner2_11616
  3369. 0C5E: samp textdraw 420 delete
  3370.  
  3371. :garner2_11616
  3372. if
  3373. 2@ == 109
  3374. jf @garner2_13654
  3375. Dialog.Free(0@)
  3376. SAMP.ToggleCursor(0)
  3377. 0@ = 0
  3378. if
  3379. SAMP.IsLocalPlayerSpawned
  3380. jf @garner2_13569
  3381. 0BFD: 9@ = get_global_var "pl-count"
  3382. 10@ = File.Open("cleo\AdminTools\punishment_list.txt", "r")
  3383. 3@ = 75
  3384. 006A: 3@ *= 9@ // (int)
  3385. alloc 19@ 3@
  3386. 0C11: memset destination 19@ value 0 size 3@
  3387. 17@ = 0
  3388. 9@ -= 1
  3389. 2@ = 0
  3390.  
  3391. :garner2_11777
  3392. alloc 18@ 75
  3393. 0C11: memset destination 18@ value 0 size 75
  3394. File.ReadString(10@, 18@, 75)
  3395. 0C1F: 21@ = string_array 25@ element 2@ size 25
  3396. 0C1F: 22@ = string_array 26@ element 2@ size 8
  3397. 0C1F: 23@ = string_array 27@ element 2@ size 4
  3398. 0C1F: 24@ = string_array 28@ element 2@ size 40
  3399. 0C0E: 20@ = array 29@ element 2@
  3400. if and
  3401. 0C21: stricmp string1 "/jail" string2 22@
  3402. SAMP.IsLocalPlayerSpawned
  3403. SAMP.IsPlayerConnected(20@)
  3404. jf @garner2_12001
  3405. 3@ = SAMP.GetPlayerScore(20@)
  3406. 4@ = SAMP.GetPlayerNickname(20@)
  3407. if and
  3408. 3@ > 0
  3409. 0C21: stricmp string1 4@ string2 21@
  3410. jf @garner2_12001
  3411. say "/jail %i %s %s." 20@ 23@ 24@
  3412. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3413.  
  3414. :garner2_12001
  3415. if and
  3416. 0C21: stricmp string1 "/mute" string2 22@
  3417. SAMP.IsLocalPlayerSpawned
  3418. SAMP.IsPlayerConnected(20@)
  3419. jf @garner2_12136
  3420. 3@ = SAMP.GetPlayerScore(20@)
  3421. 4@ = SAMP.GetPlayerNickname(20@)
  3422. if and
  3423. 3@ > 0
  3424. 0C21: stricmp string1 4@ string2 21@
  3425. jf @garner2_12136
  3426. say "/mute %i %s %s." 20@ 23@ 24@
  3427. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3428.  
  3429. :garner2_12136
  3430. if and
  3431. 0C21: stricmp string1 "/warn" string2 22@
  3432. SAMP.IsLocalPlayerSpawned
  3433. jf @garner2_12496
  3434. 0BFD: 12@ = get_global_var "ADMIN_LVL"
  3435. if
  3436. SAMP.IsPlayerConnected(20@)
  3437. jf @garner2_12406
  3438. 3@ = SAMP.GetPlayerScore(20@)
  3439. 4@ = SAMP.GetPlayerNickname(20@)
  3440. if and
  3441. 3@ > 0
  3442. 0C21: stricmp string1 4@ string2 21@
  3443. jf @garner2_12306
  3444. 30@ = 0
  3445. say "/warn %i %s." 20@ 24@
  3446. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3447. goto @garner2_12399
  3448.  
  3449. :garner2_12306
  3450. if and
  3451. 8C21: not stricmp string1 4@ string2 21@
  3452. 12@ >= 4
  3453. jf @garner2_12399
  3454. 30@ = 1
  3455. say "/offwarn %s %s." 21@ 24@
  3456. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3457.  
  3458. :garner2_12399
  3459. goto @garner2_12496
  3460.  
  3461. :garner2_12406
  3462. if and
  3463. not SAMP.IsPlayerConnected(20@)
  3464. 12@ >= 4
  3465. jf @garner2_12496
  3466. 30@ = 1
  3467. say "/offwarn %s %s." 21@ 24@
  3468. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3469.  
  3470. :garner2_12496
  3471. if and
  3472. 0C21: stricmp string1 "/unwarn" string2 22@
  3473. SAMP.IsLocalPlayerSpawned
  3474. jf @garner2_12663
  3475. 0BFD: 12@ = get_global_var "ADMIN_LVL"
  3476. if
  3477. SAMP.IsPlayerConnected(20@)
  3478. jf @garner2_12663
  3479. 3@ = SAMP.GetPlayerScore(20@)
  3480. 4@ = SAMP.GetPlayerNickname(20@)
  3481. if and
  3482. 12@ >= 4
  3483. 3@ > 0
  3484. 0C21: stricmp string1 4@ string2 21@
  3485. jf @garner2_12663
  3486. 30@ = 0
  3487. say "/unwarn %i" 20@
  3488. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3489.  
  3490. :garner2_12663
  3491. if and
  3492. 0C21: stricmp string1 "/ban" string2 22@
  3493. SAMP.IsLocalPlayerSpawned
  3494. jf @garner2_13037
  3495. 0BFD: 12@ = get_global_var "ADMIN_LVL"
  3496. if
  3497. SAMP.IsPlayerConnected(20@)
  3498. jf @garner2_12942
  3499. 3@ = SAMP.GetPlayerScore(20@)
  3500. 4@ = SAMP.GetPlayerNickname(20@)
  3501. if and
  3502. 3@ > 0
  3503. 0C21: stricmp string1 4@ string2 21@
  3504. jf @garner2_12837
  3505. 30@ = 0
  3506. say "/ban %i %s %s." 20@ 23@ 24@
  3507. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3508. goto @garner2_12935
  3509.  
  3510. :garner2_12837
  3511. if and
  3512. 8C21: not stricmp string1 4@ string2 21@
  3513. 12@ >= 4
  3514. jf @garner2_12935
  3515. 30@ = 1
  3516. say "/offban %s %s %s." 21@ 23@ 24@
  3517. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3518.  
  3519. :garner2_12935
  3520. goto @garner2_13037
  3521.  
  3522. :garner2_12942
  3523. if and
  3524. not SAMP.IsPlayerConnected(20@)
  3525. 12@ >= 4
  3526. jf @garner2_13037
  3527. 30@ = 1
  3528. say "/offban %s %s %s." 21@ 23@ 24@
  3529. call @garner4_8026 6 22@ 17@ 18@ 21@ 30@ 24@ 17@ 18@
  3530.  
  3531. :garner2_13037
  3532. 0C20: string_array 19@ element 2@ size 75 = 18@
  3533. free 18@
  3534. 2@ += 1
  3535. 001D: 2@ > 9@ // (int)
  3536. jf @garner2_11777
  3537. File.Close(10@)
  3538. 5@ = File.Open("cleo\AdminTools\punishment_list.txt", "w")
  3539. 0BFD: 7@ = get_global_var "pl-count"
  3540. 7@ -= 1
  3541. 2@ = 0
  3542.  
  3543. :garner2_13156
  3544. 0C1F: 18@ = string_array 19@ element 2@ size 75
  3545. File.WriteString(5@, 18@)
  3546. 2@ += 1
  3547. 001D: 2@ > 7@ // (int)
  3548. jf @garner2_13156
  3549. free 19@
  3550. File.Close(5@)
  3551. alloc 0@ 128
  3552. 0C11: memset destination 0@ value 0 size 128
  3553. 0BFD: 9@ = get_global_var "pl-count"
  3554. if or
  3555. 17@ == 0
  3556. 9@ == 0
  3557. jf @garner2_13339
  3558. format 0@ "В данный момент выдать наказания невозможно."
  3559. call @garner4_17369 1 0@
  3560. goto @garner2_13564
  3561.  
  3562. :garner2_13339
  3563. if
  3564. 003B: 9@ == 17@ // (int)
  3565. jf @garner2_13433
  3566. format 0@ "Все наказания успешно выданы, данные обновлены."
  3567. call @garner4_17369 1 0@
  3568. goto @garner2_13564
  3569.  
  3570. :garner2_13433
  3571. format 0@ "Наказания успешно выданы, данные обновлены."
  3572. call @garner4_17369 1 0@
  3573. format 0@ "Однако, некоторые наказания выдать не удалось."
  3574. call @garner4_17369 1 0@
  3575.  
  3576. :garner2_13564
  3577. free 0@
  3578.  
  3579. :garner2_13569
  3580. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  3581. free 25@
  3582. free 26@
  3583. free 27@
  3584. free 28@
  3585. free 29@
  3586.  
  3587. :garner2_13654
  3588. if
  3589. 2@ == 111
  3590. jf @garner2_13773
  3591. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  3592. Dialog.Free(0@)
  3593. SAMP.ToggleCursor(0)
  3594. free 25@
  3595. free 26@
  3596. free 27@
  3597. free 28@
  3598. free 29@
  3599. 0@ = 0
  3600.  
  3601. :garner2_13773
  3602. if
  3603. 2@ == 120
  3604. jf @garner2_14287
  3605. alloc 5@ 6
  3606. 0C11: memset destination 5@ value 0 size 6
  3607. Dialog.GetControlText(0@, 119, 5@)
  3608. 0AD4: 6@ = scan_string 5@ format "%i" 7@
  3609. free 5@
  3610. 0BFD: 5@ = get_global_var "main-skin"
  3611. if or
  3612. not 7@ > 0
  3613. 7@ > 311
  3614. 003B: 7@ == 5@ // (int)
  3615. 7@ == 74
  3616. jf @garner2_14087
  3617. alloc 3@ 128
  3618. 0C11: memset destination 3@ value 0 size 128
  3619. format 3@ "Некорректное значение ID временного скина!"
  3620. call @garner4_17369 1 3@
  3621. format 3@ "Значение должно быть в диапазоне от 1 до 311 и не должно быть основным скином!"
  3622. call @garner4_17369 1 3@
  3623. free 3@
  3624. goto @garner2_14287
  3625.  
  3626. :garner2_14087
  3627. 0AF1: write_int 7@ to_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "tempskin"
  3628. 0BFC: set_global_var "tempskin" = 7@
  3629. 9@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  3630. say "/skin %i %i" 9@ 7@
  3631. alloc 3@ 128
  3632. 0C11: memset destination 3@ value 0 size 128
  3633. format 3@ "Временный скин изменен на: %i." 7@
  3634. call @garner4_17369 1 3@
  3635. free 3@
  3636. if
  3637. 0C5D: samp textdraw 420 is_exists
  3638. jf @garner2_14287
  3639. 0C5E: samp textdraw 420 delete
  3640.  
  3641. :garner2_14287
  3642. if
  3643. 2@ == 121
  3644. jf @garner2_14612
  3645. alloc 5@ 6
  3646. 0C11: memset destination 5@ value 0 size 6
  3647. Dialog.GetControlText(0@, 119, 5@)
  3648. 0AD4: 6@ = scan_string 5@ format "%i" 7@
  3649. free 5@
  3650. if and
  3651. 7@ >= 0
  3652. not 7@ > 311
  3653. not 7@ == 74
  3654. jf @garner2_14471
  3655. 0C48: samp textdraw 420 create "Skin" pos 450.0 175.0
  3656. 0C49: samp textdraw 420 set_box 1 color -1 size 105.0 105.0
  3657. 0C4C: samp textdraw 420 set_style 5
  3658. 0C4F: samp textdraw 420 set_model 7@ rotation 0.0 0.0 0.0 zoom 0.9 veh_color 1 1
  3659. goto @garner2_14612
  3660.  
  3661. :garner2_14471
  3662. alloc 3@ 128
  3663. 0C11: memset destination 3@ value 0 size 128
  3664. format 3@ "Некорректное значение ID скина!"
  3665. call @garner4_17369 1 3@
  3666. format 3@ "Значение должно быть в диапазоне от 0 до 311."
  3667. call @garner4_17369 1 3@
  3668. free 3@
  3669.  
  3670. :garner2_14612
  3671. if
  3672. 2@ == 137
  3673. jf @garner2_14755
  3674. alloc 31@ 128
  3675. 0C11: memset destination 31@ value 0 size 128
  3676. if
  3677. call @garner4_15910 1 31@ 31@
  3678. jf @garner2_14697
  3679. Dialog.SetVisible(0@, 0)
  3680. gosub @garner4_19894
  3681. goto @garner2_14743
  3682.  
  3683. :garner2_14697
  3684. format 31@ "Доступных обновлений нет."
  3685. call @garner4_17369 1 31@
  3686.  
  3687. :garner2_14743
  3688. free 31@
  3689. Dialog.SetVisible(0@, 1)
  3690.  
  3691. :garner2_14755
  3692. if
  3693. 2@ == 147
  3694. jf @garner2_21588
  3695. if
  3696. 20@ > 0
  3697. jf @garner2_21513
  3698. alloc 11@ 64
  3699. alloc 12@ 64
  3700. alloc 13@ 64
  3701. 0C11: memset destination 11@ value 0 size 64
  3702. 0C11: memset destination 12@ value 0 size 64
  3703. 0C11: memset destination 13@ value 0 size 64
  3704. Dialog.GetControlText(0@, 142, 11@)
  3705. Dialog.GetControlText(0@, 144, 12@)
  3706. Dialog.GetControlText(0@, 146, 13@)
  3707. 0C17: 14@ = strlen 11@
  3708. 0C17: 15@ = strlen 12@
  3709. 0C17: 17@ = strlen 13@
  3710. if and
  3711. 14@ > 0
  3712. 15@ > 0
  3713. not 20@ == 101
  3714. not 20@ == 102
  3715. jf @garner2_19345
  3716. 0AF5: write_string 11@ to_ini_file "cleo\AdminTools\config.ini" section "mp" key "sponsori"
  3717. 0AF5: write_string 12@ to_ini_file "cleo\AdminTools\config.ini" section "mp" key "priz"
  3718. if and
  3719. Dialog.CheckBoxIsChecked(0@, 140)
  3720. not 17@ > 0
  3721. jf @garner2_15134
  3722. alloc 3@ 128
  3723. 0C11: memset destination 3@ value 0 size 128
  3724. format 3@ "Введите ник победителя!"
  3725. call @garner4_17369 1 3@
  3726. free 3@
  3727. free 11@
  3728. free 12@
  3729. free 13@
  3730.  
  3731. :garner2_15134
  3732. 0AF0: 9@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "mp" key "nomer"
  3733. if
  3734. not 9@ == -1
  3735. jf @garner2_15212
  3736. 0C1F: 5@ = string_array 10@ element 9@ size 60
  3737.  
  3738. :garner2_15212
  3739. if
  3740. 20@ == 103
  3741. jf @garner2_16164
  3742. Dialog.SetVisible(0@, 0)
  3743. alloc 22@ 500
  3744. alloc 23@ 128
  3745. 0C11: memset destination 22@ value 0 size 500
  3746. 0C11: memset destination 23@ value 0 size 128
  3747. format 22@ "{FFFFFF}Будет объявлена следующая новость:%c%c" 10 10
  3748. format 23@ "{FFD700}Уважаемые игроки! Сейчас пройдет мероприятие \"%s\".%c" 5@ 10
  3749. 0C15: strcat destination 22@ source 23@
  3750. format 23@ "Желающие попасть на мероприятие - введите команду /tp.%c" 10
  3751. 0C15: strcat destination 22@ source 23@
  3752. format 23@ "Приз: %s. Спонсор(-ы) мероприятия: %s.%c%c{FFFFFF}Продолжить?" 12@ 11@ 10 10
  3753. 0C15: strcat destination 22@ source 23@
  3754. 7@ = 700
  3755. 7@ += 2
  3756. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 22@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  3757. free 22@
  3758. free 23@
  3759.  
  3760. :garner2_15639
  3761. SAMP.IsDialogActive(7@)
  3762. jf @garner2_16130
  3763. wait 0
  3764. if
  3765. SAMP.DialogRespond(7@, 1@, 0, 0)
  3766. jf @garner2_16123
  3767. if
  3768. 1@ == 1
  3769. jf @garner2_16023
  3770. alloc 22@ 128
  3771. alloc 23@ 128
  3772. alloc 24@ 128
  3773. 0C11: memset destination 22@ value 0 size 128
  3774. 0C11: memset destination 23@ value 0 size 128
  3775. 0C11: memset destination 24@ value 0 size 128
  3776. format 22@ "Уважаемые игроки! Сейчас пройдет мероприятие \"%s\"." 5@
  3777. format 23@ "Желающие попасть на мероприятие - введите команду /tp."
  3778. format 24@ "Приз: %s. Спонсор(-ы) мероприятия: %s." 12@ 11@
  3779. SAMP.ToggleCursor(0)
  3780. say "/msg %s" 22@
  3781. wait 1000
  3782. say "/msg %s" 23@
  3783. wait 1000
  3784. say "/msg %s" 24@
  3785. free 22@
  3786. free 23@
  3787. free 24@
  3788. free 10@
  3789. Dialog.Free(0@)
  3790. 0@ = 0
  3791. goto @garner2_16116
  3792.  
  3793. :garner2_16023
  3794. Dialog.SetVisible(0@, 1)
  3795. alloc 3@ 128
  3796. 0C11: memset destination 3@ value 0 size 128
  3797. format 3@ "Объявление новости о мероприятии отменено."
  3798. call @garner4_17369 1 3@
  3799. free 3@
  3800.  
  3801. :garner2_16116
  3802. goto @garner2_16130
  3803.  
  3804. :garner2_16123
  3805. goto @garner2_15639
  3806.  
  3807. :garner2_16130
  3808. free 11@
  3809. free 12@
  3810. free 13@
  3811. free 18@
  3812. 20@ = 0
  3813. 21@ = 0
  3814.  
  3815. :garner2_16164
  3816. if and
  3817. 20@ == 201
  3818. 17@ > 0
  3819. jf @garner2_17114
  3820. Dialog.SetVisible(0@, 0)
  3821. alloc 22@ 500
  3822. alloc 23@ 128
  3823. 0C11: memset destination 22@ value 0 size 500
  3824. 0C11: memset destination 23@ value 0 size 128
  3825. format 22@ "{FFFFFF}Будет объявлена следующая новость:%c%c" 10 10
  3826. format 23@ "{FFD700}Уважаемые игроки! Мероприятие \"%s\" окончено.%c" 5@ 10
  3827. 0C15: strcat destination 22@ source 23@
  3828. format 23@ "Победитель: %s. Он получает приз: %s.%c" 13@ 12@ 10
  3829. 0C15: strcat destination 22@ source 23@
  3830. format 23@ "Спонсор(-ы) мероприятия: %s. Всем спасибо за участие!%c%c{FFFFFF}Продолжить?" 11@ 10 10
  3831. 0C15: strcat destination 22@ source 23@
  3832. 7@ = 700
  3833. 7@ += 3
  3834. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 22@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  3835. free 22@
  3836. free 23@
  3837.  
  3838. :garner2_16594
  3839. SAMP.IsDialogActive(7@)
  3840. jf @garner2_17080
  3841. wait 0
  3842. if
  3843. SAMP.DialogRespond(7@, 1@, 0, 0)
  3844. jf @garner2_17073
  3845. if
  3846. 1@ == 1
  3847. jf @garner2_16973
  3848. SAMP.ToggleCursor(0)
  3849. alloc 22@ 128
  3850. alloc 23@ 128
  3851. alloc 24@ 128
  3852. 0C11: memset destination 22@ value 0 size 128
  3853. 0C11: memset destination 23@ value 0 size 128
  3854. 0C11: memset destination 24@ value 0 size 128
  3855. format 22@ "Уважаемые игроки! Мероприятие \"%s\" окончено." 5@
  3856. format 23@ "Победитель: %s. Он получает приз: %s." 13@ 12@
  3857. format 24@ "Спонсор(-ы) мероприятия: %s. Всем спасибо за участие!" 11@
  3858. say "/msg %s" 22@
  3859. wait 1000
  3860. say "/msg %s" 23@
  3861. wait 1000
  3862. say "/msg %s" 24@
  3863. free 22@
  3864. free 23@
  3865. free 24@
  3866. free 10@
  3867. Dialog.Free(0@)
  3868. 0@ = 0
  3869. goto @garner2_17066
  3870.  
  3871. :garner2_16973
  3872. Dialog.SetVisible(0@, 1)
  3873. alloc 3@ 128
  3874. 0C11: memset destination 3@ value 0 size 128
  3875. format 3@ "Объявление новости о мероприятии отменено."
  3876. call @garner4_17369 1 3@
  3877. free 3@
  3878.  
  3879. :garner2_17066
  3880. goto @garner2_17080
  3881.  
  3882. :garner2_17073
  3883. goto @garner2_16594
  3884.  
  3885. :garner2_17080
  3886. free 11@
  3887. free 12@
  3888. free 13@
  3889. free 18@
  3890. 20@ = 0
  3891. 21@ = 0
  3892.  
  3893. :garner2_17114
  3894. if
  3895. 20@ == 100
  3896. jf @garner2_18366
  3897. alloc 18@ 64
  3898. 0C11: memset destination 18@ value 0 size 64
  3899. Dialog.GetControlText(0@, 162, 18@)
  3900. 0C17: 19@ = strlen 18@
  3901. if
  3902. 19@ > 0
  3903. jf @garner2_18273
  3904. 0AF5: write_string 18@ to_ini_file "cleo\AdminTools\config.ini" section "mp" key "car-color-and-model"
  3905. Dialog.SetVisible(0@, 0)
  3906. alloc 3@ 128
  3907. 0C11: memset destination 3@ value 0 size 128
  3908. 0AF4: 3@ = read_string_from_ini_file "cleo\AdminTools\config.ini" section "mp" key "gorod"
  3909. alloc 22@ 500
  3910. alloc 23@ 128
  3911. 0C11: memset destination 22@ value 0 size 500
  3912. 0C11: memset destination 23@ value 0 size 128
  3913. format 22@ "{FFFFFF}Будет объявлена следующая новость:%c%c" 10 10
  3914. format 23@ "{FFD700}Уважаемые игроки! Мы начинаем мероприятие \"Догони и передай\".%c" 10
  3915. 0C15: strcat destination 22@ source 23@
  3916. format 23@ "Сейчас по г. %s катаются %s %s.%c" 3@ 11@ 18@ 10
  3917. 0C15: strcat destination 22@ source 23@
  3918. format 23@ "Их нужно найти, догнать и передать 1$. Приз: %s. Удачи! :)%c%c{FFFFFF}Продолжить?" 12@ 10 10
  3919. 0C15: strcat destination 22@ source 23@
  3920. 7@ = 700
  3921. 7@ += 4
  3922. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 22@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  3923. free 22@
  3924. free 23@
  3925.  
  3926. :garner2_17725
  3927. SAMP.IsDialogActive(7@)
  3928. jf @garner2_18227
  3929. wait 0
  3930. if
  3931. SAMP.DialogRespond(7@, 4@, 0, 0)
  3932. jf @garner2_18220
  3933. if
  3934. 4@ == 1
  3935. jf @garner2_18120
  3936. alloc 22@ 128
  3937. alloc 23@ 128
  3938. alloc 24@ 128
  3939. 0C11: memset destination 22@ value 0 size 128
  3940. 0C11: memset destination 23@ value 0 size 128
  3941. 0C11: memset destination 24@ value 0 size 128
  3942. format 22@ "Уважаемые игроки! Мы начинаем мероприятие \"Догони и передай\"."
  3943. format 23@ "Сейчас по г. %s катаются %s %s." 3@ 11@ 18@
  3944. format 24@ "Их нужно найти, догнать и передать 1$. Приз: %s. Удачи! :)" 12@
  3945. SAMP.ToggleCursor(0)
  3946. say "/msg %s" 22@
  3947. wait 1000
  3948. say "/msg %s" 23@
  3949. wait 1000
  3950. say "/msg %s" 24@
  3951. free 22@
  3952. free 23@
  3953. free 24@
  3954. free 10@
  3955. Dialog.Free(0@)
  3956. 0@ = 0
  3957. goto @garner2_18213
  3958.  
  3959. :garner2_18120
  3960. Dialog.SetVisible(0@, 1)
  3961. alloc 3@ 128
  3962. 0C11: memset destination 3@ value 0 size 128
  3963. format 3@ "Объявление новости о мероприятии отменено."
  3964. call @garner4_17369 1 3@
  3965. free 3@
  3966.  
  3967. :garner2_18213
  3968. goto @garner2_18227
  3969.  
  3970. :garner2_18220
  3971. goto @garner2_17725
  3972.  
  3973. :garner2_18227
  3974. free 3@
  3975. free 11@
  3976. free 12@
  3977. free 13@
  3978. free 18@
  3979. 20@ = 0
  3980. 21@ = 0
  3981. goto @garner2_18366
  3982.  
  3983. :garner2_18273
  3984. alloc 3@ 128
  3985. 0C11: memset destination 3@ value 0 size 128
  3986. format 3@ "Введите цвет и модель машины!"
  3987. call @garner4_17369 1 3@
  3988. free 3@
  3989. free 11@
  3990. free 12@
  3991. free 13@
  3992. free 18@
  3993.  
  3994. :garner2_18366
  3995. if and
  3996. 20@ == 200
  3997. 17@ > 0
  3998. jf @garner2_19338
  3999. Dialog.SetVisible(0@, 0)
  4000. alloc 22@ 500
  4001. alloc 23@ 128
  4002. 0C11: memset destination 22@ value 0 size 500
  4003. 0C11: memset destination 23@ value 0 size 128
  4004. format 22@ "{FFFFFF}Будет объявлена следующая новость:%c%c" 10 10
  4005. format 23@ "{FFD700}Уважаемые игроки! Мероприятие \"Догони и передай\" окончено.%c" 10
  4006. 0C15: strcat destination 22@ source 23@
  4007. format 23@ "Победитель: %s. Он получает приз: %s.%c" 13@ 12@ 10
  4008. 0C15: strcat destination 22@ source 23@
  4009. format 23@ "Спонсор(-ы) мероприятия: %s. Всем спасибо за участие!%c%c{FFFFFF}Продолжить?" 11@ 10 10
  4010. 0C15: strcat destination 22@ source 23@
  4011. 7@ = 700
  4012. 7@ += 5
  4013. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 22@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  4014. free 22@
  4015. free 23@
  4016.  
  4017. :garner2_18807
  4018. SAMP.IsDialogActive(7@)
  4019. jf @garner2_19304
  4020. wait 0
  4021. if
  4022. SAMP.DialogRespond(7@, 4@, 0, 0)
  4023. jf @garner2_19297
  4024. if
  4025. 4@ == 1
  4026. jf @garner2_19197
  4027. SAMP.ToggleCursor(0)
  4028. alloc 22@ 128
  4029. alloc 23@ 128
  4030. alloc 24@ 128
  4031. 0C11: memset destination 22@ value 0 size 128
  4032. 0C11: memset destination 23@ value 0 size 128
  4033. 0C11: memset destination 24@ value 0 size 128
  4034. format 22@ "Уважаемые игроки! Мероприятие \"Догони и передай\" окончено."
  4035. format 23@ "Победитель: %s. Он получает приз: %s." 13@ 12@
  4036. format 24@ "Спонсор(-ы) мероприятия: %s. Всем спасибо за участие!" 11@
  4037. say "/msg %s" 22@
  4038. wait 1000
  4039. say "/msg %s" 23@
  4040. wait 1000
  4041. say "/msg %s" 24@
  4042. free 22@
  4043. free 23@
  4044. free 24@
  4045. free 10@
  4046. Dialog.Free(0@)
  4047. 0@ = 0
  4048. goto @garner2_19290
  4049.  
  4050. :garner2_19197
  4051. Dialog.SetVisible(0@, 1)
  4052. alloc 3@ 128
  4053. 0C11: memset destination 3@ value 0 size 128
  4054. format 3@ "Объявление новости о мероприятии отменено."
  4055. call @garner4_17369 1 3@
  4056. free 3@
  4057.  
  4058. :garner2_19290
  4059. goto @garner2_19304
  4060.  
  4061. :garner2_19297
  4062. goto @garner2_18807
  4063.  
  4064. :garner2_19304
  4065. free 11@
  4066. free 12@
  4067. free 13@
  4068. free 18@
  4069. 20@ = 0
  4070. 21@ = 0
  4071.  
  4072. :garner2_19338
  4073. goto @garner2_21506
  4074.  
  4075. :garner2_19345
  4076. if or
  4077. 20@ == 101
  4078. 20@ == 102
  4079. jf @garner2_21422
  4080. if
  4081. 20@ == 101
  4082. jf @garner2_20401
  4083. Dialog.SetVisible(0@, 0)
  4084. alloc 22@ 500
  4085. alloc 23@ 128
  4086. 0C11: memset destination 22@ value 0 size 500
  4087. 0C11: memset destination 23@ value 0 size 128
  4088. format 22@ "{FFFFFF}Будет объявлена следующая новость:%c%c" 10 10
  4089. format 23@ "{FFD700}Уважаемые игроки! Сейчас пройдет мероприятие \"Казаки-разбойники\".%c" 10
  4090. 0C15: strcat destination 22@ source 23@
  4091. format 23@ "Желающие принять участие в мероприятии - прописывайте команду /tp.%c" 10
  4092. 0C15: strcat destination 22@ source 23@
  4093. format 23@ "Требования: 5 уровень и иметь при себе 1500$. Приятной игры! :)%c%c{FFFFFF}Продолжить?" 10 10
  4094. 0C15: strcat destination 22@ source 23@
  4095. 7@ = 700
  4096. 7@ += 6
  4097. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 22@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  4098. free 22@
  4099. free 23@
  4100.  
  4101. :garner2_19840
  4102. SAMP.IsDialogActive(7@)
  4103. jf @garner2_20367
  4104. wait 0
  4105. if
  4106. SAMP.DialogRespond(7@, 4@, 0, 0)
  4107. jf @garner2_20360
  4108. if
  4109. 4@ == 1
  4110. jf @garner2_20267
  4111. SAMP.ToggleCursor(0)
  4112. alloc 22@ 128
  4113. alloc 23@ 128
  4114. alloc 24@ 128
  4115. 0C11: memset destination 22@ value 0 size 128
  4116. 0C11: memset destination 23@ value 0 size 128
  4117. 0C11: memset destination 24@ value 0 size 128
  4118. format 22@ "Уважаемые игроки! Сейчас пройдет мероприятие \"Казаки-разбойники\"."
  4119. format 23@ "Желающие принять участие в мероприятии - прописывайте команду /tp."
  4120. format 24@ "Требования: 5 уровень и иметь при себе 1500$. Приятной игры! :)"
  4121. say "/msg %s" 22@
  4122. wait 1000
  4123. say "/msg %s" 23@
  4124. wait 1000
  4125. say "/msg %s" 24@
  4126. free 22@
  4127. free 23@
  4128. free 24@
  4129. free 10@
  4130. Dialog.Free(0@)
  4131. 0@ = 0
  4132. goto @garner2_20360
  4133.  
  4134. :garner2_20267
  4135. Dialog.SetVisible(0@, 1)
  4136. alloc 3@ 128
  4137. 0C11: memset destination 3@ value 0 size 128
  4138. format 3@ "Объявление новости о мероприятии отменено."
  4139. call @garner4_17369 1 3@
  4140. free 3@
  4141.  
  4142. :garner2_20360
  4143. goto @garner2_19840
  4144.  
  4145. :garner2_20367
  4146. free 11@
  4147. free 12@
  4148. free 13@
  4149. free 18@
  4150. 20@ = 0
  4151. 21@ = 0
  4152.  
  4153. :garner2_20401
  4154. if
  4155. 20@ == 102
  4156. jf @garner2_21415
  4157. Dialog.SetVisible(0@, 0)
  4158. alloc 22@ 500
  4159. alloc 23@ 128
  4160. 0C11: memset destination 22@ value 0 size 500
  4161. 0C11: memset destination 23@ value 0 size 128
  4162. format 22@ "{FFFFFF}Будет объявлена следующая новость:%c%c" 10 10
  4163. format 23@ "{FFD700}Уважаемые игроки! Сейчас пройдет мероприятие \"Гонки\".%c" 10
  4164. 0C15: strcat destination 22@ source 23@
  4165. format 23@ "Желающие принять участие в мероприятии - прописывайте команду /tp.%c" 10
  4166. 0C15: strcat destination 22@ source 23@
  4167. format 23@ "Требования: 4 уровень и иметь при себе 1000$. Приятной игры! :)%c%c{FFFFFF}Продолжить?" 10 10
  4168. 0C15: strcat destination 22@ source 23@
  4169. 7@ = 700
  4170. 7@ += 7
  4171. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 22@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  4172. free 22@
  4173. free 23@
  4174.  
  4175. :garner2_20859
  4176. SAMP.IsDialogActive(7@)
  4177. jf @garner2_21381
  4178. wait 0
  4179. if
  4180. SAMP.DialogRespond(7@, 4@, 0, 0)
  4181. jf @garner2_21374
  4182. if
  4183. 4@ == 1
  4184. jf @garner2_21274
  4185. SAMP.ToggleCursor(0)
  4186. alloc 22@ 128
  4187. alloc 23@ 128
  4188. alloc 24@ 128
  4189. 0C11: memset destination 22@ value 0 size 128
  4190. 0C11: memset destination 23@ value 0 size 128
  4191. 0C11: memset destination 24@ value 0 size 128
  4192. format 22@ "Уважаемые игроки! Сейчас пройдет мероприятие \"Гонки\"."
  4193. format 23@ "Желающие принять участие в мероприятии - прописывайте команду /tp."
  4194. format 24@ "Требования: 4 уровень и иметь при себе 1000$. Приятной игры! :)"
  4195. say "/msg %s" 22@
  4196. wait 1000
  4197. say "/msg %s" 23@
  4198. wait 1000
  4199. say "/msg %s" 24@
  4200. free 22@
  4201. free 23@
  4202. free 24@
  4203. free 10@
  4204. Dialog.Free(0@)
  4205. 0@ = 0
  4206. goto @garner2_21367
  4207.  
  4208. :garner2_21274
  4209. Dialog.SetVisible(0@, 1)
  4210. alloc 3@ 128
  4211. 0C11: memset destination 3@ value 0 size 128
  4212. format 3@ "Объявление новости о мероприятии отменено."
  4213. call @garner4_17369 1 3@
  4214. free 3@
  4215.  
  4216. :garner2_21367
  4217. goto @garner2_21381
  4218.  
  4219. :garner2_21374
  4220. goto @garner2_20859
  4221.  
  4222. :garner2_21381
  4223. free 11@
  4224. free 12@
  4225. free 13@
  4226. free 18@
  4227. 20@ = 0
  4228. 21@ = 0
  4229.  
  4230. :garner2_21415
  4231. goto @garner2_21506
  4232.  
  4233. :garner2_21422
  4234. alloc 3@ 128
  4235. 0C11: memset destination 3@ value 0 size 128
  4236. format 3@ "Введены не все параметры!"
  4237. call @garner4_17369 1 3@
  4238. free 3@
  4239. free 11@
  4240. free 12@
  4241. free 13@
  4242.  
  4243. :garner2_21506
  4244. goto @garner2_21588
  4245.  
  4246. :garner2_21513
  4247. alloc 3@ 128
  4248. 0C11: memset destination 3@ value 0 size 128
  4249. format 3@ "Выберите мероприятие из списка!"
  4250. call @garner4_17369 1 3@
  4251. free 3@
  4252.  
  4253. :garner2_21588
  4254. if
  4255. 2@ == 148
  4256. jf @garner2_21644
  4257. Dialog.Free(0@)
  4258. SAMP.ToggleCursor(0)
  4259. if
  4260. 0C5D: samp textdraw 420 is_exists
  4261. jf @garner2_21637
  4262. 0C5E: samp textdraw 420 delete
  4263.  
  4264. :garner2_21637
  4265. 0@ = 0
  4266.  
  4267. :garner2_21644
  4268. if
  4269. 2@ == 164
  4270. jf @garner2_21959
  4271. Dialog.SetVisible(0@, 0)
  4272. alloc 3@ 128
  4273. 0C11: memset destination 3@ value 0 size 128
  4274. format 3@ "Нажмите ЛКМ для применения позиции."
  4275. call @garner4_17369 1 3@
  4276. free 3@
  4277.  
  4278. :garner2_21749
  4279. wait 0
  4280. 0B5E: get_cursor_pos 1@ 2@
  4281. 0B5F: convert_window_screen_coords 1@ 2@ to_game_screen_coords 3@ 4@
  4282. 0AF3: write_float 3@ to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "x-pos"
  4283. 0AF3: write_float 4@ to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "y-pos"
  4284. 0092: 2@ = float 3@ to_integer
  4285. 0BFC: set_global_var "PIP_X_POS" = 2@
  4286. 0092: 2@ = float 4@ to_integer
  4287. 0BFC: set_global_var "PIP_Y_POS" = 2@
  4288. key_down 1
  4289. jf @garner2_21749
  4290. Dialog.SetVisible(0@, 1)
  4291.  
  4292. :garner2_21959
  4293. if
  4294. 2@ == 165
  4295. jf @garner2_22131
  4296. 0AF3: write_float 5.0 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "x-pos"
  4297. 0AF3: write_float 183.0 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "y-pos"
  4298. 0BFC: set_global_var "PIP_X_POS" = 5
  4299. 0BFC: set_global_var "PIP_Y_POS" = 183
  4300.  
  4301. :garner2_22131
  4302. if
  4303. 2@ == 170
  4304. jf @garner2_22386
  4305. Dialog.SetVisible(0@, 0)
  4306. alloc 2@ 200
  4307. 0C11: memset destination 2@ value 0 size 200
  4308. format 2@ "Нажмите на клавишу для назначения."
  4309. call @garner4_17369 1 2@
  4310. free 2@
  4311.  
  4312. :garner2_22235
  4313. wait 0
  4314. 2@ = 0
  4315.  
  4316. :garner2_22246
  4317. if
  4318. key_down 2@
  4319. jf @garner2_22340
  4320. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "other" key "menu-on-key"
  4321. 0BFC: set_global_var "menu-on-key" = 2@
  4322. goto @garner2_22362
  4323.  
  4324. :garner2_22340
  4325. 2@ += 1
  4326. 2@ > 222
  4327. jf @garner2_22246
  4328.  
  4329. :garner2_22362
  4330. key_down 2@
  4331. jf @garner2_22235
  4332. Dialog.SetVisible(0@, 1)
  4333. wait 300
  4334.  
  4335. :garner2_22386
  4336. if
  4337. 2@ == 176
  4338. jf @garner2_22647
  4339. Dialog.SetVisible(0@, 0)
  4340. alloc 2@ 200
  4341. 0C11: memset destination 2@ value 0 size 200
  4342. format 2@ "Нажмите на клавишу для назначения."
  4343. call @garner4_17369 1 2@
  4344. free 2@
  4345.  
  4346. :garner2_22490
  4347. wait 0
  4348. 2@ = 0
  4349.  
  4350. :garner2_22501
  4351. if
  4352. key_down 2@
  4353. jf @garner2_22601
  4354. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "other" key "confirm-on-key"
  4355. 0BFC: set_global_var "confirm-on-key" = 2@
  4356. goto @garner2_22623
  4357.  
  4358. :garner2_22601
  4359. 2@ += 1
  4360. 2@ > 222
  4361. jf @garner2_22501
  4362.  
  4363. :garner2_22623
  4364. key_down 2@
  4365. jf @garner2_22490
  4366. Dialog.SetVisible(0@, 1)
  4367. wait 300
  4368.  
  4369. :garner2_22647
  4370. if
  4371. 2@ == 202
  4372. jf @garner2_22908
  4373. Dialog.SetVisible(0@, 0)
  4374. alloc 2@ 200
  4375. 0C11: memset destination 2@ value 0 size 200
  4376. format 2@ "Нажмите на клавишу для назначения."
  4377. call @garner4_17369 1 2@
  4378. free 2@
  4379.  
  4380. :garner2_22751
  4381. wait 0
  4382. 2@ = 0
  4383.  
  4384. :garner2_22762
  4385. if
  4386. key_down 2@
  4387. jf @garner2_22862
  4388. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "other" key "prev-id-on-key"
  4389. 0BFC: set_global_var "prev-id-on-key" = 2@
  4390. goto @garner2_22884
  4391.  
  4392. :garner2_22862
  4393. 2@ += 1
  4394. 2@ > 222
  4395. jf @garner2_22762
  4396.  
  4397. :garner2_22884
  4398. key_down 2@
  4399. jf @garner2_22751
  4400. Dialog.SetVisible(0@, 1)
  4401. wait 300
  4402.  
  4403. :garner2_22908
  4404. if
  4405. 2@ == 203
  4406. jf @garner2_23169
  4407. Dialog.SetVisible(0@, 0)
  4408. alloc 2@ 200
  4409. 0C11: memset destination 2@ value 0 size 200
  4410. format 2@ "Нажмите на клавишу для назначения."
  4411. call @garner4_17369 1 2@
  4412. free 2@
  4413.  
  4414. :garner2_23012
  4415. wait 0
  4416. 2@ = 0
  4417.  
  4418. :garner2_23023
  4419. if
  4420. key_down 2@
  4421. jf @garner2_23123
  4422. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "other" key "next-id-on-key"
  4423. 0BFC: set_global_var "next-id-on-key" = 2@
  4424. goto @garner2_23145
  4425.  
  4426. :garner2_23123
  4427. 2@ += 1
  4428. 2@ > 222
  4429. jf @garner2_23023
  4430.  
  4431. :garner2_23145
  4432. key_down 2@
  4433. jf @garner2_23012
  4434. Dialog.SetVisible(0@, 1)
  4435. wait 300
  4436.  
  4437. :garner2_23169
  4438. if
  4439. 2@ == 171
  4440. jf @garner2_24199
  4441. Dialog.SetVisible(0@, 0)
  4442. alloc 1@ 64
  4443. format 1@ "Одна клавиша%cДве клавиши" 10
  4444. SAMP.ShowDialog(700, "Количество клавиш", 1@, "Выбрать", "Отмена", DIALOG_STYLE_LIST)
  4445. free 1@
  4446.  
  4447. :garner2_23288
  4448. wait 0
  4449. SAMP.DialogRespond(700, 1@, 2@, 0)
  4450. jf @garner2_23288
  4451. if
  4452. 1@ == 1
  4453. jf @garner2_24188
  4454. if
  4455. 2@ == 0
  4456. jf @garner2_23672
  4457. alloc 2@ 200
  4458. 0C11: memset destination 2@ value 0 size 200
  4459. format 2@ "Нажмите на клавишу для назначения."
  4460. call @garner4_17369 1 2@
  4461. free 2@
  4462. wait 100
  4463.  
  4464. :garner2_23430
  4465. wait 0
  4466. 2@ = 0
  4467.  
  4468. :garner2_23441
  4469. if
  4470. key_down 2@
  4471. jf @garner2_23626
  4472. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key1"
  4473. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key2"
  4474. 0BFC: set_global_var "checker-on-key1" = 2@
  4475. 0BFC: set_global_var "checker-on-key2" = 0
  4476. goto @garner2_23648
  4477.  
  4478. :garner2_23626
  4479. 2@ += 1
  4480. 2@ > 222
  4481. jf @garner2_23441
  4482.  
  4483. :garner2_23648
  4484. key_down 2@
  4485. jf @garner2_23430
  4486. Dialog.SetVisible(0@, 1)
  4487. wait 300
  4488.  
  4489. :garner2_23672
  4490. if
  4491. 2@ == 1
  4492. jf @garner2_24181
  4493. alloc 2@ 200
  4494. 0C11: memset destination 2@ value 0 size 200
  4495. format 2@ "Нажмите на первую клавишу для назначения."
  4496. call @garner4_17369 1 2@
  4497. free 2@
  4498. wait 300
  4499.  
  4500. :garner2_23780
  4501. wait 0
  4502. 2@ = 0
  4503.  
  4504. :garner2_23791
  4505. if
  4506. key_down 2@
  4507. jf @garner2_23896
  4508. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key1"
  4509. 0BFC: set_global_var "checker-on-key1" = 2@
  4510. goto @garner2_23918
  4511.  
  4512. :garner2_23896
  4513. 2@ += 1
  4514. 2@ > 222
  4515. jf @garner2_23791
  4516.  
  4517. :garner2_23918
  4518. key_down 2@
  4519. jf @garner2_23780
  4520. alloc 2@ 200
  4521. 0C11: memset destination 2@ value 0 size 200
  4522. format 2@ "Нажмите на вторую клавишу для назначения."
  4523. call @garner4_17369 1 2@
  4524. free 2@
  4525. wait 300
  4526.  
  4527. :garner2_24020
  4528. wait 0
  4529. 2@ = 0
  4530.  
  4531. :garner2_24031
  4532. if
  4533. key_down 2@
  4534. jf @garner2_24136
  4535. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key2"
  4536. 0BFC: set_global_var "checker-on-key2" = 2@
  4537. goto @garner2_24158
  4538.  
  4539. :garner2_24136
  4540. 2@ += 1
  4541. 2@ > 222
  4542. jf @garner2_24031
  4543.  
  4544. :garner2_24158
  4545. key_down 2@
  4546. jf @garner2_24020
  4547. Dialog.SetVisible(0@, 1)
  4548. SAMP.ToggleCursor(1)
  4549.  
  4550. :garner2_24181
  4551. goto @garner2_24199
  4552.  
  4553. :garner2_24188
  4554. Dialog.SetVisible(0@, 1)
  4555. SAMP.ToggleCursor(1)
  4556.  
  4557. :garner2_24199
  4558. if
  4559. 2@ == 172
  4560. jf @garner2_25249
  4561. Dialog.SetVisible(0@, 0)
  4562. alloc 1@ 64
  4563. format 1@ "Одна клавиша%cДве клавиши" 10
  4564. SAMP.ShowDialog(700, "Количество клавиш", 1@, "Выбрать", "Отмена", DIALOG_STYLE_LIST)
  4565. free 1@
  4566.  
  4567. :garner2_24318
  4568. wait 0
  4569. SAMP.DialogRespond(700, 1@, 2@, 0)
  4570. jf @garner2_24318
  4571. if
  4572. 1@ == 1
  4573. jf @garner2_25238
  4574. if
  4575. 2@ == 0
  4576. jf @garner2_24712
  4577. alloc 2@ 200
  4578. 0C11: memset destination 2@ value 0 size 200
  4579. format 2@ "Нажмите на клавишу для назначения."
  4580. call @garner4_17369 1 2@
  4581. free 2@
  4582. wait 100
  4583.  
  4584. :garner2_24460
  4585. wait 0
  4586. 2@ = 0
  4587.  
  4588. :garner2_24471
  4589. if
  4590. key_down 2@
  4591. jf @garner2_24666
  4592. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key1"
  4593. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key2"
  4594. 0BFC: set_global_var "reconnect-on-key1" = 2@
  4595. 0BFC: set_global_var "reconnect-on-key2" = 0
  4596. goto @garner2_24688
  4597.  
  4598. :garner2_24666
  4599. 2@ += 1
  4600. 2@ > 222
  4601. jf @garner2_24471
  4602.  
  4603. :garner2_24688
  4604. key_down 2@
  4605. jf @garner2_24460
  4606. Dialog.SetVisible(0@, 1)
  4607. wait 300
  4608.  
  4609. :garner2_24712
  4610. if
  4611. 2@ == 1
  4612. jf @garner2_25231
  4613. alloc 2@ 200
  4614. 0C11: memset destination 2@ value 0 size 200
  4615. format 2@ "Нажмите на первую клавишу для назначения."
  4616. call @garner4_17369 1 2@
  4617. free 2@
  4618. wait 300
  4619.  
  4620. :garner2_24820
  4621. wait 0
  4622. 2@ = 0
  4623.  
  4624. :garner2_24831
  4625. if
  4626. key_down 2@
  4627. jf @garner2_24941
  4628. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key1"
  4629. 0BFC: set_global_var "reconnect-on-key1" = 2@
  4630. goto @garner2_24963
  4631.  
  4632. :garner2_24941
  4633. 2@ += 1
  4634. 2@ > 222
  4635. jf @garner2_24831
  4636.  
  4637. :garner2_24963
  4638. key_down 2@
  4639. jf @garner2_24820
  4640. alloc 2@ 200
  4641. 0C11: memset destination 2@ value 0 size 200
  4642. format 2@ "Нажмите на вторую клавишу для назначения."
  4643. call @garner4_17369 1 2@
  4644. free 2@
  4645. wait 300
  4646.  
  4647. :garner2_25065
  4648. wait 0
  4649. 2@ = 0
  4650.  
  4651. :garner2_25076
  4652. if
  4653. key_down 2@
  4654. jf @garner2_25186
  4655. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key2"
  4656. 0BFC: set_global_var "reconnect-on-key2" = 2@
  4657. goto @garner2_25208
  4658.  
  4659. :garner2_25186
  4660. 2@ += 1
  4661. 2@ > 222
  4662. jf @garner2_25076
  4663.  
  4664. :garner2_25208
  4665. key_down 2@
  4666. jf @garner2_25065
  4667. Dialog.SetVisible(0@, 1)
  4668. SAMP.ToggleCursor(1)
  4669.  
  4670. :garner2_25231
  4671. goto @garner2_25249
  4672.  
  4673. :garner2_25238
  4674. Dialog.SetVisible(0@, 1)
  4675. SAMP.ToggleCursor(1)
  4676.  
  4677. :garner2_25249
  4678. if
  4679. 2@ == 173
  4680. jf @garner2_26231
  4681. Dialog.SetVisible(0@, 0)
  4682. alloc 1@ 64
  4683. format 1@ "Одна клавиша%cДве клавиши" 10
  4684. SAMP.ShowDialog(700, "Количество клавиш", 1@, "Выбрать", "Отмена", DIALOG_STYLE_LIST)
  4685. free 1@
  4686.  
  4687. :garner2_25368
  4688. wait 0
  4689. SAMP.DialogRespond(700, 1@, 2@, 0)
  4690. jf @garner2_25368
  4691. if
  4692. 1@ == 1
  4693. jf @garner2_26220
  4694. if
  4695. 2@ == 0
  4696. jf @garner2_25728
  4697. alloc 2@ 200
  4698. 0C11: memset destination 2@ value 0 size 200
  4699. format 2@ "Нажмите на клавишу для назначения."
  4700. call @garner4_17369 1 2@
  4701. free 2@
  4702. wait 100
  4703.  
  4704. :garner2_25510
  4705. wait 0
  4706. 2@ = 0
  4707.  
  4708. :garner2_25521
  4709. if
  4710. key_down 2@
  4711. jf @garner2_25682
  4712. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key1"
  4713. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key2"
  4714. 0BFC: set_global_var "wh-on-key1" = 2@
  4715. 0BFC: set_global_var "wh-on-key2" = 0
  4716. goto @garner2_25704
  4717.  
  4718. :garner2_25682
  4719. 2@ += 1
  4720. 2@ > 222
  4721. jf @garner2_25521
  4722.  
  4723. :garner2_25704
  4724. key_down 2@
  4725. jf @garner2_25510
  4726. Dialog.SetVisible(0@, 1)
  4727. wait 300
  4728.  
  4729. :garner2_25728
  4730. if
  4731. 2@ == 1
  4732. jf @garner2_26213
  4733. alloc 2@ 200
  4734. 0C11: memset destination 2@ value 0 size 200
  4735. format 2@ "Нажмите на первую клавишу для назначения."
  4736. call @garner4_17369 1 2@
  4737. free 2@
  4738. wait 300
  4739.  
  4740. :garner2_25836
  4741. wait 0
  4742. 2@ = 0
  4743.  
  4744. :garner2_25847
  4745. if
  4746. key_down 2@
  4747. jf @garner2_25940
  4748. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key1"
  4749. 0BFC: set_global_var "wh-on-key1" = 2@
  4750. goto @garner2_25962
  4751.  
  4752. :garner2_25940
  4753. 2@ += 1
  4754. 2@ > 222
  4755. jf @garner2_25847
  4756.  
  4757. :garner2_25962
  4758. key_down 2@
  4759. jf @garner2_25836
  4760. alloc 2@ 200
  4761. 0C11: memset destination 2@ value 0 size 200
  4762. format 2@ "Нажмите на вторую клавишу для назначения."
  4763. call @garner4_17369 1 2@
  4764. free 2@
  4765. wait 300
  4766.  
  4767. :garner2_26064
  4768. wait 0
  4769. 2@ = 0
  4770.  
  4771. :garner2_26075
  4772. if
  4773. key_down 2@
  4774. jf @garner2_26168
  4775. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key2"
  4776. 0BFC: set_global_var "wh-on-key2" = 2@
  4777. goto @garner2_26190
  4778.  
  4779. :garner2_26168
  4780. 2@ += 1
  4781. 2@ > 222
  4782. jf @garner2_26075
  4783.  
  4784. :garner2_26190
  4785. key_down 2@
  4786. jf @garner2_26064
  4787. Dialog.SetVisible(0@, 1)
  4788. SAMP.ToggleCursor(1)
  4789.  
  4790. :garner2_26213
  4791. goto @garner2_26231
  4792.  
  4793. :garner2_26220
  4794. Dialog.SetVisible(0@, 1)
  4795. SAMP.ToggleCursor(1)
  4796.  
  4797. :garner2_26231
  4798. if
  4799. 2@ == 174
  4800. jf @garner2_27213
  4801. Dialog.SetVisible(0@, 0)
  4802. alloc 1@ 64
  4803. format 1@ "Одна клавиша%cДве клавиши" 10
  4804. SAMP.ShowDialog(700, "Количество клавиш", 1@, "Выбрать", "Отмена", DIALOG_STYLE_LIST)
  4805. free 1@
  4806.  
  4807. :garner2_26350
  4808. wait 0
  4809. SAMP.DialogRespond(700, 1@, 2@, 0)
  4810. jf @garner2_26350
  4811. if
  4812. 1@ == 1
  4813. jf @garner2_27202
  4814. if
  4815. 2@ == 0
  4816. jf @garner2_26710
  4817. alloc 2@ 200
  4818. 0C11: memset destination 2@ value 0 size 200
  4819. format 2@ "Нажмите на клавишу для назначения."
  4820. call @garner4_17369 1 2@
  4821. free 2@
  4822. wait 100
  4823.  
  4824. :garner2_26492
  4825. wait 0
  4826. 2@ = 0
  4827.  
  4828. :garner2_26503
  4829. if
  4830. key_down 2@
  4831. jf @garner2_26664
  4832. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key1"
  4833. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key2"
  4834. 0BFC: set_global_var "gm-on-key1" = 2@
  4835. 0BFC: set_global_var "gm-on-key2" = 0
  4836. goto @garner2_26686
  4837.  
  4838. :garner2_26664
  4839. 2@ += 1
  4840. 2@ > 222
  4841. jf @garner2_26503
  4842.  
  4843. :garner2_26686
  4844. key_down 2@
  4845. jf @garner2_26492
  4846. Dialog.SetVisible(0@, 1)
  4847. wait 300
  4848.  
  4849. :garner2_26710
  4850. if
  4851. 2@ == 1
  4852. jf @garner2_27195
  4853. alloc 2@ 200
  4854. 0C11: memset destination 2@ value 0 size 200
  4855. format 2@ "Нажмите на первую клавишу для назначения."
  4856. call @garner4_17369 1 2@
  4857. free 2@
  4858. wait 300
  4859.  
  4860. :garner2_26818
  4861. wait 0
  4862. 2@ = 0
  4863.  
  4864. :garner2_26829
  4865. if
  4866. key_down 2@
  4867. jf @garner2_26922
  4868. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key1"
  4869. 0BFC: set_global_var "gm-on-key1" = 2@
  4870. goto @garner2_26944
  4871.  
  4872. :garner2_26922
  4873. 2@ += 1
  4874. 2@ > 222
  4875. jf @garner2_26829
  4876.  
  4877. :garner2_26944
  4878. key_down 2@
  4879. jf @garner2_26818
  4880. alloc 2@ 200
  4881. 0C11: memset destination 2@ value 0 size 200
  4882. format 2@ "Нажмите на вторую клавишу для назначения."
  4883. call @garner4_17369 1 2@
  4884. free 2@
  4885. wait 300
  4886.  
  4887. :garner2_27046
  4888. wait 0
  4889. 2@ = 0
  4890.  
  4891. :garner2_27057
  4892. if
  4893. key_down 2@
  4894. jf @garner2_27150
  4895. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key2"
  4896. 0BFC: set_global_var "gm-on-key2" = 2@
  4897. goto @garner2_27172
  4898.  
  4899. :garner2_27150
  4900. 2@ += 1
  4901. 2@ > 222
  4902. jf @garner2_27057
  4903.  
  4904. :garner2_27172
  4905. key_down 2@
  4906. jf @garner2_27046
  4907. Dialog.SetVisible(0@, 1)
  4908. SAMP.ToggleCursor(1)
  4909.  
  4910. :garner2_27195
  4911. goto @garner2_27213
  4912.  
  4913. :garner2_27202
  4914. Dialog.SetVisible(0@, 1)
  4915. SAMP.ToggleCursor(1)
  4916.  
  4917. :garner2_27213
  4918. if
  4919. 2@ == 175
  4920. jf @garner2_28195
  4921. Dialog.SetVisible(0@, 0)
  4922. alloc 1@ 64
  4923. format 1@ "Одна клавиша%cДве клавиши" 10
  4924. SAMP.ShowDialog(700, "Количество клавиш", 1@, "Выбрать", "Отмена", DIALOG_STYLE_LIST)
  4925. free 1@
  4926.  
  4927. :garner2_27332
  4928. wait 0
  4929. SAMP.DialogRespond(700, 1@, 2@, 0)
  4930. jf @garner2_27332
  4931. if
  4932. 1@ == 1
  4933. jf @garner2_28184
  4934. if
  4935. 2@ == 0
  4936. jf @garner2_27692
  4937. alloc 2@ 200
  4938. 0C11: memset destination 2@ value 0 size 200
  4939. format 2@ "Нажмите на клавишу для назначения."
  4940. call @garner4_17369 1 2@
  4941. free 2@
  4942. wait 100
  4943.  
  4944. :garner2_27474
  4945. wait 0
  4946. 2@ = 0
  4947.  
  4948. :garner2_27485
  4949. if
  4950. key_down 2@
  4951. jf @garner2_27646
  4952. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key1"
  4953. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key2"
  4954. 0BFC: set_global_var "ab-on-key1" = 2@
  4955. 0BFC: set_global_var "ab-on-key2" = 0
  4956. goto @garner2_27668
  4957.  
  4958. :garner2_27646
  4959. 2@ += 1
  4960. 2@ > 222
  4961. jf @garner2_27485
  4962.  
  4963. :garner2_27668
  4964. key_down 2@
  4965. jf @garner2_27474
  4966. Dialog.SetVisible(0@, 1)
  4967. wait 300
  4968.  
  4969. :garner2_27692
  4970. if
  4971. 2@ == 1
  4972. jf @garner2_28177
  4973. alloc 2@ 200
  4974. 0C11: memset destination 2@ value 0 size 200
  4975. format 2@ "Нажмите на первую клавишу для назначения."
  4976. call @garner4_17369 1 2@
  4977. free 2@
  4978. wait 300
  4979.  
  4980. :garner2_27800
  4981. wait 0
  4982. 2@ = 0
  4983.  
  4984. :garner2_27811
  4985. if
  4986. key_down 2@
  4987. jf @garner2_27904
  4988. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key1"
  4989. 0BFC: set_global_var "ab-on-key1" = 2@
  4990. goto @garner2_27926
  4991.  
  4992. :garner2_27904
  4993. 2@ += 1
  4994. 2@ > 222
  4995. jf @garner2_27811
  4996.  
  4997. :garner2_27926
  4998. key_down 2@
  4999. jf @garner2_27800
  5000. alloc 2@ 200
  5001. 0C11: memset destination 2@ value 0 size 200
  5002. format 2@ "Нажмите на вторую клавишу для назначения."
  5003. call @garner4_17369 1 2@
  5004. free 2@
  5005. wait 300
  5006.  
  5007. :garner2_28028
  5008. wait 0
  5009. 2@ = 0
  5010.  
  5011. :garner2_28039
  5012. if
  5013. key_down 2@
  5014. jf @garner2_28132
  5015. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key2"
  5016. 0BFC: set_global_var "ab-on-key1" = 2@
  5017. goto @garner2_28154
  5018.  
  5019. :garner2_28132
  5020. 2@ += 1
  5021. 2@ > 222
  5022. jf @garner2_28039
  5023.  
  5024. :garner2_28154
  5025. key_down 2@
  5026. jf @garner2_28028
  5027. Dialog.SetVisible(0@, 1)
  5028. SAMP.ToggleCursor(1)
  5029.  
  5030. :garner2_28177
  5031. goto @garner2_28195
  5032.  
  5033. :garner2_28184
  5034. Dialog.SetVisible(0@, 1)
  5035. SAMP.ToggleCursor(1)
  5036.  
  5037. :garner2_28195
  5038. if
  5039. 2@ == 178
  5040. jf @garner2_29434
  5041. 0AF1: write_int 18 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key1"
  5042. 0AF1: write_int 114 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key2"
  5043. 0AF1: write_int 45 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key1"
  5044. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key2"
  5045. 0AF1: write_int 188 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key1"
  5046. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key2"
  5047. 0AF1: write_int 16 to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key1"
  5048. 0AF1: write_int 48 to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key2"
  5049. 0AF1: write_int 16 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key1"
  5050. 0AF1: write_int 70 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key2"
  5051. 0AF1: write_int 77 to_ini_file "cleo\AdminTools\config.ini" section "other" key "menu-on-key"
  5052. 0AF1: write_int 2 to_ini_file "cleo\AdminTools\config.ini" section "other" key "fast-comm-menu-key"
  5053. 0AF1: write_int 46 to_ini_file "cleo\AdminTools\config.ini" section "other" key "confirm-on-key"
  5054. 0AF1: write_int 39 to_ini_file "cleo\AdminTools\config.ini" section "other" key "next-id-on-key"
  5055. 0AF1: write_int 37 to_ini_file "cleo\AdminTools\config.ini" section "other" key "prev-id-on-key"
  5056. 0BFC: set_global_var "wh-on-key1" = 18
  5057. 0BFC: set_global_var "wh-on-key2" = 114
  5058. 0BFC: set_global_var "gm-on-key1" = 45
  5059. 0BFC: set_global_var "gm-on-key2" = 0
  5060. 0BFC: set_global_var "ab-on-key1" = 188
  5061. 0BFC: set_global_var "ab-on-key2" = 0
  5062. 0BFC: set_global_var "reconnect-on-key1" = 16
  5063. 0BFC: set_global_var "reconnect-on-key2" = 48
  5064. 0BFC: set_global_var "checker-on-key1" = 16
  5065. 0BFC: set_global_var "checker-on-key2" = 70
  5066. 0BFC: set_global_var "menu-on-key" = 77
  5067. 0BFC: set_global_var "fast-comm-menu-key" = 2
  5068. 0BFC: set_global_var "prev-id-on-key" = 37
  5069. 0BFC: set_global_var "next-id-on-key" = 39
  5070. 0BFC: set_global_var "confirm-on-key" = 46
  5071. alloc 2@ 200
  5072. 0C11: memset destination 2@ value 0 size 200
  5073. format 2@ "Все значения клавиш были сброшены на значения по-умолчанию."
  5074. call @garner4_17369 1 2@
  5075. free 2@
  5076.  
  5077. :garner2_29434
  5078. if
  5079. 2@ == 177
  5080. jf @garner2_29703
  5081. Dialog.SetVisible(0@, 0)
  5082. alloc 2@ 200
  5083. 0C11: memset destination 2@ value 0 size 200
  5084. format 2@ "Нажмите на клавишу для назначения."
  5085. call @garner4_17369 1 2@
  5086. free 2@
  5087.  
  5088. :garner2_29538
  5089. wait 0
  5090. 2@ = 0
  5091.  
  5092. :garner2_29549
  5093. if
  5094. key_down 2@
  5095. jf @garner2_29657
  5096. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "other" key "fast-comm-menu-key"
  5097. 0BFC: set_global_var "fast-comm-menu-key" = 2@
  5098. goto @garner2_29679
  5099.  
  5100. :garner2_29657
  5101. 2@ += 1
  5102. 2@ > 222
  5103. jf @garner2_29549
  5104.  
  5105. :garner2_29679
  5106. key_down 2@
  5107. jf @garner2_29538
  5108. Dialog.SetVisible(0@, 1)
  5109. wait 300
  5110.  
  5111. :garner2_29703
  5112. if
  5113. 2@ == 191
  5114. jf @garner2_29948
  5115. if
  5116. 0C5D: samp textdraw 420 is_exists
  5117. jf @garner2_29743
  5118. 0C5E: samp textdraw 420 delete
  5119.  
  5120. :garner2_29743
  5121. 2@ = 0
  5122. 3@ = 0
  5123. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "id"
  5124. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color1"
  5125. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color2"
  5126. say "/vec %i %i %i" 1@ 2@ 3@
  5127.  
  5128. :garner2_29948
  5129. if
  5130. 2@ == 192
  5131. jf @garner2_30002
  5132. say "/respv 10"
  5133. if
  5134. 0C5D: samp textdraw 420 is_exists
  5135. jf @garner2_30002
  5136. 0C5E: samp textdraw 420 delete
  5137.  
  5138. :garner2_30002
  5139. if
  5140. 2@ == 201
  5141. jf @garner2_30226
  5142. Dialog.SetVisible(0@, 0)
  5143. alloc 5@ 128
  5144. 0C11: memset destination 5@ value 0 size 128
  5145. format 5@ "{1C86EE}WebMoney:%c{FFFFFF}R348278411862%cU428157836675%cZ898865691690" 10 10 10
  5146. 6@ = 700
  5147. 6@ += 8
  5148. SAMP.ShowDialog(6@, "Поддержать разработчика", 5@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  5149. free 5@
  5150.  
  5151. :garner2_30196
  5152. wait 0
  5153. SAMP.DialogRespond(6@, 4@, 0, 0)
  5154. jf @garner2_30196
  5155. Dialog.SetVisible(0@, 1)
  5156.  
  5157. :garner2_30226
  5158. if or
  5159. 2@ == 138
  5160. 2@ == 139
  5161. jf @garner2_31858
  5162. if
  5163. 1@ == 1793
  5164. jf @garner2_31858
  5165. if or
  5166. Dialog.IsControlVisible(0@, 161)
  5167. Dialog.IsControlVisible(0@, 162)
  5168. jf @garner2_30470
  5169. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 4@
  5170. SAMP.GetScreenResolution(1@, 2@)
  5171. 1@ /= 2
  5172. 1@ -= 185
  5173. Dialog.SetRECT(0@, 1@, 4@, 370, 300)
  5174. Dialog.SetControlVisible(0@, 161, 0)
  5175. Dialog.SetControlVisible(0@, 162, 0)
  5176. Dialog.SetControlVisible(0@, 166, 0)
  5177. Dialog.SetControlVisible(0@, 167, 0)
  5178. Dialog.SetControlPos(0@, 101, 70, 250)
  5179. Dialog.SetControlPos(0@, 147, 190, 250)
  5180. Dialog.SetControlPos(0@, 141, 5, 110)
  5181. Dialog.SetControlPos(0@, 142, 10, 135)
  5182. Dialog.SetControlPos(0@, 143, 5, 180)
  5183. Dialog.SetControlPos(0@, 144, 10, 205)
  5184.  
  5185. :garner2_30470
  5186. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)
  5187. if and
  5188. 2@ == 138
  5189. 3@ == 0
  5190. jf @garner2_30841
  5191. alloc 3@ 128
  5192. 0C11: memset destination 3@ value 0 size 128
  5193. format 3@ "Будет объявлено о начале мероприятия \"Догони и передай\"."
  5194. call @garner4_17369 1 3@
  5195. free 3@
  5196. 20@ = 100
  5197. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "mp" key "nomer"
  5198. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 3@
  5199. SAMP.GetScreenResolution(1@, 2@)
  5200. 1@ /= 2
  5201. 1@ -= 185
  5202. Dialog.SetRECT(0@, 1@, 3@, 370, 470)
  5203. Dialog.SetControlVisible(0@, 161, 1)
  5204. Dialog.SetControlVisible(0@, 162, 1)
  5205. Dialog.SetControlVisible(0@, 166, 1)
  5206. Dialog.SetControlVisible(0@, 167, 1)
  5207. Dialog.SetControlPos(0@, 101, 70, 420)
  5208. Dialog.SetControlPos(0@, 147, 190, 420)
  5209. Dialog.SetControlPos(0@, 141, 5, 210)
  5210. Dialog.SetControlPos(0@, 142, 10, 235)
  5211. Dialog.SetControlPos(0@, 143, 5, 280)
  5212. Dialog.SetControlPos(0@, 144, 10, 305)
  5213. goto @garner2_31858
  5214.  
  5215. :garner2_30841
  5216. if and
  5217. 2@ == 138
  5218. 3@ == 1
  5219. jf @garner2_31028
  5220. alloc 3@ 128
  5221. 0C11: memset destination 3@ value 0 size 128
  5222. format 3@ "Будет объявлено о начале мероприятия \"Казаки разбойники\"."
  5223. call @garner4_17369 1 3@
  5224. free 3@
  5225. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "mp" key "nomer"
  5226. 20@ = 101
  5227. goto @garner2_31858
  5228.  
  5229. :garner2_31028
  5230. if and
  5231. 2@ == 138
  5232. 3@ == 2
  5233. jf @garner2_31203
  5234. alloc 3@ 128
  5235. 0C11: memset destination 3@ value 0 size 128
  5236. format 3@ "Будет объявлено о начале мероприятия \"Гонки\"."
  5237. call @garner4_17369 1 3@
  5238. free 3@
  5239. 20@ = 102
  5240. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "mp" key "nomer"
  5241. goto @garner2_31858
  5242.  
  5243. :garner2_31203
  5244. if and
  5245. 2@ == 138
  5246. 3@ > 2
  5247. jf @garner2_31464
  5248. 3@ -= 3
  5249. 0C1F: 5@ = string_array 10@ element 3@ size 60
  5250. alloc 4@ 128
  5251. 0C11: memset destination 4@ value 0 size 128
  5252. format 4@ "Будет объявлено о начале мероприятия \"%s\"." 5@
  5253. call @garner4_17369 1 4@
  5254. free 4@
  5255. 0AF1: write_int 3@ to_ini_file "cleo\AdminTools\data\tempdata" section "mp" key "nomer"
  5256. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "events-in-file-count"
  5257. 20@ = 103
  5258. goto @garner2_31858
  5259.  
  5260. :garner2_31464
  5261. if and
  5262. 2@ == 139
  5263. 3@ == 0
  5264. jf @garner2_31604
  5265. alloc 3@ 128
  5266. 0C11: memset destination 3@ value 0 size 128
  5267. format 3@ "Будет объявлено о конце мероприятия \"Догони и передай\"."
  5268. call @garner4_17369 1 3@
  5269. free 3@
  5270. 20@ = 200
  5271. goto @garner2_31858
  5272.  
  5273. :garner2_31604
  5274. if and
  5275. 2@ == 139
  5276. 3@ > 0
  5277. jf @garner2_31858
  5278. 3@ -= 1
  5279. 0C1F: 5@ = string_array 10@ element 3@ size 60
  5280. alloc 4@ 128
  5281. 0C11: memset destination 4@ value 0 size 128
  5282. format 4@ "Будет объявлено о конце мероприятия \"%s\"." 5@
  5283. call @garner4_17369 1 4@
  5284. free 4@
  5285. 0AF1: write_int 3@ to_ini_file "cleo\AdminTools\data\tempdata" section "mp" key "nomer"
  5286. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "events-in-file-count"
  5287. 20@ = 201
  5288.  
  5289. :garner2_31858
  5290. if
  5291. 2@ == 167
  5292. jf @garner2_32363
  5293. if
  5294. 1@ == 1793
  5295. jf @garner2_32363
  5296. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)
  5297. if
  5298. 3@ == 0
  5299. jf @garner2_32059
  5300. alloc 3@ 128
  5301. 0C11: memset destination 3@ value 0 size 128
  5302. format 3@ "Выбран город 'Лос-Сантос'."
  5303. call @garner4_17369 1 3@
  5304. format 3@ "Лос-Сантос"
  5305. 0AF5: write_string 3@ to_ini_file "cleo\AdminTools\config.ini" section "mp" key "gorod"
  5306. free 3@
  5307.  
  5308. :garner2_32059
  5309. if
  5310. 3@ == 1
  5311. jf @garner2_32209
  5312. alloc 3@ 128
  5313. 0C11: memset destination 3@ value 0 size 128
  5314. format 3@ "Выбран город 'Сан-Фиерро'."
  5315. call @garner4_17369 1 3@
  5316. format 3@ "Сан-Фиерро"
  5317. 0AF5: write_string 3@ to_ini_file "cleo\AdminTools\config.ini" section "mp" key "gorod"
  5318. free 3@
  5319.  
  5320. :garner2_32209
  5321. if
  5322. 3@ == 2
  5323. jf @garner2_32363
  5324. alloc 3@ 128
  5325. 0C11: memset destination 3@ value 0 size 128
  5326. format 3@ "Выбран город 'Лас-Вентурас'."
  5327. call @garner4_17369 1 3@
  5328. format 3@ "Лас-Вентурас"
  5329. 0AF5: write_string 3@ to_ini_file "cleo\AdminTools\config.ini" section "mp" key "gorod"
  5330. free 3@
  5331.  
  5332. :garner2_32363
  5333. if
  5334. 2@ == 194
  5335. jf @garner2_32946
  5336. if
  5337. 1@ == 1793
  5338. jf @garner2_32946
  5339. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 0)
  5340. if
  5341. 3@ == 0
  5342. jf @garner2_32588
  5343. alloc 3@ 128
  5344. 0C11: memset destination 3@ value 0 size 128
  5345. format 3@ "Ник администратора будет указываться в наказании."
  5346. call @garner4_17369 1 3@
  5347. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "admins-nick-in-command"
  5348. free 3@
  5349.  
  5350. :garner2_32588
  5351. if
  5352. 3@ == 1
  5353. jf @garner2_32781
  5354. alloc 3@ 128
  5355. 0C11: memset destination 3@ value 0 size 128
  5356. format 3@ "Ник администратора будет указываться в сообщении, отосланном игроку."
  5357. call @garner4_17369 1 3@
  5358. 0AF1: write_int 2 to_ini_file "cleo\AdminTools\config.ini" section "other" key "admins-nick-in-command"
  5359. free 3@
  5360.  
  5361. :garner2_32781
  5362. if
  5363. 3@ == 2
  5364. jf @garner2_32946
  5365. alloc 3@ 128
  5366. 0C11: memset destination 3@ value 0 size 128
  5367. format 3@ "Ник администратора не будет указываться."
  5368. call @garner4_17369 1 3@
  5369. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "other" key "admins-nick-in-command"
  5370. free 3@
  5371.  
  5372. :garner2_32946
  5373. if
  5374. 1@ == 1025
  5375. jf @garner2_38048
  5376. if
  5377. 2@ == 126
  5378. jf @garner2_33158
  5379. if
  5380. Dialog.CheckBoxIsChecked(0@, 126)
  5381. jf @garner2_33083
  5382. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "status"
  5383. 0BFC: set_global_var "PIP_STATUS" = 1
  5384. goto @garner2_33158
  5385.  
  5386. :garner2_33083
  5387. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "status"
  5388. 0BFC: set_global_var "PIP_STATUS" = 0
  5389.  
  5390. :garner2_33158
  5391. if
  5392. 2@ == 127
  5393. jf @garner2_33385
  5394. if
  5395. Dialog.CheckBoxIsChecked(0@, 127)
  5396. jf @garner2_33293
  5397. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  5398. 0BFC: set_global_var "leader-checker-status" = 1
  5399. goto @garner2_33385
  5400.  
  5401. :garner2_33293
  5402. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  5403. 0BFC: set_global_var "leader-checker-status" = 0
  5404.  
  5405. :garner2_33385
  5406. if
  5407. 2@ == 201
  5408. jf @garner2_33618
  5409. if
  5410. Dialog.CheckBoxIsChecked(0@, 201)
  5411. jf @garner2_33524
  5412. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  5413. 0BFC: set_global_var "friends-checker-status" = 1
  5414. goto @garner2_33618
  5415.  
  5416. :garner2_33524
  5417. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  5418. 0BFC: set_global_var "friends-checker-status" = 0
  5419.  
  5420. :garner2_33618
  5421. if
  5422. 2@ == 128
  5423. jf @garner2_33843
  5424. if
  5425. Dialog.CheckBoxIsChecked(0@, 128)
  5426. jf @garner2_33753
  5427. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  5428. 0BFC: set_global_var "admin-checker-status" = 1
  5429. goto @garner2_33843
  5430.  
  5431. :garner2_33753
  5432. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  5433. 0BFC: set_global_var "admin-checker-status" = 0
  5434.  
  5435. :garner2_33843
  5436. if
  5437. 2@ == 129
  5438. jf @garner2_34032
  5439. if
  5440. Dialog.CheckBoxIsChecked(0@, 129)
  5441. jf @garner2_33960
  5442. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "panel-status"
  5443. 0BFC: set_global_var "panel-status" = 1
  5444. goto @garner2_34032
  5445.  
  5446. :garner2_33960
  5447. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "panel-status"
  5448. 0BFC: set_global_var "panel-status" = 0
  5449.  
  5450. :garner2_34032
  5451. if
  5452. 2@ == 117
  5453. jf @garner2_34233
  5454. if
  5455. Dialog.CheckBoxIsChecked(0@, 117)
  5456. jf @garner2_34154
  5457. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "status"
  5458. 0BFC: set_global_var "skin-changer-status" = 1
  5459. goto @garner2_34233
  5460.  
  5461. :garner2_34154
  5462. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "status"
  5463. 0BFC: set_global_var "skin-changer-status" = 0
  5464.  
  5465. :garner2_34233
  5466. if
  5467. 2@ == 130
  5468. jf @garner2_34384
  5469. if
  5470. Dialog.CheckBoxIsChecked(0@, 130)
  5471. jf @garner2_34331
  5472. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-start"
  5473. goto @garner2_34384
  5474.  
  5475. :garner2_34331
  5476. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-start"
  5477.  
  5478. :garner2_34384
  5479. if
  5480. 2@ == 131
  5481. jf @garner2_34535
  5482. if
  5483. Dialog.CheckBoxIsChecked(0@, 131)
  5484. jf @garner2_34482
  5485. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-start"
  5486. goto @garner2_34535
  5487.  
  5488. :garner2_34482
  5489. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-start"
  5490.  
  5491. :garner2_34535
  5492. if
  5493. 2@ == 135
  5494. jf @garner2_34738
  5495. if
  5496. Dialog.CheckBoxIsChecked(0@, 135)
  5497. jf @garner2_34659
  5498. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "punishments-list" key "auto-mode"
  5499. 0BFC: set_global_var "pl-auto-mode" = 1
  5500. goto @garner2_34738
  5501.  
  5502. :garner2_34659
  5503. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "punishments-list" key "auto-mode"
  5504. 0BFC: set_global_var "pl-auto-mode" = 0
  5505.  
  5506. :garner2_34738
  5507. if
  5508. 2@ == 136
  5509. jf @garner2_34899
  5510. if
  5511. Dialog.CheckBoxIsChecked(0@, 136)
  5512. jf @garner2_34841
  5513. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "auto-check-update"
  5514. goto @garner2_34899
  5515.  
  5516. :garner2_34841
  5517. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "other" key "auto-check-update"
  5518.  
  5519. :garner2_34899
  5520. if
  5521. 2@ == 157
  5522. jf @garner2_35106
  5523. if
  5524. Dialog.CheckBoxIsChecked(0@, 157)
  5525. jf @garner2_35025
  5526. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "cmd-from-adm-chat"
  5527. 0BFC: set_global_var "cmd-from-adm-chat" = 1
  5528. goto @garner2_35106
  5529.  
  5530. :garner2_35025
  5531. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "other" key "cmd-from-adm-chat"
  5532. 0BFC: set_global_var "cmd-from-adm-chat" = 0
  5533.  
  5534. :garner2_35106
  5535. if
  5536. 2@ == 198
  5537. jf @garner2_35305
  5538. if
  5539. Dialog.CheckBoxIsChecked(0@, 198)
  5540. jf @garner2_35228
  5541. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "status"
  5542. 0BFC: set_global_var "auto-invite-status" = 1
  5543. goto @garner2_35305
  5544.  
  5545. :garner2_35228
  5546. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "status"
  5547. 0BFC: set_global_var "auto-invite-status" = 0
  5548.  
  5549. :garner2_35305
  5550. if
  5551. 2@ == 199
  5552. jf @garner2_35538
  5553. if
  5554. Dialog.CheckBoxIsChecked(0@, 199)
  5555. jf @garner2_35444
  5556. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "adm-textdraw-upd-notice"
  5557. 0BFC: set_global_var "adm-textdraw-upd-notice" = 1
  5558. goto @garner2_35538
  5559.  
  5560. :garner2_35444
  5561. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "adm-textdraw-upd-notice"
  5562. 0BFC: set_global_var "adm-textdraw-upd-notice" = 0
  5563.  
  5564. :garner2_35538
  5565. if
  5566. 2@ == 200
  5567. jf @garner2_35689
  5568. if
  5569. Dialog.CheckBoxIsChecked(0@, 200)
  5570. jf @garner2_35636
  5571. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  5572. goto @garner2_35689
  5573.  
  5574. :garner2_35636
  5575. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  5576.  
  5577. :garner2_35689
  5578. if
  5579. 2@ == 140
  5580. jf @garner2_37345
  5581. if
  5582. Dialog.CheckBoxIsChecked(0@, 140)
  5583. jf @garner2_36623
  5584. if or
  5585. Dialog.IsControlVisible(0@, 161)
  5586. Dialog.IsControlVisible(0@, 162)
  5587. jf @garner2_35925
  5588. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 3@
  5589. SAMP.GetScreenResolution(1@, 2@)
  5590. 1@ /= 2
  5591. 1@ -= 185
  5592. Dialog.SetRECT(0@, 1@, 3@, 370, 310)
  5593. Dialog.SetControlVisible(0@, 161, 0)
  5594. Dialog.SetControlVisible(0@, 162, 0)
  5595. Dialog.SetControlVisible(0@, 166, 0)
  5596. Dialog.SetControlVisible(0@, 167, 0)
  5597. Dialog.SetControlPos(0@, 101, 70, 250)
  5598. Dialog.SetControlPos(0@, 147, 190, 250)
  5599. Dialog.SetControlPos(0@, 141, 5, 110)
  5600. Dialog.SetControlPos(0@, 142, 10, 135)
  5601. Dialog.SetControlPos(0@, 143, 5, 180)
  5602. Dialog.SetControlPos(0@, 144, 10, 205)
  5603.  
  5604. :garner2_35925
  5605. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 3@
  5606. SAMP.GetScreenResolution(1@, 2@)
  5607. 1@ /= 2
  5608. 1@ -= 185
  5609. Dialog.SetRECT(0@, 1@, 3@, 370, 370)
  5610. Dialog.FreeControl(0@, 138)
  5611. Dialog.AddListBox(0@, 139, 2, 3, 365, 77)
  5612. Dialog.ListBoxInsertElement(0@, 139, "Мероприятие \"Догони и передай\"", 3, -1)
  5613. if
  5614. 1@ = File.Open("cleo\AdminTools\events.txt", "r")
  5615. jf @garner2_36233
  5616. alloc 15@ 100
  5617. 0C11: memset destination 15@ value 0 size 100
  5618. 8@ = 0
  5619.  
  5620. :garner2_36118
  5621. if
  5622. File.ReadString(1@, 15@, 100)
  5623. jf @garner2_36146
  5624. 8@ += 1
  5625.  
  5626. :garner2_36146
  5627. File.EOF(1@)
  5628. jf @garner2_36118
  5629. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "events-in-file-count"
  5630. File.Close(1@)
  5631. free 15@
  5632.  
  5633. :garner2_36233
  5634. 5@ = 60
  5635. 006A: 5@ *= 8@ // (int)
  5636. alloc 10@ 5@
  5637. alloc 15@ 60
  5638. alloc 16@ 60
  5639. 0C11: memset destination 15@ value 0 size 60
  5640. 0C11: memset destination 16@ value 0 size 60
  5641. 0C11: memset destination 10@ value 0 size 5@
  5642. if
  5643. 1@ = File.Open("cleo\AdminTools\events.txt", "r")
  5644. jf @garner2_36510
  5645. if
  5646. 8@ > 0
  5647. jf @garner2_36370
  5648. 8@ -= 1
  5649.  
  5650. :garner2_36370
  5651. 2@ = 0
  5652.  
  5653. :garner2_36377
  5654. if
  5655. File.ReadString(1@, 15@, 60)
  5656. jf @garner2_36483
  5657. if
  5658. 0C2C: 4@ = strrchr 15@ char 10
  5659. jf @garner2_36428
  5660. 0C11: memset destination 4@ value 0 size 1
  5661.  
  5662. :garner2_36428
  5663. 0C20: string_array 10@ element 2@ size 60 = 15@
  5664. format 16@ "Мероприятие \"%s\"" 15@
  5665. Dialog.ListBoxInsertElement(0@, 139, 16@, 1, -1)
  5666.  
  5667. :garner2_36483
  5668. 2@ += 1
  5669. 001D: 2@ > 8@ // (int)
  5670. jf @garner2_36377
  5671. File.Close(1@)
  5672.  
  5673. :garner2_36510
  5674. free 15@
  5675. free 16@
  5676. Dialog.AddStatic(0@, 145, "Введите ник победителя:", 5, 250, 300, 20)
  5677. Dialog.AddEditBox(0@, 146, "", 10, 275, 350, 40)
  5678. Dialog.SetControlPos(0@, 101, 70, 320)
  5679. Dialog.SetControlPos(0@, 147, 190, 320)
  5680. 20@ = 0
  5681. goto @garner2_37345
  5682.  
  5683. :garner2_36623
  5684. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 3@
  5685. SAMP.GetScreenResolution(1@, 2@)
  5686. 1@ /= 2
  5687. 1@ -= 185
  5688. Dialog.SetRECT(0@, 1@, 3@, 370, 300)
  5689. Dialog.FreeControl(0@, 139)
  5690. Dialog.FreeControl(0@, 145)
  5691. Dialog.FreeControl(0@, 146)
  5692. Dialog.AddListBox(0@, 138, 2, 3, 365, 77)
  5693. Dialog.ListBoxInsertElement(0@, 138, "Мероприятие \"Догони и передай\"", 3, -1)
  5694. Dialog.ListBoxInsertElement(0@, 138, "Мероприятие \"Казаки-разбойники\"", 4, -1)
  5695. Dialog.ListBoxInsertElement(0@, 138, "Мероприятие \"Гонки\"", 4, -1)
  5696. if
  5697. 1@ = File.Open("cleo\AdminTools\events.txt", "r")
  5698. jf @garner2_37025
  5699. alloc 15@ 100
  5700. 0C11: memset destination 15@ value 0 size 100
  5701. 8@ = 0
  5702.  
  5703. :garner2_36910
  5704. if
  5705. File.ReadString(1@, 15@, 100)
  5706. jf @garner2_36938
  5707. 8@ += 1
  5708.  
  5709. :garner2_36938
  5710. File.EOF(1@)
  5711. jf @garner2_36910
  5712. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "events-in-file-count"
  5713. File.Close(1@)
  5714. free 15@
  5715.  
  5716. :garner2_37025
  5717. 5@ = 60
  5718. 006A: 5@ *= 8@ // (int)
  5719. alloc 10@ 5@
  5720. alloc 15@ 60
  5721. alloc 16@ 60
  5722. 0C11: memset destination 15@ value 0 size 60
  5723. 0C11: memset destination 16@ value 0 size 60
  5724. 0C11: memset destination 10@ value 0 size 5@
  5725. if
  5726. 1@ = File.Open("cleo\AdminTools\events.txt", "r")
  5727. jf @garner2_37302
  5728. if
  5729. 8@ > 0
  5730. jf @garner2_37162
  5731. 8@ -= 1
  5732.  
  5733. :garner2_37162
  5734. 2@ = 0
  5735.  
  5736. :garner2_37169
  5737. if
  5738. File.ReadString(1@, 15@, 60)
  5739. jf @garner2_37275
  5740. if
  5741. 0C2C: 4@ = strrchr 15@ char 10
  5742. jf @garner2_37220
  5743. 0C11: memset destination 4@ value 0 size 1
  5744.  
  5745. :garner2_37220
  5746. 0C20: string_array 10@ element 2@ size 60 = 15@
  5747. format 16@ "Мероприятие \"%s\"" 15@
  5748. Dialog.ListBoxInsertElement(0@, 138, 16@, 1, -1)
  5749.  
  5750. :garner2_37275
  5751. 2@ += 1
  5752. 001D: 2@ > 8@ // (int)
  5753. jf @garner2_37169
  5754. File.Close(1@)
  5755.  
  5756. :garner2_37302
  5757. free 15@
  5758. free 16@
  5759. Dialog.SetControlPos(0@, 101, 70, 250)
  5760. Dialog.SetControlPos(0@, 147, 190, 250)
  5761. 20@ = 0
  5762.  
  5763. :garner2_37345
  5764. if
  5765. 2@ == 122
  5766. jf @garner2_37538
  5767. if
  5768. Dialog.CheckBoxIsChecked(0@, 122)
  5769. jf @garner2_37463
  5770. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "pos-indication"
  5771. 0BFC: set_global_var "pos-indication" = 1
  5772. goto @garner2_37538
  5773.  
  5774. :garner2_37463
  5775. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "other" key "pos-indication"
  5776. 0BFC: set_global_var "pos-indication" = 0
  5777.  
  5778. :garner2_37538
  5779. if
  5780. 2@ == 158
  5781. jf @garner2_37789
  5782. if
  5783. Dialog.CheckBoxIsChecked(0@, 158)
  5784. jf @garner2_37661
  5785. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "about-transport"
  5786. 0BFC: set_global_var "about-transport" = 1
  5787. goto @garner2_37789
  5788.  
  5789. :garner2_37661
  5790. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "about-transport"
  5791. 0BFC: set_global_var "about-transport" = 0
  5792. 2@ = 0
  5793.  
  5794. :garner2_37746
  5795. if
  5796. SAMP.3DTextDefined(2@)
  5797. jf @garner2_37767
  5798. SAMP.Destroy3DText(2@)
  5799.  
  5800. :garner2_37767
  5801. 2@ += 1
  5802. 2@ > 1000
  5803. jf @garner2_37746
  5804.  
  5805. :garner2_37789
  5806. if
  5807. 2@ == 159
  5808. jf @garner2_38048
  5809. if
  5810. Dialog.CheckBoxIsChecked(0@, 159)
  5811. jf @garner2_37916
  5812. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "player-id-in-mask"
  5813. 0BFC: set_global_var "player-id-in-mask" = 1
  5814. goto @garner2_38048
  5815.  
  5816. :garner2_37916
  5817. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "player-id-in-mask"
  5818. 0BFC: set_global_var "player-id-in-mask" = 0
  5819. 2@ = 0
  5820.  
  5821. :garner2_38005
  5822. if
  5823. SAMP.3DTextDefined(2@)
  5824. jf @garner2_38026
  5825. SAMP.Destroy3DText(2@)
  5826.  
  5827. :garner2_38026
  5828. 2@ += 1
  5829. 2@ > 1000
  5830. jf @garner2_38005
  5831.  
  5832. :garner2_38048
  5833. if
  5834. 2@ == 116
  5835. jf @garner2_42721
  5836. if
  5837. 1@ == 1793
  5838. jf @garner2_42721
  5839. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  5840. if
  5841. 3@ == 0
  5842. jf @garner2_39183
  5843. 1@ = 117
  5844.  
  5845. :garner2_38124
  5846. Dialog.FreeControl(0@, 1@)
  5847. 1@ += 1
  5848. 1@ > 210
  5849. jf @garner2_38124
  5850. Dialog.AddCheckBox(0@, 117, "Выдавать временный скин", 215, 10, 500, 20)
  5851. Dialog.AddStatic(0@, 118, "Изменить ID временного скина", 215, 40, 400, 20)
  5852. 0BFD: 4@ = get_global_var "tempskin"
  5853. alloc 5@ 5
  5854. 0C11: memset destination 5@ value 0 size 5
  5855. format 5@ "%i" 4@
  5856. Dialog.AddEditBox(0@, 119, "", 225, 65, 70, 40)
  5857. Dialog.SetControlText(0@, 119, 5@)
  5858. free 5@
  5859. Dialog.AddButton(0@, 120, "Изменить", 310, 75, 100, 30)
  5860. Dialog.AddButton(0@, 121, "Обзор", 410, 75, 100, 30)
  5861. Dialog.AddCheckBox(0@, 122, "Отображать текущие координаты", 215, 120, 500, 20)
  5862. Dialog.AddCheckBox(0@, 157, "'Отлавливать' команды из админ. чата", 215, 140, 500, 20)
  5863. Dialog.AddCheckBox(0@, 198, "Автоназначение врем. лидером", 215, 160, 500, 20)
  5864. Dialog.AddCheckBox(0@, 200, "Включить звуковые уведомления", 215, 180, 500, 20)
  5865. Dialog.AddStatic(0@, 163, "Изменить положение панели и чекера", 215, 210, 400, 20)
  5866. Dialog.AddButton(0@, 164, "Изменить", 215, 230, 100, 30)
  5867. Dialog.AddButton(0@, 165, "Сбросить", 315, 230, 100, 30)
  5868. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "status"
  5869. if
  5870. 1@ == 1
  5871. jf @garner2_38773
  5872. Dialog.SetCheckBoxChecked(0@, 117, 1)
  5873. goto @garner2_38782
  5874.  
  5875. :garner2_38773
  5876. Dialog.SetCheckBoxChecked(0@, 117, 0)
  5877.  
  5878. :garner2_38782
  5879. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "pos-indication"
  5880. if
  5881. 1@ == 1
  5882. jf @garner2_38872
  5883. Dialog.SetCheckBoxChecked(0@, 122, 1)
  5884. goto @garner2_38881
  5885.  
  5886. :garner2_38872
  5887. Dialog.SetCheckBoxChecked(0@, 122, 0)
  5888.  
  5889. :garner2_38881
  5890. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "cmd-from-adm-chat"
  5891. if
  5892. 1@ == 1
  5893. jf @garner2_38975
  5894. Dialog.SetCheckBoxChecked(0@, 157, 1)
  5895. goto @garner2_38985
  5896.  
  5897. :garner2_38975
  5898. Dialog.SetCheckBoxChecked(0@, 157, 0)
  5899.  
  5900. :garner2_38985
  5901. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "status"
  5902. if
  5903. 1@ == 1
  5904. jf @garner2_39074
  5905. Dialog.SetCheckBoxChecked(0@, 198, 1)
  5906. goto @garner2_39084
  5907.  
  5908. :garner2_39074
  5909. Dialog.SetCheckBoxChecked(0@, 198, 0)
  5910.  
  5911. :garner2_39084
  5912. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  5913. if
  5914. 1@ == 1
  5915. jf @garner2_39173
  5916. Dialog.SetCheckBoxChecked(0@, 200, 1)
  5917. goto @garner2_39183
  5918.  
  5919. :garner2_39173
  5920. Dialog.SetCheckBoxChecked(0@, 200, 0)
  5921.  
  5922. :garner2_39183
  5923. if
  5924. 3@ == 1
  5925. jf @garner2_39691
  5926. 1@ = 117
  5927.  
  5928. :garner2_39208
  5929. Dialog.FreeControl(0@, 1@)
  5930. 1@ += 1
  5931. 1@ > 210
  5932. jf @garner2_39208
  5933. Dialog.AddCheckBox(0@, 126, "Отображать панель с информацией об игроке", 215, 10, 500, 20)
  5934. Dialog.AddStatic(0@, 193, "Указывать ник администратора в наказании,", 215, 40, 400, 20)
  5935. Dialog.AddStatic(0@, 197, "при выполнении команды по его просьбе:", 215, 60, 400, 20)
  5936. Dialog.AddListBox(0@, 194, 215, 85, 420, 75)
  5937. Dialog.ListBoxInsertElement(0@, 194, "Указывать ник администратора в наказании", 3, -1)
  5938. Dialog.ListBoxInsertElement(0@, 194, "Отсылать игроку сообщение с ником админа", 4, -1)
  5939. Dialog.ListBoxInsertElement(0@, 194, "Не указывать ник администратора", 4, -1)
  5940. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "status"
  5941. if
  5942. 1@ == 1
  5943. jf @garner2_39682
  5944. Dialog.SetCheckBoxChecked(0@, 126, 1)
  5945. goto @garner2_39691
  5946.  
  5947. :garner2_39682
  5948. Dialog.SetCheckBoxChecked(0@, 126, 0)
  5949.  
  5950. :garner2_39691
  5951. if
  5952. 3@ == 2
  5953. jf @garner2_39918
  5954. 1@ = 117
  5955.  
  5956. :garner2_39716
  5957. Dialog.FreeControl(0@, 1@)
  5958. 1@ += 1
  5959. 1@ > 210
  5960. jf @garner2_39716
  5961. Dialog.AddCheckBox(0@, 135, "Выдавать наказания игрокам при вход. на серв.", 215, 10, 500, 20)
  5962. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "punishments-list" key "auto-mode"
  5963. if
  5964. 1@ == 1
  5965. jf @garner2_39908
  5966. Dialog.SetCheckBoxChecked(0@, 135, 1)
  5967. goto @garner2_39918
  5968.  
  5969. :garner2_39908
  5970. Dialog.SetCheckBoxChecked(0@, 135, 0)
  5971.  
  5972. :garner2_39918
  5973. if
  5974. 3@ == 3
  5975. jf @garner2_40326
  5976. 1@ = 117
  5977.  
  5978. :garner2_39943
  5979. Dialog.FreeControl(0@, 1@)
  5980. 1@ += 1
  5981. 1@ > 210
  5982. jf @garner2_39943
  5983. Dialog.AddStatic(0@, 169, "Изменить значение 'горячих клавиш'.", 215, 10, 400, 20)
  5984. Dialog.AddButton(0@, 170, "Гл. меню", 215, 35, 100, 30)
  5985. Dialog.AddButton(0@, 171, "Чекер", 215, 70, 100, 30)
  5986. Dialog.AddButton(0@, 172, "Reconnect", 215, 175, 100, 30)
  5987. Dialog.AddButton(0@, 173, "WallHack", 215, 210, 100, 30)
  5988. Dialog.AddButton(0@, 174, "GodMode", 315, 35, 100, 30)
  5989. Dialog.AddButton(0@, 175, "AirBreak", 315, 70, 100, 30)
  5990. Dialog.AddButton(0@, 176, "Подтв.", 215, 105, 100, 30)
  5991. Dialog.AddButton(0@, 177, "Быст.ком.", 215, 140, 100, 30)
  5992. Dialog.AddButton(0@, 178, "Сбросить", 445, 298, 100, 30)
  5993. Dialog.AddButton(0@, 202, "Пред. ID", 315, 105, 100, 30)
  5994. Dialog.AddButton(0@, 203, "След. ID", 315, 140, 100, 30)
  5995.  
  5996. :garner2_40326
  5997. if
  5998. 3@ == 4
  5999. jf @garner2_40866
  6000. 1@ = 117
  6001.  
  6002. :garner2_40351
  6003. Dialog.FreeControl(0@, 1@)
  6004. 1@ += 1
  6005. 1@ > 210
  6006. jf @garner2_40351
  6007. Dialog.AddCheckBox(0@, 127, "Отображать список лидеров онлайн", 215, 10, 400, 20)
  6008. Dialog.AddCheckBox(0@, 201, "Отображать список друзей онлайн", 215, 30, 400, 20)
  6009. Dialog.AddCheckBox(0@, 128, "Отображать список админов онлайн", 215, 50, 400, 20)
  6010. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  6011. if
  6012. 1@ == 1
  6013. jf @garner2_40635
  6014. Dialog.SetCheckBoxChecked(0@, 127, 1)
  6015. goto @garner2_40644
  6016.  
  6017. :garner2_40635
  6018. Dialog.SetCheckBoxChecked(0@, 127, 0)
  6019.  
  6020. :garner2_40644
  6021. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  6022. if
  6023. 1@ == 1
  6024. jf @garner2_40746
  6025. Dialog.SetCheckBoxChecked(0@, 201, 1)
  6026. goto @garner2_40756
  6027.  
  6028. :garner2_40746
  6029. Dialog.SetCheckBoxChecked(0@, 201, 0)
  6030.  
  6031. :garner2_40756
  6032. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  6033. if
  6034. 1@ == 1
  6035. jf @garner2_40856
  6036. Dialog.SetCheckBoxChecked(0@, 128, 1)
  6037. goto @garner2_40866
  6038.  
  6039. :garner2_40856
  6040. Dialog.SetCheckBoxChecked(0@, 128, 0)
  6041.  
  6042. :garner2_40866
  6043. if
  6044. 3@ == 5
  6045. jf @garner2_41841
  6046. 1@ = 117
  6047.  
  6048. :garner2_40891
  6049. Dialog.FreeControl(0@, 1@)
  6050. 1@ += 1
  6051. 1@ > 210
  6052. jf @garner2_40891
  6053. Dialog.AddCheckBox(0@, 129, "Отображать состояние читов", 215, 10, 500, 20)
  6054. Dialog.AddCheckBox(0@, 130, "Включать GM при загрузке игры", 215, 30, 500, 20)
  6055. Dialog.AddCheckBox(0@, 131, "Включать WH при загрузке игры", 215, 50, 500, 20)
  6056. Dialog.AddCheckBox(0@, 158, "Отображать инфо. о Т/С", 215, 70, 500, 20)
  6057. Dialog.AddCheckBox(0@, 159, "Отображать ID игроков с МВД и в маске", 215, 90, 500, 20)
  6058. Dialog.AddCheckBox(0@, 199, "Уведомлять при обновлении строк античита", 215, 110, 500, 20)
  6059. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "panel-status"
  6060. if
  6061. 1@ == 1
  6062. jf @garner2_41314
  6063. Dialog.SetCheckBoxChecked(0@, 129, 1)
  6064. goto @garner2_41324
  6065.  
  6066. :garner2_41314
  6067. Dialog.SetCheckBoxChecked(0@, 129, 0)
  6068.  
  6069. :garner2_41324
  6070. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-start"
  6071. if
  6072. 1@ == 1
  6073. jf @garner2_41413
  6074. Dialog.SetCheckBoxChecked(0@, 130, 1)
  6075. goto @garner2_41423
  6076.  
  6077. :garner2_41413
  6078. Dialog.SetCheckBoxChecked(0@, 130, 0)
  6079.  
  6080. :garner2_41423
  6081. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-start"
  6082. if
  6083. 1@ == 1
  6084. jf @garner2_41512
  6085. Dialog.SetCheckBoxChecked(0@, 131, 1)
  6086. goto @garner2_41522
  6087.  
  6088. :garner2_41512
  6089. Dialog.SetCheckBoxChecked(0@, 131, 0)
  6090.  
  6091. :garner2_41522
  6092. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "about-transport"
  6093. if
  6094. 1@ == 1
  6095. jf @garner2_41615
  6096. Dialog.SetCheckBoxChecked(0@, 158, 1)
  6097. goto @garner2_41625
  6098.  
  6099. :garner2_41615
  6100. Dialog.SetCheckBoxChecked(0@, 158, 0)
  6101.  
  6102. :garner2_41625
  6103. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "player-id-in-mask"
  6104. if
  6105. 1@ == 1
  6106. jf @garner2_41720
  6107. Dialog.SetCheckBoxChecked(0@, 159, 1)
  6108. goto @garner2_41730
  6109.  
  6110. :garner2_41720
  6111. Dialog.SetCheckBoxChecked(0@, 159, 0)
  6112.  
  6113. :garner2_41730
  6114. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "cheats" key "adm-textdraw-upd-notice"
  6115. if
  6116. 1@ == 1
  6117. jf @garner2_41831
  6118. Dialog.SetCheckBoxChecked(0@, 199, 1)
  6119. goto @garner2_41841
  6120.  
  6121. :garner2_41831
  6122. Dialog.SetCheckBoxChecked(0@, 199, 0)
  6123.  
  6124. :garner2_41841
  6125. if
  6126. 3@ == 6
  6127. jf @garner2_42721
  6128. 1@ = 117
  6129.  
  6130. :garner2_41866
  6131. Dialog.FreeControl(0@, 1@)
  6132. 1@ += 1
  6133. 1@ > 210
  6134. jf @garner2_41866
  6135. Dialog.AddStatic(0@, 132, "AdminTools", 215, 10, 400, 20)
  6136. alloc 3@ 64
  6137. 0C11: memset destination 3@ value 0 size 64
  6138. alloc 2@ 200
  6139. 0C11: memset destination 2@ value 0 size 200
  6140. 4@ = 0
  6141. if
  6142. 4@ == 0
  6143. jf @garner2_42037
  6144. format 3@ "Версия: %s. Сборка: %i." '1.7.3.3' 160911
  6145. goto @garner2_42118
  6146.  
  6147. :garner2_42037
  6148. format 2@ "%s Developer Preview %i" '1.7.3.3' 0
  6149. format 3@ "Версия: %s. Сборка: %i." 2@ 160911
  6150.  
  6151. :garner2_42118
  6152. free 2@
  6153. Dialog.AddStatic(0@, 133, 3@, 215, 30, 400, 20)
  6154. free 3@
  6155. Dialog.AddStatic(0@, 134, "Разработчик: David Garner.", 215, 50, 400, 20)
  6156. Dialog.AddCheckBox(0@, 136, "Проверять обновления при загрузке игры", 215, 90, 500, 20)
  6157. Dialog.AddStatic(0@, 168, "Проверить наличие обновлений", 215, 120, 400, 20)
  6158. Dialog.AddButton(0@, 137, "Проверить", 215, 140, 100, 30)
  6159. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "auto-check-update"
  6160. if
  6161. 1@ == 1
  6162. jf @garner2_42424
  6163. Dialog.SetCheckBoxChecked(0@, 136, 1)
  6164. goto @garner2_42434
  6165.  
  6166. :garner2_42424
  6167. Dialog.SetCheckBoxChecked(0@, 136, 0)
  6168.  
  6169. :garner2_42434
  6170. alloc 4@ 50
  6171. 0C11: memset destination 4@ value 0 size 50
  6172. alloc 5@ 50
  6173. 0C11: memset destination 5@ value 0 size 50
  6174. 0AF4: 4@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "last-check-update"
  6175. format 5@ "Последняя проверка обновлений" 4@
  6176. Dialog.AddStatic(0@, 181, 5@, 215, 170, 400, 30)
  6177. format 5@ "проводилась: %s." 4@
  6178. Dialog.AddStatic(0@, 182, 5@, 215, 190, 500, 30)
  6179. free 4@
  6180. free 5@
  6181. Dialog.AddStatic(0@, 202, "Поддержать разработчика", 215, 230, 400, 20)
  6182. Dialog.AddButton(0@, 201, "Поддерж.", 215, 250, 100, 30)
  6183.  
  6184. :garner2_42721
  6185. if
  6186. 2@ == 100
  6187. jf @garner2_53109
  6188. if
  6189. 1@ == 1793
  6190. jf @garner2_53109
  6191. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  6192. if
  6193. 3@ == 0
  6194. jf @garner2_43046
  6195. Dialog.FreeControl(0@, 100)
  6196. Dialog.AddListBox(0@, 103, 2, 3, 365, 199)
  6197. Dialog.SetControlPos(0@, 101, 190, 204)
  6198. Dialog.AddButton(0@, 102, "Назад", 70, 204, 100, 30)
  6199. Dialog.ListBoxInsertElement(0@, 103, "Общественные места", 1, -1)
  6200. Dialog.ListBoxInsertElement(0@, 103, "Гос. организации", 3, -1)
  6201. Dialog.ListBoxInsertElement(0@, 103, "Базы банд и мафий", 3, -1)
  6202. Dialog.ListBoxInsertElement(0@, 103, "Развлечения", 4, -1)
  6203. Dialog.ListBoxInsertElement(0@, 103, "Сохранить текущую позицию", 5, -1)
  6204. Dialog.ListBoxInsertElement(0@, 103, "Телепортироваться на сохр. поз.", 6, -1)
  6205.  
  6206. :garner2_43046
  6207. if
  6208. 3@ == 1
  6209. jf @garner2_44584
  6210. 0BFD: 3@ = get_global_var "ADMIN_LVL"
  6211. if
  6212. 3@ >= 4
  6213. jf @garner2_44478
  6214. Dialog.FreeControl(0@, 100)
  6215. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 3@
  6216. SAMP.GetScreenResolution(1@, 2@)
  6217. 1@ /= 2
  6218. 1@ -= 185
  6219. Dialog.SetRECT(0@, 1@, 3@, 370, 300)
  6220. Dialog.AddListBox(0@, 138, 2, 3, 365, 77)
  6221. Dialog.ListBoxInsertElement(0@, 138, "Мероприятие \"Догони и передай\"", 3, -1)
  6222. Dialog.ListBoxInsertElement(0@, 138, "Мероприятие \"Казаки-разбойники\"", 4, -1)
  6223. Dialog.ListBoxInsertElement(0@, 138, "Мероприятие \"Гонки\"", 4, -1)
  6224. if
  6225. 1@ = File.Open("cleo\AdminTools\events.txt", "r")
  6226. jf @garner2_43483
  6227. alloc 15@ 100
  6228. 0C11: memset destination 15@ value 0 size 100
  6229. 8@ = 0
  6230.  
  6231. :garner2_43368
  6232. if
  6233. File.ReadString(1@, 15@, 100)
  6234. jf @garner2_43396
  6235. 8@ += 1
  6236.  
  6237. :garner2_43396
  6238. File.EOF(1@)
  6239. jf @garner2_43368
  6240. 0AF1: write_int 8@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "events-in-file-count"
  6241. File.Close(1@)
  6242. free 15@
  6243.  
  6244. :garner2_43483
  6245. 5@ = 60
  6246. 006A: 5@ *= 8@ // (int)
  6247. alloc 10@ 5@
  6248. alloc 15@ 60
  6249. alloc 16@ 60
  6250. 0C11: memset destination 15@ value 0 size 60
  6251. 0C11: memset destination 16@ value 0 size 60
  6252. 0C11: memset destination 10@ value 0 size 5@
  6253. if
  6254. 1@ = File.Open("cleo\AdminTools\events.txt", "r")
  6255. jf @garner2_43760
  6256. if
  6257. 8@ > 0
  6258. jf @garner2_43620
  6259. 8@ -= 1
  6260.  
  6261. :garner2_43620
  6262. 2@ = 0
  6263.  
  6264. :garner2_43627
  6265. if
  6266. File.ReadString(1@, 15@, 60)
  6267. jf @garner2_43733
  6268. if
  6269. 0C2C: 4@ = strrchr 15@ char 10
  6270. jf @garner2_43678
  6271. 0C11: memset destination 4@ value 0 size 1
  6272.  
  6273. :garner2_43678
  6274. 0C20: string_array 10@ element 2@ size 60 = 15@
  6275. format 16@ "Мероприятие \"%s\"" 15@
  6276. Dialog.ListBoxInsertElement(0@, 138, 16@, 1, -1)
  6277.  
  6278. :garner2_43733
  6279. 2@ += 1
  6280. 001D: 2@ > 8@ // (int)
  6281. jf @garner2_43627
  6282. File.Close(1@)
  6283.  
  6284. :garner2_43760
  6285. free 15@
  6286. free 16@
  6287. Dialog.AddCheckBox(0@, 140, "Объявить о конце мероприятия", 10, 85, 350, 20)
  6288. Dialog.AddStatic(0@, 166, "Выберите город:", 5, 110, 150, 20)
  6289. Dialog.AddListBox(0@, 167, 2, 133, 365, 73)
  6290. Dialog.ListBoxInsertElement(0@, 167, "Лос-Сантос", 1, -1)
  6291. Dialog.ListBoxInsertElement(0@, 167, "Сан-Фиерро", 2, -1)
  6292. Dialog.ListBoxInsertElement(0@, 167, "Лас-Вентурас", 3, -1)
  6293. Dialog.AddStatic(0@, 141, "Введите ник спонсора(-ов):", 5, 110, 200, 20)
  6294. Dialog.AddEditBox(0@, 142, "", 10, 135, 350, 40)
  6295. Dialog.AddStatic(0@, 143, "Введите приз:", 5, 180, 150, 20)
  6296. Dialog.AddEditBox(0@, 144, "", 10, 205, 350, 40)
  6297. Dialog.AddStatic(0@, 161, "Введите цвет и модель машины (на чем?):", 5, 350, 320, 20)
  6298. Dialog.AddEditBox(0@, 162, "", 10, 375, 350, 40)
  6299. Dialog.SetControlPos(0@, 101, 70, 250)
  6300. Dialog.AddButton(0@, 147, "Объявить", 190, 250, 100, 30)
  6301. alloc 11@ 64
  6302. alloc 12@ 64
  6303. alloc 13@ 64
  6304. 0C11: memset destination 11@ value 0 size 64
  6305. 0C11: memset destination 12@ value 0 size 64
  6306. 0C11: memset destination 13@ value 0 size 64
  6307. 0AF4: 11@ = read_string_from_ini_file "cleo\AdminTools\config.ini" section "mp" key "sponsori"
  6308. 0AF4: 12@ = read_string_from_ini_file "cleo\AdminTools\config.ini" section "mp" key "priz"
  6309. 0AF4: 13@ = read_string_from_ini_file "cleo\AdminTools\config.ini" section "mp" key "car-color-and-model"
  6310. Dialog.SetControlText(0@, 142, 11@)
  6311. Dialog.SetControlText(0@, 144, 12@)
  6312. Dialog.SetControlText(0@, 162, 13@)
  6313. free 11@
  6314. free 12@
  6315. free 13@
  6316. Dialog.SetControlVisible(0@, 161, 0)
  6317. Dialog.SetControlVisible(0@, 162, 0)
  6318. Dialog.SetControlVisible(0@, 166, 0)
  6319. Dialog.SetControlVisible(0@, 167, 0)
  6320. 20@ = 0
  6321. goto @garner2_44584
  6322.  
  6323. :garner2_44478
  6324. alloc 3@ 128
  6325. 0C11: memset destination 3@ value 0 size 128
  6326. format 3@ "Данная функция доступна для администраторов 4 уровня или выше."
  6327. call @garner4_17369 1 3@
  6328. free 3@
  6329.  
  6330. :garner2_44584
  6331. if
  6332. 3@ == 2
  6333. jf @garner2_44993
  6334. Dialog.FreeControl(0@, 100)
  6335. Dialog.AddButton(0@, 102, "Назад", 70, 204, 100, 30)
  6336. Dialog.SetControlPos(0@, 101, 190, 204)
  6337. Dialog.AddListBox(0@, 149, 2, 3, 365, 199)
  6338. Dialog.ListBoxInsertElement(0@, 149, "{CCFF00}Правительство", 1, -1)
  6339. Dialog.ListBoxInsertElement(0@, 149, "{1E90FF}Министерство Внутренних Дел", 2, -1)
  6340. Dialog.ListBoxInsertElement(0@, 149, "{996633}Министерство Обороны", 3, -1)
  6341. Dialog.ListBoxInsertElement(0@, 149, "{FF6666}Министерство Здравоохранения", 4, -1)
  6342. Dialog.ListBoxInsertElement(0@, 149, "{FF6600}Средства Массовой Информации", 5, -1)
  6343. Dialog.ListBoxInsertElement(0@, 149, "{009900}Банды", 4, -1)
  6344. Dialog.ListBoxInsertElement(0@, 149, "{BB0000}Мафии", 4, -1)
  6345. Dialog.ListBoxInsertElement(0@, 149, "{9C9C9C}Снять с себя врем. лидерство", 5, -1)
  6346.  
  6347. :garner2_44993
  6348. if
  6349. 3@ == 3
  6350. jf @garner2_48520
  6351. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  6352. if
  6353. 3@ == 0
  6354. jf @garner2_48434
  6355. Dialog.FreeControl(0@, 100)
  6356. Dialog.FreeControl(0@, 101)
  6357. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  6358. call @garner4_6901 0 25@ 26@ 27@ 28@
  6359. 0BFD: 7@ = get_global_var "pl-count"
  6360. 8@ = 189.0
  6361. 6@ = 150
  6362. 5@ = 17
  6363. 0093: 10@ = integer 7@ to_float
  6364. 10@ *= 3.3
  6365. 0063: 8@ -= 10@ // (float)
  6366. if
  6367. 7@ >= 2
  6368. jf @garner2_45286
  6369. 006A: 5@ *= 7@ // (int)
  6370. 005A: 6@ += 5@ // (int)
  6371.  
  6372. :garner2_45286
  6373. SAMP.GetScreenResolution(1@, 2@)
  6374. 1@ /= 2
  6375. 1@ -= 340
  6376. 0B60: convert_game_screen_coords 190.7 8@ to_window_screen_coords 2@ 3@
  6377. Dialog.SetRECT(0@, 1@, 3@, 680, 6@)
  6378. Dialog.AddStatic(0@, 112, "", 21, 8, 800, 20)
  6379. Dialog.AddStatic(0@, 113, "", 21, 26, 800, 20)
  6380. Dialog.AddStatic(0@, 114, "", 21, 44, 800, 20)
  6381. alloc 16@ 128
  6382. format 16@ "{FFFFFF}======================================================================="
  6383. Dialog.SetControlText(0@, 112, 16@)
  6384. format 16@ "{FFFFFF}%c%c#%c%c¦%c%c%c%c%cID%c%c%c%c%c¦%cНик игрока%c%c¦%cНаказание%c¦%cКол-во%c¦%cПричина" 32 32 32 32 32 32 32 32 32 32 32 32 32 32 9 9 9 32 32 32 32 9
  6385. Dialog.SetControlText(0@, 113, 16@)
  6386. format 16@ "{FFFFFF}======================================================================="
  6387. Dialog.SetControlText(0@, 114, 16@)
  6388. free 16@
  6389. 14@ = 62
  6390. if
  6391. not 7@ == 0
  6392. jf @garner2_48017
  6393. 4@ = 4
  6394. 006A: 4@ *= 7@ // (int)
  6395. alloc 29@ 4@
  6396. 0C11: memset destination 29@ value 0 size 4@
  6397. 12@ = 0
  6398. 7@ -= 1
  6399. 5@ = 2000
  6400. 10@ = 3000
  6401. 11@ = 4000
  6402. 13@ = 5000
  6403. 9@ = 0
  6404. 1@ = 0
  6405.  
  6406. :garner2_45875
  6407. 12@ += 1
  6408. 5@ += 1
  6409. 10@ += 1
  6410. 11@ += 1
  6411. 13@ += 1
  6412. Dialog.AddStatic(0@, 1@, "", 25, 14@, 800, 20)
  6413. Dialog.AddStatic(0@, 11@, "", 45, 14@, 800, 20)
  6414. Dialog.AddStatic(0@, 13@, "", 104, 14@, 800, 20)
  6415. Dialog.AddStatic(0@, 5@, "", 301, 14@, 800, 20)
  6416. Dialog.AddStatic(0@, 10@, "", 390, 14@, 800, 20)
  6417. 2@ = 0
  6418.  
  6419. :garner2_46019
  6420. if
  6421. SAMP.IsPlayerConnected(2@)
  6422. jf @garner2_47006
  6423. 3@ = SAMP.GetPlayerNickname(2@)
  6424. 4@ = SAMP.GetPlayerScore(2@)
  6425. 0C1F: 6@ = string_array 25@ element 1@ size 25
  6426. if
  6427. 0C21: stricmp string1 3@ string2 6@
  6428. jf @garner2_47006
  6429. 0C0F: array 29@ element 1@ = 2@
  6430. alloc 16@ 300
  6431. 0C11: memset destination 16@ value 0 size 300
  6432. 0C1F: 22@ = string_array 26@ element 1@ size 8
  6433. 0C1F: 23@ = string_array 27@ element 1@ size 4
  6434. 0C1F: 24@ = string_array 28@ element 1@ size 40
  6435. if
  6436. not 12@ >= 10
  6437. jf @garner2_46201
  6438. format 16@ "{32CD32}%c%i" 32 12@
  6439. goto @garner2_46222
  6440.  
  6441. :garner2_46201
  6442. format 16@ "{32CD32}%i" 12@
  6443.  
  6444. :garner2_46222
  6445. Dialog.SetControlText(0@, 1@, 16@)
  6446. if and
  6447. not 2@ >= 100
  6448. 2@ > 9
  6449. jf @garner2_46307
  6450. format 16@ "{32CD32}¦%c%c%c%c%c%i" 32 32 32 32 32 2@
  6451. goto @garner2_46476
  6452.  
  6453. :garner2_46307
  6454. if
  6455. not 2@ >= 10
  6456. jf @garner2_46378
  6457. format 16@ "{32CD32}¦%c%c%c%c%c%c%i" 32 32 32 32 32 32 2@
  6458. goto @garner2_46476
  6459.  
  6460. :garner2_46378
  6461. if
  6462. 2@ == 1000
  6463. jf @garner2_46438
  6464. format 16@ "{32CD32}¦%c%c%c%i" 32 32 32 2@
  6465. goto @garner2_46476
  6466.  
  6467. :garner2_46438
  6468. format 16@ "{32CD32}¦%c%c%c%c%i" 32 32 32 32 2@
  6469.  
  6470. :garner2_46476
  6471. Dialog.SetControlText(0@, 11@, 16@)
  6472. format 16@ "{32CD32}¦%c%c%s" 32 32 6@
  6473. Dialog.SetControlText(0@, 13@, 16@)
  6474. if
  6475. 0C21: stricmp string1 "/jail" string2 22@
  6476. jf @garner2_46593
  6477. format 16@ "{32CD32}¦%c%c%cТюрьма" 32 32 32
  6478. goto @garner2_46900
  6479.  
  6480. :garner2_46593
  6481. if
  6482. 0C21: stricmp string1 "/warn" string2 22@
  6483. jf @garner2_46665
  6484. format 16@ "{32CD32}¦%c%c%c%c%cПред." 32 32 32 32 32
  6485. goto @garner2_46900
  6486.  
  6487. :garner2_46665
  6488. if
  6489. 0C21: stricmp string1 "/ban" string2 22@
  6490. jf @garner2_46742
  6491. format 16@ "{32CD32}¦%c%c%c%c%c%c%cБан" 32 32 32 32 32 32 32
  6492. goto @garner2_46900
  6493.  
  6494. :garner2_46742
  6495. if
  6496. 0C21: stricmp string1 "/mute" string2 22@
  6497. jf @garner2_46808
  6498. format 16@ "{32CD32}¦%c%c%cЗатычка" 32 32 32
  6499. goto @garner2_46900
  6500.  
  6501. :garner2_46808
  6502. if
  6503. 0C21: stricmp string1 "/unwarn" string2 22@
  6504. jf @garner2_46874
  6505. format 16@ "{32CD32}¦%c%cСн. пред." 32 32
  6506. goto @garner2_46900
  6507.  
  6508. :garner2_46874
  6509. format 16@ "{32CD32}¦%c%s" 32 22@
  6510.  
  6511. :garner2_46900
  6512. Dialog.SetControlText(0@, 5@, 16@)
  6513. format 16@ "{32CD32}¦%c%c%c%c%c%s%c%c%c%c¦%c%c%s" 32 32 32 32 32 23@ 32 9 32 32 32 32 24@
  6514. Dialog.SetControlText(0@, 10@, 16@)
  6515. 9@ = 1
  6516. free 16@
  6517.  
  6518. :garner2_47006
  6519. 2@ += 1
  6520. 2@ > 1000
  6521. jf @garner2_46019
  6522. if
  6523. 9@ == 0
  6524. jf @garner2_47974
  6525. alloc 16@ 300
  6526. 0C11: memset destination 16@ value 0 size 300
  6527. 0C1F: 21@ = string_array 25@ element 1@ size 25
  6528. 0C1F: 22@ = string_array 26@ element 1@ size 8
  6529. 0C1F: 23@ = string_array 27@ element 1@ size 4
  6530. 0C1F: 24@ = string_array 28@ element 1@ size 40
  6531. if
  6532. not 12@ >= 10
  6533. jf @garner2_47166
  6534. format 16@ "{FFFFFF}%c%i" 32 12@
  6535. goto @garner2_47187
  6536.  
  6537. :garner2_47166
  6538. format 16@ "{FFFFFF}%i" 12@
  6539.  
  6540. :garner2_47187
  6541. Dialog.SetControlText(0@, 1@, 16@)
  6542. format 16@ "{FFFFFF}¦%c%c%c%c%c---" 32 32 32 32 32
  6543. Dialog.SetControlText(0@, 11@, 16@)
  6544. format 16@ "{FFFFFF}¦%c%c%s" 32 32 21@
  6545. Dialog.SetControlText(0@, 13@, 16@)
  6546. if
  6547. 0C21: stricmp string1 "/jail" string2 22@
  6548. jf @garner2_47355
  6549. format 16@ "{FFFFFF}¦%c%c%cТюрьма" 32 32 32
  6550. goto @garner2_47662
  6551.  
  6552. :garner2_47355
  6553. if
  6554. 0C21: stricmp string1 "/warn" string2 22@
  6555. jf @garner2_47427
  6556. format 16@ "{FFFFFF}¦%c%c%c%c%cПред." 32 32 32 32 32
  6557. goto @garner2_47662
  6558.  
  6559. :garner2_47427
  6560. if
  6561. 0C21: stricmp string1 "/ban" string2 22@
  6562. jf @garner2_47504
  6563. format 16@ "{FFFFFF}¦%c%c%c%c%c%c%cБан" 32 32 32 32 32 32 32
  6564. goto @garner2_47662
  6565.  
  6566. :garner2_47504
  6567. if
  6568. 0C21: stricmp string1 "/mute" string2 22@
  6569. jf @garner2_47570
  6570. format 16@ "{FFFFFF}¦%c%c%cЗатычка" 32 32 32
  6571. goto @garner2_47662
  6572.  
  6573. :garner2_47570
  6574. if
  6575. 0C21: stricmp string1 "/unwarn" string2 22@
  6576. jf @garner2_47636
  6577. format 16@ "{FFFFFF}¦%c%cСн. пред." 32 32
  6578. goto @garner2_47662
  6579.  
  6580. :garner2_47636
  6581. format 16@ "{FFFFFF}¦%c%s" 32 22@
  6582.  
  6583. :garner2_47662
  6584. Dialog.SetControlText(0@, 5@, 16@)
  6585. 0C17: 4@ = strlen 23@
  6586. if
  6587. 4@ == 2
  6588. jf @garner2_47778
  6589. format 16@ "{FFFFFF}¦%c%c%c%c%c%s%c%c%c%c¦%c%c%s" 32 32 32 32 32 23@ 32 9 32 32 32 32 24@
  6590. goto @garner2_47951
  6591.  
  6592. :garner2_47778
  6593. if
  6594. 4@ == 1
  6595. jf @garner2_47879
  6596. format 16@ "{FFFFFF}¦%c%c%c%c%c%c%s%c%c%c%c¦%c%c%s" 32 32 32 32 32 32 23@ 32 9 32 32 32 32 24@
  6597. goto @garner2_47951
  6598.  
  6599. :garner2_47879
  6600. format 16@ "{FFFFFF}¦%c%c%c%c%c%s%c%c%c%c¦%c%c%s" 32 32 32 32 32 23@ 32 9 32 32 32 32 24@
  6601.  
  6602. :garner2_47951
  6603. Dialog.SetControlText(0@, 10@, 16@)
  6604. free 16@
  6605. goto @garner2_47981
  6606.  
  6607. :garner2_47974
  6608. 9@ = 0
  6609.  
  6610. :garner2_47981
  6611. 14@ += 18
  6612. 1@ += 1
  6613. 001D: 1@ > 7@ // (int)
  6614. jf @garner2_45875
  6615. goto @garner2_48127
  6616.  
  6617. :garner2_48017
  6618. alloc 16@ 50
  6619. 0C11: memset destination 16@ value 0 size 50
  6620. Dialog.AddStatic(0@, 1@, "", 25, 14@, 800, 20)
  6621. format 16@ "%c%c%cДанных в таблице наказаний нет." 9 9 9
  6622. Dialog.SetControlText(0@, 1@, 16@)
  6623. free 16@
  6624. 14@ += 18
  6625.  
  6626. :garner2_48127
  6627. Dialog.AddStatic(0@, 115, "", 21, 14@, 800, 20)
  6628. alloc 16@ 100
  6629. format 16@ "{ffffff}======================================================================="
  6630. Dialog.SetControlText(0@, 115, 16@)
  6631. free 16@
  6632. 14@ += 18
  6633. 0BFD: 7@ = get_global_var "pl-count"
  6634. if
  6635. not 7@ == 0
  6636. jf @garner2_48377
  6637. Dialog.AddButton(0@, 109, "Выдать", 190, 14@, 100, 30)
  6638. Dialog.AddButton(0@, 102, "Назад", 290, 14@, 100, 30)
  6639. Dialog.AddButton(0@, 111, "Закрыть", 390, 14@, 100, 30)
  6640. goto @garner2_48427
  6641.  
  6642. :garner2_48377
  6643. Dialog.AddButton(0@, 102, "Назад", 250, 14@, 100, 30)
  6644. Dialog.AddButton(0@, 111, "Закрыть", 350, 14@, 100, 30)
  6645.  
  6646. :garner2_48427
  6647. goto @garner2_48520
  6648.  
  6649. :garner2_48434
  6650. alloc 3@ 128
  6651. 0C11: memset destination 3@ value 0 size 128
  6652. format 3@ "Дождитесь окончания выдачи наказания(-ий)."
  6653. call @garner4_17369 1 3@
  6654. free 3@
  6655.  
  6656. :garner2_48520
  6657. if
  6658. 3@ == 4
  6659. jf @garner2_50940
  6660. Dialog.Free(0@)
  6661. 0@ = 0
  6662. if
  6663. call @garner4_13738 0 11@
  6664. jf @garner2_50869
  6665. 0BFD: 8@ = get_global_var "leaders-in-file-count"
  6666. 5@ = 500
  6667. 006A: 5@ *= 8@ // (int)
  6668. alloc 12@ 1000
  6669. 0C11: memset destination 12@ value 0 size 1000
  6670. alloc 13@ 500
  6671. 0C11: memset destination 13@ value 0 size 500
  6672. alloc 14@ 200
  6673. 0C11: memset destination 14@ value 0 size 200
  6674. alloc 15@ 5@
  6675. 0C11: memset destination 15@ value 0 size 5@
  6676. alloc 16@ 500
  6677. 0C11: memset destination 16@ value 0 size 500
  6678. 8@ -= 1
  6679. 0@ = 0
  6680.  
  6681. :garner2_48722
  6682. 0C11: memset destination 12@ value 0 size 1000
  6683. 0C11: memset destination 13@ value 0 size 500
  6684. 0C11: memset destination 14@ value 0 size 200
  6685. 0C11: memset destination 16@ value 0 size 500
  6686. 0C1F: 9@ = string_array 11@ element 0@ size 25
  6687. say "/get %s" 9@
  6688. wait 2000
  6689. 0BD8: samp get_dialog_caption 11@
  6690. if
  6691. 0C21: stricmp string1 9@ string2 11@
  6692. jf @garner2_50505
  6693. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  6694. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  6695. alloc 22@ 16
  6696. 0AA5: call 23@ num_params 1 pop 0 22@
  6697. 0085: 21@ = 22@ // (int)
  6698. alloc 25@ 200
  6699. 0C11: memset destination 25@ value 0 size 200
  6700. alloc 20@ 200
  6701. 0C11: memset destination 20@ value 0 size 200
  6702. 21@ += 6
  6703. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  6704. format 25@ "[%.2d-" 19@
  6705. 0C15: strcat destination 16@ source 25@
  6706. 21@ -= 4
  6707. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  6708. format 25@ "%.2d-" 19@
  6709. 0C15: strcat destination 16@ source 25@
  6710. 21@ -= 2
  6711. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  6712. format 25@ "%.2d " 19@
  6713. 0C15: strcat destination 16@ source 25@
  6714. 21@ += 8
  6715. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  6716. format 25@ "%.2d:" 19@
  6717. 0C15: strcat destination 16@ source 25@
  6718. 21@ += 2
  6719. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  6720. format 25@ "%.2d:" 19@
  6721. 0C15: strcat destination 16@ source 25@
  6722. 21@ += 2
  6723. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  6724. format 25@ "%.2d]" 19@
  6725. 0C15: strcat destination 16@ source 25@
  6726. free 22@
  6727. 0AA3: free_library 24@
  6728. free 25@
  6729. free 20@
  6730. format 14@ "{FFFFFF}Онлайн лидера {FFA500}%s{FFFFFF}:%c" 11@ 10
  6731. 0C15: strcat destination 15@ source 14@
  6732. 0BD7: samp get_dialog_text 12@
  6733. if
  6734. 0C29: 2@ = stristr string1 12@ string2 "сегодня"
  6735. jf @garner2_50432
  6736. 0AD4: 6@ = scan_string 2@ format "сегодня:%i ч %i мин" 3@ 4@
  6737. format 14@ "{FFFFFF}За сегодня: {008B00}%i час(-ов), %i мин.%c" 3@ 4@ 10
  6738. 0C15: strcat destination 15@ source 14@
  6739. 0C17: 6@ = strlen 11@
  6740. if
  6741. not 6@ > 5
  6742. jf @garner2_49524
  6743. format 14@ " Ник лидера: %s%c%c%c| В игре сегодня: %i ч. %i мин.%c| " 11@ 9 9 9 3@ 4@ 9
  6744. goto @garner2_49699
  6745.  
  6746. :garner2_49524
  6747. if
  6748. not 6@ > 13
  6749. jf @garner2_49626
  6750. format 14@ " Ник лидера: %s%c%c| В игре сегодня: %i ч. %i мин.%c| " 11@ 9 9 3@ 4@ 9
  6751. goto @garner2_49699
  6752.  
  6753. :garner2_49626
  6754. format 14@ " Ник лидера: %s%c| В игре сегодня: %i ч. %i мин.%c| " 11@ 9 3@ 4@ 9
  6755.  
  6756. :garner2_49699
  6757. 0C15: strcat destination 16@ source 14@
  6758. if
  6759. 0C29: 1@ = stristr string1 2@ string2 "вчера"
  6760. jf @garner2_50432
  6761. 0AD4: 6@ = scan_string 1@ format "вчера:%i ч %i мин" 3@ 4@
  6762. format 14@ "{FFFFFF}За вчера: {008B00}%i час(-ов), %i мин.%c" 3@ 4@ 10
  6763. 0C15: strcat destination 15@ source 14@
  6764. format 14@ "В игре вчера: %i ч. %i мин.%c| " 3@ 4@ 9
  6765. 0C15: strcat destination 16@ source 14@
  6766. if
  6767. 0C29: 2@ = stristr string1 1@ string2 "сегодня"
  6768. jf @garner2_50432
  6769. 0AD4: 6@ = scan_string 2@ format "сегодня:%i ч %i мин" 3@ 4@
  6770. format 14@ "{FFFFFF}AFK за сегодня: {BB0000}%i час(-ов), %i мин.%c" 3@ 4@ 10
  6771. 0C15: strcat destination 15@ source 14@
  6772. format 14@ "AFK сегодня: %i ч. %i мин.%c| " 3@ 4@ 9
  6773. 0C15: strcat destination 16@ source 14@
  6774. if
  6775. 0C29: 1@ = stristr string1 2@ string2 "вчера"
  6776. jf @garner2_50432
  6777. 0AD4: 6@ = scan_string 1@ format "вчера:%i ч %i мин" 3@ 4@
  6778. if
  6779. 003B: 0@ == 8@ // (int)
  6780. jf @garner2_50302
  6781. format 14@ "{FFFFFF}AFK за вчера: {BB0000}%i час(-ов), %i мин." 3@ 4@
  6782. 0C15: strcat destination 15@ source 14@
  6783. format 14@ "AFK вчера: %i ч. %i мин.%c%c" 3@ 4@ 10 10
  6784. 0C15: strcat destination 16@ source 14@
  6785. goto @garner2_50432
  6786.  
  6787. :garner2_50302
  6788. format 14@ "{FFFFFF}AFK за вчера: {BB0000}%i час(-ов), %i мин.%c%c" 3@ 4@ 10 10
  6789. 0C15: strcat destination 15@ source 14@
  6790. format 14@ "AFK вчера: %i ч. %i мин.%c" 3@ 4@ 10
  6791. 0C15: strcat destination 16@ source 14@
  6792.  
  6793. :garner2_50432
  6794. 22@ = File.Open("cleo\AdminTools\logs\online_leaders_log.txt", "a")
  6795. File.WriteString(22@, 16@)
  6796. File.Close(22@)
  6797. goto @garner2_50705
  6798.  
  6799. :garner2_50505
  6800. format 14@ "{FFFFFF}Онлайн лидера {FFA500}%s{FFFFFF}:%c" 9@ 10
  6801. 0C15: strcat destination 15@ source 14@
  6802. if
  6803. 803B: not 0@ == 8@ // (int)
  6804. jf @garner2_50654
  6805. format 14@ "{BEBEBE}Не удалось получить данные.%c%c" 10 10
  6806. 0C15: strcat destination 15@ source 14@
  6807. goto @garner2_50705
  6808.  
  6809. :garner2_50654
  6810. format 14@ "{BEBEBE}Не удалось получить данные."
  6811. 0C15: strcat destination 15@ source 14@
  6812.  
  6813. :garner2_50705
  6814. 0@ += 1
  6815. 001D: 0@ > 8@ // (int)
  6816. jf @garner2_48722
  6817. 0C17: 0@ = strlen 15@
  6818. if
  6819. not 0@ >= 5
  6820. jf @garner2_50795
  6821. format 14@ "Не удалось считать данные."
  6822. 0C15: strcat destination 15@ source 14@
  6823.  
  6824. :garner2_50795
  6825. SAMP.ShowDialog(700, "Онлайн лидеров", 15@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  6826. free 11@
  6827. free 12@
  6828. free 13@
  6829. free 14@
  6830. free 15@
  6831. free 16@
  6832. goto @garner2_50940
  6833.  
  6834. :garner2_50869
  6835. SAMP.ToggleCursor(0)
  6836. alloc 0@ 128
  6837. 0C11: memset destination 0@ value 0 size 128
  6838. format 0@ "Список с лидерами пуст."
  6839. call @garner4_17369 1 0@
  6840. free 0@
  6841.  
  6842. :garner2_50940
  6843. if
  6844. 3@ == 5
  6845. jf @garner2_51545
  6846. Dialog.FreeControl(0@, 100)
  6847. 0B60: convert_game_screen_coords 0 140.0 to_window_screen_coords 0 3@
  6848. SAMP.GetScreenResolution(1@, 2@)
  6849. 1@ /= 2
  6850. 1@ -= 185
  6851. Dialog.SetRECT(0@, 1@, 3@, 370, 405)
  6852. Dialog.AddListBox(0@, 190, 2, 3, 265, 380)
  6853. Dialog.AddButton(0@, 191, "Спавн", 270, 5, 100, 30)
  6854. Dialog.AddButton(0@, 192, "Респавн", 270, 35, 100, 30)
  6855. Dialog.AddButton(0@, 102, "Назад", 270, 325, 100, 30)
  6856. Dialog.SetControlPos(0@, 101, 270, 355)
  6857. Dialog.AddStatic(0@, 193, "Цвет 1", 292, 70, 400, 20)
  6858. 0AF0: 4@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color1"
  6859. Dialog.AddEditBox(0@, 194, "", 270, 95, 98, 40)
  6860. alloc 3@ 64
  6861. 0C11: memset destination 3@ value 0 size 64
  6862. format 3@ "%i" 4@
  6863. Dialog.SetControlText(0@, 194, 3@)
  6864. free 3@
  6865. Dialog.AddStatic(0@, 195, "Цвет 2", 292, 145, 400, 20)
  6866. 0AF0: 4@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color2"
  6867. Dialog.AddEditBox(0@, 196, "", 270, 170, 98, 40)
  6868. alloc 3@ 64
  6869. 0C11: memset destination 3@ value 0 size 64
  6870. format 3@ "%i" 4@
  6871. Dialog.SetControlText(0@, 196, 3@)
  6872. free 3@
  6873. alloc 3@ 64
  6874. 0C11: memset destination 3@ value 0 size 64
  6875. 1@ = 400
  6876.  
  6877. :garner2_51442
  6878. Model.Load(1@)
  6879.  
  6880. :garner2_51447
  6881. wait 0
  6882. 07DE: model 1@ exists // versionB
  6883. jf @garner2_51447
  6884. 0ADB: 4@v = car_model 1@ name
  6885. format 3@ "Модель %s[%i]" 4@v 1@
  6886. Dialog.ListBoxInsertElement(0@, 190, 3@, 0, -1)
  6887. Model.Destroy(1@)
  6888. 1@ += 1
  6889. 1@ > 611
  6890. jf @garner2_51442
  6891. free 3@
  6892.  
  6893. :garner2_51545
  6894. if
  6895. 3@ == 6
  6896. jf @garner2_52883
  6897. 0B60: convert_game_screen_coords 195.0 150.0 to_window_screen_coords 2@ 3@
  6898. SAMP.GetScreenResolution(1@, 2@)
  6899. 1@ /= 2
  6900. 1@ -= 325
  6901. Dialog.SetRECT(0@, 1@, 3@, 650, 350)
  6902. Dialog.AddListBox(0@, 116, 2, 3, 200, 327)
  6903. Dialog.ListBoxInsertElement(0@, 116, "Общие настройки", 1, -1)
  6904. Dialog.ListBoxInsertElement(0@, 116, "Инфо. об игроке", 2, -1)
  6905. Dialog.ListBoxInsertElement(0@, 116, "Таблица наказаний", 3, -1)
  6906. Dialog.ListBoxInsertElement(0@, 116, "Горячие клавиши", 6, -1)
  6907. Dialog.ListBoxInsertElement(0@, 116, "Чекеры", 4, -1)
  6908. Dialog.ListBoxInsertElement(0@, 116, "Читы", 6, -1)
  6909. Dialog.ListBoxInsertElement(0@, 116, "О скрипте", 6, -1)
  6910. Dialog.AddCheckBox(0@, 117, "Выдавать временный скин", 215, 10, 500, 20)
  6911. Dialog.AddStatic(0@, 118, "Изменить ID временного скина", 215, 40, 400, 20)
  6912. 0BFD: 4@ = get_global_var "tempskin"
  6913. alloc 5@ 5
  6914. 0C11: memset destination 5@ value 0 size 5
  6915. format 5@ "%i" 4@
  6916. Dialog.AddEditBox(0@, 119, "", 225, 65, 70, 40)
  6917. Dialog.SetControlText(0@, 119, 5@)
  6918. free 5@
  6919. Dialog.AddButton(0@, 120, "Изменить", 310, 75, 100, 30)
  6920. Dialog.AddButton(0@, 121, "Обзор", 410, 75, 100, 30)
  6921. Dialog.AddCheckBox(0@, 122, "Отображать текущие координаты", 215, 120, 500, 20)
  6922. Dialog.AddCheckBox(0@, 157, "'Отлавливать' команды из админ. чата", 215, 140, 500, 20)
  6923. Dialog.AddCheckBox(0@, 198, "Автоназначение врем. лидером", 215, 160, 500, 20)
  6924. Dialog.AddCheckBox(0@, 200, "Включить звуковые уведомления", 215, 180, 500, 20)
  6925. Dialog.AddStatic(0@, 163, "Изменить положение панели и чекера", 215, 210, 400, 20)
  6926. Dialog.AddButton(0@, 164, "Изменить", 215, 230, 100, 30)
  6927. Dialog.AddButton(0@, 165, "Сбросить", 315, 230, 100, 30)
  6928. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "status"
  6929. if
  6930. 1@ == 1
  6931. jf @garner2_52429
  6932. Dialog.SetCheckBoxChecked(0@, 117, 1)
  6933. goto @garner2_52438
  6934.  
  6935. :garner2_52429
  6936. Dialog.SetCheckBoxChecked(0@, 117, 0)
  6937.  
  6938. :garner2_52438
  6939. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "pos-indication"
  6940. if
  6941. 1@ == 1
  6942. jf @garner2_52528
  6943. Dialog.SetCheckBoxChecked(0@, 122, 1)
  6944. goto @garner2_52537
  6945.  
  6946. :garner2_52528
  6947. Dialog.SetCheckBoxChecked(0@, 122, 0)
  6948.  
  6949. :garner2_52537
  6950. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "cmd-from-adm-chat"
  6951. if
  6952. 1@ == 1
  6953. jf @garner2_52631
  6954. Dialog.SetCheckBoxChecked(0@, 157, 1)
  6955. goto @garner2_52641
  6956.  
  6957. :garner2_52631
  6958. Dialog.SetCheckBoxChecked(0@, 157, 0)
  6959.  
  6960. :garner2_52641
  6961. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "status"
  6962. if
  6963. 1@ == 1
  6964. jf @garner2_52730
  6965. Dialog.SetCheckBoxChecked(0@, 198, 1)
  6966. goto @garner2_52740
  6967.  
  6968. :garner2_52730
  6969. Dialog.SetCheckBoxChecked(0@, 198, 0)
  6970.  
  6971. :garner2_52740
  6972. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  6973. if
  6974. 1@ == 1
  6975. jf @garner2_52829
  6976. Dialog.SetCheckBoxChecked(0@, 200, 1)
  6977. goto @garner2_52839
  6978.  
  6979. :garner2_52829
  6980. Dialog.SetCheckBoxChecked(0@, 200, 0)
  6981.  
  6982. :garner2_52839
  6983. Dialog.SetControlPos(0@, 101, 545, 298)
  6984. Dialog.AddButton(0@, 102, "Назад", 215, 298, 100, 30)
  6985. Dialog.FreeControl(0@, 100)
  6986.  
  6987. :garner2_52883
  6988. if
  6989. 3@ == 7
  6990. jf @garner2_53109
  6991. Dialog.FreeControl(0@, 100)
  6992. Dialog.AddListBox(0@, 160, 2, 3, 365, 199)
  6993. Dialog.SetControlPos(0@, 101, 190, 204)
  6994. Dialog.AddButton(0@, 102, "Назад", 70, 204, 100, 30)
  6995. Dialog.ListBoxInsertElement(0@, 160, "Команды и 'быстрые клавиши'", 1, -1)
  6996. Dialog.ListBoxInsertElement(0@, 160, "Таблица наказаний", 2, -1)
  6997. Dialog.ListBoxInsertElement(0@, 160, "Меню быстрых команд", 2, -1)
  6998. Dialog.ListBoxInsertElement(0@, 160, "'Отлавливание' админ. команд", 2, -1)
  6999.  
  7000. :garner2_53109
  7001. if
  7002. 2@ == 103
  7003. jf @garner2_55948
  7004. if
  7005. 1@ == 1793
  7006. jf @garner2_55948
  7007. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7008. if
  7009. 3@ == 0
  7010. jf @garner2_53493
  7011. Dialog.FreeControl(0@, 103)
  7012. Dialog.AddListBox(0@, 104, 2, 3, 365, 199)
  7013. Dialog.ListBoxInsertElement(0@, 104, "Автостанция г. Лос-Сантос", 1, -1)
  7014. Dialog.ListBoxInsertElement(0@, 104, "Ж/Д вокзал г. Лос-Сантос", 2, -1)
  7015. Dialog.ListBoxInsertElement(0@, 104, "Автостанция г. Сан-Фиерро", 3, -1)
  7016. Dialog.ListBoxInsertElement(0@, 104, "Автостанция г. Лас-Вентурас", 4, -1)
  7017. Dialog.ListBoxInsertElement(0@, 104, "Военкомат", 5, -1)
  7018. Dialog.ListBoxInsertElement(0@, 104, "Шахта", 7, -1)
  7019. Dialog.ListBoxInsertElement(0@, 104, "Завод", 8, -1)
  7020. Dialog.ListBoxInsertElement(0@, 104, "Склад", 9, -1)
  7021. Dialog.ListBoxInsertElement(0@, 104, "Банк г. Лос-Сантос", 9, -1)
  7022. Dialog.ListBoxInsertElement(0@, 104, "Банк г. Сан-Фиерро", 9, -1)
  7023.  
  7024. :garner2_53493
  7025. if
  7026. 3@ == 1
  7027. jf @garner2_54539
  7028. Dialog.FreeControl(0@, 103)
  7029. 0B60: convert_game_screen_coords 0 140.0 to_window_screen_coords 0 3@
  7030. SAMP.GetScreenResolution(1@, 2@)
  7031. 1@ /= 2
  7032. 1@ -= 185
  7033. Dialog.SetRECT(0@, 1@, 3@, 370, 435)
  7034. Dialog.SetControlPos(0@, 102, 70, 385)
  7035. Dialog.SetControlPos(0@, 101, 190, 385)
  7036. Dialog.AddListBox(0@, 106, 2, 3, 365, 380)
  7037. Dialog.ListBoxInsertElement(0@, 106, "{CCFF00}Администрация Президента", 1, -1)
  7038. Dialog.ListBoxInsertElement(0@, 106, "{CCFF00}Мэрия г. Лос-Сантос", 1, -1)
  7039. Dialog.ListBoxInsertElement(0@, 106, "{CCFF00}Мэрия г. Сан-Фиерро", 2, -1)
  7040. Dialog.ListBoxInsertElement(0@, 106, "{CCFF00}Мэрия г. Лас-Вентурас", 3, -1)
  7041. Dialog.ListBoxInsertElement(0@, 106, "{1E90FF}Министерство Внутренних Дел", 1, -1)
  7042. Dialog.ListBoxInsertElement(0@, 106, "{1E90FF}Полиция г. Лос-Сантос", 2, -1)
  7043. Dialog.ListBoxInsertElement(0@, 106, "{1E90FF}Полиция г. Сан-Фиерро", 3, -1)
  7044. Dialog.ListBoxInsertElement(0@, 106, "{1E90FF}Полиция г. Лас-Вентурас", 4, -1)
  7045. Dialog.ListBoxInsertElement(0@, 106, "{1E90FF}База ФБР", 4, -1)
  7046. Dialog.ListBoxInsertElement(0@, 106, "{996633}Министерство Обороны", 4, -1)
  7047. Dialog.ListBoxInsertElement(0@, 106, "{996633}База Сухопутных Войск", 1, -1)
  7048. Dialog.ListBoxInsertElement(0@, 106, "{996633}База Военно-Воздушных Сил", 2, -1)
  7049. Dialog.ListBoxInsertElement(0@, 106, "{996633}База Военно-Морского Флота", 3, -1)
  7050. Dialog.ListBoxInsertElement(0@, 106, "{996633}Авианосец", 6, -1)
  7051. Dialog.ListBoxInsertElement(0@, 106, "{FF6666}Министерство Здравоохранения", 5, -1)
  7052. Dialog.ListBoxInsertElement(0@, 106, "{FF6666}Больница г. Лос-Сантос", 6, -1)
  7053. Dialog.ListBoxInsertElement(0@, 106, "{FF6666}Больница г. Сан-Фиерро", 3, -1)
  7054. Dialog.ListBoxInsertElement(0@, 106, "{FF6666}Больница г. Лас-Вентурас", 4, -1)
  7055. Dialog.ListBoxInsertElement(0@, 106, "{FF6600}Радиоцентр г. Лос-Сантос", 2, -1)
  7056. Dialog.ListBoxInsertElement(0@, 106, "{FF6600}Радиоцентр г. Сан-Фиерро", 3, -1)
  7057. Dialog.ListBoxInsertElement(0@, 106, "{FF6600}Радиоцентр г. Лас-Вентурас", 4, -1)
  7058. Dialog.ListBoxInsertElement(0@, 106, "{FF6600}Телецентр", 5, -1)
  7059.  
  7060. :garner2_54539
  7061. if
  7062. 3@ == 2
  7063. jf @garner2_54846
  7064. Dialog.FreeControl(0@, 103)
  7065. Dialog.AddListBox(0@, 123, 2, 3, 365, 199)
  7066. Dialog.ListBoxInsertElement(0@, 123, "{009900}Grove Street", 1, -1)
  7067. Dialog.ListBoxInsertElement(0@, 123, "{CD00CD}The Ballas", 2, -1)
  7068. Dialog.ListBoxInsertElement(0@, 123, "{EEC900}Los Santos Vagos", 3, -1)
  7069. Dialog.ListBoxInsertElement(0@, 123, "{836FFF}The Rifa", 5, -1)
  7070. Dialog.ListBoxInsertElement(0@, 123, "{00BFFF}Varios Los Aztecas", 4, -1)
  7071. Dialog.ListBoxInsertElement(0@, 123, "{8B0A50}La Cosa Nostra", 1, -1)
  7072. Dialog.ListBoxInsertElement(0@, 123, "{BB0000}Yakuza", 2, -1)
  7073. Dialog.ListBoxInsertElement(0@, 123, "{008B8B}Русская мафия", 3, -1)
  7074.  
  7075. :garner2_54846
  7076. if
  7077. 3@ == 3
  7078. jf @garner2_55382
  7079. Dialog.FreeControl(0@, 103)
  7080. 0B60: convert_game_screen_coords 0 160.0 to_window_screen_coords 0 3@
  7081. SAMP.GetScreenResolution(1@, 2@)
  7082. 1@ /= 2
  7083. 1@ -= 185
  7084. Dialog.SetRECT(0@, 1@, 3@, 370, 295)
  7085. Dialog.SetControlPos(0@, 102, 70, 245)
  7086. Dialog.SetControlPos(0@, 101, 190, 245)
  7087. Dialog.AddListBox(0@, 107, 2, 3, 365, 240)
  7088. Dialog.ListBoxInsertElement(0@, 107, "Казино 'Калигула'", 1, -1)
  7089. Dialog.ListBoxInsertElement(0@, 107, "МП 'Дерби'", 2, -1)
  7090. Dialog.ListBoxInsertElement(0@, 107, "МП 'Поливалка'", 3, -1)
  7091. Dialog.ListBoxInsertElement(0@, 107, "Казаки-разбойники на забр. заводе", 4, -1)
  7092. Dialog.ListBoxInsertElement(0@, 107, "Казаки-разбойники на исп. полигоне", 5, -1)
  7093. Dialog.ListBoxInsertElement(0@, 107, "Казаки-разбойники на ферме нарк.", 6, -1)
  7094. Dialog.ListBoxInsertElement(0@, 107, "Казаки-разбойники под водой", 7, -1)
  7095. Dialog.ListBoxInsertElement(0@, 107, "Гонки по центральному San Andreas", 8, -1)
  7096. Dialog.ListBoxInsertElement(0@, 107, "Гонки 'подъем на гору Чилиад'", 9, -1)
  7097. Dialog.ListBoxInsertElement(0@, 107, "Гонки западному San Andreas", 10, -1)
  7098. Dialog.ListBoxInsertElement(0@, 107, "Гонки по пустыне", 11, -1)
  7099.  
  7100. :garner2_55382
  7101. alloc 5@ 128
  7102. 0C11: memset destination 5@ value 0 size 128
  7103. if
  7104. 3@ == 4
  7105. jf @garner2_55637
  7106. Actor.StorePos($PLAYER_ACTOR, 20@, 21@, 22@)
  7107. 0AF3: write_float 20@ to_ini_file "cleo\AdminTools\config.ini" section "temp-pos" key "x-pos"
  7108. 0AF3: write_float 21@ to_ini_file "cleo\AdminTools\config.ini" section "temp-pos" key "y-pos"
  7109. 0AF3: write_float 22@ to_ini_file "cleo\AdminTools\config.ini" section "temp-pos" key "z-pos"
  7110. format 5@ "Текущая позиция успешно сохранена."
  7111. call @garner4_17369 1 5@
  7112.  
  7113. :garner2_55637
  7114. if
  7115. 3@ == 5
  7116. jf @garner2_55943
  7117. 077E: get_active_interior_to 1@
  7118. if
  7119. not 1@ == 0
  7120. jf @garner2_55705
  7121. say "/setint 0"
  7122. say "/setvw 0"
  7123.  
  7124. :garner2_55705
  7125. 0AF2: 20@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "temp-pos" key "x-pos"
  7126. 0AF2: 21@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "temp-pos" key "y-pos"
  7127. 0AF2: 22@ = get_float_from_ini_file "cleo\AdminTools\config.ini" section "temp-pos" key "z-pos"
  7128. Actor.PutAt($PLAYER_ACTOR, 20@, 21@, 22@)
  7129. format 5@ "Вы были телепортированы на ранее сохраненную позицию."
  7130. call @garner4_17369 1 5@
  7131.  
  7132. :garner2_55943
  7133. free 5@
  7134.  
  7135. :garner2_55948
  7136. if
  7137. 2@ == 160
  7138. jf @garner2_62925
  7139. if
  7140. 1@ == 1793
  7141. jf @garner2_62925
  7142. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7143. if
  7144. 3@ == 0
  7145. jf @garner2_59818
  7146. Dialog.Free(0@)
  7147. 0@ = 0
  7148. alloc 11@ 5000
  7149. 0C11: memset destination 11@ value 0 size 5000
  7150. alloc 12@ 200
  7151. 0C11: memset destination 12@ value 0 size 200
  7152. format 12@ "{D3D3D3}%cКоманда%c%c%cОписание{FFFFFF}%c" 9 9 9 9 10
  7153. 0C15: strcat destination 11@ source 12@
  7154. format 12@ "{FF8C00}/at%c%c%c%c{EEDD82}Открыть главное меню скрипта.%c" 9 9 9 9 10
  7155. 0C15: strcat destination 11@ source 12@
  7156. format 12@ "{FF8C00}/hist [ID игрока]%c%c{EEDD82}Отобразить историю изменения ников игрока.%c" 9 9 10
  7157. 0C15: strcat destination 11@ source 12@
  7158. format 12@ "{FF8C00}/goinveh [ID Т/С]%c%c{EEDD82}Телепортироваться в транспортное средство.%c" 9 9 10
  7159. 0C15: strcat destination 11@ source 12@
  7160. format 12@ "{FF8C00}/getvhere [ID Т/С]%c%c{EEDD82}Телепортировать транспортное средство к себе.%c" 9 9 10
  7161. 0C15: strcat destination 11@ source 12@
  7162. format 12@ "{FF8C00}/reg [ID или ник]%c%c{EEDD82}Отобразить информацию об IP адресе игрока.%c" 9 9 10
  7163. 0C15: strcat destination 11@ source 12@
  7164. format 12@ "{FF8C00}/areg [ID или ник]%c%c{EEDD82}Отобразить информацию об IP адресе игрока в адм. чате.%c" 9 9 10
  7165. 0C15: strcat destination 11@ source 12@
  7166. format 12@ "{FF8C00}/iget [ID игрока]%c%c{EEDD82}Отобразить информацию об аккаунте.%c" 9 9 10
  7167. 0C15: strcat destination 11@ source 12@
  7168. format 12@ "{FF8C00}/ilip [ID игрока]%c%c%c{EEDD82}Отобразить /lip по ID игрока.%c" 9 9 9 10
  7169. 0C15: strcat destination 11@ source 12@
  7170. format 12@ "{FF8C00}/lipbans [ID игрока]%c%c{EEDD82}Проверить аккаунты из списка LIP на наличие в бан-листе.%c" 9 9 10
  7171. 0C15: strcat destination 11@ source 12@
  7172. format 12@ "{FF8C00}/forum%c%c%c%c{EEDD82}Отобразить названия 20 последних тем с раздела жалоб на администрацию.%c" 9 9 9 9 10
  7173. 0C15: strcat destination 11@ source 12@
  7174. format 12@ "{FF8C00}/rasform [ID банды]%c%c{EEDD82}Расформировать банду.%c" 9 9 10
  7175. 0C15: strcat destination 11@ source 12@
  7176. format 12@ "{FF8C00}/apay [ID игрока] [сумма]%c{EEDD82}Передача более 2000$ другому игроку.%c" 9 10
  7177. 0C15: strcat destination 11@ source 12@
  7178. format 12@ "{FF8C00}/rskin [ID скина] [радиус]%c{EEDD82}Выдача скинов игрокам, находящимся в радиусе.%c" 9 10
  7179. 0C15: strcat destination 11@ source 12@
  7180. format 12@ "{FF8C00}/rskins [ID скинов] [радиус]%c{EEDD82}Выдача двух скинов поочередно, игрокам,%c" 9 10
  7181. 0C15: strcat destination 11@ source 12@
  7182. format 12@ "%c%c%c%cнаходящимся в радиусе.%c" 9 9 9 9 10
  7183. 0C15: strcat destination 11@ source 12@
  7184. format 12@ "{FF8C00}/askick [ID игрока]%c%c{EEDD82}Автоматический кик данного игрока без лишнего шума, при входе его на сервер.%c" 9 9 10
  7185. 0C15: strcat destination 11@ source 12@
  7186. format 12@ "{FF8C00}/2warns [ID игрока]%c%c{EEDD82}Выдача игроку двух предупреждений.%c" 9 9 10
  7187. 0C15: strcat destination 11@ source 12@
  7188. format 12@ "{FF8C00}/carsp%c%c%c%c{EEDD82}Спавн указанного количества Т/С.%c" 9 9 9 9 10
  7189. 0C15: strcat destination 11@ source 12@
  7190. format 12@ "{FF8C00}/guns%c%c%c%c{EEDD82}Выдать себе Desert Eagle и M4.%c" 9 9 9 9 10
  7191. 0C15: strcat destination 11@ source 12@
  7192. format 12@ "{FF8C00}/stp%c%c%c%c{EEDD82}Телепортировать/остановить телепортацию игроков,%c" 9 9 9 9 10
  7193. 0C15: strcat destination 11@ source 12@
  7194. format 12@ "%c%c%c%cне находящихся в транспортном средстве, в зоне прорисовки.%c" 9 9 9 9 10
  7195. 0C15: strcat destination 11@ source 12@
  7196. format 12@ "{FF8C00}/findd [ID организации]%c%c{EEDD82}Проверить онлайн организации/банд/мафий и составить отчёт.%c" 9 9 10
  7197. 0C15: strcat destination 11@ source 12@
  7198. format 12@ "{FF8C00}/afindd [ID организации]%c{EEDD82}Проверить онлайн организации/банд/мафий.%c" 9 10
  7199. 0C15: strcat destination 11@ source 12@
  7200. format 12@ "%c%c%c%cи сообщить результат в админ. чате.%c%c" 9 9 9 9 10 10
  7201. 0C15: strcat destination 11@ source 12@
  7202. format 12@ "{D3D3D3}%cКлавиша%c%c%cНазначение{FFFFFF}%c" 9 9 9 9 10
  7203. 0C15: strcat destination 11@ source 12@
  7204. format 12@ "{FF8C00}Insert%c%c%c%c{EEDD82}Включить/отключить GM (GM Т/С включительно), починка Т/С.%c" 9 9 9 9 10
  7205. 0C15: strcat destination 11@ source 12@
  7206. format 12@ "{FF8C00}Alt + F3%c%c%c%c{EEDD82}Включить/отключить WallHack.%c" 9 9 9 9 10
  7207. 0C15: strcat destination 11@ source 12@
  7208. format 12@ "{FF8C00}Б%c%c%c%c{EEDD82}Включить/отключить AirBreak.%c" 9 9 9 9 10
  7209. 0C15: strcat destination 11@ source 12@
  7210. format 12@ "{FF8C00}Q и E%c%c%c%c{EEDD82}Изменить скорость движения при включеном AirBreak.%c" 9 9 9 9 10
  7211. 0C15: strcat destination 11@ source 12@
  7212. format 12@ "{FF8C00}Пробел и Shift%c%c%c{EEDD82}Направление вверх/вниз, при включеном AirBreak.%c" 9 9 9 10
  7213. 0C15: strcat destination 11@ source 12@
  7214. format 12@ "{FF8C00}<- | ->%c%c%c%c{EEDD82}Следить за пред. или след. по ID игроком.%c" 9 9 9 9 10
  7215. 0C15: strcat destination 11@ source 12@
  7216. format 12@ "{FF8C00}Shift + 0%c%c%c{EEDD82}Переподключение к серверу.%c" 9 9 9 10
  7217. 0C15: strcat destination 11@ source 12@
  7218. format 12@ "{FF8C00}Shift + F%c%c%c{EEDD82}Отключить чекер.%c" 9 9 9 10
  7219. 0C15: strcat destination 11@ source 12@
  7220. format 12@ "{FF8C00}ПКМ%c%c%c%c{EEDD82}Открыть меню быстрых команд (в режиме слежки).%c" 9 9 9 9 10
  7221. 0C15: strcat destination 11@ source 12@
  7222. format 12@ "{FF8C00}Delete%c%c%c%c{EEDD82}Подтверждение действия.%c" 9 9 9 9 10
  7223. 0C15: strcat destination 11@ source 12@
  7224. format 12@ "{FF8C00}M%c%c%c%c{EEDD82}Открыть главное меню скрипта." 9 9 9 9
  7225. 0C15: strcat destination 11@ source 12@
  7226. 7@ = 700
  7227. 7@ += 12
  7228. SAMP.ShowDialog(7@, "Справка AdminTools - Команды и быстрые клавиши (значения по-умолчанию)", 11@, "Назад", "Закрыть", DIALOG_STYLE_MSGBOX)
  7229. free 11@
  7230. free 12@
  7231.  
  7232. :garner2_59770
  7233. wait 0
  7234. SAMP.DialogRespond(7@, 1@, 0, 0)
  7235. jf @garner2_59770
  7236. if
  7237. 1@ == 1
  7238. jf @garner2_59818
  7239. 0C8F: samp process_chat_input "/at"
  7240.  
  7241. :garner2_59818
  7242. if
  7243. 3@ == 1
  7244. jf @garner2_61554
  7245. Dialog.Free(0@)
  7246. 0@ = 0
  7247. alloc 11@ 5000
  7248. 0C11: memset destination 11@ value 0 size 5000
  7249. alloc 12@ 200
  7250. 0C11: memset destination 12@ value 0 size 200
  7251. format 12@ "{FFFFFF}Данная функция полезна, к примеру, при выдаче наказаний по жалобам на форуме.%c" 10
  7252. 0C15: strcat destination 11@ source 12@
  7253. format 12@ "Рассмотрим функцию подробнее. В папке 'cleo/AdminTools' имеется файл 'punishment_list.txt'.%c" 10
  7254. 0C15: strcat destination 11@ source 12@
  7255. format 12@ "В него необходимо записывать наказания, каждое с новой строки, в формате:%c%c" 10 10
  7256. 0C15: strcat destination 11@ source 12@
  7257. format 12@ "• [команда] [ник игрока] [[количество]] [причина]%c%c" 10 10
  7258. 0C15: strcat destination 11@ source 12@
  7259. format 12@ "К примеру: {FF8C00}/jail Nick_Name 50 Жалоба на не сост. в орг. #1%c%c" 10 10
  7260. 0C15: strcat destination 11@ source 12@
  7261. format 12@ "{FFFFFF}В качестве наказаний, необходимо указывать команды: {FF8C00}/mute, /jail, /warn, /ban.%c" 10
  7262. 0C15: strcat destination 11@ source 12@
  7263. format 12@ "{FFFFFF}При выдаче предупреждения, количество указывать не нужно.%c" 10
  7264. 0C15: strcat destination 11@ source 12@
  7265. format 12@ "Кроме того, поддерживается команда снятия предупреждения, {FF8C00}/unwarn.%c%c" 10 10
  7266. 0C15: strcat destination 11@ source 12@
  7267. format 12@ "{FFFFFF}Поддерживается 2 режима выдачи наказаний:%c" 10
  7268. 0C15: strcat destination 11@ source 12@
  7269. format 12@ "• автоматический режим%c" 10
  7270. 0C15: strcat destination 11@ source 12@
  7271. format 12@ "При данном режиме, скрипт автоматически выдает наказания игрокам, когда они заходят в игру.%c" 10
  7272. 0C15: strcat destination 11@ source 12@
  7273. format 12@ "Данный режим можно отключить в настройках скрипта.%c%c" 10 10
  7274. 0C15: strcat destination 11@ source 12@
  7275. format 12@ "• полу-автоматический режим%c" 10
  7276. 0C15: strcat destination 11@ source 12@
  7277. format 12@ "При данном режиме, для выдачи наказаний, необходимо открыть таблицу с наказаниями и нажать кнопку 'Выдать'.%c" 10
  7278. 0C15: strcat destination 11@ source 12@
  7279. format 12@ "При этом, будут выданы наказания тем игрокам, которые онлайн, в данный момент.%c" 10
  7280. 0C15: strcat destination 11@ source 12@
  7281. format 12@ "Кроме того, будут выданы предупреждения и баны игрокам в оффлайне (для адм. 4 уровня и выше).%c%c" 10 10
  7282. 0C15: strcat destination 11@ source 12@
  7283. format 12@ "После выдачи, наказания автоматически удаляются из файла."
  7284. 0C15: strcat destination 11@ source 12@
  7285. 7@ = 700
  7286. 7@ += 13
  7287. SAMP.ShowDialog(7@, "Справка AdminTools - Таблица наказаний", 11@, "Назад", "Закрыть", DIALOG_STYLE_MSGBOX)
  7288. free 11@
  7289. free 12@
  7290.  
  7291. :garner2_61506
  7292. wait 0
  7293. SAMP.DialogRespond(7@, 1@, 0, 0)
  7294. jf @garner2_61506
  7295. if
  7296. 1@ == 1
  7297. jf @garner2_61554
  7298. 0C8F: samp process_chat_input "/at"
  7299.  
  7300. :garner2_61554
  7301. if
  7302. 3@ == 2
  7303. jf @garner2_62149
  7304. Dialog.Free(0@)
  7305. 0@ = 0
  7306. alloc 11@ 1000
  7307. 0C11: memset destination 11@ value 0 size 1000
  7308. alloc 12@ 200
  7309. 0C11: memset destination 12@ value 0 size 200
  7310. format 12@ "{FFFFFF}В скрипте имеется меню быстрых команд.%c" 10 10
  7311. 0C15: strcat destination 11@ source 12@
  7312. format 12@ "Данное меню позволяет из режима слежки просмотреть различную информацию об игроке, либо выдать наказание.%c" 10 10
  7313. 0C15: strcat destination 11@ source 12@
  7314. format 12@ "Для того, чтоб вызвать данное меню, необходимо перейти в режим слежки за игроком (/sp) и нажать ПКМ.%c" 10
  7315. 0C15: strcat destination 11@ source 12@
  7316. format 12@ "Настроить наказания можно в папке AdminTools/punishments."
  7317. 0C15: strcat destination 11@ source 12@
  7318. 7@ = 700
  7319. 7@ += 14
  7320. SAMP.ShowDialog(7@, "Справка AdminTools - Меню быстрых команд", 11@, "Назад", "Закрыть", DIALOG_STYLE_MSGBOX)
  7321. free 11@
  7322. free 12@
  7323.  
  7324. :garner2_62101
  7325. wait 0
  7326. SAMP.DialogRespond(7@, 1@, 0, 0)
  7327. jf @garner2_62101
  7328. if
  7329. 1@ == 1
  7330. jf @garner2_62149
  7331. 0C8F: samp process_chat_input "/at"
  7332.  
  7333. :garner2_62149
  7334. if
  7335. 3@ == 3
  7336. jf @garner2_62925
  7337. Dialog.Free(0@)
  7338. 0@ = 0
  7339. alloc 11@ 1000
  7340. 0C11: memset destination 11@ value 0 size 1000
  7341. alloc 12@ 200
  7342. 0C11: memset destination 12@ value 0 size 200
  7343. format 12@ "{FFFFFF}Данная функция позволяет выполнить админ. команду, не набирая ее.%c%c" 10 10
  7344. 0C15: strcat destination 11@ source 12@
  7345. format 12@ "К примеру, администратор 2 уровня пишет в админ. чате команду: /offwarn Nick_Name DeathMatch.%c" 10
  7346. 0C15: strcat destination 11@ source 12@
  7347. format 12@ "Скрипт ее автоматически отловит и уведомит о том, что администратор хочет выдать предупреждение.%c" 10
  7348. 0C15: strcat destination 11@ source 12@
  7349. format 12@ "Для подтверждения и выдачи наказания, необходимо будет нажать клавишу Delete в течение 15 секунд.%c" 10
  7350. 0C15: strcat destination 11@ source 12@
  7351. format 12@ "В случае, если этого не происходит - наказание не выдается. Данная функция включается в настройках.%c" 10
  7352. 0C15: strcat destination 11@ source 12@
  7353. 7@ = 700
  7354. 7@ += 15
  7355. SAMP.ShowDialog(7@, "Справка AdminTools - Отлавливание админ. команд", 11@, "Назад", "Закрыть", DIALOG_STYLE_MSGBOX)
  7356. free 11@
  7357. free 12@
  7358.  
  7359. :garner2_62877
  7360. wait 0
  7361. SAMP.DialogRespond(7@, 1@, 0, 0)
  7362. jf @garner2_62877
  7363. if
  7364. 1@ == 1
  7365. jf @garner2_62925
  7366. 0C8F: samp process_chat_input "/at"
  7367.  
  7368. :garner2_62925
  7369. if
  7370. 2@ == 104
  7371. jf @garner2_64096
  7372. if
  7373. 1@ == 1793
  7374. jf @garner2_64096
  7375. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7376. alloc 4@ 128
  7377. 0C11: memset destination 4@ value 0 size 128
  7378. 077E: get_active_interior_to 1@
  7379. if
  7380. not 1@ == 0
  7381. jf @garner2_63044
  7382. say "/setint 0"
  7383. say "/setvw 0"
  7384.  
  7385. :garner2_63044
  7386. if
  7387. 3@ == 0
  7388. jf @garner2_63156
  7389. Actor.PutAt($PLAYER_ACTOR, 1157.38, -1777.41, 33.63)
  7390. format 4@ "Вы были телепортированы на автостанцию г. Лос-Сантос."
  7391. call @garner4_17369 1 4@
  7392.  
  7393. :garner2_63156
  7394. if
  7395. 3@ == 1
  7396. jf @garner2_63267
  7397. Actor.PutAt($PLAYER_ACTOR, 1744.2, -1904.76, 30.45)
  7398. format 4@ "Вы были телепортированы на Ж/Д вокзал г. Лос-Сантос."
  7399. call @garner4_17369 1 4@
  7400.  
  7401. :garner2_63267
  7402. if
  7403. 3@ == 2
  7404. jf @garner2_63379
  7405. Actor.PutAt($PLAYER_ACTOR, -1979.37, 157.71, 39.85)
  7406. format 4@ "Вы были телепортированы на автостанцию г. Сан-Фиерро."
  7407. call @garner4_17369 1 4@
  7408.  
  7409. :garner2_63379
  7410. if
  7411. 3@ == 3
  7412. jf @garner2_63493
  7413. Actor.PutAt($PLAYER_ACTOR, 2842.95, 1303.15, 22.74)
  7414. format 4@ "Вы были телепортированы на автостанцию г. Лас-Вентурас."
  7415. call @garner4_17369 1 4@
  7416.  
  7417. :garner2_63493
  7418. if
  7419. 3@ == 4
  7420. jf @garner2_63593
  7421. Actor.PutAt($PLAYER_ACTOR, 1051.44, 1332.05, 10.82)
  7422. format 4@ "Вы были телепортированы около военкомата."
  7423. call @garner4_17369 1 4@
  7424.  
  7425. :garner2_63593
  7426. if
  7427. 3@ == 5
  7428. jf @garner2_63685
  7429. Actor.PutAt($PLAYER_ACTOR, -1818.705, -1620.406, 35.4024)
  7430. format 4@ "Вы были телепортированы на шахту."
  7431. call @garner4_17369 1 4@
  7432.  
  7433. :garner2_63685
  7434. if
  7435. 3@ == 6
  7436. jf @garner2_63777
  7437. Actor.PutAt($PLAYER_ACTOR, -112.1463, -316.2928, 28.8565)
  7438. format 4@ "Вы были телепортированы на завод."
  7439. call @garner4_17369 1 4@
  7440.  
  7441. :garner2_63777
  7442. if
  7443. 3@ == 7
  7444. jf @garner2_63873
  7445. Actor.PutAt($PLAYER_ACTOR, 2237.3, -2264.7, 24.0)
  7446. format 4@ "Вы были телепортированы около склада."
  7447. call @garner4_17369 1 4@
  7448.  
  7449. :garner2_63873
  7450. if
  7451. 3@ == 8
  7452. jf @garner2_63982
  7453. Actor.PutAt($PLAYER_ACTOR, 1423.5, -1628.6, 13.5)
  7454. format 4@ "Вы были телепортированы около банка г. Лос-Сантос."
  7455. call @garner4_17369 1 4@
  7456.  
  7457. :garner2_63982
  7458. if
  7459. 3@ == 9
  7460. jf @garner2_64091
  7461. Actor.PutAt($PLAYER_ACTOR, -1503.58, 919.92, 7.19)
  7462. format 4@ "Вы были телепортированы около банка г. Сан-Фиерро."
  7463. call @garner4_17369 1 4@
  7464.  
  7465. :garner2_64091
  7466. free 4@
  7467.  
  7468. :garner2_64096
  7469. if
  7470. 2@ == 106
  7471. jf @garner2_66669
  7472. if
  7473. 1@ == 1793
  7474. jf @garner2_66669
  7475. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7476. alloc 4@ 128
  7477. 0C11: memset destination 4@ value 0 size 128
  7478. 077E: get_active_interior_to 1@
  7479. if
  7480. not 1@ == 0
  7481. jf @garner2_64215
  7482. say "/setint 0"
  7483. say "/setvw 0"
  7484.  
  7485. :garner2_64215
  7486. if
  7487. 3@ == 0
  7488. jf @garner2_64329
  7489. Actor.PutAt($PLAYER_ACTOR, 943.782, -933.2716, 61.6)
  7490. format 4@ "Вы были телепортированы около Администрации Президента."
  7491. call @garner4_17369 1 4@
  7492.  
  7493. :garner2_64329
  7494. if
  7495. 3@ == 1
  7496. jf @garner2_64438
  7497. Actor.PutAt($PLAYER_ACTOR, 1479.782, -1656.272, 14.0469)
  7498. format 4@ "Вы были телепортированы около Мэрии г. Лос-Сантос."
  7499. call @garner4_17369 1 4@
  7500.  
  7501. :garner2_64438
  7502. if
  7503. 3@ == 2
  7504. jf @garner2_64547
  7505. Actor.PutAt($PLAYER_ACTOR, -2706.49, 376.27, 4.97)
  7506. format 4@ "Вы были телепортированы около Мэрии г. Сан-Фиерро."
  7507. call @garner4_17369 1 4@
  7508.  
  7509. :garner2_64547
  7510. if
  7511. 3@ == 3
  7512. jf @garner2_64658
  7513. Actor.PutAt($PLAYER_ACTOR, 2359.9, 2475.61, 10.82)
  7514. format 4@ "Вы были телепортированы около Мэрии г. Лас-Вентурас."
  7515. call @garner4_17369 1 4@
  7516.  
  7517. :garner2_64658
  7518. if
  7519. 3@ == 4
  7520. jf @garner2_64782
  7521. Actor.PutAt($PLAYER_ACTOR, -2024.134, 488.0721, 35.2265)
  7522. format 4@ "Вы были телепортированы около здания Министерства Внутренних Дел."
  7523. call @garner4_17369 1 4@
  7524.  
  7525. :garner2_64782
  7526. if
  7527. 3@ == 5
  7528. jf @garner2_64893
  7529. Actor.PutAt($PLAYER_ACTOR, 1541.99, -1658.85, 13.6)
  7530. format 4@ "Вы были телепортированы около полиции г. Лос-Сантос."
  7531. call @garner4_17369 1 4@
  7532.  
  7533. :garner2_64893
  7534. if
  7535. 3@ == 6
  7536. jf @garner2_65004
  7537. Actor.PutAt($PLAYER_ACTOR, -1626.99, 721.85, 14.6)
  7538. format 4@ "Вы были телепортированы около полиции г. Сан-Фиерро."
  7539. call @garner4_17369 1 4@
  7540.  
  7541. :garner2_65004
  7542. if
  7543. 3@ == 7
  7544. jf @garner2_65117
  7545. Actor.PutAt($PLAYER_ACTOR, 2303.4, 2428.0, 10.82)
  7546. format 4@ "Вы были телепортированы около полиции г. Лас-Вентурас."
  7547. call @garner4_17369 1 4@
  7548.  
  7549. :garner2_65117
  7550. if
  7551. 3@ == 8
  7552. jf @garner2_65215
  7553. Actor.PutAt($PLAYER_ACTOR, -2464.8, 494.1, 30.1)
  7554. format 4@ "Вы были телепортированы около базы ФБР."
  7555. call @garner4_17369 1 4@
  7556.  
  7557. :garner2_65215
  7558. if
  7559. 3@ == 9
  7560. jf @garner2_65332
  7561. Actor.PutAt($PLAYER_ACTOR, 1042.88, 1032.48, 11.0)
  7562. format 4@ "Вы были телепортированы около здания Министерства Обороны."
  7563. call @garner4_17369 1 4@
  7564.  
  7565. :garner2_65332
  7566. if
  7567. 3@ == 10
  7568. jf @garner2_65440
  7569. Actor.PutAt($PLAYER_ACTOR, 346.59, 1947.27, 32.92)
  7570. format 4@ "Вы были телепортированы на базу Сухопутных Войск."
  7571. call @garner4_17369 1 4@
  7572.  
  7573. :garner2_65440
  7574. if
  7575. 3@ == 11
  7576. jf @garner2_65552
  7577. Actor.PutAt($PLAYER_ACTOR, 404.7473, 2472.325, 29.6439)
  7578. format 4@ "Вы были телепортированы на базу Военно-Воздушных Сил."
  7579. call @garner4_17369 1 4@
  7580.  
  7581. :garner2_65552
  7582. if
  7583. 3@ == 12
  7584. jf @garner2_65665
  7585. Actor.PutAt($PLAYER_ACTOR, -2232.062, 2358.222, 20.6625)
  7586. format 4@ "Вы были телепортированы на базу Военно-Морского Флота."
  7587. call @garner4_17369 1 4@
  7588.  
  7589. :garner2_65665
  7590. if
  7591. 3@ == 13
  7592. jf @garner2_65761
  7593. Actor.PutAt($PLAYER_ACTOR, -1475.134, 356.0721, 54.4265)
  7594. format 4@ "Вы были телепортированы на авианосец."
  7595. call @garner4_17369 1 4@
  7596.  
  7597. :garner2_65761
  7598. if
  7599. 3@ == 14
  7600. jf @garner2_65879
  7601. Actor.PutAt($PLAYER_ACTOR, -2751.59, -281.3, 7.1)
  7602. format 4@ "Вы были телепортированы около Министерства Здравоохранения."
  7603. call @garner4_17369 1 4@
  7604.  
  7605. :garner2_65879
  7606. if
  7607. 3@ == 15
  7608. jf @garner2_65991
  7609. Actor.PutAt($PLAYER_ACTOR, 1187.59, -1318.83, 13.57)
  7610. format 4@ "Вы были телепортированы около больницы г. Лос-Сантос."
  7611. call @garner4_17369 1 4@
  7612.  
  7613. :garner2_65991
  7614. if
  7615. 3@ == 16
  7616. jf @garner2_66103
  7617. Actor.PutAt($PLAYER_ACTOR, -2644.99, 615.35, 14.45)
  7618. format 4@ "Вы были телепортированы около больницы г. Сан-Фиерро."
  7619. call @garner4_17369 1 4@
  7620.  
  7621. :garner2_66103
  7622. if
  7623. 3@ == 17
  7624. jf @garner2_66217
  7625. Actor.PutAt($PLAYER_ACTOR, 1603.8, 1829.1, 10.82)
  7626. format 4@ "Вы были телепортированы около больницы г. Лас-Вентурас."
  7627. call @garner4_17369 1 4@
  7628.  
  7629. :garner2_66217
  7630. if
  7631. 3@ == 18
  7632. jf @garner2_66332
  7633. Actor.PutAt($PLAYER_ACTOR, 1670.4, -1677.3, 21.4)
  7634. format 4@ "Вы были телепортированы около радиоцентра г. Лос-Сантос."
  7635. call @garner4_17369 1 4@
  7636.  
  7637. :garner2_66332
  7638. if
  7639. 3@ == 19
  7640. jf @garner2_66447
  7641. Actor.PutAt($PLAYER_ACTOR, -1798.6, 547.1, 35.2)
  7642. format 4@ "Вы были телепортированы около радиоцентра г. Сан-Фиерро."
  7643. call @garner4_17369 1 4@
  7644.  
  7645. :garner2_66447
  7646. if
  7647. 3@ == 20
  7648. jf @garner2_66564
  7649. Actor.PutAt($PLAYER_ACTOR, 2127.8, 2331.3, 11.7)
  7650. format 4@ "Вы были телепортированы около радиоцентра г. Лас-Вентурас."
  7651. call @garner4_17369 1 4@
  7652.  
  7653. :garner2_66564
  7654. if
  7655. 3@ == 21
  7656. jf @garner2_66664
  7657. Actor.PutAt($PLAYER_ACTOR, 1779.9, -1273.7, 13.6)
  7658. format 4@ "Вы были телепортированы около телецентра."
  7659. call @garner4_17369 1 4@
  7660.  
  7661. :garner2_66664
  7662. free 4@
  7663.  
  7664. :garner2_66669
  7665. if
  7666. 2@ == 107
  7667. jf @garner2_68048
  7668. if
  7669. 1@ == 1793
  7670. jf @garner2_68048
  7671. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7672. alloc 4@ 128
  7673. 0C11: memset destination 4@ value 0 size 128
  7674. 077E: get_active_interior_to 1@
  7675. if
  7676. not 1@ == 0
  7677. jf @garner2_66788
  7678. say "/setint 0"
  7679. say "/setvw 0"
  7680.  
  7681. :garner2_66788
  7682. if
  7683. 3@ == 0
  7684. jf @garner2_66895
  7685. Actor.PutAt($PLAYER_ACTOR, 2150.74, 1678.9, 10.82)
  7686. format 4@ "Вы были телепортированы около казино 'Калигула'."
  7687. call @garner4_17369 1 4@
  7688.  
  7689. :garner2_66895
  7690. if
  7691. 3@ == 1
  7692. jf @garner2_66992
  7693. Actor.PutAt($PLAYER_ACTOR, 2690.406, -1705.378, 11.2673)
  7694. format 4@ "Вы были телепортированы на МП 'Дерби'."
  7695. call @garner4_17369 1 4@
  7696.  
  7697. :garner2_66992
  7698. if
  7699. 3@ == 2
  7700. jf @garner2_67093
  7701. Actor.PutAt($PLAYER_ACTOR, 1571.908, -1247.448, 277.8782)
  7702. format 4@ "Вы были телепортированы на МП 'Поливалка'."
  7703. call @garner4_17369 1 4@
  7704.  
  7705. :garner2_67093
  7706. if
  7707. 3@ == 3
  7708. jf @garner2_67219
  7709. Actor.PutAt($PLAYER_ACTOR, 2486.54, 2788.77, 10.82)
  7710. format 4@ "Вы были телепортированы на казаки-разбойники на заброшенном заводе."
  7711. call @garner4_17369 1 4@
  7712.  
  7713. :garner2_67219
  7714. if
  7715. 3@ == 4
  7716. jf @garner2_67349
  7717. Actor.PutAt($PLAYER_ACTOR, 2801.49, 895.83, 10.76)
  7718. format 4@ "Вы были телепортированы на казаки-разбойники на испытательном полигоне."
  7719. call @garner4_17369 1 4@
  7720.  
  7721. :garner2_67349
  7722. if
  7723. 3@ == 5
  7724. jf @garner2_67473
  7725. Actor.PutAt($PLAYER_ACTOR, -1048.42, -1195.41, 129.04)
  7726. format 4@ "Вы были телепортированы на казаки-разбойники на ферме наркоманов."
  7727. call @garner4_17369 1 4@
  7728.  
  7729. :garner2_67473
  7730. if
  7731. 3@ == 6
  7732. jf @garner2_67587
  7733. Actor.PutAt($PLAYER_ACTOR, 2152.42, -92.91, 2.7)
  7734. format 4@ "Вы были телепортированы на казаки-разбойники под водой."
  7735. call @garner4_17369 1 4@
  7736.  
  7737. :garner2_67587
  7738. if
  7739. 3@ == 7
  7740. jf @garner2_67707
  7741. Actor.PutAt($PLAYER_ACTOR, 1559.8, 30.58, 24.16)
  7742. format 4@ "Вы были телепортированы на гонки по центральному San Andreas."
  7743. call @garner4_17369 1 4@
  7744.  
  7745. :garner2_67707
  7746. if
  7747. 3@ == 8
  7748. jf @garner2_67823
  7749. Actor.PutAt($PLAYER_ACTOR, -2400.97, -2177.23, 33.29)
  7750. format 4@ "Вы были телепортированы на гонки 'Подъем на гору Чилиад'."
  7751. call @garner4_17369 1 4@
  7752.  
  7753. :garner2_67823
  7754. if
  7755. 3@ == 9
  7756. jf @garner2_67940
  7757. Actor.PutAt($PLAYER_ACTOR, 2338.18, -1055.79, 52.39)
  7758. format 4@ "Вы были телепортированы на гонки по западному San Andreas."
  7759. call @garner4_17369 1 4@
  7760.  
  7761. :garner2_67940
  7762. if
  7763. 3@ == 10
  7764. jf @garner2_68043
  7765. Actor.PutAt($PLAYER_ACTOR, 802.62, 1690.03, 5.28)
  7766. format 4@ "Вы были телепортированы на гонки по пустыне."
  7767. call @garner4_17369 1 4@
  7768.  
  7769. :garner2_68043
  7770. free 4@
  7771.  
  7772. :garner2_68048
  7773. if
  7774. 2@ == 123
  7775. jf @garner2_69061
  7776. if
  7777. 1@ == 1793
  7778. jf @garner2_69061
  7779. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7780. alloc 4@ 128
  7781. 0C11: memset destination 4@ value 0 size 128
  7782. 077E: get_active_interior_to 1@
  7783. if
  7784. not 1@ == 0
  7785. jf @garner2_68167
  7786. say "/setint 0"
  7787. say "/setvw 0"
  7788.  
  7789. :garner2_68167
  7790. if
  7791. 3@ == 0
  7792. jf @garner2_68278
  7793. Actor.PutAt($PLAYER_ACTOR, 2494.3, -1694.1, 23.7)
  7794. format 4@ "Вы были телепортированы на район банды Grove Street."
  7795. call @garner4_17369 1 4@
  7796.  
  7797. :garner2_68278
  7798. if
  7799. 3@ == 1
  7800. jf @garner2_68387
  7801. Actor.PutAt($PLAYER_ACTOR, 2010.3, -1135.9, 25.0)
  7802. format 4@ "Вы были телепортированы на район банды The Ballas."
  7803. call @garner4_17369 1 4@
  7804.  
  7805. :garner2_68387
  7806. if
  7807. 3@ == 2
  7808. jf @garner2_68502
  7809. Actor.PutAt($PLAYER_ACTOR, 2766.1, -1177.9, 69.4)
  7810. format 4@ "Вы были телепортированы на район банды Los Santos Vagos."
  7811. call @garner4_17369 1 4@
  7812.  
  7813. :garner2_68502
  7814. if
  7815. 3@ == 3
  7816. jf @garner2_68609
  7817. Actor.PutAt($PLAYER_ACTOR, 2745.0, -1925.2, 21.6)
  7818. format 4@ "Вы были телепортированы на район банды The Rifa."
  7819. call @garner4_17369 1 4@
  7820.  
  7821. :garner2_68609
  7822. if
  7823. 3@ == 4
  7824. jf @garner2_68726
  7825. Actor.PutAt($PLAYER_ACTOR, 2188.8, -1820.6, 18.9)
  7826. format 4@ "Вы были телепортированы на район банды Varios Los Aztecas."
  7827. call @garner4_17369 1 4@
  7828.  
  7829. :garner2_68726
  7830. if
  7831. 3@ == 5
  7832. jf @garner2_68841
  7833. Actor.PutAt($PLAYER_ACTOR, 1491.0, 2773.9, 16.0)
  7834. format 4@ "Вы были телепортированы около базы мафии La Cosa Nostra."
  7835. call @garner4_17369 1 4@
  7836.  
  7837. :garner2_68841
  7838. if
  7839. 3@ == 6
  7840. jf @garner2_68948
  7841. Actor.PutAt($PLAYER_ACTOR, 2597.0, 1913.1, 28.3)
  7842. format 4@ "Вы были телепортированы около базы мафии Yakuza."
  7843. call @garner4_17369 1 4@
  7844.  
  7845. :garner2_68948
  7846. if
  7847. 3@ == 7
  7848. jf @Help_Text_Boxes
  7849. Actor.PutAt($PLAYER_ACTOR, 989.2, 1733.3, 10.8)
  7850. format 4@ "Вы были телепортированы около базы Русской мафии."
  7851. call @garner4_17369 1 4@
  7852.  
  7853. :Help_Text_Boxes
  7854. free 4@
  7855.  
  7856. :garner2_69061
  7857. if
  7858. 2@ == 149
  7859. jf @garner2_70688
  7860. if
  7861. 1@ == 1793
  7862. jf @garner2_70688
  7863. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7864. if
  7865. 3@ == 0
  7866. jf @garner2_69277
  7867. Dialog.SetControlVisible(0@, 149, 0)
  7868. Dialog.AddListBox(0@, 150, 2, 3, 365, 199)
  7869. Dialog.ListBoxInsertElement(0@, 150, "Президент", 1, -1)
  7870. Dialog.ListBoxInsertElement(0@, 150, "Мэр г. Лос-Сантос", 2, -1)
  7871. Dialog.ListBoxInsertElement(0@, 150, "Мэр г. Сан-Фиерро", 3, -1)
  7872. Dialog.ListBoxInsertElement(0@, 150, "Мэр г. Лас-Вентурас", 4, -1)
  7873.  
  7874. :garner2_69277
  7875. if
  7876. 3@ == 1
  7877. jf @garner2_69516
  7878. Dialog.SetControlVisible(0@, 149, 0)
  7879. Dialog.AddListBox(0@, 151, 2, 3, 365, 199)
  7880. Dialog.ListBoxInsertElement(0@, 151, "Министр Внутренних Дел", 1, -1)
  7881. Dialog.ListBoxInsertElement(0@, 151, "Генерал полиции г. Лос-Сантос", 2, -1)
  7882. Dialog.ListBoxInsertElement(0@, 151, "Генерал полиции г. Сан-Фиерро", 3, -1)
  7883. Dialog.ListBoxInsertElement(0@, 151, "Генерал полиции г. Лас-Вентурас", 4, -1)
  7884. Dialog.ListBoxInsertElement(0@, 151, "Директор ФБР", 4, -1)
  7885.  
  7886. :garner2_69516
  7887. if
  7888. 3@ == 2
  7889. jf @garner2_69714
  7890. Dialog.SetControlVisible(0@, 149, 0)
  7891. Dialog.AddListBox(0@, 152, 2, 3, 365, 199)
  7892. Dialog.ListBoxInsertElement(0@, 152, "Министр Обороны", 1, -1)
  7893. Dialog.ListBoxInsertElement(0@, 152, "Генерал Сухопутных Войск", 2, -1)
  7894. Dialog.ListBoxInsertElement(0@, 152, "Генерал Военно-Воздушных Сил", 3, -1)
  7895. Dialog.ListBoxInsertElement(0@, 152, "Адмирал Военно-Морского Флота", 4, -1)
  7896.  
  7897. :garner2_69714
  7898. if
  7899. 3@ == 3
  7900. jf @garner2_69940
  7901. Dialog.SetControlVisible(0@, 149, 0)
  7902. Dialog.AddListBox(0@, 153, 2, 3, 365, 199)
  7903. Dialog.ListBoxInsertElement(0@, 153, "Министр Здравоохранения", 1, -1)
  7904. Dialog.ListBoxInsertElement(0@, 153, "Глав. врач больницы г. Лос-Сантос", 2, -1)
  7905. Dialog.ListBoxInsertElement(0@, 153, "Глав. врач больницы г. Сан-Фиерро", 3, -1)
  7906. Dialog.ListBoxInsertElement(0@, 153, "Глав. врач больницы г. Лас-Вентурас", 4, -1)
  7907.  
  7908. :garner2_69940
  7909. if
  7910. 3@ == 4
  7911. jf @garner2_70191
  7912. Dialog.SetControlVisible(0@, 149, 0)
  7913. Dialog.AddListBox(0@, 154, 2, 3, 365, 199)
  7914. Dialog.ListBoxInsertElement(0@, 154, "Управляющий СМИ", 1, -1)
  7915. Dialog.ListBoxInsertElement(0@, 154, "Директор радиоентра г. Лос-Сантос", 2, -1)
  7916. Dialog.ListBoxInsertElement(0@, 154, "Директор радиоентра г. Сан-Фиерро", 3, -1)
  7917. Dialog.ListBoxInsertElement(0@, 154, "Директор радиоентра г. Лас-Вентурас", 4, -1)
  7918. Dialog.ListBoxInsertElement(0@, 154, "Директор телецентра", 5, -1)
  7919.  
  7920. :garner2_70191
  7921. if
  7922. 3@ == 5
  7923. jf @garner2_70411
  7924. Dialog.SetControlVisible(0@, 149, 0)
  7925. Dialog.AddListBox(0@, 155, 2, 3, 365, 199)
  7926. Dialog.ListBoxInsertElement(0@, 155, "{00CD00}Grove Street", 1, -1)
  7927. Dialog.ListBoxInsertElement(0@, 155, "{CD00CD}The Ballas", 2, -1)
  7928. Dialog.ListBoxInsertElement(0@, 155, "{EEC900}Los Santos Vagos", 3, -1)
  7929. Dialog.ListBoxInsertElement(0@, 155, "{836FFF}The Rifa", 5, -1)
  7930. Dialog.ListBoxInsertElement(0@, 155, "{00BFFF}Varios Los Aztecas", 4, -1)
  7931.  
  7932. :garner2_70411
  7933. if
  7934. 3@ == 6
  7935. jf @garner2_70556
  7936. Dialog.SetControlVisible(0@, 149, 0)
  7937. Dialog.AddListBox(0@, 156, 2, 3, 365, 199)
  7938. Dialog.ListBoxInsertElement(0@, 156, "{8B0A50}La Cosa Nostra", 1, -1)
  7939. Dialog.ListBoxInsertElement(0@, 156, "{EE0000}Yakuza", 2, -1)
  7940. Dialog.ListBoxInsertElement(0@, 156, "{008B8B}Русская мафия", 3, -1)
  7941.  
  7942. :garner2_70556
  7943. if
  7944. 3@ == 7
  7945. jf @garner2_70688
  7946. say "/templeader 0 0"
  7947. alloc 5@ 128
  7948. 0C11: memset destination 5@ value 0 size 128
  7949. format 5@ "0 0"
  7950. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  7951. free 5@
  7952.  
  7953. :garner2_70688
  7954. if
  7955. 2@ == 150
  7956. jf @garner2_70909
  7957. if
  7958. 1@ == 1793
  7959. jf @garner2_70909
  7960. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7961. 4@ = 1
  7962. if and
  7963. 3@ >= 0
  7964. not 3@ > 3
  7965. jf @garner2_70807
  7966. 3@ += 1
  7967. say "/templeader %i %i" 4@ 3@
  7968.  
  7969. :garner2_70807
  7970. alloc 5@ 128
  7971. 0C11: memset destination 5@ value 0 size 128
  7972. format 5@ "%i %i" 4@ 3@
  7973. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  7974. free 5@
  7975.  
  7976. :garner2_70909
  7977. if
  7978. 2@ == 190
  7979. jf @garner2_71563
  7980. if
  7981. 1@ == 1794
  7982. jf @garner2_71563
  7983. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  7984. 4@ = 0
  7985.  
  7986. :garner2_70968
  7987. if
  7988. 003B: 3@ == 4@ // (int)
  7989. jf @garner2_71541
  7990. 4@ += 400
  7991. 0AF1: write_int 4@ to_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "id"
  7992. alloc 5@ 64
  7993. 0C11: memset destination 5@ value 0 size 64
  7994. alloc 6@ 64
  7995. 0C11: memset destination 6@ value 0 size 64
  7996. Dialog.GetControlText(0@, 194, 5@)
  7997. Dialog.GetControlText(0@, 196, 6@)
  7998. if and
  7999. 0AD4: 1@ = scan_string 5@ format "%i" 2@
  8000. 0AD4: 1@ = scan_string 6@ format "%i" 3@
  8001. jf @garner2_71462
  8002. if and
  8003. 2@ >= 0
  8004. not 2@ > 255
  8005. 3@ >= 0
  8006. not 3@ > 255
  8007. jf @garner2_71384
  8008. 0AF1: write_int 2@ to_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color1"
  8009. 0AF1: write_int 3@ to_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color2"
  8010. 0C48: samp textdraw 420 create "Veh" pos 450.0 175.0
  8011. 0C49: samp textdraw 420 set_box 1 color -1 size 105.0 105.0
  8012. 0C4C: samp textdraw 420 set_style 5
  8013. 0C4F: samp textdraw 420 set_model 4@ rotation -20.0 0.0 30.0 zoom 0.9 veh_color 2@ 3@
  8014. goto @garner2_71455
  8015.  
  8016. :garner2_71384
  8017. format 5@ "Значение цвета может быть в диапазоне от 0 до 255."
  8018. call @garner4_17369 1 5@
  8019.  
  8020. :garner2_71455
  8021. goto @garner2_71531
  8022.  
  8023. :garner2_71462
  8024. format 5@ "Укажите значения параметров 'цвет 1' и 'цвет 2'."
  8025. call @garner4_17369 1 5@
  8026.  
  8027. :garner2_71531
  8028. free 5@
  8029. free 6@
  8030.  
  8031. :garner2_71541
  8032. 4@ += 1
  8033. 4@ > 211
  8034. jf @garner2_70968
  8035.  
  8036. :garner2_71563
  8037. if
  8038. 2@ == 151
  8039. jf @garner2_71777
  8040. if
  8041. 1@ == 1793
  8042. jf @garner2_71777
  8043. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  8044. 4@ = 2
  8045. if and
  8046. 3@ >= 0
  8047. not 3@ > 4
  8048. jf @garner2_71675
  8049. say "/templeader %i %i" 4@ 3@
  8050.  
  8051. :garner2_71675
  8052. alloc 5@ 128
  8053. 0C11: memset destination 5@ value 0 size 128
  8054. format 5@ "%i %i" 4@ 3@
  8055. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  8056. free 5@
  8057.  
  8058. :garner2_71777
  8059. if
  8060. 2@ == 152
  8061. jf @garner2_71991
  8062. if
  8063. 1@ == 1793
  8064. jf @garner2_71991
  8065. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  8066. 4@ = 3
  8067. if and
  8068. 3@ >= 0
  8069. not 3@ > 3
  8070. jf @garner2_71889
  8071. say "/templeader %i %i" 4@ 3@
  8072.  
  8073. :garner2_71889
  8074. alloc 5@ 128
  8075. 0C11: memset destination 5@ value 0 size 128
  8076. format 5@ "%i %i" 4@ 3@
  8077. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  8078. free 5@
  8079.  
  8080. :garner2_71991
  8081. if
  8082. 2@ == 153
  8083. jf @garner2_72205
  8084. if
  8085. 1@ == 1793
  8086. jf @garner2_72205
  8087. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  8088. 4@ = 4
  8089. if and
  8090. 3@ >= 0
  8091. not 3@ > 3
  8092. jf @garner2_72103
  8093. say "/templeader %i %i" 4@ 3@
  8094.  
  8095. :garner2_72103
  8096. alloc 5@ 128
  8097. 0C11: memset destination 5@ value 0 size 128
  8098. format 5@ "%i %i" 4@ 3@
  8099. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  8100. free 5@
  8101.  
  8102. :garner2_72205
  8103. if
  8104. 2@ == 154
  8105. jf @garner2_72419
  8106. if
  8107. 1@ == 1793
  8108. jf @garner2_72419
  8109. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  8110. 4@ = 5
  8111. if and
  8112. 3@ >= 0
  8113. not 3@ > 4
  8114. jf @garner2_72317
  8115. say "/templeader %i %i" 4@ 3@
  8116.  
  8117. :garner2_72317
  8118. alloc 5@ 128
  8119. 0C11: memset destination 5@ value 0 size 128
  8120. format 5@ "%i %i" 4@ 3@
  8121. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  8122. free 5@
  8123.  
  8124. :garner2_72419
  8125. if
  8126. 2@ == 155
  8127. jf @garner2_72625
  8128. if
  8129. 1@ == 1793
  8130. jf @garner2_72625
  8131. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  8132. if and
  8133. 3@ >= 0
  8134. not 3@ > 4
  8135. jf @garner2_72527
  8136. 3@ += 6
  8137. say "/templeader %i 0" 3@
  8138.  
  8139. :garner2_72527
  8140. alloc 5@ 128
  8141. 0C11: memset destination 5@ value 0 size 128
  8142. format 5@ "%i 0" 3@
  8143. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  8144. free 5@
  8145.  
  8146. :garner2_72625
  8147. if
  8148. 2@ == 156
  8149. jf @garner2_72831
  8150. if
  8151. 1@ == 1793
  8152. jf @garner2_72831
  8153. Dialog.ListBoxGetSelectedAndCount(0@, 2@, 3@, 4@)
  8154. if and
  8155. 3@ >= 0
  8156. not 3@ > 2
  8157. jf @garner2_72733
  8158. 3@ += 11
  8159. say "/templeader %i 0" 3@
  8160.  
  8161. :garner2_72733
  8162. alloc 5@ 128
  8163. 0C11: memset destination 5@ value 0 size 128
  8164. format 5@ "%i 0" 3@
  8165. 0AF5: write_string 5@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  8166. free 5@
  8167.  
  8168. :garner2_72831
  8169. goto @garner2_106
  8170. thread 'garner3'
  8171. alloc 31@ 200
  8172. 0C11: memset destination 31@ value 0 size 200
  8173. 0B34: samp register_client_command "hist" to_label @garner4_15101
  8174. 0B34: samp register_client_command "goinveh" to_label @garner4_21595
  8175. 0B34: samp register_client_command "getvhere" to_label @garner4_22285
  8176. 0B34: samp register_client_command "reg" to_label @garner4_22917
  8177. 0B34: samp register_client_command "areg" to_label @garner4_23661
  8178. 0B34: samp register_client_command "iget" to_label @garner4_14685
  8179. 0B34: samp register_client_command "stp" to_label @garner4_24975
  8180. 0B34: samp register_client_command "findd" to_label @garner4_25574
  8181. 0B34: samp register_client_command "afindd" to_label @garner4_26052
  8182. 0B34: samp register_client_command "sp" to_label @garner4_26533
  8183. 0B34: samp register_client_command "guns" to_label @garner4_15505
  8184. 0B34: samp register_client_command "ilip" to_label @garner4_26964
  8185. 0B34: samp register_client_command "apay" to_label @garner4_28323
  8186. 0B34: samp register_client_command "rskin" to_label @garner4_28853
  8187. 0B34: samp register_client_command "rskins" to_label @garner4_29534
  8188. 0B34: samp register_client_command "askick" to_label @garner4_30401
  8189. 0B34: samp register_client_command "2warns" to_label @garner4_30941
  8190. 0B34: samp register_client_command "carsp" to_label @garner4_31521
  8191. 0B34: samp register_client_command "lipbans" to_label @garner4_27508
  8192. 0B34: samp register_client_command "forum" to_label @garner4_32502
  8193. 0B34: samp register_client_command "rasform" to_label @garner4_32606
  8194. 0BE3: raknet setup_incoming_rpc_hook -138567
  8195.  
  8196. :garner3_330
  8197. wait 0
  8198. 0BFD: 1@ = get_global_var "UPDATING_STATUS"
  8199. if
  8200. 1@ == 1
  8201. jf @garner3_570
  8202. SAMP.UnregisterClientCommand("hist")
  8203. SAMP.UnregisterClientCommand("goinveh")
  8204. SAMP.UnregisterClientCommand("getvhere")
  8205. SAMP.UnregisterClientCommand("reg")
  8206. SAMP.UnregisterClientCommand("areg")
  8207. SAMP.UnregisterClientCommand("iget")
  8208. SAMP.UnregisterClientCommand("stp")
  8209. SAMP.UnregisterClientCommand("findd")
  8210. SAMP.UnregisterClientCommand("afindd")
  8211. SAMP.UnregisterClientCommand("sp")
  8212. SAMP.UnregisterClientCommand("guns")
  8213. SAMP.UnregisterClientCommand("ilip")
  8214. SAMP.UnregisterClientCommand("apay")
  8215. SAMP.UnregisterClientCommand("rskin")
  8216. SAMP.UnregisterClientCommand("rskins")
  8217. SAMP.UnregisterClientCommand("askick")
  8218. SAMP.UnregisterClientCommand("2warns")
  8219. SAMP.UnregisterClientCommand("carsp")
  8220. SAMP.UnregisterClientCommand("lipbans")
  8221. SAMP.UnregisterClientCommand("forum")
  8222. SAMP.UnregisterClientCommand("rasform")
  8223. free 31@
  8224. end_thread
  8225.  
  8226. :garner3_570
  8227. 0BFD: 0@ = get_global_var "godmode-status"
  8228. if
  8229. 0@ == 1
  8230. jf @garner3_689
  8231. 0@ = Actor.Health($PLAYER_ACTOR)
  8232. 0BFD: 1@ = get_global_var "ADMIN_LVL"
  8233. if and
  8234. not 0@ > 90
  8235. 1@ >= 4
  8236. jf @garner3_689
  8237. 0@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  8238. say "/hp %i 100" 0@
  8239. wait 3000
  8240.  
  8241. :garner3_689
  8242. 0BFD: 0@ = get_global_var "skin-changer-status"
  8243. 0BFD: 1@ = get_global_var "ADMIN_LVL"
  8244. if and
  8245. 0@ == 1
  8246. 1@ >= 4
  8247. jf @garner3_1075
  8248. 0BFD: 0@ = get_global_var "main-skin"
  8249. if
  8250. Actor.Model($PLAYER_ACTOR) == 0@
  8251. jf @garner3_1075
  8252. 0BFD: 1@ = get_global_var "tempskin"
  8253. if or
  8254. not 1@ > 0
  8255. 1@ > 311
  8256. 003B: 1@ == 0@ // (int)
  8257. 1@ == 74
  8258. jf @garner3_1040
  8259. alloc 0@ 128
  8260. 0C11: memset destination 0@ value 0 size 128
  8261. format 0@ "Некорректное значение ID временного скина!"
  8262. call @garner4_17369 1 0@
  8263. format 0@ "Значение должно быть в диапазоне 1 - 311 и не должно быть основным скином!"
  8264. call @garner4_17369 1 0@
  8265. free 0@
  8266. wait 5000
  8267. goto @garner3_1075
  8268.  
  8269. :garner3_1040
  8270. 2@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  8271. say "/skin %i %i" 2@ 1@
  8272. wait 3000
  8273.  
  8274. :garner3_1075
  8275. 0BFD: 0@ = get_global_var "check-reg-status"
  8276. if
  8277. 0@ == 1
  8278. jf @garner3_4254
  8279. alloc 10@ 1000
  8280. 0C11: memset destination 10@ value 0 size 1000
  8281. alloc 11@ 300
  8282. 0C11: memset destination 11@ value 0 size 300
  8283. alloc 12@ 500
  8284. 0C11: memset destination 12@ value 0 size 500
  8285. alloc 13@ 500
  8286. 0C11: memset destination 13@ value 0 size 500
  8287. alloc 14@ 1400
  8288. 0C11: memset destination 14@ value 0 size 1400
  8289. alloc 17@ 500
  8290. 0C11: memset destination 17@ value 0 size 500
  8291. alloc 16@ 200
  8292. 0C11: memset destination 16@ value 0 size 200
  8293. SAMP.CloseDialog(1)
  8294. 0AF4: 10@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  8295. say "/get %s" 10@
  8296. 30@ = 0
  8297. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  8298.  
  8299. :garner3_1332
  8300. wait 0
  8301. if
  8302. SAMP.IsDialogActive(-1)
  8303. jf @garner3_1358
  8304. goto @garner3_1370
  8305.  
  8306. :garner3_1358
  8307. 8C79: not is_timer 29@ active
  8308. jf @garner3_1332
  8309.  
  8310. :garner3_1370
  8311. 0C75: kill_timer 29@
  8312. 0BD8: samp get_dialog_caption 11@
  8313. if
  8314. 0C21: stricmp string1 10@ string2 11@
  8315. jf @garner3_4103
  8316. 0BD7: samp get_dialog_text 10@
  8317. if
  8318. 0C29: 1@ = stristr string1 10@ string2 "(регис.)"
  8319. jf @garner3_4053
  8320. 0AD4: 0@ = scan_string 1@ format "(регис.):%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8321. format 11@ "%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8322. format 12@ "http:%c%cip-api.com/line/%s?lang=ru" 47 47 11@
  8323. if
  8324. call @garner4_24413 2 12@ 14@ 14@
  8325. jf @garner3_2294
  8326. 0C11: memset destination 12@ value 0 size 500
  8327. 0BD8: samp get_dialog_caption 11@
  8328. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  8329. format 13@ "%s[%i]" 11@ 0@
  8330. format 11@ "{FFFFFF}Ник игрока:%c%s%c" 9 13@ 10
  8331. 0C15: strcat destination 12@ source 11@
  8332. if
  8333. 0C29: 5@ = stristr string1 10@ string2 "регистрации"
  8334. jf @garner3_1861
  8335. 0AD4: 0@ = scan_string 5@ format "регистрации:%d-%d-%d" 2@ 3@ 4@
  8336. format 13@ "%d-%.2d-%.2d" 2@ 3@ 4@
  8337. format 11@ "Дата регис.:%c%s%c%c" 9 13@ 10 10
  8338. 0C15: strcat destination 12@ source 11@
  8339.  
  8340. :garner3_1861
  8341. 0C1F: 0@ = string_array 14@ element 13 size 100
  8342. format 11@ "Регис. IP:%c%c%c%s%c" 32 32 9 0@ 10
  8343. 0C15: strcat destination 12@ source 11@
  8344. 0C1F: 0@ = string_array 14@ element 1 size 100
  8345. 0C15: strcat destination 16@ source 0@
  8346. call @garner4_25304 1 0@ 15@
  8347. format 11@ "Страна: %c%s%c" 9 15@ 10
  8348. free 15@
  8349. 0C15: strcat destination 12@ source 11@
  8350. 0C1F: 0@ = string_array 14@ element 4 size 100
  8351. call @garner4_25304 1 0@ 15@
  8352. format 11@ "Область: %c%s%c" 9 15@ 10
  8353. free 15@
  8354. 0C15: strcat destination 12@ source 11@
  8355. 0C1F: 0@ = string_array 14@ element 5 size 100
  8356. format 17@ ", %s" 0@
  8357. 0C15: strcat destination 16@ source 17@
  8358. 0AF5: write_string 16@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod1"
  8359. call @garner4_25304 1 0@ 15@
  8360. format 11@ "Город:%c%c%c%s%c" 32 32 9 15@ 10
  8361. free 15@
  8362. 0C15: strcat destination 12@ source 11@
  8363. 0C1F: 0@ = string_array 14@ element 11 size 100
  8364. call @garner4_25304 1 0@ 15@
  8365. format 11@ "Провайдер: %c%s%c%c" 9 15@ 10 10
  8366. free 15@
  8367. 0C15: strcat destination 12@ source 11@
  8368.  
  8369. :garner3_2294
  8370. 0C11: memset destination 16@ value 0 size 200
  8371. if
  8372. 0C29: 0@ = stristr string1 1@ string2 "(послед.)"
  8373. jf @garner3_4046
  8374. 0AD4: 1@ = scan_string 0@ format "(послед.):%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8375. format 11@ "%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8376. format 10@ "http:%c%cip-api.com/line/%s?lang=ru" 47 47 11@
  8377. if
  8378. call @garner4_24413 2 10@ 14@ 14@
  8379. jf @garner3_4046
  8380. 0C1F: 0@ = string_array 14@ element 13 size 100
  8381. format 11@ "Послед. IP:%c%c%s%c" 32 9 0@ 10
  8382. 0C15: strcat destination 12@ source 11@
  8383. 0C1F: 0@ = string_array 14@ element 1 size 100
  8384. 0C15: strcat destination 16@ source 0@
  8385. call @garner4_25304 1 0@ 15@
  8386. format 11@ "Страна: %c%s%c" 9 15@ 10
  8387. free 15@
  8388. 0C15: strcat destination 12@ source 11@
  8389. 0C1F: 0@ = string_array 14@ element 4 size 100
  8390. call @garner4_25304 1 0@ 15@
  8391. format 11@ "Область: %c%s%c" 9 15@ 10
  8392. free 15@
  8393. 0C15: strcat destination 12@ source 11@
  8394. 0C1F: 0@ = string_array 14@ element 5 size 100
  8395. format 17@ ", %s" 0@
  8396. 0C15: strcat destination 16@ source 17@
  8397. 0AF5: write_string 16@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod2"
  8398. call @garner4_25304 1 0@ 15@
  8399. format 11@ "Город:%c%c%c%s%c" 32 32 9 15@ 10
  8400. free 15@
  8401. 0C15: strcat destination 12@ source 11@
  8402. 0C1F: 0@ = string_array 14@ element 11 size 100
  8403. call @garner4_25304 1 0@ 15@
  8404. format 11@ "Провайдер: %c%s" 9 15@
  8405. free 15@
  8406. 0C15: strcat destination 12@ source 11@
  8407. 0AF4: 10@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod1"
  8408. 0AF4: 11@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod2"
  8409. if
  8410. 8C21: not stricmp string1 10@ string2 11@
  8411. jf @garner3_4000
  8412. format 13@ "https:%c%cmaps.googleapis.com/maps/api/distancematrix/" 47 47
  8413. format 14@ "json?origins=%s&destinations=%s&language=ru" 10@ 11@
  8414. 0C15: strcat destination 13@ source 14@
  8415. format 14@ "&key=AIzaSyDrui3Na0hGHXWPiKoLD-cyG7RHC2P5kfA"
  8416. 0C15: strcat destination 13@ source 14@
  8417. 0C65: 9@ = download_url 13@ to_file "cleo/AdminTools/dist.txt"
  8418. 8@ = -1
  8419.  
  8420. :garner3_3260
  8421. 8@ == -1
  8422. jf @garner3_3293
  8423. wait 0
  8424. 0C66: 8@ = get_download 9@ state
  8425. goto @garner3_3260
  8426.  
  8427. :garner3_3293
  8428. 0C7D: release_download 9@
  8429. if
  8430. not 8@ == 0
  8431. jf @garner3_3452
  8432. alloc 4@ 200
  8433. 0C11: memset destination 4@ value 0 size 200
  8434. format 4@ "Произошла ошибка при получении данных о расстоянии между городами. Код ошибки: %p." 8@
  8435. call @garner4_17369 1 4@
  8436. free 4@
  8437. goto @garner3_4000
  8438.  
  8439. :garner3_3452
  8440. wait 0
  8441. 0AAB: file_exists "cleo\AdminTools\dist.txt"
  8442. jf @garner3_3452
  8443. if
  8444. 0AAB: file_exists "cleo\AdminTools\dist.txt"
  8445. jf @garner3_4000
  8446. 2@ = File.Open("cleo\AdminTools\dist.txt", "r")
  8447.  
  8448. :garner3_3564
  8449. if
  8450. File.ReadString(2@, 10@, 100)
  8451. jf @garner3_3955
  8452. if
  8453. 0C29: 1@ = stristr string1 10@ string2 "distance"
  8454. jf @garner3_3774
  8455. if
  8456. File.ReadString(2@, 10@, 100)
  8457. jf @garner3_3774
  8458. if
  8459. 0C29: 1@ = stristr string1 10@ string2 "text"
  8460. jf @garner3_3774
  8461. 1@ += 9
  8462. if
  8463. 0C2C: 3@ = strrchr 10@ char 34
  8464. jf @garner3_3697
  8465. 0C11: memset destination 3@ value 0 size 2
  8466.  
  8467. :garner3_3697
  8468. call @garner4_25304 1 1@ 15@
  8469. format 11@ "%c%cРасстояние:%c%c%c%s%c" 10 10 32 32 9 15@ 10
  8470. 0C15: strcat destination 12@ source 11@
  8471. free 15@
  8472.  
  8473. :garner3_3774
  8474. if
  8475. 0C29: 1@ = stristr string1 10@ string2 "duration"
  8476. jf @garner3_3955
  8477. if
  8478. File.ReadString(2@, 10@, 100)
  8479. jf @garner3_3955
  8480. if
  8481. 0C29: 1@ = stristr string1 10@ string2 "text"
  8482. jf @garner3_3955
  8483. 1@ += 9
  8484. if
  8485. 0C2C: 3@ = strrchr 10@ char 34
  8486. jf @garner3_3886
  8487. 0C11: memset destination 3@ value 0 size 2
  8488.  
  8489. :garner3_3886
  8490. call @garner4_25304 1 1@ 15@
  8491. format 11@ "Дл. поездки:%c%c%s" 32 9 15@
  8492. 0C15: strcat destination 12@ source 11@
  8493. free 15@
  8494. goto @garner3_3967
  8495.  
  8496. :garner3_3955
  8497. File.EOF(2@)
  8498. jf @garner3_3564
  8499.  
  8500. :garner3_3967
  8501. File.Close(2@)
  8502. 0B00: delete_file "cleo\AdminTools\dist.txt" // IF and SET
  8503.  
  8504. :garner3_4000
  8505. SAMP.ShowDialog(700, "Рег. данные игрока", 12@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  8506. free 15@
  8507.  
  8508. :garner3_4046
  8509. goto @garner3_4096
  8510.  
  8511. :garner3_4053
  8512. format 10@ "Не обнаружен IP-адрес."
  8513. call @garner4_17369 1 10@
  8514.  
  8515. :garner3_4096
  8516. goto @garner3_4192
  8517.  
  8518. :garner3_4103
  8519. format 10@ "Ошибка. Ник игрока не совпадает с запрашиваемым. Попробуйте еще раз."
  8520. call @garner4_17369 1 10@
  8521.  
  8522. :garner3_4192
  8523. free 10@
  8524. free 11@
  8525. free 12@
  8526. free 13@
  8527. free 14@
  8528. free 15@
  8529. free 16@
  8530. free 17@
  8531. 0BFC: set_global_var "check-reg-status" = 0
  8532.  
  8533. :garner3_4254
  8534. 0BFD: 0@ = get_global_var "check-reg-a-status"
  8535. if
  8536. 0@ == 1
  8537. jf @garner3_7010
  8538. alloc 10@ 1000
  8539. 0C11: memset destination 10@ value 0 size 1000
  8540. alloc 11@ 300
  8541. 0C11: memset destination 11@ value 0 size 300
  8542. alloc 12@ 300
  8543. 0C11: memset destination 12@ value 0 size 300
  8544. alloc 13@ 300
  8545. 0C11: memset destination 13@ value 0 size 300
  8546. alloc 14@ 1400
  8547. 0C11: memset destination 14@ value 0 size 1400
  8548. alloc 16@ 300
  8549. 0C11: memset destination 16@ value 0 size 300
  8550. alloc 17@ 300
  8551. 0C11: memset destination 17@ value 0 size 300
  8552. SAMP.CloseDialog(1)
  8553. 0AF4: 10@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  8554. say "/get %s" 10@
  8555. 30@ = 0
  8556. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  8557.  
  8558. :garner3_4513
  8559. wait 0
  8560. if
  8561. SAMP.IsDialogActive(-1)
  8562. jf @garner3_4539
  8563. goto @garner3_4551
  8564.  
  8565. :garner3_4539
  8566. 8C79: not is_timer 29@ active
  8567. jf @garner3_4513
  8568.  
  8569. :garner3_4551
  8570. 0C75: kill_timer 29@
  8571. 0BD8: samp get_dialog_caption 11@
  8572. if
  8573. 0C21: stricmp string1 10@ string2 11@
  8574. jf @garner3_6862
  8575. 0BD7: samp get_dialog_text 10@
  8576. if
  8577. 0C29: 1@ = stristr string1 10@ string2 "(регис.)"
  8578. jf @garner3_6812
  8579. 0AD4: 0@ = scan_string 1@ format "(регис.):%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8580. format 11@ "%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8581. format 12@ "http:%c%cip-api.com/line/%s?lang=ru" 47 47 11@
  8582. if
  8583. call @garner4_24413 2 12@ 14@ 14@
  8584. jf @garner3_5212
  8585. 0C11: memset destination 12@ value 0 size 300
  8586. 0C1F: 0@ = string_array 14@ element 13 size 100
  8587. format 11@ "IP1: %s," 0@
  8588. 0C15: strcat destination 12@ source 11@
  8589. 0C1F: 0@ = string_array 14@ element 1 size 100
  8590. 0C15: strcat destination 16@ source 0@
  8591. format 11@ " %s," 0@
  8592. 0C15: strcat destination 12@ source 11@
  8593. 0C1F: 0@ = string_array 14@ element 4 size 100
  8594. format 11@ " %s," 0@
  8595. 0C15: strcat destination 12@ source 11@
  8596. 0C1F: 0@ = string_array 14@ element 5 size 100
  8597. format 17@ ", %s" 0@
  8598. 0C15: strcat destination 16@ source 17@
  8599. 0AF5: write_string 16@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod1"
  8600. format 11@ " %s," 0@
  8601. 0C15: strcat destination 12@ source 11@
  8602. 0C1F: 0@ = string_array 14@ element 11 size 100
  8603. format 11@ " %s." 0@
  8604. 0C15: strcat destination 12@ source 11@
  8605. 0BD8: samp get_dialog_caption 11@
  8606. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  8607. format 13@ "Информация об IP адресах игрока: %s[%i]. IP1 - рег., IP2 - посл." 11@ 0@
  8608. say "/a %s" 13@
  8609. call @garner4_25304 1 12@ 15@
  8610. say "/a %s" 15@
  8611. free 15@
  8612.  
  8613. :garner3_5212
  8614. if
  8615. 0C29: 0@ = stristr string1 1@ string2 "(послед.)"
  8616. jf @garner3_6805
  8617. 0AD4: 1@ = scan_string 0@ format "(послед.):%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8618. format 11@ "%i.%i.%i.%i" 2@ 3@ 4@ 5@
  8619. format 12@ "http:%c%cip-api.com/line/%s?lang=ru" 47 47 11@
  8620. if
  8621. call @garner4_24413 2 12@ 14@ 14@
  8622. jf @garner3_6805
  8623. 0C11: memset destination 12@ value 0 size 300
  8624. 0C1F: 0@ = string_array 14@ element 13 size 100
  8625. format 11@ "IP2: %s," 0@
  8626. 0C15: strcat destination 12@ source 11@
  8627. 0C1F: 0@ = string_array 14@ element 1 size 100
  8628. 0C11: memset destination 16@ value 0 size 200
  8629. 0C15: strcat destination 16@ source 0@
  8630. format 11@ " %s," 0@
  8631. 0C15: strcat destination 12@ source 11@
  8632. 0C1F: 0@ = string_array 14@ element 4 size 100
  8633. format 11@ " %s," 0@
  8634. 0C15: strcat destination 12@ source 11@
  8635. 0C1F: 0@ = string_array 14@ element 5 size 100
  8636. format 17@ ", %s" 0@
  8637. 0C15: strcat destination 16@ source 17@
  8638. 0AF5: write_string 16@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod2"
  8639. format 11@ " %s," 0@
  8640. 0C15: strcat destination 12@ source 11@
  8641. 0C1F: 0@ = string_array 14@ element 11 size 100
  8642. format 11@ " %s." 0@
  8643. 0C15: strcat destination 12@ source 11@
  8644. call @garner4_25304 1 12@ 15@
  8645. say "/a %s" 15@
  8646. free 15@
  8647. 0AF4: 10@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod1"
  8648. 0AF4: 11@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "gorod2"
  8649. if
  8650. 8C21: not stricmp string1 10@ string2 11@
  8651. jf @garner3_6805
  8652. format 13@ "https:%c%cmaps.googleapis.com/maps/api/distancematrix/" 47 47
  8653. format 14@ "json?origins=%s&destinations=%s&language=ru" 10@ 11@
  8654. 0C15: strcat destination 13@ source 14@
  8655. format 14@ "&key=AIzaSyDrui3Na0hGHXWPiKoLD-cyG7RHC2P5kfA"
  8656. 0C15: strcat destination 13@ source 14@
  8657. 0C65: 9@ = download_url 13@ to_file "cleo/AdminTools/dist.txt"
  8658. 8@ = -1
  8659.  
  8660. :garner3_6059
  8661. 8@ == -1
  8662. jf @garner3_6092
  8663. wait 0
  8664. 0C66: 8@ = get_download 9@ state
  8665. goto @garner3_6059
  8666.  
  8667. :garner3_6092
  8668. 0C7D: release_download 9@
  8669. if
  8670. not 8@ == 0
  8671. jf @garner3_6251
  8672. alloc 4@ 200
  8673. 0C11: memset destination 4@ value 0 size 200
  8674. format 4@ "Произошла ошибка при получении данных о расстоянии между городами. Код ошибки: %p." 8@
  8675. call @garner4_17369 1 4@
  8676. free 4@
  8677. goto @garner3_6805
  8678.  
  8679. :garner3_6251
  8680. wait 0
  8681. 0AAB: file_exists "cleo\AdminTools\dist.txt"
  8682. jf @garner3_6251
  8683. if
  8684. 0AAB: file_exists "cleo\AdminTools\dist.txt"
  8685. jf @garner3_6805
  8686. 2@ = File.Open("cleo\AdminTools\dist.txt", "r")
  8687.  
  8688. :garner3_6363
  8689. if
  8690. File.ReadString(2@, 10@, 100)
  8691. jf @garner3_6760
  8692. if
  8693. 0C29: 1@ = stristr string1 10@ string2 "distance"
  8694. jf @garner3_6559
  8695. if
  8696. File.ReadString(2@, 10@, 100)
  8697. jf @garner3_6559
  8698. if
  8699. 0C29: 1@ = stristr string1 10@ string2 "text"
  8700. jf @garner3_6559
  8701. 1@ += 9
  8702. if
  8703. 0C2C: 3@ = strrchr 10@ char 34
  8704. jf @garner3_6496
  8705. 0C11: memset destination 3@ value 0 size 2
  8706.  
  8707. :garner3_6496
  8708. call @garner4_25304 1 1@ 15@
  8709. format 11@ "Расстояние между городами: %s, " 15@
  8710. free 15@
  8711.  
  8712. :garner3_6559
  8713. if
  8714. 0C29: 1@ = stristr string1 10@ string2 "duration"
  8715. jf @garner3_6760
  8716. if
  8717. File.ReadString(2@, 10@, 100)
  8718. jf @garner3_6760
  8719. if
  8720. 0C29: 1@ = stristr string1 10@ string2 "text"
  8721. jf @garner3_6760
  8722. 1@ += 9
  8723. if
  8724. 0C2C: 3@ = strrchr 10@ char 34
  8725. jf @garner3_6671
  8726. 0C11: memset destination 3@ value 0 size 2
  8727.  
  8728. :garner3_6671
  8729. call @garner4_25304 1 1@ 15@
  8730. format 13@ "длительность поездки: %s" 15@
  8731. 0C15: strcat destination 11@ source 13@
  8732. wait 1000
  8733. say "/a %s" 11@
  8734. free 15@
  8735. goto @garner3_6772
  8736.  
  8737. :garner3_6760
  8738. File.EOF(2@)
  8739. jf @garner3_6363
  8740.  
  8741. :garner3_6772
  8742. File.Close(2@)
  8743. 0B00: delete_file "cleo\AdminTools\dist.txt" // IF and SET
  8744.  
  8745. :garner3_6805
  8746. goto @garner3_6855
  8747.  
  8748. :garner3_6812
  8749. format 10@ "Не обнаружен IP-адрес."
  8750. call @garner4_17369 1 10@
  8751.  
  8752. :garner3_6855
  8753. goto @garner3_6951
  8754.  
  8755. :garner3_6862
  8756. format 10@ "Ошибка. Ник игрока не совпадает с запрашиваемым. Попробуйте еще раз."
  8757. call @garner4_17369 1 10@
  8758.  
  8759. :garner3_6951
  8760. free 10@
  8761. free 11@
  8762. free 12@
  8763. free 13@
  8764. free 14@
  8765. free 16@
  8766. free 17@
  8767. 0BFC: set_global_var "check-reg-a-status" = 0
  8768.  
  8769. :garner3_7010
  8770. 0BFD: 12@ = get_global_var "tp-no-drivers-status"
  8771. if
  8772. 12@ == 1
  8773. jf @garner3_8541
  8774. if
  8775. 0C8A: samp 3@ = get_max_player_id streamed_only 1
  8776. jf @garner3_8441
  8777. alloc 2@ 128
  8778. 0C11: memset destination 2@ value 0 size 128
  8779. format 2@ "{DCDCDC}К вам будут телепортированы игроки, которые находятся в зоне прорисовки, но не в Т/С. Продолжить?"
  8780. 7@ = 700
  8781. 7@ += 9
  8782. SAMP.ShowDialog(7@, "Телепортация игроков", 2@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  8783. free 2@
  8784.  
  8785. :garner3_7268
  8786. wait 0
  8787. SAMP.DialogRespond(7@, 6@, 0, 0)
  8788. jf @garner3_7268
  8789. if
  8790. 6@ == 1
  8791. jf @garner3_8408
  8792. 5@ = 0
  8793. 6@ = 0
  8794. if
  8795. call @garner4_13215 0 14@ 16@
  8796. jf @garner3_7720
  8797. 0BFD: 8@ = get_global_var "admins-in-file-count"
  8798. 8@ -= 1
  8799. 2@ = 0
  8800.  
  8801. :garner3_7391
  8802. 9@ = 0
  8803. 0BFD: 12@ = get_global_var "tp-no-drivers-status"
  8804. if
  8805. 12@ == 0
  8806. jf @garner3_7450
  8807. goto @garner3_7703
  8808.  
  8809. :garner3_7450
  8810. if
  8811. SAMP.IsPlayerConnected(2@)
  8812. jf @garner3_7681
  8813. 4@ = SAMP.GetActorHandleByPlayerID(2@)
  8814. if
  8815. 056D: actor 4@ defined
  8816. jf @garner3_7681
  8817. if
  8818. Actor.Driving(4@)
  8819. jf @garner3_7520
  8820. 6@ += 1
  8821. goto @garner3_7681
  8822.  
  8823. :garner3_7520
  8824. if
  8825. 8104: not actor $PLAYER_ACTOR near_actor 4@ radius 16.0 16.0 16.0 sphere 0
  8826. jf @garner3_7681
  8827. 7@ = SAMP.GetPlayerNickname(2@)
  8828. 0@ = 0
  8829.  
  8830. :garner3_7571
  8831. 0C1F: 1@ = string_array 14@ element 0@ size 25
  8832. if
  8833. 0C21: stricmp string1 7@ string2 1@
  8834. jf @garner3_7610
  8835. 9@ = 1
  8836.  
  8837. :garner3_7610
  8838. 0@ += 1
  8839. 001D: 0@ > 8@ // (int)
  8840. jf @garner3_7571
  8841. if
  8842. 9@ == 0
  8843. jf @garner3_7681
  8844. say "/gethere %i" 2@
  8845. 5@ += 1
  8846. wait 5000
  8847.  
  8848. :garner3_7681
  8849. 2@ += 1
  8850. 001D: 2@ > 3@ // (int)
  8851. jf @garner3_7391
  8852.  
  8853. :garner3_7703
  8854. free 14@
  8855. free 16@
  8856. goto @garner3_7953
  8857.  
  8858. :garner3_7720
  8859. 2@ = 0
  8860.  
  8861. :garner3_7727
  8862. 9@ = 0
  8863. 0BFD: 12@ = get_global_var "tp-no-drivers-status"
  8864. if
  8865. 12@ == 0
  8866. jf @garner3_7786
  8867. goto @garner3_7953
  8868.  
  8869. :garner3_7786
  8870. if
  8871. SAMP.IsPlayerConnected(2@)
  8872. jf @garner3_7931
  8873. 4@ = SAMP.GetActorHandleByPlayerID(2@)
  8874. if
  8875. 056D: actor 4@ defined
  8876. jf @garner3_7931
  8877. if
  8878. Actor.Driving(4@)
  8879. jf @garner3_7856
  8880. 6@ += 1
  8881. goto @garner3_7931
  8882.  
  8883. :garner3_7856
  8884. if
  8885. 8104: not actor $PLAYER_ACTOR near_actor 4@ radius 16.0 16.0 16.0 sphere 0
  8886. jf @garner3_7931
  8887. 7@ = SAMP.GetPlayerNickname(2@)
  8888. say "/gethere %i" 2@
  8889. 5@ += 1
  8890. wait 5000
  8891.  
  8892. :garner3_7931
  8893. 2@ += 1
  8894. 001D: 2@ > 3@ // (int)
  8895. jf @garner3_7727
  8896.  
  8897. :garner3_7953
  8898. 0BFC: set_global_var "tp-no-drivers-status" = 0
  8899. if
  8900. 5@ > 0
  8901. jf @garner3_8124
  8902. alloc 2@ 128
  8903. 0C11: memset destination 2@ value 0 size 128
  8904. format 2@ "Игроки успешно телепортированы. Всего было телепортировано %i игрок(-ов)." 5@
  8905. call @garner4_17369 1 2@
  8906. free 2@
  8907. goto @garner3_8212
  8908.  
  8909. :garner3_8124
  8910. alloc 2@ 128
  8911. 0C11: memset destination 2@ value 0 size 128
  8912. format 2@ "Игроки, не находящиеся в Т/С, не обнаружены."
  8913. call @garner4_17369 1 2@
  8914. free 2@
  8915.  
  8916. :garner3_8212
  8917. if
  8918. 6@ > 0
  8919. jf @garner3_8326
  8920. alloc 2@ 128
  8921. 0C11: memset destination 2@ value 0 size 128
  8922. format 2@ "Количество игроков, находящихся в Т/С: %i." 6@
  8923. call @garner4_17369 1 2@
  8924. free 2@
  8925. goto @garner3_8401
  8926.  
  8927. :garner3_8326
  8928. alloc 2@ 128
  8929. 0C11: memset destination 2@ value 0 size 128
  8930. format 2@ "Игроков, находящихся в Т/С нет."
  8931. call @garner4_17369 1 2@
  8932. free 2@
  8933.  
  8934. :garner3_8401
  8935. goto @garner3_8434
  8936.  
  8937. :garner3_8408
  8938. 0BFC: set_global_var "tp-no-drivers-status" = 0
  8939.  
  8940. :garner3_8434
  8941. goto @garner3_8541
  8942.  
  8943. :garner3_8441
  8944. 0BFC: set_global_var "tp-no-drivers-status" = 0
  8945. alloc 2@ 128
  8946. 0C11: memset destination 2@ value 0 size 128
  8947. format 2@ "В зоне прорисовки нет игроков."
  8948. call @garner4_17369 1 2@
  8949. free 2@
  8950.  
  8951. :garner3_8541
  8952. 0BFD: 0@ = get_global_var "COMMAND_FROM_ADM_CHAT_STATUS"
  8953. 0BFD: 1@ = get_global_var "cmd-from-adm-chat"
  8954. if and
  8955. 0@ == 1
  8956. not 1@ == 0
  8957. jf @garner3_17424
  8958. wait 300
  8959. alloc 12@ 200
  8960. 0C11: memset destination 12@ value 0 size 200
  8961. 13@ = 0
  8962. 2@ = 99
  8963.  
  8964. :garner3_8662
  8965. SAMP.GetChatString(2@, 12@, 0, 0, 0)
  8966. if
  8967. 0C21: stricmp string1 31@ string2 12@
  8968. jf @garner3_8709
  8969. 13@ = 1
  8970. goto @garner3_8730
  8971.  
  8972. :garner3_8709
  8973. 2@ -= 1
  8974. 94 > 2@
  8975. jf @garner3_8662
  8976.  
  8977. :garner3_8730
  8978. free 12@
  8979. if and
  8980. 0C2B: 1@ = strpbrk string 31@ control "/"
  8981. 13@ == 1
  8982. jf @garner3_17390
  8983. 0C2B: 2@ = strpbrk string 31@ control "]"
  8984. 0C2B: 7@ = strpbrk string 2@ control "["
  8985. if
  8986. 0AD4: 0@ = scan_string 7@ format "[%i]" 3@
  8987. jf @garner3_17390
  8988. 4@ = SAMP.GetPlayerNickname(3@)
  8989. alloc 10@ 100
  8990. 0C11: memset destination 10@ value 0 size 100
  8991. alloc 11@ 200
  8992. 0C11: memset destination 11@ value 0 size 200
  8993. 0C2B: 8@ = strpbrk string 31@ control "]"
  8994. 8@ += 2
  8995. if
  8996. 0C19: 5@ = strcspn string1 8@ string2 "_"
  8997. jf @garner3_17380
  8998. 0C27: strncat destination 10@ source 8@ size 5@
  8999. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  9000. if
  9001. 0@ == 1
  9002. jf @garner3_9084
  9003. if
  9004. not 10@ == 1794
  9005. jf @garner3_9084
  9006. 0@ = Audiostream.Load("CLEO\AdminTools\data\audio\notification.mp3")
  9007. 0BFC: set_global_var "AT_NOTIFICATION_SOUND" = 0@
  9008. Audiostream.PerformAction(0@, PLAY)
  9009.  
  9010. :garner3_9084
  9011. if
  9012. 0AD4: 0@ = scan_string 1@ format "/jail %i" 5@
  9013. jf @garner3_9373
  9014. if
  9015. SAMP.IsPlayerConnected(5@)
  9016. jf @garner3_9311
  9017. 6@ = SAMP.GetPlayerNickname(5@)
  9018. format 11@ "Администратор %s[%i] хочет посадить в тюрьму игрока %s[%i]." 4@ 3@ 6@ 5@
  9019. call @garner4_17369 1 11@
  9020. format 11@ "Нажмите клавишу подтверждения."
  9021. call @garner4_17369 1 11@
  9022. 30@ = 0
  9023. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9024. goto @garner3_9366
  9025.  
  9026. :garner3_9311
  9027. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9028.  
  9029. :garner3_9366
  9030. goto @garner3_13733
  9031.  
  9032. :garner3_9373
  9033. if
  9034. 0AD4: 0@ = scan_string 1@ format "/kick %i" 5@
  9035. jf @garner3_9652
  9036. if
  9037. SAMP.IsPlayerConnected(5@)
  9038. jf @garner3_9590
  9039. 6@ = SAMP.GetPlayerNickname(5@)
  9040. format 11@ "Администратор %s[%i] хочет кикнуть игрока %s[%i]." 4@ 3@ 6@ 5@
  9041. call @garner4_17369 1 11@
  9042. format 11@ "Нажмите клавишу подтверждения."
  9043. call @garner4_17369 1 11@
  9044. 30@ = 0
  9045. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9046. goto @garner3_9645
  9047.  
  9048. :garner3_9590
  9049. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9050.  
  9051. :garner3_9645
  9052. goto @garner3_13733
  9053.  
  9054. :garner3_9652
  9055. if
  9056. 0AD4: 0@ = scan_string 1@ format "/mute %i" 5@
  9057. jf @garner3_9938
  9058. if
  9059. SAMP.IsPlayerConnected(5@)
  9060. jf @garner3_9876
  9061. 6@ = SAMP.GetPlayerNickname(5@)
  9062. format 11@ "Администратор %s[%i] хочет выдать затычку игроку %s[%i]." 4@ 3@ 6@ 5@
  9063. call @garner4_17369 1 11@
  9064. format 11@ "Нажмите клавишу подтверждения."
  9065. call @garner4_17369 1 11@
  9066. 30@ = 0
  9067. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9068. goto @garner3_9931
  9069.  
  9070. :garner3_9876
  9071. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9072.  
  9073. :garner3_9931
  9074. goto @garner3_13733
  9075.  
  9076. :garner3_9938
  9077. if
  9078. 0AD4: 0@ = scan_string 1@ format "/warn %i" 5@
  9079. jf @garner3_10231
  9080. if
  9081. SAMP.IsPlayerConnected(5@)
  9082. jf @garner3_10169
  9083. 6@ = SAMP.GetPlayerNickname(5@)
  9084. format 11@ "Администратор %s[%i] хочет выдать предупреждение игроку %s[%i]." 4@ 3@ 6@ 5@
  9085. call @garner4_17369 1 11@
  9086. format 11@ "Нажмите клавишу подтверждения."
  9087. call @garner4_17369 1 11@
  9088. 30@ = 0
  9089. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9090. goto @garner3_10224
  9091.  
  9092. :garner3_10169
  9093. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9094.  
  9095. :garner3_10224
  9096. goto @garner3_13733
  9097.  
  9098. :garner3_10231
  9099. if
  9100. 0AD4: 0@ = scan_string 1@ format "/ban %i" 5@
  9101. jf @garner3_10510
  9102. if
  9103. SAMP.IsPlayerConnected(5@)
  9104. jf @garner3_10448
  9105. 6@ = SAMP.GetPlayerNickname(5@)
  9106. format 11@ "Администратор %s[%i] хочет забанить игрока %s[%i]." 4@ 3@ 6@ 5@
  9107. call @garner4_17369 1 11@
  9108. format 11@ "Нажмите клавишу подтверждения."
  9109. call @garner4_17369 1 11@
  9110. 30@ = 0
  9111. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9112. goto @garner3_10503
  9113.  
  9114. :garner3_10448
  9115. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9116.  
  9117. :garner3_10503
  9118. goto @garner3_13733
  9119.  
  9120. :garner3_10510
  9121. if
  9122. 0AD4: 0@ = scan_string 1@ format "/skick %i" 5@
  9123. jf @garner3_10799
  9124. if
  9125. SAMP.IsPlayerConnected(5@)
  9126. jf @garner3_10737
  9127. 6@ = SAMP.GetPlayerNickname(5@)
  9128. format 11@ "Администратор %s[%i] хочет кикнуть без шума игрока %s[%i]." 4@ 3@ 6@ 5@
  9129. call @garner4_17369 1 11@
  9130. format 11@ "Нажмите клавишу подтверждения."
  9131. call @garner4_17369 1 11@
  9132. 30@ = 0
  9133. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9134. goto @garner3_10792
  9135.  
  9136. :garner3_10737
  9137. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9138.  
  9139. :garner3_10792
  9140. goto @garner3_13733
  9141.  
  9142. :garner3_10799
  9143. if
  9144. 0AD4: 0@ = scan_string 1@ format "/hp %i" 5@
  9145. jf @garner3_11080
  9146. if
  9147. SAMP.IsPlayerConnected(5@)
  9148. jf @garner3_11018
  9149. 6@ = SAMP.GetPlayerNickname(5@)
  9150. format 11@ "Администратор %s[%i] хочет изменить HP игроку %s[%i]." 4@ 3@ 6@ 5@
  9151. call @garner4_17369 1 11@
  9152. format 11@ "Нажмите клавишу подтверждения."
  9153. call @garner4_17369 1 11@
  9154. 30@ = 0
  9155. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9156. goto @garner3_11073
  9157.  
  9158. :garner3_11018
  9159. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9160.  
  9161. :garner3_11073
  9162. goto @garner3_13733
  9163.  
  9164. :garner3_11080
  9165. if
  9166. 0AD4: 0@ = scan_string 1@ format "/skin %i" 5@
  9167. jf @garner3_11365
  9168. if
  9169. SAMP.IsPlayerConnected(5@)
  9170. jf @garner3_11303
  9171. 6@ = SAMP.GetPlayerNickname(5@)
  9172. format 11@ "Администратор %s[%i] хочет изменить скин игроку %s[%i]." 4@ 3@ 6@ 5@
  9173. call @garner4_17369 1 11@
  9174. format 11@ "Нажмите клавишу подтверждения."
  9175. call @garner4_17369 1 11@
  9176. 30@ = 0
  9177. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9178. goto @garner3_11358
  9179.  
  9180. :garner3_11303
  9181. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9182.  
  9183. :garner3_11358
  9184. goto @garner3_13733
  9185.  
  9186. :garner3_11365
  9187. if
  9188. 0AD4: 0@ = scan_string 1@ format "/unwarn %i" 5@
  9189. jf @garner3_11659
  9190. if
  9191. SAMP.IsPlayerConnected(5@)
  9192. jf @garner3_11597
  9193. 6@ = SAMP.GetPlayerNickname(5@)
  9194. format 11@ "Администратор %s[%i] хочет снять предупреждение игроку %s[%i]." 4@ 3@ 6@ 5@
  9195. call @garner4_17369 1 11@
  9196. format 11@ "Нажмите клавишу подтверждения."
  9197. call @garner4_17369 1 11@
  9198. 30@ = 0
  9199. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9200. goto @garner3_11652
  9201.  
  9202. :garner3_11597
  9203. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9204.  
  9205. :garner3_11652
  9206. goto @garner3_13733
  9207.  
  9208. :garner3_11659
  9209. if
  9210. 0C29: 0@ = stristr string1 1@ string2 "/offban"
  9211. jf @garner3_12040
  9212. if
  9213. 0C2B: 2@ = strpbrk string 0@ control "["
  9214. jf @garner3_11817
  9215. if
  9216. 0AD4: 0@ = scan_string 2@ format "[%i]" 5@
  9217. jf @garner3_11810
  9218. 2@ = SAMP.GetPlayerNickname(5@)
  9219. say "/a %s, этот игрок онлайн (%s[%i]), используй /ban." 10@ 2@ 5@
  9220.  
  9221. :garner3_11810
  9222. goto @garner3_12033
  9223.  
  9224. :garner3_11817
  9225. format 11@ "[A] %s[%i]: /offban " 4@ 3@
  9226. 0C17: 7@ = strlen 11@
  9227. if
  9228. 0C25: strncmp string1 31@ string2 11@ size 7@
  9229. jf @garner3_12033
  9230. format 11@ "Администратор %s[%i] хочет забанить игрока в оффлайне." 4@ 3@
  9231. call @garner4_17369 1 11@
  9232. format 11@ "Нажмите клавишу подтверждения."
  9233. call @garner4_17369 1 11@
  9234. 30@ = 0
  9235. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9236.  
  9237. :garner3_12033
  9238. goto @garner3_13733
  9239.  
  9240. :garner3_12040
  9241. if
  9242. 0C29: 0@ = stristr string1 1@ string2 "/offwarn"
  9243. jf @garner3_12437
  9244. if
  9245. 0C2B: 2@ = strpbrk string 0@ control "["
  9246. jf @garner3_12200
  9247. if
  9248. 0AD4: 0@ = scan_string 2@ format "[%i]" 5@
  9249. jf @garner3_12193
  9250. 2@ = SAMP.GetPlayerNickname(5@)
  9251. say "/a %s, этот игрок онлайн (%s[%i]), используй /warn." 10@ 2@ 5@
  9252.  
  9253. :garner3_12193
  9254. goto @garner3_12430
  9255.  
  9256. :garner3_12200
  9257. format 11@ "[A] %s[%i]: /offwarn " 4@ 3@
  9258. 0C17: 7@ = strlen 11@
  9259. if
  9260. 0C25: strncmp string1 31@ string2 11@ size 7@
  9261. jf @garner3_12430
  9262. format 11@ "Администратор %s[%i] хочет выдать предупреждение игроку в оффлайне." 4@ 3@
  9263. call @garner4_17369 1 11@
  9264. format 11@ "Нажмите клавишу подтверждения."
  9265. call @garner4_17369 1 11@
  9266. 30@ = 0
  9267. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9268.  
  9269. :garner3_12430
  9270. goto @garner3_13733
  9271.  
  9272. :garner3_12437
  9273. if
  9274. 0C29: 0@ = stristr string1 1@ string2 "/unban"
  9275. jf @garner3_12676
  9276. format 11@ "[A] %s[%i]: /unban " 4@ 3@
  9277. 0C17: 7@ = strlen 11@
  9278. if
  9279. 0C25: strncmp string1 31@ string2 11@ size 7@
  9280. jf @garner3_12669
  9281. format 11@ "Администратор %s[%i] хочет разбанить игрока." 4@ 3@
  9282. call @garner4_17369 1 11@
  9283. format 11@ "Нажмите клавишу подтверждения."
  9284. call @garner4_17369 1 11@
  9285. 30@ = 0
  9286. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9287.  
  9288. :garner3_12669
  9289. goto @garner3_13733
  9290.  
  9291. :garner3_12676
  9292. if
  9293. 0C29: 0@ = stristr string1 1@ string2 "/msg"
  9294. jf @garner3_12913
  9295. format 11@ "[A] %s[%i]: /msg " 4@ 3@
  9296. 0C17: 7@ = strlen 11@
  9297. if
  9298. 0C25: strncmp string1 31@ string2 11@ size 7@
  9299. jf @garner3_12906
  9300. format 11@ "Администратор %s[%i] хочет сделать объявление." 4@ 3@
  9301. call @garner4_17369 1 11@
  9302. format 11@ "Нажмите клавишу подтверждения."
  9303. call @garner4_17369 1 11@
  9304. 30@ = 0
  9305. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9306.  
  9307. :garner3_12906
  9308. goto @garner3_13733
  9309.  
  9310. :garner3_12913
  9311. if
  9312. 0AD4: 0@ = scan_string 1@ format "/unjail %i" 5@
  9313. jf @garner3_13206
  9314. if
  9315. SAMP.IsPlayerConnected(5@)
  9316. jf @garner3_13144
  9317. 6@ = SAMP.GetPlayerNickname(5@)
  9318. format 11@ "Администратор %s[%i] хочет выпустить из тюрьмы игрока %s[%i]." 4@ 3@ 6@ 5@
  9319. call @garner4_17369 1 11@
  9320. format 11@ "Нажмите клавишу подтверждения."
  9321. call @garner4_17369 1 11@
  9322. 30@ = 0
  9323. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9324. goto @garner3_13199
  9325.  
  9326. :garner3_13144
  9327. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9328.  
  9329. :garner3_13199
  9330. goto @garner3_13733
  9331.  
  9332. :garner3_13206
  9333. if
  9334. 0AD4: 0@ = scan_string 1@ format "/unmute %i" 5@
  9335. jf @garner3_13495
  9336. if
  9337. SAMP.IsPlayerConnected(5@)
  9338. jf @garner3_13433
  9339. 6@ = SAMP.GetPlayerNickname(5@)
  9340. format 11@ "Администратор %s[%i] хочет снять затычку с игрока %s[%i]." 4@ 3@ 6@ 5@
  9341. call @garner4_17369 1 11@
  9342. format 11@ "Нажмите клавишу подтверждения."
  9343. call @garner4_17369 1 11@
  9344. 30@ = 0
  9345. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9346. goto @garner3_13488
  9347.  
  9348. :garner3_13433
  9349. say "/a %s, игрок с ID %i не подключен к серверу." 10@ 5@
  9350.  
  9351. :garner3_13488
  9352. goto @garner3_13733
  9353.  
  9354. :garner3_13495
  9355. if
  9356. 0C29: 0@ = stristr string1 1@ string2 "/areg"
  9357. jf @garner3_13733
  9358. format 11@ "[A] %s[%i]: /areg " 4@ 3@
  9359. 0C17: 7@ = strlen 11@
  9360. if
  9361. 0C25: strncmp string1 31@ string2 11@ size 7@
  9362. jf @garner3_13733
  9363. format 11@ "Администратор %s[%i] запрашивает рег. данные игрока." 4@ 3@
  9364. call @garner4_17369 1 11@
  9365. format 11@ "Нажмите клавишу подтверждения."
  9366. call @garner4_17369 1 11@
  9367. 30@ = 0
  9368. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9369.  
  9370. :garner3_13733
  9371. if
  9372. 0C79: is_timer 29@ active
  9373. jf @garner3_17380
  9374. if or
  9375. 0AD4: 0@ = scan_string 1@ format "/jail %i" 5@
  9376. 0AD4: 0@ = scan_string 1@ format "/kick %i" 5@
  9377. 0AD4: 0@ = scan_string 1@ format "/skick %i" 5@
  9378. 0AD4: 0@ = scan_string 1@ format "/mute %i" 5@
  9379. 0AD4: 0@ = scan_string 1@ format "/warn %i" 5@
  9380. 0AD4: 0@ = scan_string 1@ format "/ban %i" 5@
  9381. jf @garner3_14088
  9382. if
  9383. call @garner4_13215 0 14@ 16@
  9384. jf @garner3_14088
  9385. 0BFD: 8@ = get_global_var "admins-in-file-count"
  9386. 8@ -= 1
  9387. 0@ = 0
  9388.  
  9389. :garner3_13960
  9390. 0C1F: 2@ = string_array 14@ element 0@ size 25
  9391. if
  9392. 0C21: stricmp string1 6@ string2 2@
  9393. jf @garner3_14056
  9394. format 11@ "{EE0000}Внимание! Указан ID администратора!"
  9395. call @garner4_17369 1 11@
  9396.  
  9397. :garner3_14056
  9398. 0@ += 1
  9399. 001D: 0@ > 8@ // (int)
  9400. jf @garner3_13960
  9401. free 14@
  9402. free 16@
  9403.  
  9404. :garner3_14088
  9405. wait 0
  9406. 0BFD: 0@ = get_global_var "confirm-on-key"
  9407. if
  9408. 0C89: key_just_pressed 0@
  9409. jf @garner3_14136
  9410. goto @garner3_14148
  9411.  
  9412. :garner3_14136
  9413. 8C79: not is_timer 29@ active
  9414. jf @garner3_14088
  9415.  
  9416. :garner3_14148
  9417. if
  9418. 0C79: is_timer 29@ active
  9419. jf @garner3_17324
  9420. 0AA2: 12@ = load_library "kernel32.dll" // IF and SET
  9421. 0AA4: 13@ = get_proc_address "GetLocalTime" library 12@ // IF and SET
  9422. alloc 14@ 16
  9423. 0AA5: call 13@ num_params 1 pop 0 14@
  9424. 0085: 15@ = 14@ // (int)
  9425. alloc 16@ 200
  9426. 0C11: memset destination 16@ value 0 size 200
  9427. alloc 17@ 200
  9428. 0C11: memset destination 17@ value 0 size 200
  9429. 15@ += 6
  9430. 0A8D: 19@ = read_memory 15@ size 2 virtual_protect 0
  9431. format 16@ "[%.2d-" 19@
  9432. 0C15: strcat destination 17@ source 16@
  9433. 15@ -= 4
  9434. 0A8D: 19@ = read_memory 15@ size 2 virtual_protect 0
  9435. format 16@ "%.2d-" 19@
  9436. 0C15: strcat destination 17@ source 16@
  9437. 15@ -= 2
  9438. 0A8D: 19@ = read_memory 15@ size 2 virtual_protect 0
  9439. format 16@ "%.2d " 19@
  9440. 0C15: strcat destination 17@ source 16@
  9441. 15@ += 8
  9442. 0A8D: 19@ = read_memory 15@ size 2 virtual_protect 0
  9443. format 16@ "%.2d:" 19@
  9444. 0C15: strcat destination 17@ source 16@
  9445. 15@ += 2
  9446. 0A8D: 19@ = read_memory 15@ size 2 virtual_protect 0
  9447. format 16@ "%.2d:" 19@
  9448. 0C15: strcat destination 17@ source 16@
  9449. 15@ += 2
  9450. 0A8D: 19@ = read_memory 15@ size 2 virtual_protect 0
  9451. format 16@ "%.2d]" 19@
  9452. 0C15: strcat destination 17@ source 16@
  9453. free 14@
  9454. 0AA3: free_library 12@
  9455. 12@ = File.Open("cleo\AdminTools\logs\cmd_adm_chat_log.txt", "a")
  9456. if or
  9457. 0C29: 0@ = stristr string1 1@ string2 "/unban"
  9458. 0C29: 0@ = stristr string1 1@ string2 "/msg"
  9459. 0C29: 0@ = stristr string1 1@ string2 "/offban"
  9460. 0C29: 0@ = stristr string1 1@ string2 "/offwarn"
  9461. 0C29: 0@ = stristr string1 1@ string2 "/areg"
  9462. jf @garner3_15280
  9463. 0C17: 2@ = strlen 4@
  9464. if
  9465. not 2@ > 5
  9466. jf @garner3_14808
  9467. format 16@ "%s Ник администратора: %s%c%c%c|%c%c---%c%c%c| Команда: %s%c" 17@ 4@ 9 9 9 9 9 9 9 9 1@ 10
  9468. goto @garner3_15011
  9469.  
  9470. :garner3_14808
  9471. if
  9472. not 2@ > 13
  9473. jf @garner3_14924
  9474. format 16@ "%s Ник администратора: %s%c%c|%c%c---%c%c%c| Команда: %s%c" 17@ 4@ 9 9 9 9 9 9 9 1@ 10
  9475. goto @garner3_15011
  9476.  
  9477. :garner3_14924
  9478. format 16@ "%s Ник администратора: %s%c|%c%c---%c%c%c| Команда: %s%c" 17@ 4@ 9 9 9 9 9 9 1@ 10
  9479.  
  9480. :garner3_15011
  9481. if
  9482. 0C29: 0@ = stristr string1 1@ string2 "/unban"
  9483. jf @garner3_15055
  9484. say "%s" 1@
  9485. goto @garner3_15273
  9486.  
  9487. :garner3_15055
  9488. if or
  9489. 0C29: 0@ = stristr string1 1@ string2 "/msg"
  9490. 0C29: 0@ = stristr string1 1@ string2 "/offban"
  9491. 0C29: 0@ = stristr string1 1@ string2 "/offwarn"
  9492. jf @garner3_15242
  9493. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "admins-nick-in-command"
  9494. if
  9495. 2@ == 1
  9496. jf @garner3_15225
  9497. say "%s • by %s" 1@ 10@
  9498. goto @garner3_15235
  9499.  
  9500. :garner3_15225
  9501. say "%s" 1@
  9502.  
  9503. :garner3_15235
  9504. goto @garner3_15273
  9505.  
  9506. :garner3_15242
  9507. if
  9508. 0C29: 0@ = stristr string1 1@ string2 "/areg"
  9509. jf @garner3_15273
  9510. 0C8F: samp process_chat_input 1@
  9511.  
  9512. :garner3_15273
  9513. goto @garner3_16671
  9514.  
  9515. :garner3_15280
  9516. 0C17: 2@ = strlen 4@
  9517. if
  9518. not 2@ > 5
  9519. jf @garner3_15665
  9520. 0C17: 2@ = strlen 6@
  9521. if
  9522. not 2@ > 9
  9523. jf @garner3_15441
  9524. format 16@ "%s Ник администратора: %s%c%c%c| Ник игрока: %s%c%c%c| Команда: %s%c" 17@ 4@ 9 9 9 6@ 9 9 9 1@ 10
  9525. goto @garner3_15658
  9526.  
  9527. :garner3_15441
  9528. if
  9529. not 2@ > 17
  9530. jf @garner3_15564
  9531. format 16@ "%s Ник администратора: %s%c%c%c| Ник игрока: %s%c%c| Команда: %s%c" 17@ 4@ 9 9 9 6@ 9 9 1@ 10
  9532. goto @garner3_15658
  9533.  
  9534. :garner3_15564
  9535. format 16@ "%s Ник администратора: %s%c%c%c| Ник игрока: %s%c| Команда: %s%c" 17@ 4@ 9 9 9 6@ 9 1@ 10
  9536.  
  9537. :garner3_15658
  9538. goto @garner3_16358
  9539.  
  9540. :garner3_15665
  9541. if
  9542. not 2@ > 13
  9543. jf @garner3_16030
  9544. 0C17: 2@ = strlen 6@
  9545. if
  9546. not 2@ > 9
  9547. jf @garner3_15814
  9548. format 16@ "%s Ник администратора: %s%c%c| Ник игрока: %s%c%c%c| Команда: %s%c" 17@ 4@ 9 9 6@ 9 9 9 1@ 10
  9549. goto @garner3_16023
  9550.  
  9551. :garner3_15814
  9552. if
  9553. not 2@ > 17
  9554. jf @garner3_15933
  9555. format 16@ "%s Ник администратора: %s%c%c| Ник игрока: %s%c%c| Команда: %s%c" 17@ 4@ 9 9 6@ 9 9 1@ 10
  9556. goto @garner3_16023
  9557.  
  9558. :garner3_15933
  9559. format 16@ "%s Ник администратора: %s%c%c| Ник игрока: %s%c| Команда: %s%c" 17@ 4@ 9 9 6@ 9 1@ 10
  9560.  
  9561. :garner3_16023
  9562. goto @garner3_16358
  9563.  
  9564. :garner3_16030
  9565. 0C17: 2@ = strlen 6@
  9566. if
  9567. not 2@ > 9
  9568. jf @garner3_16157
  9569. format 16@ "%s Ник администратора: %s%c| Ник игрока: %s%c%c%c| Команда: %s%c" 17@ 4@ 9 6@ 9 9 9 1@ 10
  9570. goto @garner3_16358
  9571.  
  9572. :garner3_16157
  9573. if
  9574. not 2@ > 17
  9575. jf @garner3_16272
  9576. format 16@ "%s Ник администратора: %s%c| Ник игрока: %s%c%c| Команда: %s%c" 17@ 4@ 9 6@ 9 9 1@ 10
  9577. goto @garner3_16358
  9578.  
  9579. :garner3_16272
  9580. format 16@ "%s Ник администратора: %s%c| Ник игрока: %s%c| Команда: %s%c" 17@ 4@ 9 6@ 9 1@ 10
  9581.  
  9582. :garner3_16358
  9583. if or
  9584. 0C29: 0@ = stristr string1 1@ string2 "/skin"
  9585. 0C29: 0@ = stristr string1 1@ string2 "/hp"
  9586. jf @garner3_16447
  9587. say "%s" 1@
  9588. say "/a %s, команда применена." 10@
  9589. goto @garner3_16671
  9590.  
  9591. :garner3_16447
  9592. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "admins-nick-in-command"
  9593. if
  9594. 2@ == 1
  9595. jf @garner3_16557
  9596. say "%s • by %s" 1@ 10@
  9597. goto @garner3_16671
  9598.  
  9599. :garner3_16557
  9600. if
  9601. 2@ == 2
  9602. jf @garner3_16661
  9603. say "/ans %i Наказание выдано по просьбе администратора %s." 5@ 4@
  9604. wait 100
  9605. say "%s" 1@
  9606. goto @garner3_16671
  9607.  
  9608. :garner3_16661
  9609. say "%s" 1@
  9610.  
  9611. :garner3_16671
  9612. File.WriteString(12@, 16@)
  9613. free 16@
  9614. free 17@
  9615. File.Close(12@)
  9616. wait 400
  9617. 9@ = 99
  9618.  
  9619. :garner3_16706
  9620. wait 0
  9621. SAMP.GetChatString(9@, 11@, 0, 0, 0)
  9622. if
  9623. 0C25: strncmp string1 "Этот игрок забанен" string2 11@ size 18
  9624. jf @garner3_16810
  9625. say "/a %s, этот игрок забанен." 10@
  9626. goto @garner3_17317
  9627. goto @garner3_17296
  9628.  
  9629. :garner3_16810
  9630. if or
  9631. 0C21: stricmp string1 "Игрок с таким ником (или номером аккаунта) не найден" string2 11@
  9632. 0C21: stricmp string1 "Такого игрока нет в базе данных" string2 11@
  9633. jf @garner3_16979
  9634. say "/a %s, такого игрока нет в базе данных." 10@
  9635. goto @garner3_17317
  9636. goto @garner3_17296
  9637.  
  9638. :garner3_16979
  9639. if
  9640. 0C21: stricmp string1 "Этот игрок не забанен" string2 11@
  9641. jf @garner3_17069
  9642. say "/a %s, этот игрок не забанен." 10@
  9643. goto @garner3_17317
  9644. goto @garner3_17296
  9645.  
  9646. :garner3_17069
  9647. if
  9648. 0C21: stricmp string1 "Этот игрок онлайн. Используйте /warn" string2 11@
  9649. jf @garner3_17187
  9650. say "/a %s, этот игрок онлайн. Используй /warn." 10@
  9651. goto @garner3_17317
  9652. goto @garner3_17296
  9653.  
  9654. :garner3_17187
  9655. if
  9656. 0C21: stricmp string1 "Этот игрок онлайн. Используйте /ban" string2 11@
  9657. jf @garner3_17296
  9658. say "/a %s, этот игрок онлайн. Используй /ban." 10@
  9659. goto @garner3_17317
  9660.  
  9661. :garner3_17296
  9662. 9@ -= 1
  9663. 94 > 9@
  9664. jf @garner3_16706
  9665.  
  9666. :garner3_17317
  9667. goto @garner3_17375
  9668.  
  9669. :garner3_17324
  9670. format 11@ "Время ожидания ответа истекло."
  9671. call @garner4_17369 1 11@
  9672.  
  9673. :garner3_17375
  9674. 0C75: kill_timer 29@
  9675.  
  9676. :garner3_17380
  9677. free 10@
  9678. free 11@
  9679.  
  9680. :garner3_17390
  9681. 0BFC: set_global_var "COMMAND_FROM_ADM_CHAT_STATUS" = 0
  9682.  
  9683. :garner3_17424
  9684. 0BFD: 0@ = get_global_var "pl-match"
  9685. if
  9686. 0@ == 1
  9687. jf @garner3_19124
  9688. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  9689. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "match"
  9690. 0BFC: set_global_var "pl-match" = 0
  9691. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id-mass"
  9692. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id"
  9693. call @garner4_6901 0 10@ 11@ 12@ 13@
  9694. 0C1F: 14@ = string_array 10@ element 1@ size 25
  9695.  
  9696. :garner3_17744
  9697. wait 0
  9698. if
  9699. not SAMP.IsPlayerConnected(0@)
  9700. jf @garner3_17837
  9701. alloc 3@ 100
  9702. 0C11: memset destination 3@ value 0 size 100
  9703. format 3@ "%s[%i] отключился." 14@ 0@
  9704. call @garner4_17369 1 3@
  9705. free 3@
  9706. goto @garner3_17859
  9707.  
  9708. :garner3_17837
  9709. 1@ = SAMP.GetPlayerScore(0@)
  9710. 1@ > 0
  9711. jf @garner3_17744
  9712.  
  9713. :garner3_17859
  9714. if and
  9715. SAMP.IsPlayerConnected(0@)
  9716. SAMP.IsLocalPlayerSpawned
  9717. jf @garner3_19044
  9718. 6@ = File.Open("cleo\AdminTools\punishment_list.txt", "r")
  9719. 0BFD: 8@ = get_global_var "pl-count"
  9720. 2@ = 75
  9721. 006A: 2@ *= 8@ // (int)
  9722. alloc 19@ 2@
  9723. alloc 18@ 75
  9724. 0C11: memset destination 19@ value 0 size 2@
  9725. 0C11: memset destination 18@ value 0 size 75
  9726. 5@ = 0
  9727. 8@ -= 1
  9728. 2@ = 0
  9729.  
  9730. :garner3_18007
  9731. File.ReadString(6@, 18@, 75)
  9732. 0C1F: 14@ = string_array 10@ element 2@ size 25
  9733. 0C1F: 15@ = string_array 11@ element 2@ size 8
  9734. 0C1F: 16@ = string_array 12@ element 2@ size 4
  9735. 0C1F: 17@ = string_array 13@ element 2@ size 40
  9736. 7@ = SAMP.GetPlayerNickname(0@)
  9737. 9@ = SAMP.GetPlayerScore(0@)
  9738. if and
  9739. 0C21: stricmp string1 "/jail" string2 15@
  9740. 0C21: stricmp string1 7@ string2 14@
  9741. SAMP.IsLocalPlayerSpawned
  9742. 9@ > 0
  9743. jf @garner3_18188
  9744. say "/jail %i %s %s." 0@ 16@ 17@
  9745. call @garner4_8026 6 15@ 5@ 18@ 14@ 1@ 17@ 5@ 18@
  9746.  
  9747. :garner3_18188
  9748. if and
  9749. 0C21: stricmp string1 "/mute" string2 15@
  9750. 0C21: stricmp string1 7@ string2 14@
  9751. SAMP.IsLocalPlayerSpawned
  9752. 9@ > 0
  9753. jf @garner3_18291
  9754. say "/mute %i %s %s." 0@ 16@ 17@
  9755. call @garner4_8026 6 15@ 5@ 18@ 14@ 1@ 17@ 5@ 18@
  9756.  
  9757. :garner3_18291
  9758. if and
  9759. 0C21: stricmp string1 "/warn" string2 15@
  9760. 0C21: stricmp string1 7@ string2 14@
  9761. SAMP.IsLocalPlayerSpawned
  9762. 9@ > 0
  9763. jf @garner3_18395
  9764. 1@ = 0
  9765. say "/warn %i %s." 0@ 17@
  9766. call @garner4_8026 6 15@ 5@ 18@ 14@ 1@ 17@ 5@ 18@
  9767.  
  9768. :garner3_18395
  9769. if and
  9770. 0C21: stricmp string1 "/ban" string2 15@
  9771. 0C21: stricmp string1 7@ string2 14@
  9772. SAMP.IsLocalPlayerSpawned
  9773. 9@ > 0
  9774. jf @garner3_18503
  9775. 1@ = 0
  9776. say "/ban %i %s %s." 0@ 16@ 17@
  9777. call @garner4_8026 6 15@ 5@ 18@ 14@ 1@ 17@ 5@ 18@
  9778.  
  9779. :garner3_18503
  9780. if and
  9781. 0C21: stricmp string1 "/unwarn" string2 15@
  9782. 0C21: stricmp string1 7@ string2 14@
  9783. SAMP.IsLocalPlayerSpawned
  9784. 9@ > 0
  9785. jf @garner3_18597
  9786. say "/unwarn %i" 0@
  9787. call @garner4_8026 6 15@ 5@ 18@ 14@ 1@ 17@ 5@ 18@
  9788.  
  9789. :garner3_18597
  9790. 0C20: string_array 19@ element 2@ size 75 = 18@
  9791. 0C11: memset destination 18@ value 0 size 75
  9792. 2@ += 1
  9793. 001D: 2@ > 8@ // (int)
  9794. jf @garner3_18007
  9795. free 18@
  9796. File.Close(6@)
  9797. 0@ = File.Open("cleo\AdminTools\punishment_list.txt", "w")
  9798. 0BFD: 7@ = get_global_var "pl-count"
  9799. 7@ -= 1
  9800. 2@ = 0
  9801.  
  9802. :garner3_18725
  9803. 0C1F: 18@ = string_array 19@ element 2@ size 75
  9804. File.WriteString(0@, 18@)
  9805. 2@ += 1
  9806. 001D: 2@ > 7@ // (int)
  9807. jf @garner3_18725
  9808. free 19@
  9809. File.Close(0@)
  9810. alloc 3@ 128
  9811. 0C11: memset destination 3@ value 0 size 128
  9812. if
  9813. 5@ == 1
  9814. jf @garner3_18885
  9815. format 3@ "Наказание успешно выдано, данные обновлены."
  9816. call @garner4_17369 1 3@
  9817. goto @garner3_19039
  9818.  
  9819. :garner3_18885
  9820. if
  9821. 5@ == 2
  9822. jf @garner3_18974
  9823. format 3@ "Наказания успешно выданы, данные обновлены."
  9824. call @garner4_17369 1 3@
  9825. goto @garner3_19039
  9826.  
  9827. :garner3_18974
  9828. format 3@ "В данный момент выдать наказания невозможно."
  9829. call @garner4_17369 1 3@
  9830.  
  9831. :garner3_19039
  9832. free 3@
  9833.  
  9834. :garner3_19044
  9835. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  9836. free 10@
  9837. free 11@
  9838. free 12@
  9839. free 13@
  9840.  
  9841. :garner3_19124
  9842. 0BFD: 0@ = get_global_var "check-find"
  9843. if
  9844. 0@ == 1
  9845. jf @garner3_21990
  9846. alloc 12@ 4000
  9847. 0C11: memset destination 12@ value 0 size 4000
  9848. alloc 14@ 200
  9849. 0C11: memset destination 14@ value 0 size 200
  9850. alloc 13@ 200
  9851. 0C11: memset destination 13@ value 0 size 200
  9852. alloc 15@ 500
  9853. 0C11: memset destination 15@ value 0 size 500
  9854. alloc 16@ 1000
  9855. 0C11: memset destination 16@ value 0 size 1000
  9856. 0AF0: 5@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "fraction-id"
  9857. if or
  9858. 5@ == 1
  9859. 5@ == 2
  9860. 5@ == 5
  9861. jf @garner3_19358
  9862. 8@ = 4
  9863. 4@ = 1
  9864. goto @garner3_19482
  9865.  
  9866. :garner3_19358
  9867. if or
  9868. 5@ == 3
  9869. 5@ == 4
  9870. jf @garner3_19404
  9871. 8@ = 3
  9872. 4@ = 1
  9873. goto @garner3_19482
  9874.  
  9875. :garner3_19404
  9876. if and
  9877. 5@ >= 6
  9878. not 5@ > 10
  9879. jf @garner3_19450
  9880. 8@ = 10
  9881. 4@ = 6
  9882. goto @garner3_19482
  9883.  
  9884. :garner3_19450
  9885. if
  9886. 5@ >= 11
  9887. jf @garner3_19482
  9888. 8@ = 13
  9889. 4@ = 11
  9890.  
  9891. :garner3_19482
  9892. if
  9893. 5@ == 1
  9894. jf @garner3_19544
  9895. format 14@ "{CCFF00}Правительство%c%c" 10 10
  9896. goto @garner3_19836
  9897.  
  9898. :garner3_19544
  9899. if
  9900. 5@ == 2
  9901. jf @garner3_19620
  9902. format 14@ "{1E90FF}Министерство Внутренних Дел%c%c" 10 10
  9903. goto @garner3_19836
  9904.  
  9905. :garner3_19620
  9906. if
  9907. 5@ == 3
  9908. jf @garner3_19689
  9909. format 14@ "{996633}Министерство Обороны%c%c" 10 10
  9910. goto @garner3_19836
  9911.  
  9912. :garner3_19689
  9913. if
  9914. 5@ == 4
  9915. jf @garner3_19766
  9916. format 14@ "{FF6666}Министерство Здравоохранения%c%c" 10 10
  9917. goto @garner3_19836
  9918.  
  9919. :garner3_19766
  9920. if
  9921. 5@ == 5
  9922. jf @garner3_19836
  9923. format 14@ "{FF6600}Средства Массовой Информации%c%c" 10 10
  9924.  
  9925. :garner3_19836
  9926. 0C15: strcat destination 15@ source 14@
  9927. 0085: 0@ = 4@ // (int)
  9928.  
  9929. :garner3_19852
  9930. if
  9931. 5@ >= 6
  9932. jf @garner3_19901
  9933. say "/templeader %i 0" 0@
  9934. goto @garner3_19929
  9935.  
  9936. :garner3_19901
  9937. say "/templeader %i %i" 5@ 0@
  9938.  
  9939. :garner3_19929
  9940. 30@ = 0
  9941. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  9942. 10@ = 0
  9943. 7@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  9944. 6@ = SAMP.GetPlayerNickname(7@)
  9945. format 13@ "[A] %s[%i] назначил(а) себя врем. лидером" 6@ 7@
  9946. 0C17: 7@ = strlen 13@
  9947.  
  9948. :garner3_20035
  9949. wait 0
  9950. 2@ = 99
  9951.  
  9952. :garner3_20046
  9953. SAMP.GetChatString(2@, 12@, 0, 0, 0)
  9954. if
  9955. 0C25: strncmp string1 12@ string2 13@ size 7@
  9956. jf @garner3_20096
  9957. 10@ = 1
  9958. goto @garner3_20117
  9959.  
  9960. :garner3_20096
  9961. 2@ -= 1
  9962. 94 > 2@
  9963. jf @garner3_20046
  9964.  
  9965. :garner3_20117
  9966. if
  9967. 10@ == 1
  9968. jf @garner3_20142
  9969. goto @garner3_20154
  9970.  
  9971. :garner3_20142
  9972. 8C79: not is_timer 29@ active
  9973. jf @garner3_20035
  9974.  
  9975. :garner3_20154
  9976. 0C75: kill_timer 29@
  9977. 0C11: memset destination 12@ value 0 size 4000
  9978. 0C11: memset destination 13@ value 0 size 200
  9979. 0C11: memset destination 14@ value 0 size 200
  9980. 0C11: memset destination 16@ value 0 size 1000
  9981. say "/find"
  9982. wait 3000
  9983. if
  9984. 10@ == 1
  9985. jf @garner3_21714
  9986. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  9987. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  9988. alloc 22@ 16
  9989. 0AA5: call 23@ num_params 1 pop 0 22@
  9990. 0085: 21@ = 22@ // (int)
  9991. alloc 25@ 200
  9992. 0C11: memset destination 25@ value 0 size 200
  9993. alloc 20@ 200
  9994. 0C11: memset destination 20@ value 0 size 200
  9995. 21@ += 6
  9996. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  9997. format 25@ "[%.2d-" 19@
  9998. 0C15: strcat destination 16@ source 25@
  9999. 21@ -= 4
  10000. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10001. format 25@ "%.2d-" 19@
  10002. 0C15: strcat destination 16@ source 25@
  10003. 21@ -= 2
  10004. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10005. format 25@ "%.2d " 19@
  10006. 0C15: strcat destination 16@ source 25@
  10007. 21@ += 8
  10008. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10009. format 25@ "%.2d:" 19@
  10010. 0C15: strcat destination 16@ source 25@
  10011. 21@ += 2
  10012. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10013. format 25@ "%.2d:" 19@
  10014. 0C15: strcat destination 16@ source 25@
  10015. 21@ += 2
  10016. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10017. format 25@ "%.2d]" 19@
  10018. 0C15: strcat destination 16@ source 25@
  10019. free 22@
  10020. 0AA3: free_library 24@
  10021. free 25@
  10022. free 20@
  10023. if
  10024. 0@ == 6
  10025. jf @garner3_20676
  10026. format 14@ "{009900}• Grove Street:%c" 10
  10027. goto @garner3_21139
  10028.  
  10029. :garner3_20676
  10030. if
  10031. 0@ == 7
  10032. jf @garner3_20734
  10033. format 14@ "{CD00CD}• The Ballas:%c" 10
  10034. goto @garner3_21139
  10035.  
  10036. :garner3_20734
  10037. if
  10038. 0@ == 8
  10039. jf @garner3_20798
  10040. format 14@ "{EEC900}• Los Santos Vagos:%c" 10
  10041. goto @garner3_21139
  10042.  
  10043. :garner3_20798
  10044. if
  10045. 0@ == 9
  10046. jf @garner3_20854
  10047. format 14@ "{836FFF}• The Rifa:%c" 10
  10048. goto @garner3_21139
  10049.  
  10050. :garner3_20854
  10051. if
  10052. 0@ == 10
  10053. jf @garner3_20920
  10054. format 14@ "{00BFFF}• Varios Los Aztecas:%c" 10
  10055. goto @garner3_21139
  10056.  
  10057. :garner3_20920
  10058. if
  10059. 0@ == 11
  10060. jf @garner3_20982
  10061. format 14@ "{8B0A50}• La Cosa Nostra:%c" 10
  10062. goto @garner3_21139
  10063.  
  10064. :garner3_20982
  10065. if
  10066. 0@ == 12
  10067. jf @garner3_21036
  10068. format 14@ "{BB0000}• Yakuza:%c" 10
  10069. goto @garner3_21139
  10070.  
  10071. :garner3_21036
  10072. if
  10073. 0@ == 13
  10074. jf @garner3_21097
  10075. format 14@ "{008B8B}• Русская Мафия:%c" 10
  10076. goto @garner3_21139
  10077.  
  10078. :garner3_21097
  10079. format 14@ "{FFFFFF}• Подразделение %i:%c" 0@ 10
  10080.  
  10081. :garner3_21139
  10082. 0C15: strcat destination 15@ source 14@
  10083. 0BD7: samp get_dialog_text 12@
  10084. if
  10085. 0C29: 2@ = stristr string1 12@ string2 "онлайн"
  10086. jf @garner3_21522
  10087. 0AD4: 6@ = scan_string 2@ format "онлайн:%i" 3@
  10088. 3@ -= 1
  10089. format 14@ "Онлайн: %i чел.%c" 3@ 10
  10090. 0C15: strcat destination 15@ source 14@
  10091. format 14@ " Организация: %i | Подразделение: %i | Онлайн: %i чел. | " 5@ 0@ 3@
  10092. 0C15: strcat destination 16@ source 14@
  10093. if
  10094. 0C29: 1@ = stristr string1 2@ string2 "паузе"
  10095. jf @garner3_21515
  10096. 0AD4: 6@ = scan_string 1@ format "паузе:%i" 3@
  10097. if
  10098. 803B: not 0@ == 8@ // (int)
  10099. jf @garner3_21439
  10100. format 14@ "На паузе: %i чел.%c%c" 3@ 10 10
  10101. goto @garner3_21467
  10102.  
  10103. :garner3_21439
  10104. format 14@ "На паузе: %i чел." 3@
  10105.  
  10106. :garner3_21467
  10107. 0C15: strcat destination 15@ source 14@
  10108. format 14@ "На паузе: %i чел.%c" 3@ 10
  10109. 0C15: strcat destination 16@ source 14@
  10110.  
  10111. :garner3_21515
  10112. goto @garner3_21651
  10113.  
  10114. :garner3_21522
  10115. format 14@ "Определить не удалось.%c" 10
  10116. 0C15: strcat destination 15@ source 14@
  10117. format 14@ " Организация: %i | Подразделение: %i | Определить не удалось.%c" 5@ 0@ 10
  10118. 0C15: strcat destination 16@ source 14@
  10119.  
  10120. :garner3_21651
  10121. 22@ = File.Open("cleo\AdminTools\logs\find_log.txt", "a")
  10122. File.WriteString(22@, 16@)
  10123. File.Close(22@)
  10124. goto @garner3_21760
  10125.  
  10126. :garner3_21714
  10127. format 12@ "Превышено время ожидания."
  10128. call @garner4_17369 1 12@
  10129.  
  10130. :garner3_21760
  10131. 0@ += 1
  10132. 001D: 0@ > 8@ // (int)
  10133. jf @garner3_19852
  10134. if and
  10135. 5@ >= 6
  10136. not 5@ > 10
  10137. jf @garner3_21848
  10138. SAMP.ShowDialog(700, "Онлайн банд", 15@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  10139. goto @garner3_21949
  10140.  
  10141. :garner3_21848
  10142. if
  10143. 5@ >= 11
  10144. jf @garner3_21908
  10145. SAMP.ShowDialog(700, "Онлайн мафий", 15@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  10146. goto @garner3_21949
  10147.  
  10148. :garner3_21908
  10149. SAMP.ShowDialog(700, "Онлайн организации", 15@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  10150.  
  10151. :garner3_21949
  10152. free 12@
  10153. free 13@
  10154. free 14@
  10155. free 15@
  10156. free 16@
  10157. 0BFC: set_global_var "check-find" = 0
  10158.  
  10159. :garner3_21990
  10160. 0BFD: 0@ = get_global_var "check-a-find"
  10161. if
  10162. 0@ == 1
  10163. jf @garner3_24615
  10164. alloc 12@ 4000
  10165. 0C11: memset destination 12@ value 0 size 4000
  10166. alloc 14@ 200
  10167. 0C11: memset destination 14@ value 0 size 200
  10168. alloc 13@ 200
  10169. 0C11: memset destination 13@ value 0 size 200
  10170. alloc 15@ 500
  10171. 0C11: memset destination 15@ value 0 size 500
  10172. alloc 16@ 1000
  10173. 0C11: memset destination 16@ value 0 size 1000
  10174. 0AF0: 5@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "other" key "fraction-id"
  10175. if or
  10176. 5@ == 1
  10177. 5@ == 2
  10178. 5@ == 5
  10179. jf @garner3_22226
  10180. 8@ = 4
  10181. 4@ = 1
  10182. goto @garner3_22350
  10183.  
  10184. :garner3_22226
  10185. if or
  10186. 5@ == 3
  10187. 5@ == 4
  10188. jf @garner3_22272
  10189. 8@ = 3
  10190. 4@ = 1
  10191. goto @garner3_22350
  10192.  
  10193. :garner3_22272
  10194. if and
  10195. 5@ >= 6
  10196. not 5@ > 10
  10197. jf @garner3_22318
  10198. 8@ = 10
  10199. 4@ = 6
  10200. goto @garner3_22350
  10201.  
  10202. :garner3_22318
  10203. if
  10204. 5@ >= 11
  10205. jf @garner3_22350
  10206. 8@ = 13
  10207. 4@ = 11
  10208.  
  10209. :garner3_22350
  10210. if
  10211. 5@ == 1
  10212. jf @garner3_22431
  10213. format 14@ "Онлайн организации 'Правительство':"
  10214. say "/a %s" 14@
  10215. goto @garner3_22799
  10216.  
  10217. :garner3_22431
  10218. if
  10219. 5@ == 2
  10220. jf @garner3_22526
  10221. format 14@ "Онлайн организации 'Министерство Внутренних Дел':"
  10222. say "/a %s" 14@
  10223. goto @garner3_22799
  10224.  
  10225. :garner3_22526
  10226. if
  10227. 5@ == 3
  10228. jf @garner3_22614
  10229. format 14@ "Онлайн организации 'Министерство Обороны':"
  10230. say "/a %s" 14@
  10231. goto @garner3_22799
  10232.  
  10233. :garner3_22614
  10234. if
  10235. 5@ == 4
  10236. jf @garner3_22710
  10237. format 14@ "Онлайн организации 'Министерство Здравоохранения':"
  10238. say "/a %s" 14@
  10239. goto @garner3_22799
  10240.  
  10241. :garner3_22710
  10242. if
  10243. 5@ == 5
  10244. jf @garner3_22799
  10245. format 14@ "Онлайн организации 'Средства Массовой Информации':"
  10246. say "/a %s" 14@
  10247.  
  10248. :garner3_22799
  10249. 0085: 0@ = 4@ // (int)
  10250.  
  10251. :garner3_22807
  10252. if
  10253. 5@ >= 6
  10254. jf @garner3_22856
  10255. say "/templeader %i 0" 0@
  10256. goto @garner3_22884
  10257.  
  10258. :garner3_22856
  10259. say "/templeader %i %i" 5@ 0@
  10260.  
  10261. :garner3_22884
  10262. 30@ = 0
  10263. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  10264. 10@ = 0
  10265. 7@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  10266. 6@ = SAMP.GetPlayerNickname(7@)
  10267. format 13@ "[A] %s[%i] назначил(а) себя врем. лидером" 6@ 7@
  10268. 0C17: 7@ = strlen 13@
  10269.  
  10270. :garner3_22990
  10271. wait 0
  10272. 2@ = 99
  10273.  
  10274. :garner3_23001
  10275. SAMP.GetChatString(2@, 12@, 0, 0, 0)
  10276. if
  10277. 0C25: strncmp string1 12@ string2 13@ size 7@
  10278. jf @garner3_23051
  10279. 10@ = 1
  10280. goto @garner3_23072
  10281.  
  10282. :garner3_23051
  10283. 2@ -= 1
  10284. 94 > 2@
  10285. jf @garner3_23001
  10286.  
  10287. :garner3_23072
  10288. if
  10289. 10@ == 1
  10290. jf @garner3_23097
  10291. goto @garner3_23109
  10292.  
  10293. :garner3_23097
  10294. 8C79: not is_timer 29@ active
  10295. jf @garner3_22990
  10296.  
  10297. :garner3_23109
  10298. 0C75: kill_timer 29@
  10299. 0C11: memset destination 12@ value 0 size 4000
  10300. 0C11: memset destination 13@ value 0 size 200
  10301. 0C11: memset destination 14@ value 0 size 200
  10302. 0C11: memset destination 15@ value 0 size 500
  10303. 0C11: memset destination 16@ value 0 size 1000
  10304. say "/find"
  10305. wait 3000
  10306. if
  10307. 10@ == 1
  10308. jf @garner3_24504
  10309. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  10310. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  10311. alloc 22@ 16
  10312. 0AA5: call 23@ num_params 1 pop 0 22@
  10313. 0085: 21@ = 22@ // (int)
  10314. alloc 25@ 200
  10315. 0C11: memset destination 25@ value 0 size 200
  10316. alloc 20@ 200
  10317. 0C11: memset destination 20@ value 0 size 200
  10318. 21@ += 6
  10319. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10320. format 25@ "[%.2d-" 19@
  10321. 0C15: strcat destination 16@ source 25@
  10322. 21@ -= 4
  10323. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10324. format 25@ "%.2d-" 19@
  10325. 0C15: strcat destination 16@ source 25@
  10326. 21@ -= 2
  10327. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10328. format 25@ "%.2d " 19@
  10329. 0C15: strcat destination 16@ source 25@
  10330. 21@ += 8
  10331. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10332. format 25@ "%.2d:" 19@
  10333. 0C15: strcat destination 16@ source 25@
  10334. 21@ += 2
  10335. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10336. format 25@ "%.2d:" 19@
  10337. 0C15: strcat destination 16@ source 25@
  10338. 21@ += 2
  10339. 0A8D: 19@ = read_memory 21@ size 2 virtual_protect 0
  10340. format 25@ "%.2d]" 19@
  10341. 0C15: strcat destination 16@ source 25@
  10342. free 22@
  10343. 0AA3: free_library 24@
  10344. free 25@
  10345. free 20@
  10346. if
  10347. 0@ == 6
  10348. jf @garner3_23628
  10349. format 14@ "Grove Street: "
  10350. goto @garner3_23987
  10351.  
  10352. :garner3_23628
  10353. if
  10354. 0@ == 7
  10355. jf @garner3_23673
  10356. format 14@ "The Ballas: "
  10357. goto @garner3_23987
  10358.  
  10359. :garner3_23673
  10360. if
  10361. 0@ == 8
  10362. jf @garner3_23724
  10363. format 14@ "Los Santos Vagos: "
  10364. goto @garner3_23987
  10365.  
  10366. :garner3_23724
  10367. if
  10368. 0@ == 9
  10369. jf @garner3_23767
  10370. format 14@ "The Rifa: "
  10371. goto @garner3_23987
  10372.  
  10373. :garner3_23767
  10374. if
  10375. 0@ == 10
  10376. jf @garner3_23820
  10377. format 14@ "Varios Los Aztecas: "
  10378. goto @garner3_23987
  10379.  
  10380. :garner3_23820
  10381. if
  10382. 0@ == 11
  10383. jf @garner3_23869
  10384. format 14@ "La Cosa Nostra: "
  10385. goto @garner3_23987
  10386.  
  10387. :garner3_23869
  10388. if
  10389. 0@ == 12
  10390. jf @garner3_23910
  10391. format 14@ "Yakuza: "
  10392. goto @garner3_23987
  10393.  
  10394. :garner3_23910
  10395. if
  10396. 0@ == 13
  10397. jf @garner3_23958
  10398. format 14@ "Русская Мафия: "
  10399. goto @garner3_23987
  10400.  
  10401. :garner3_23958
  10402. format 14@ "Подразделение %i: " 0@
  10403.  
  10404. :garner3_23987
  10405. 0C15: strcat destination 15@ source 14@
  10406. 0BD7: samp get_dialog_text 12@
  10407. if
  10408. 0C29: 2@ = stristr string1 12@ string2 "онлайн"
  10409. jf @garner3_24303
  10410. 0AD4: 6@ = scan_string 2@ format "онлайн:%i" 3@
  10411. 3@ -= 1
  10412. format 14@ "онлайн %i чел, " 3@
  10413. 0C15: strcat destination 15@ source 14@
  10414. format 14@ " Организация: %i | Подразделение: %i | Онлайн: %i чел. | " 5@ 0@ 3@
  10415. 0C15: strcat destination 16@ source 14@
  10416. if
  10417. 0C29: 1@ = stristr string1 2@ string2 "паузе"
  10418. jf @garner3_24296
  10419. 0AD4: 6@ = scan_string 1@ format "паузе:%i" 3@
  10420. format 14@ "на паузе %i чел." 3@
  10421. 0C15: strcat destination 15@ source 14@
  10422. format 14@ "На паузе: %i чел.%c" 3@ 10
  10423. 0C15: strcat destination 16@ source 14@
  10424.  
  10425. :garner3_24296
  10426. goto @garner3_24428
  10427.  
  10428. :garner3_24303
  10429. format 14@ "Определить не удалось."
  10430. 0C15: strcat destination 15@ source 14@
  10431. format 14@ " Организация: %i | Подразделение: %i | Определить не удалось.%c" 5@ 0@ 10
  10432. 0C15: strcat destination 16@ source 14@
  10433.  
  10434. :garner3_24428
  10435. say "/a %s" 15@
  10436. 22@ = File.Open("cleo\AdminTools\logs\find_log.txt", "a")
  10437. File.WriteString(22@, 16@)
  10438. File.Close(22@)
  10439. goto @garner3_24550
  10440.  
  10441. :garner3_24504
  10442. format 12@ "Превышено время ожидания."
  10443. call @garner4_17369 1 12@
  10444.  
  10445. :garner3_24550
  10446. 0@ += 1
  10447. 001D: 0@ > 8@ // (int)
  10448. jf @garner3_22807
  10449. free 12@
  10450. free 13@
  10451. free 14@
  10452. free 15@
  10453. free 16@
  10454. 0BFC: set_global_var "check-a-find" = 0
  10455.  
  10456. :garner3_24615
  10457. 0BFD: 0@ = get_global_var "apay-player-id"
  10458. if
  10459. not 0@ == -1
  10460. jf @garner3_25479
  10461. alloc 10@ 300
  10462. 0C11: memset destination 10@ value 0 size 300
  10463. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "apay" key "amount"
  10464. if
  10465. not 1@ >= 2000
  10466. jf @garner3_24769
  10467. say "/pay %i %i" 0@ 1@
  10468. goto @garner3_25454
  10469.  
  10470. :garner3_24769
  10471. not 1@ == 0
  10472. jf @garner3_25454
  10473. 0BFD: 0@ = get_global_var "apay-player-id"
  10474. if
  10475. not 0@ == -1
  10476. jf @garner3_25381
  10477. if
  10478. SAMP.IsPlayerConnected(0@)
  10479. jf @garner3_25307
  10480. 4@ = SAMP.GetActorHandleByPlayerID(0@)
  10481. if
  10482. 056D: actor 4@ defined
  10483. jf @garner3_25202
  10484. if
  10485. 0104: actor $PLAYER_ACTOR near_actor 4@ radius 3.0 3.0 3.0 sphere 0
  10486. jf @garner3_25097
  10487. if
  10488. not 1@ > 2000
  10489. jf @garner3_25017
  10490. say "/pay %i %i" 0@ 1@
  10491. 1@ = 0
  10492. format 10@ "Операция передачи денег завершена." 1@
  10493. call @garner4_17369 1 10@
  10494. goto @garner3_25454
  10495. goto @garner3_25045
  10496.  
  10497. :garner3_25017
  10498. say "/pay %i 2000" 0@
  10499. 1@ -= 2000
  10500.  
  10501. :garner3_25045
  10502. format 10@ "Оставшаяся сумма: %i." 1@
  10503. call @garner4_17369 1 10@
  10504. goto @garner3_25195
  10505.  
  10506. :garner3_25097
  10507. format 10@ "Игрок слишком далеко, встаньте ближе. Для прерывания операции, введите /apay."
  10508. call @garner4_17369 1 10@
  10509.  
  10510. :garner3_25195
  10511. goto @garner3_25300
  10512.  
  10513. :garner3_25202
  10514. format 10@ "Игрок слишком далеко, встаньте ближе. Для прерывания операции, введите /apay."
  10515. call @garner4_17369 1 10@
  10516.  
  10517. :garner3_25300
  10518. goto @garner3_25374
  10519.  
  10520. :garner3_25307
  10521. format 10@ "Игрок вышел из игры. Операция прервана."
  10522. call @garner4_17369 1 10@
  10523. goto @garner3_25454
  10524.  
  10525. :garner3_25374
  10526. goto @garner3_25442
  10527.  
  10528. :garner3_25381
  10529. format 10@ "Операция передачи денег прервана."
  10530. call @garner4_17369 1 10@
  10531. goto @garner3_25454
  10532.  
  10533. :garner3_25442
  10534. wait 6000
  10535. goto @garner3_24769
  10536.  
  10537. :garner3_25454
  10538. free 10@
  10539. 0BFC: set_global_var "apay-player-id" = -1
  10540.  
  10541. :garner3_25479
  10542. 0BFD: 0@ = get_global_var "rskin-status"
  10543. if
  10544. 0@ == 1
  10545. jf @garner3_26119
  10546. alloc 10@ 300
  10547. 0C11: memset destination 10@ value 0 size 300
  10548. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "rskin" key "radius"
  10549. 0093: 5@ = integer 0@ to_float
  10550. 0AF0: 4@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "rskin" key "skin"
  10551. 6@ = 0
  10552. if
  10553. 0C8A: samp 1@ = get_max_player_id streamed_only 1
  10554. jf @garner3_26096
  10555. 2@ = 0
  10556.  
  10557. :garner3_25674
  10558. 0BFD: 0@ = get_global_var "rskin-status"
  10559. if
  10560. 0@ == 0
  10561. jf @garner3_25772
  10562. format 10@ "Выдача временных скинов прервана."
  10563. call @garner4_17369 1 10@
  10564. goto @garner3_26096
  10565.  
  10566. :garner3_25772
  10567. if
  10568. SAMP.IsPlayerConnected(2@)
  10569. jf @garner3_25892
  10570. 3@ = SAMP.GetActorHandleByPlayerID(2@)
  10571. if
  10572. 056D: actor 3@ defined
  10573. jf @garner3_25892
  10574. if
  10575. 0104: actor $PLAYER_ACTOR near_actor 3@ radius 5@ 5@ 5@ sphere 0
  10576. jf @garner3_25892
  10577. if
  10578. not Actor.Driving(3@)
  10579. jf @garner3_25892
  10580. say "/skin %i %i" 2@ 4@
  10581. 6@ += 1
  10582. wait 3000
  10583.  
  10584. :garner3_25892
  10585. if
  10586. 003B: 2@ == 1@ // (int)
  10587. jf @garner3_26074
  10588. if
  10589. not 6@ == 0
  10590. jf @garner3_26021
  10591. format 10@ "Выдача временных скинов завершена. Всего выдано %i скин(-ов)." 6@
  10592. call @garner4_17369 1 10@
  10593. goto @garner3_26074
  10594.  
  10595. :garner3_26021
  10596. format 10@ "В указанном радиусе игроков нет."
  10597. call @garner4_17369 1 10@
  10598.  
  10599. :garner3_26074
  10600. 2@ += 1
  10601. 001D: 2@ > 1@ // (int)
  10602. jf @garner3_25674
  10603.  
  10604. :garner3_26096
  10605. free 10@
  10606. 0BFC: set_global_var "rskin-status" = 0
  10607.  
  10608. :garner3_26119
  10609. 0BFD: 0@ = get_global_var "rskins-status"
  10610. if
  10611. 0@ == 1
  10612. jf @garner3_26982
  10613. alloc 10@ 300
  10614. 0C11: memset destination 10@ value 0 size 300
  10615. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "rskins" key "radius"
  10616. 0093: 5@ = integer 0@ to_float
  10617. 0AF0: 4@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "rskins" key "skin1"
  10618. 0AF0: 7@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "rskins" key "skin2"
  10619. 6@ = 0
  10620. 11@ = 0
  10621. 12@ = 0
  10622. 8@ = 0
  10623. if
  10624. 0C8A: samp 1@ = get_max_player_id streamed_only 1
  10625. jf @garner3_26958
  10626. 2@ = 0
  10627.  
  10628. :garner3_26390
  10629. 0BFD: 0@ = get_global_var "rskins-status"
  10630. if
  10631. 0@ == 0
  10632. jf @garner3_26489
  10633. format 10@ "Выдача временных скинов прервана."
  10634. call @garner4_17369 1 10@
  10635. goto @garner3_26958
  10636.  
  10637. :garner3_26489
  10638. if
  10639. SAMP.IsPlayerConnected(2@)
  10640. jf @garner3_26686
  10641. 3@ = SAMP.GetActorHandleByPlayerID(2@)
  10642. if
  10643. 056D: actor 3@ defined
  10644. jf @garner3_26686
  10645. if
  10646. 0104: actor $PLAYER_ACTOR near_actor 3@ radius 5@ 5@ 5@ sphere 0
  10647. jf @garner3_26686
  10648. if
  10649. not Actor.Driving(3@)
  10650. jf @garner3_26686
  10651. if
  10652. 8@ == 0
  10653. jf @garner3_26629
  10654. say "/skin %i %i" 2@ 4@
  10655. 11@ += 1
  10656. goto @garner3_26658
  10657.  
  10658. :garner3_26629
  10659. say "/skin %i %i" 2@ 7@
  10660. 12@ += 1
  10661.  
  10662. :garner3_26658
  10663. 6@ += 1
  10664. 0B13: 9@ = NOT 8@
  10665. 0085: 8@ = 9@ // (int)
  10666. wait 3000
  10667.  
  10668. :garner3_26686
  10669. if
  10670. 003B: 2@ == 1@ // (int)
  10671. jf @garner3_26936
  10672. if
  10673. not 6@ == 0
  10674. jf @garner3_26883
  10675. format 10@ "Выдача временных скинов завершена. Всего выдано %i скин(-ов)." 6@
  10676. call @garner4_17369 1 10@
  10677. format 10@ "Первый скин - %i ед. Второй скин - %i ед." 11@ 12@
  10678. call @garner4_17369 1 10@
  10679. goto @garner3_26936
  10680.  
  10681. :garner3_26883
  10682. format 10@ "В указанном радиусе игроков нет."
  10683. call @garner4_17369 1 10@
  10684.  
  10685. :garner3_26936
  10686. 2@ += 1
  10687. 001D: 2@ > 1@ // (int)
  10688. jf @garner3_26390
  10689.  
  10690. :garner3_26958
  10691. free 10@
  10692. 0BFC: set_global_var "rskins-status" = 0
  10693.  
  10694. :garner3_26982
  10695. 0BFD: 0@ = get_global_var "car-spawn-status"
  10696. if
  10697. 0@ == 1
  10698. jf @garner3_27909
  10699. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "rows"
  10700. 0AF0: 1@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "car-count"
  10701. 0AF0: 2@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "car-id"
  10702. 0AF0: 3@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "color1"
  10703. 0AF0: 4@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "color2"
  10704. Actor.StorePos($PLAYER_ACTOR, 17@, 18@, 19@)
  10705. 04C4: store_coords_to 12@ 13@ 14@ from_actor $PLAYER_ACTOR with_offset 0.0 -8.0 0.0
  10706. 16@ = 1
  10707.  
  10708. :garner3_27349
  10709. 8@ = 1
  10710.  
  10711. :garner3_27356
  10712. 0BFD: 10@ = get_global_var "car-spawn-status"
  10713. if
  10714. 10@ == 0
  10715. jf @garner3_27404
  10716. goto @garner3_27536
  10717.  
  10718. :garner3_27404
  10719. 04C4: store_coords_to 5@ 6@ 7@ from_actor $PLAYER_ACTOR with_offset 5.0 0.0 0.0
  10720. 02CE: 9@ = ground_z_at 5@ 6@ 500.0
  10721. call @garner4_626 3 5@ 6@ 9@
  10722. Actor.PutAt($PLAYER_ACTOR, 5@, 6@, 9@)
  10723. say "/vec %i %i %i" 2@ 3@ 4@
  10724. wait 1500
  10725. 8@ += 1
  10726. 001D: 8@ > 1@ // (int)
  10727. jf @garner3_27356
  10728.  
  10729. :garner3_27536
  10730. if
  10731. 003B: 16@ == 0@ // (int)
  10732. jf @garner3_27673
  10733. alloc 11@ 128
  10734. 0C11: memset destination 11@ value 0 size 128
  10735. format 11@ "Спавн Т/С окончен."
  10736. call @garner4_17369 1 11@
  10737. free 11@
  10738. 02CE: 9@ = ground_z_at 17@ 18@ 500.0
  10739. call @garner4_626 3 17@ 18@ 9@
  10740. Actor.PutAt($PLAYER_ACTOR, 17@, 18@, 9@)
  10741. goto @garner3_27887
  10742.  
  10743. :garner3_27673
  10744. 0BFD: 10@ = get_global_var "car-spawn-status"
  10745. if
  10746. 10@ == 0
  10747. jf @garner3_27783
  10748. alloc 11@ 128
  10749. 0C11: memset destination 11@ value 0 size 128
  10750. format 11@ "Спавн Т/С прерван."
  10751. call @garner4_17369 1 11@
  10752. free 11@
  10753. goto @garner3_27887
  10754.  
  10755. :garner3_27783
  10756. 02CE: 9@ = ground_z_at 12@ 13@ 500.0
  10757. call @garner4_626 3 12@ 13@ 9@
  10758. Actor.PutAt($PLAYER_ACTOR, 12@, 13@, 9@)
  10759. 04C4: store_coords_to 12@ 13@ 14@ from_actor $PLAYER_ACTOR with_offset 0.0 -8.0 0.0
  10760. wait 100
  10761. 16@ += 1
  10762. 001D: 16@ > 0@ // (int)
  10763. jf @garner3_27349
  10764.  
  10765. :garner3_27887
  10766. 0BFC: set_global_var "car-spawn-status" = 0
  10767.  
  10768. :garner3_27909
  10769. 0BFD: 0@ = get_global_var "ADMINPANEL_FLAG"
  10770. if
  10771. 0@ == 1
  10772. jf @garner3_28664
  10773. 0BFD: 0@ = get_global_var "prev-id-on-key"
  10774. if
  10775. 0C89: key_just_pressed 0@
  10776. jf @garner3_28310
  10777. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  10778. if
  10779. 0@ >= 1
  10780. jf @garner3_28195
  10781.  
  10782. :garner3_28057
  10783. 0@ -= 1
  10784. if and
  10785. 0@ == 0
  10786. not SAMP.IsPlayerConnected(0@)
  10787. jf @garner3_28095
  10788. 0@ = 1000
  10789.  
  10790. :garner3_28095
  10791. SAMP.IsPlayerConnected(0@)
  10792. jf @garner3_28057
  10793. say "/sp %i" 0@
  10794. 0AF1: write_int 0@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  10795. 0BFC: set_global_var "first-sp" = 1
  10796. goto @garner3_28303
  10797.  
  10798. :garner3_28195
  10799. 0@ = 1000
  10800.  
  10801. :garner3_28203
  10802. 0@ -= 1
  10803. SAMP.IsPlayerConnected(0@)
  10804. jf @garner3_28203
  10805. say "/sp %i" 0@
  10806. 0AF1: write_int 0@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  10807. 0BFC: set_global_var "first-sp" = 1
  10808.  
  10809. :garner3_28303
  10810. goto @garner3_28664
  10811.  
  10812. :garner3_28310
  10813. 0BFD: 0@ = get_global_var "next-id-on-key"
  10814. if
  10815. 0C89: key_just_pressed 0@
  10816. jf @garner3_28664
  10817. 0AF0: 0@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  10818. if
  10819. not 0@ > 999
  10820. jf @garner3_28557
  10821.  
  10822. :garner3_28419
  10823. 0@ += 1
  10824. if and
  10825. 0@ == 1000
  10826. not SAMP.IsPlayerConnected(0@)
  10827. jf @garner3_28457
  10828. 0@ = 0
  10829.  
  10830. :garner3_28457
  10831. SAMP.IsPlayerConnected(0@)
  10832. jf @garner3_28419
  10833. say "/sp %i" 0@
  10834. 0AF1: write_int 0@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  10835. 0BFC: set_global_var "first-sp" = 1
  10836. goto @garner3_28664
  10837.  
  10838. :garner3_28557
  10839. 0@ = 0
  10840.  
  10841. :garner3_28564
  10842. 0@ += 1
  10843. SAMP.IsPlayerConnected(0@)
  10844. jf @garner3_28564
  10845. say "/sp %i" 0@
  10846. 0AF1: write_int 0@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  10847. 0BFC: set_global_var "first-sp" = 1
  10848.  
  10849. :garner3_28664
  10850. 0BFD: 0@ = get_global_var "AT_CLICK_SOUND"
  10851. if
  10852. not 0@ == 0
  10853. jf @garner3_28754
  10854. 0@ = Audiostream.State(1@)
  10855. if
  10856. 1@ == -1
  10857. jf @garner3_28754
  10858. Audiostream.Release(0@)
  10859. 0BFC: set_global_var "AT_CLICK_SOUND" = 0
  10860.  
  10861. :garner3_28754
  10862. 0BFD: 0@ = get_global_var "AT_NOTIFICATION_SOUND"
  10863. if
  10864. not 0@ == 0
  10865. jf @garner3_28858
  10866. 0@ = Audiostream.State(1@)
  10867. if
  10868. 1@ == -1
  10869. jf @garner3_28858
  10870. Audiostream.Release(0@)
  10871. 0BFC: set_global_var "AT_NOTIFICATION_SOUND" = 0
  10872.  
  10873. :garner3_28858
  10874. 0BFD: 0@ = get_global_var "2warns"
  10875. if
  10876. 0@ == 1
  10877. jf @garner3_29081
  10878. alloc 0@ 128
  10879. 0C11: memset destination 0@ value 0 size 128
  10880. alloc 1@ 25
  10881. 0C11: memset destination 1@ value 0 size 25
  10882. 0AF4: 0@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "2warns" key "reason"
  10883. 0AF4: 1@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "2warns" key "nickname"
  10884. wait 1500
  10885. say "/offwarn %s %s" 1@ 0@
  10886. free 0@
  10887. free 1@
  10888. 0BFC: set_global_var "2warns" = 0
  10889.  
  10890. :garner3_29081
  10891. 0BFD: 0@ = get_global_var "lip-status"
  10892. if
  10893. not 0@ == 0
  10894. jf @garner3_31448
  10895. alloc 10@ 1000
  10896. 0C11: memset destination 10@ value 0 size 1000
  10897. alloc 11@ 300
  10898. 0C11: memset destination 11@ value 0 size 300
  10899. alloc 12@ 500
  10900. 0C11: memset destination 12@ value 0 size 500
  10901. if
  10902. 0@ == 1
  10903. jf @garner3_30356
  10904. SAMP.CloseDialog(1)
  10905. 0AF4: 10@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "nickname"
  10906. say "/get %s" 10@
  10907. 30@ = 0
  10908. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  10909.  
  10910. :garner3_29278
  10911. wait 0
  10912. 0@ = SAMP.GetDialogID()
  10913. if
  10914. SAMP.IsDialogActive(0@)
  10915. jf @garner3_29310
  10916. goto @garner3_29322
  10917.  
  10918. :garner3_29310
  10919. 8C79: not is_timer 29@ active
  10920. jf @garner3_29278
  10921.  
  10922. :garner3_29322
  10923. 0C75: kill_timer 29@
  10924. 0BD8: samp get_dialog_caption 11@
  10925. if
  10926. 0C21: stricmp string1 10@ string2 11@
  10927. jf @garner3_30349
  10928. 0BD7: samp get_dialog_text 10@
  10929. if
  10930. 0C29: 1@ = stristr string1 10@ string2 "(послед.)"
  10931. jf @garner3_30349
  10932. 0AD4: 0@ = scan_string 1@ format "(послед.):%i.%i.%i.%i" 2@ 3@ 4@ 5@
  10933. format 12@ "%i.%i.%i.%i" 2@ 3@ 4@ 5@
  10934. SAMP.CloseDialog(1)
  10935. say "/lip %s" 12@
  10936. 30@ = 0
  10937. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  10938.  
  10939. :garner3_29500
  10940. wait 0
  10941. 0@ = SAMP.GetDialogID()
  10942. if
  10943. SAMP.IsDialogActive(0@)
  10944. jf @garner3_29532
  10945. goto @garner3_29544
  10946.  
  10947. :garner3_29532
  10948. 8C79: not is_timer 29@ active
  10949. jf @garner3_29500
  10950.  
  10951. :garner3_29544
  10952. 0C75: kill_timer 29@
  10953. 0BD8: samp get_dialog_caption 10@
  10954. if
  10955. 0C21: stricmp string1 10@ string2 12@
  10956. jf @garner3_30349
  10957. 0BD7: samp get_dialog_text 10@
  10958. 0@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "w")
  10959. File.WriteString(0@, 10@)
  10960. File.Close(0@)
  10961. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  10962. alloc 15@ 25
  10963. 0C11: memset destination 15@ value 0 size 25
  10964. 8@ = 0
  10965.  
  10966. :garner3_29702
  10967. if
  10968. File.ReadString(1@, 15@, 25)
  10969. jf @garner3_29730
  10970. 8@ += 1
  10971.  
  10972. :garner3_29730
  10973. File.EOF(1@)
  10974. jf @garner3_29702
  10975. File.Close(1@)
  10976. free 15@
  10977. if
  10978. not 8@ == 0
  10979. jf @garner3_30349
  10980. 5@ = 50
  10981. 006A: 5@ *= 8@ // (int)
  10982. alloc 13@ 5@
  10983. alloc 15@ 30
  10984. 0C11: memset destination 15@ value 0 size 30
  10985. 0C11: memset destination 13@ value 0 size 5@
  10986. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  10987. 4@ = 1
  10988.  
  10989. :garner3_29870
  10990. if
  10991. File.ReadString(1@, 15@, 25)
  10992. jf @garner3_30250
  10993. if
  10994. 0C2C: 3@ = strrchr 15@ char 10
  10995. jf @garner3_29921
  10996. 0C11: memset destination 3@ value 0 size 1
  10997.  
  10998. :garner3_29921
  10999. 5@ = 0
  11000. 0@ = 0
  11001.  
  11002. :garner3_29935
  11003. if
  11004. SAMP.IsPlayerConnected(0@)
  11005. jf @garner3_30108
  11006. 2@ = SAMP.GetPlayerNickname(0@)
  11007. if
  11008. 0C21: stricmp string1 2@ string2 15@
  11009. jf @garner3_30108
  11010. if
  11011. 803B: not 4@ == 8@ // (int)
  11012. jf @garner3_30058
  11013. format 10@ "{32CD32}%i. %s[%i]%c" 4@ 15@ 0@ 10
  11014. 0C15: strcat destination 13@ source 10@
  11015. 5@ = 1
  11016. goto @garner3_30108
  11017.  
  11018. :garner3_30058
  11019. format 10@ "{32CD32}%i. %s[%i]" 4@ 15@ 0@
  11020. 0C15: strcat destination 13@ source 10@
  11021. 5@ = 1
  11022.  
  11023. :garner3_30108
  11024. 0@ += 1
  11025. 0@ > 1000
  11026. jf @garner3_29935
  11027. if
  11028. 5@ == 0
  11029. jf @garner3_30250
  11030. if
  11031. 803B: not 4@ == 8@ // (int)
  11032. jf @garner3_30214
  11033. format 10@ "{9C9C9C}%i. %s%c" 4@ 15@ 10
  11034. 0C15: strcat destination 13@ source 10@
  11035. goto @garner3_30250
  11036.  
  11037. :garner3_30214
  11038. format 10@ "{9C9C9C}%i. %s" 4@ 15@
  11039. 0C15: strcat destination 13@ source 10@
  11040.  
  11041. :garner3_30250
  11042. 4@ += 1
  11043. 001D: 4@ > 8@ // (int)
  11044. jf @garner3_29870
  11045. SAMP.ShowDialog(700, 12@, 13@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  11046. File.Close(1@)
  11047. free 13@
  11048. free 15@
  11049. 0B00: delete_file "cleo\AdminTools\data\lip-nicks.txt" // IF and SET
  11050.  
  11051. :garner3_30349
  11052. goto @garner3_31417
  11053.  
  11054. :garner3_30356
  11055. 0AF4: 12@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "ip"
  11056. say "/lip %s" 12@
  11057. alloc 5@ 200
  11058. 0C11: memset destination 5@ value 0 size 200
  11059. 30@ = 0
  11060. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  11061.  
  11062. :garner3_30454
  11063. wait 0
  11064. 8@ = 99
  11065.  
  11066. :garner3_30465
  11067. SAMP.GetChatString(8@, 5@, 0, 0, 0)
  11068. if
  11069. 0C25: strncmp string1 5@ string2 "По Вашему запросу ничего не найдено" size 17
  11070. jf @garner3_30546
  11071. 0C75: kill_timer 29@
  11072. goto @garner3_30567
  11073.  
  11074. :garner3_30546
  11075. 8@ -= 1
  11076. 95 > 8@
  11077. jf @garner3_30465
  11078.  
  11079. :garner3_30567
  11080. 0@ = SAMP.GetDialogID()
  11081. if
  11082. SAMP.IsDialogActive(0@)
  11083. jf @garner3_30595
  11084. goto @garner3_30607
  11085.  
  11086. :garner3_30595
  11087. 8C79: not is_timer 29@ active
  11088. jf @garner3_30454
  11089.  
  11090. :garner3_30607
  11091. 0C75: kill_timer 29@
  11092. free 5@
  11093. 0BD8: samp get_dialog_caption 10@
  11094. if
  11095. 0C21: stricmp string1 10@ string2 12@
  11096. jf @garner3_31417
  11097. 0BD7: samp get_dialog_text 10@
  11098. 0@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "w")
  11099. File.WriteString(0@, 10@)
  11100. File.Close(0@)
  11101. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  11102. alloc 15@ 25
  11103. 0C11: memset destination 15@ value 0 size 25
  11104. 8@ = 0
  11105.  
  11106. :garner3_30770
  11107. if
  11108. File.ReadString(1@, 15@, 25)
  11109. jf @garner3_30798
  11110. 8@ += 1
  11111.  
  11112. :garner3_30798
  11113. File.EOF(1@)
  11114. jf @garner3_30770
  11115. File.Close(1@)
  11116. free 15@
  11117. if
  11118. not 8@ == 0
  11119. jf @garner3_31417
  11120. 5@ = 50
  11121. 006A: 5@ *= 8@ // (int)
  11122. alloc 13@ 5@
  11123. alloc 15@ 30
  11124. 0C11: memset destination 15@ value 0 size 30
  11125. 0C11: memset destination 13@ value 0 size 5@
  11126. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  11127. 4@ = 1
  11128.  
  11129. :garner3_30938
  11130. if
  11131. File.ReadString(1@, 15@, 25)
  11132. jf @garner3_31318
  11133. if
  11134. 0C2C: 3@ = strrchr 15@ char 10
  11135. jf @garner3_30989
  11136. 0C11: memset destination 3@ value 0 size 1
  11137.  
  11138. :garner3_30989
  11139. 5@ = 0
  11140. 0@ = 0
  11141.  
  11142. :garner3_31003
  11143. if
  11144. SAMP.IsPlayerConnected(0@)
  11145. jf @garner3_31176
  11146. 2@ = SAMP.GetPlayerNickname(0@)
  11147. if
  11148. 0C21: stricmp string1 2@ string2 15@
  11149. jf @garner3_31176
  11150. if
  11151. 803B: not 4@ == 8@ // (int)
  11152. jf @garner3_31126
  11153. format 10@ "{32CD32}%i. %s[%i]%c" 4@ 15@ 0@ 10
  11154. 0C15: strcat destination 13@ source 10@
  11155. 5@ = 1
  11156. goto @garner3_31176
  11157.  
  11158. :garner3_31126
  11159. format 10@ "{32CD32}%i. %s[%i]" 4@ 15@ 0@
  11160. 0C15: strcat destination 13@ source 10@
  11161. 5@ = 1
  11162.  
  11163. :garner3_31176
  11164. 0@ += 1
  11165. 0@ > 1000
  11166. jf @garner3_31003
  11167. if
  11168. 5@ == 0
  11169. jf @garner3_31318
  11170. if
  11171. 803B: not 4@ == 8@ // (int)
  11172. jf @garner3_31282
  11173. format 10@ "{9C9C9C}%i. %s%c" 4@ 15@ 10
  11174. 0C15: strcat destination 13@ source 10@
  11175. goto @garner3_31318
  11176.  
  11177. :garner3_31282
  11178. format 10@ "{9C9C9C}%i. %s" 4@ 15@
  11179. 0C15: strcat destination 13@ source 10@
  11180.  
  11181. :garner3_31318
  11182. 4@ += 1
  11183. 001D: 4@ > 8@ // (int)
  11184. jf @garner3_30938
  11185. SAMP.ShowDialog(700, 12@, 13@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  11186. File.Close(1@)
  11187. free 13@
  11188. free 15@
  11189. 0B00: delete_file "cleo\AdminTools\data\lip-nicks.txt" // IF and SET
  11190.  
  11191. :garner3_31417
  11192. free 10@
  11193. free 11@
  11194. free 12@
  11195. 0BFC: set_global_var "lip-status" = 0
  11196.  
  11197. :garner3_31448
  11198. 0BFD: 0@ = get_global_var "lip-bans-status"
  11199. if
  11200. not 0@ == 0
  11201. jf @garner3_33318
  11202. alloc 10@ 1000
  11203. 0C11: memset destination 10@ value 0 size 1000
  11204. alloc 11@ 300
  11205. 0C11: memset destination 11@ value 0 size 300
  11206. alloc 12@ 500
  11207. 0C11: memset destination 12@ value 0 size 500
  11208. alloc 14@ 100
  11209. 0C11: memset destination 14@ value 0 size 100
  11210. if
  11211. 0@ == 1
  11212. jf @garner3_31869
  11213. SAMP.CloseDialog(1)
  11214. 0AF4: 10@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "nickname"
  11215. say "/get %s" 10@
  11216. 30@ = 0
  11217. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  11218.  
  11219. :garner3_31666
  11220. wait 0
  11221. if
  11222. SAMP.IsDialogActive(-1)
  11223. jf @garner3_31692
  11224. goto @garner3_31704
  11225.  
  11226. :garner3_31692
  11227. 8C79: not is_timer 29@ active
  11228. jf @garner3_31666
  11229.  
  11230. :garner3_31704
  11231. 0C75: kill_timer 29@
  11232. 0BD8: samp get_dialog_caption 11@
  11233. if
  11234. 0C21: stricmp string1 10@ string2 11@
  11235. jf @garner3_31862
  11236. 0BD7: samp get_dialog_text 10@
  11237. if
  11238. 0C29: 1@ = stristr string1 10@ string2 "(послед.)"
  11239. jf @garner3_31862
  11240. 0AD4: 0@ = scan_string 1@ format "(послед.):%i.%i.%i.%i" 2@ 3@ 4@ 5@
  11241. format 12@ "%i.%i.%i.%i" 2@ 3@ 4@ 5@
  11242. SAMP.CloseDialog(1)
  11243. say "/lip %s" 12@
  11244.  
  11245. :garner3_31862
  11246. goto @garner3_31933
  11247.  
  11248. :garner3_31869
  11249. 0AF4: 12@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "ip"
  11250. SAMP.CloseDialog(1)
  11251. say "/lip %s" 12@
  11252.  
  11253. :garner3_31933
  11254. alloc 5@ 200
  11255. 0C11: memset destination 5@ value 0 size 200
  11256. 30@ = 0
  11257. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  11258.  
  11259. :garner3_31971
  11260. wait 0
  11261. if
  11262. SAMP.IsDialogActive(-1)
  11263. jf @garner3_31997
  11264. goto @garner3_32118
  11265.  
  11266. :garner3_31997
  11267. 8@ = 99
  11268.  
  11269. :garner3_32004
  11270. SAMP.GetChatString(8@, 5@, 0, 0, 0)
  11271. if
  11272. 0C25: strncmp string1 5@ string2 "По Вашему запросу ничего не найдено" size 17
  11273. jf @garner3_32085
  11274. 0C75: kill_timer 29@
  11275. goto @garner3_32106
  11276.  
  11277. :garner3_32085
  11278. 8@ -= 1
  11279. 95 > 8@
  11280. jf @garner3_32004
  11281.  
  11282. :garner3_32106
  11283. 8C79: not is_timer 29@ active
  11284. jf @garner3_31971
  11285.  
  11286. :garner3_32118
  11287. 0C75: kill_timer 29@
  11288. free 5@
  11289. 0BD8: samp get_dialog_caption 10@
  11290. if
  11291. 0C21: stricmp string1 10@ string2 12@
  11292. jf @garner3_33277
  11293. 0BD7: samp get_dialog_text 10@
  11294. 0@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "w")
  11295. File.WriteString(0@, 10@)
  11296. File.Close(0@)
  11297. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  11298. alloc 15@ 25
  11299. 0C11: memset destination 15@ value 0 size 25
  11300. 8@ = 0
  11301.  
  11302. :garner3_32281
  11303. if
  11304. File.ReadString(1@, 15@, 25)
  11305. jf @garner3_32309
  11306. 8@ += 1
  11307.  
  11308. :garner3_32309
  11309. File.EOF(1@)
  11310. jf @garner3_32281
  11311. File.Close(1@)
  11312. free 15@
  11313. if
  11314. not 8@ == 0
  11315. jf @garner3_33277
  11316. 5@ = 50
  11317. 006A: 5@ *= 8@ // (int)
  11318. alloc 13@ 5@
  11319. alloc 15@ 30
  11320. 0C11: memset destination 15@ value 0 size 30
  11321. 0C11: memset destination 13@ value 0 size 5@
  11322. 1@ = File.Open("cleo\AdminTools\data\lip-nicks.txt", "r")
  11323. 4@ = 1
  11324.  
  11325. :garner3_32449
  11326. 0BFD: 0@ = get_global_var "lip-bans-status"
  11327. if
  11328. 0@ == 0
  11329. jf @garner3_32496
  11330. goto @garner3_33200
  11331.  
  11332. :garner3_32496
  11333. if
  11334. File.ReadString(1@, 15@, 25)
  11335. jf @garner3_33178
  11336. if
  11337. 0C2C: 3@ = strrchr 15@ char 10
  11338. jf @garner3_32547
  11339. 0C11: memset destination 3@ value 0 size 1
  11340.  
  11341. :garner3_32547
  11342. 5@ = 0
  11343. format 14@ "Проверка %s на наличие в бан-листе..." 15@
  11344. call @garner4_17369 1 14@
  11345. say "/baninfo %s" 15@
  11346. wait 1500
  11347. if
  11348. SAMP.IsDialogActive(-1)
  11349. jf @garner3_32814
  11350. 0BD8: samp get_dialog_caption 11@
  11351. if
  11352. 0C21: stricmp string1 15@ string2 11@
  11353. jf @garner3_32814
  11354. if
  11355. 803B: not 4@ == 8@ // (int)
  11356. jf @garner3_32761
  11357. format 10@ "{FF0000}%i. %s (забанен)%c" 4@ 15@ 10
  11358. 0C15: strcat destination 13@ source 10@
  11359. 5@ = 1
  11360. goto @garner3_32814
  11361.  
  11362. :garner3_32761
  11363. format 10@ "{FF0000}%i. %s (забанен)" 4@ 15@
  11364. 0C15: strcat destination 13@ source 10@
  11365. 5@ = 1
  11366.  
  11367. :garner3_32814
  11368. 0@ = 0
  11369.  
  11370. :garner3_32821
  11371. if
  11372. SAMP.IsPlayerConnected(0@)
  11373. jf @garner3_33012
  11374. 2@ = SAMP.GetPlayerNickname(0@)
  11375. if
  11376. 0C21: stricmp string1 2@ string2 15@
  11377. jf @garner3_33012
  11378. if
  11379. 803B: not 4@ == 8@ // (int)
  11380. jf @garner3_32953
  11381. format 10@ "{32CD32}%i. %s[%i] (в сети)%c" 4@ 15@ 0@ 10
  11382. 0C15: strcat destination 13@ source 10@
  11383. 5@ = 1
  11384. goto @garner3_33012
  11385.  
  11386. :garner3_32953
  11387. format 10@ "{32CD32}%i. %s[%i] (в сети)" 4@ 15@ 0@
  11388. 0C15: strcat destination 13@ source 10@
  11389. 5@ = 1
  11390.  
  11391. :garner3_33012
  11392. 0@ += 1
  11393. 0@ > 1000
  11394. jf @garner3_32821
  11395. if
  11396. 5@ == 0
  11397. jf @garner3_33178
  11398. if
  11399. 803B: not 4@ == 8@ // (int)
  11400. jf @garner3_33130
  11401. format 10@ "{9C9C9C}%i. %s (не в сети)%c" 4@ 15@ 10
  11402. 0C15: strcat destination 13@ source 10@
  11403. goto @garner3_33178
  11404.  
  11405. :garner3_33130
  11406. format 10@ "{9C9C9C}%i. %s (не в сети)" 4@ 15@
  11407. 0C15: strcat destination 13@ source 10@
  11408.  
  11409. :garner3_33178
  11410. 4@ += 1
  11411. 001D: 4@ > 8@ // (int)
  11412. jf @garner3_32449
  11413.  
  11414. :garner3_33200
  11415. SAMP.ShowDialog(700, 12@, 13@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  11416. File.Close(1@)
  11417. free 13@
  11418. free 15@
  11419. 0B00: delete_file "cleo\AdminTools\data\lip-nicks.txt" // IF and SET
  11420.  
  11421. :garner3_33277
  11422. free 10@
  11423. free 11@
  11424. free 12@
  11425. free 14@
  11426. 0BFC: set_global_var "lip-bans-status" = 0
  11427.  
  11428. :garner3_33318
  11429. 0BFD: 0@ = get_global_var "check-forum"
  11430. if
  11431. 0@ == 1
  11432. jf @garner3_34935
  11433. alloc 1@ 200
  11434. 0C11: memset destination 1@ value 0 size 200
  11435. alloc 7@ 200
  11436. 0C11: memset destination 7@ value 0 size 200
  11437. 7@ = SAMP.GetCurrentServerName()
  11438. if
  11439. 0C29: 6@ = stristr string1 7@ string2 "Red"
  11440. jf @garner3_33433
  11441. 4@ = 15
  11442. goto @garner3_33773
  11443.  
  11444. :garner3_33433
  11445. if
  11446. 0C29: 6@ = stristr string1 7@ string2 "Green"
  11447. jf @garner3_33473
  11448. 4@ = 58
  11449. goto @garner3_33773
  11450.  
  11451. :garner3_33473
  11452. if
  11453. 0C29: 6@ = stristr string1 7@ string2 "Yellow"
  11454. jf @garner3_33514
  11455. 4@ = 102
  11456. goto @garner3_33773
  11457.  
  11458. :garner3_33514
  11459. if
  11460. 0C29: 6@ = stristr string1 7@ string2 "Orange"
  11461. jf @garner3_33556
  11462. 4@ = 159
  11463. goto @garner3_33773
  11464.  
  11465. :garner3_33556
  11466. if
  11467. 0C29: 6@ = stristr string1 7@ string2 "Blue"
  11468. jf @garner3_33596
  11469. 4@ = 213
  11470. goto @garner3_33773
  11471.  
  11472. :garner3_33596
  11473. if
  11474. 0C29: 6@ = stristr string1 7@ string2 "White"
  11475. jf @garner3_33637
  11476. 4@ = 260
  11477. goto @garner3_33773
  11478.  
  11479. :garner3_33637
  11480. if
  11481. 0C29: 6@ = stristr string1 7@ string2 "Silver"
  11482. jf @garner3_33679
  11483. 4@ = 304
  11484. goto @garner3_33773
  11485.  
  11486. :garner3_33679
  11487. if
  11488. 0C29: 6@ = stristr string1 7@ string2 "Purple"
  11489. jf @garner3_33721
  11490. 4@ = 391
  11491. goto @garner3_33773
  11492.  
  11493. :garner3_33721
  11494. if
  11495. 0C29: 6@ = stristr string1 7@ string2 "Chocolate"
  11496. jf @garner3_33766
  11497. 4@ = 460
  11498. goto @garner3_33773
  11499.  
  11500. :garner3_33766
  11501. 4@ = 15
  11502.  
  11503. :garner3_33773
  11504. format 1@ "http:%c%cforum.advance-rp.ru/forums/Жалобы-на-администрацию.%i/index.rss" 47 47 4@
  11505. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools/data/forum.rss"
  11506. free 1@
  11507. 1@ = -1
  11508.  
  11509. :garner3_33912
  11510. 1@ == -1
  11511. jf @garner3_33945
  11512. wait 0
  11513. 0C66: 1@ = get_download 2@ state
  11514. goto @garner3_33912
  11515.  
  11516. :garner3_33945
  11517. 0C7D: release_download 2@
  11518. if
  11519. not 1@ == 0
  11520. jf @garner3_34055
  11521. alloc 4@ 200
  11522. 0C11: memset destination 4@ value 0 size 200
  11523. format 4@ "Произошла ошибка. Код ошибки: %p." 1@
  11524. call @garner4_17369 1 4@
  11525. free 4@
  11526. goto @garner3_34918
  11527.  
  11528. :garner3_34055
  11529. alloc 4@ 200
  11530. 0C11: memset destination 4@ value 0 size 200
  11531. format 4@ "Загрузка завершена." 1@
  11532. call @garner4_17369 1 4@
  11533. free 4@
  11534.  
  11535. :garner3_34121
  11536. wait 0
  11537. 0AAB: file_exists "cleo/AdminTools/data/forum.rss"
  11538. jf @garner3_34121
  11539. if
  11540. 0AAB: file_exists "cleo/AdminTools/data/forum.rss"
  11541. jf @garner3_34918
  11542. 2@ = File.Open("cleo/AdminTools/data/forum.rss", "r")
  11543. alloc 10@ 500
  11544. 0C11: memset destination 10@ value 0 size 500
  11545. alloc 11@ 500
  11546. 0C11: memset destination 11@ value 0 size 500
  11547. alloc 12@ 2000
  11548. 0C11: memset destination 12@ value 0 size 2000
  11549. 4@ = 0
  11550. 5@ = 0
  11551.  
  11552. :garner3_34319
  11553. if
  11554. File.ReadString(2@, 10@, 500)
  11555. jf @garner3_34743
  11556. if
  11557. 0C29: 1@ = stristr string1 10@ string2 "<item>"
  11558. jf @garner3_34743
  11559. File.ReadString(2@, 10@, 500)
  11560. if
  11561. 0C29: 1@ = stristr string1 10@ string2 "title"
  11562. jf @garner3_34743
  11563. 4@ += 1
  11564. 1@ += 6
  11565. if
  11566. 0C2C: 3@ = strrchr 10@ char 60
  11567. jf @garner3_34449
  11568. 0C11: memset destination 3@ value 0 size 8
  11569.  
  11570. :garner3_34449
  11571. call @garner4_25304 1 1@ 15@
  11572. format 11@ "{B5B5B5}%i. {E8E8E8}\"%s\"." 4@ 15@
  11573. free 15@
  11574. 0C15: strcat destination 12@ source 11@
  11575. File.ReadString(2@, 10@, 500)
  11576. File.ReadString(2@, 10@, 500)
  11577. File.ReadString(2@, 10@, 500)
  11578. File.ReadString(2@, 10@, 500)
  11579. File.ReadString(2@, 10@, 500)
  11580. File.ReadString(2@, 10@, 500)
  11581. if
  11582. 0C29: 1@ = stristr string1 10@ string2 "comments"
  11583. jf @garner3_34635
  11584. 1@ += 9
  11585. 0AD4: 0@ = scan_string 1@ format "%i" 5@
  11586.  
  11587. :garner3_34635
  11588. if
  11589. not 4@ == 20
  11590. jf @garner3_34696
  11591. format 11@ " {828282}Ответов: %i.%c" 5@ 10
  11592. goto @garner3_34728
  11593.  
  11594. :garner3_34696
  11595. format 11@ " {828282}Ответов: %i." 5@
  11596.  
  11597. :garner3_34728
  11598. 0C15: strcat destination 12@ source 11@
  11599. 5@ = 0
  11600.  
  11601. :garner3_34743
  11602. File.EOF(2@)
  11603. jf @garner3_34319
  11604. alloc 8@ 200
  11605. 0C11: memset destination 8@ value 0 size 200
  11606. format 8@ "Жалобы на администрацию (%s, последние 20 тем)" 6@
  11607. SAMP.ShowDialog(700, 8@, 12@, "Закрыть", "", DIALOG_STYLE_MSGBOX)
  11608. free 7@
  11609. free 8@
  11610. free 10@
  11611. free 11@
  11612. free 12@
  11613. File.Close(2@)
  11614. 0B00: delete_file "cleo/AdminTools/data/forum.rss" // IF and SET
  11615.  
  11616. :garner3_34918
  11617. 0BFC: set_global_var "check-forum" = 0
  11618.  
  11619. :garner3_34935
  11620. 0BFD: 0@ = get_global_var "rasform"
  11621. if
  11622. not 0@ == 0
  11623. jf @garner3_36313
  11624. alloc 10@ 500
  11625. 0C11: memset destination 10@ value 0 size 500
  11626. alloc 11@ 500
  11627. 0C11: memset destination 11@ value 0 size 500
  11628. alloc 12@ 2000
  11629. 0C11: memset destination 12@ value 0 size 2000
  11630. if
  11631. 0@ == 6
  11632. jf @garner3_35074
  11633. format 11@ "{009900}Grove Street"
  11634. goto @garner3_35283
  11635.  
  11636. :garner3_35074
  11637. if
  11638. 0@ == 7
  11639. jf @garner3_35125
  11640. format 11@ "{CD00CD}The Ballas"
  11641. goto @garner3_35283
  11642.  
  11643. :garner3_35125
  11644. if
  11645. 0@ == 8
  11646. jf @garner3_35182
  11647. format 11@ "{EEC900}Los Santos Vagos"
  11648. goto @garner3_35283
  11649.  
  11650. :garner3_35182
  11651. if
  11652. 0@ == 9
  11653. jf @garner3_35231
  11654. format 11@ "{836FFF}The Rifa"
  11655. goto @garner3_35283
  11656.  
  11657. :garner3_35231
  11658. if
  11659. 0@ == 10
  11660. jf @garner3_35283
  11661. format 11@ "{00BFFF}Varios Los Aztecas"
  11662.  
  11663. :garner3_35283
  11664. format 10@ "{FFFFFF}Вы уверены, что хотите расформировать банду \"%s\"{FFFFFF}?" 11@
  11665. 7@ = 700
  11666. 7@ += 10
  11667. SAMP.ShowDialog(7@, "{EE0000}Внимание!", 10@, "Да", "Отмена", DIALOG_STYLE_MSGBOX)
  11668.  
  11669. :garner3_35415
  11670. SAMP.IsDialogActive(7@)
  11671. jf @garner3_36313
  11672. wait 0
  11673. if
  11674. SAMP.DialogRespond(7@, 4@, 0, 0)
  11675. jf @garner3_36299
  11676. if
  11677. 4@ == 1
  11678. jf @garner3_36232
  11679. format 10@ "Для прерывания, введите команду еще раз."
  11680. call @garner4_17369 1 10@
  11681. SAMP.CloseDialog(1)
  11682. say "/templeader %i 0" 0@
  11683. wait 500
  11684. say "/showall"
  11685. wait 500
  11686. 30@ = 0
  11687. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  11688.  
  11689. :garner3_35604
  11690. wait 0
  11691. if
  11692. SAMP.IsDialogActive(-1)
  11693. jf @garner3_35630
  11694. goto @garner3_35642
  11695.  
  11696. :garner3_35630
  11697. 8C79: not is_timer 29@ active
  11698. jf @garner3_35604
  11699.  
  11700. :garner3_35642
  11701. 0C75: kill_timer 29@
  11702. 1@ = SAMP.GetDialogID()
  11703. 0BC9: samp send_dialog_response dialog 1@ button 1 listitem 2 input ""
  11704. SAMP.CloseDialog(1)
  11705. 30@ = 0
  11706. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  11707.  
  11708. :garner3_35687
  11709. wait 0
  11710. if
  11711. SAMP.IsDialogActive(-1)
  11712. jf @garner3_35713
  11713. goto @garner3_35725
  11714.  
  11715. :garner3_35713
  11716. 8C79: not is_timer 29@ active
  11717. jf @garner3_35687
  11718.  
  11719. :garner3_35725
  11720. 0C75: kill_timer 29@
  11721. 0BD8: samp get_dialog_caption 11@
  11722. if
  11723. 0C2A: 2@ = strchr 11@ char 32
  11724. jf @garner3_36180
  11725. if
  11726. 0AD4: 1@ = scan_string 2@ format "%i/45" 2@
  11727. jf @garner3_36180
  11728. 0BD7: samp get_dialog_text 12@
  11729. 0@ = File.Open("cleo\AdminTools\data\gang-nicks.txt", "w")
  11730. File.WriteString(0@, 12@)
  11731. File.Close(0@)
  11732. 0@ = File.Open("cleo\AdminTools\data\gang-nicks.txt", "r")
  11733. 0C11: memset destination 11@ value 0 size 500
  11734. 0AF0: 7@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "rasform" key "players-count"
  11735. 7@ += 2
  11736. 1@ = 1
  11737.  
  11738. :garner3_35978
  11739. 0BFD: 9@ = get_global_var "rasform"
  11740. if or
  11741. 9@ == 0
  11742. File.EOF(0@)
  11743. jf @garner3_36022
  11744. goto @garner3_36175
  11745.  
  11746. :garner3_36022
  11747. File.ReadString(0@, 10@, 50)
  11748. if and
  11749. 0C2C: 2@ = strrchr 10@ char 9
  11750. 8C25: not strncmp string1 10@ string2 "Уровень" size 7
  11751. jf @garner3_36153
  11752. 2@ += 1
  11753. 0C17: 3@ = strlen 2@
  11754. 0C24: strncpy destination 11@ source 2@ size 3@
  11755. if
  11756. 0C2C: 4@ = strrchr 11@ char 10
  11757. jf @garner3_36125
  11758. 0C11: memset destination 4@ value 0 size 1
  11759.  
  11760. :garner3_36125
  11761. say "/uninviteoff %s" 11@
  11762. wait 3000
  11763.  
  11764. :garner3_36153
  11765. 1@ += 1
  11766. 001D: 1@ > 7@ // (int)
  11767. jf @garner3_35978
  11768.  
  11769. :garner3_36175
  11770. File.Close(0@)
  11771.  
  11772. :garner3_36180
  11773. format 12@ "Расформирование банды окончено."
  11774. call @garner4_17369 1 12@
  11775.  
  11776. :garner3_36232
  11777. free 10@
  11778. free 11@
  11779. free 12@
  11780. 0BFC: set_global_var "rasform" = 0
  11781. 0B00: delete_file "cleo\AdminTools\data\gang-nicks.txt" // IF and SET
  11782.  
  11783. :garner3_36299
  11784. goto @garner3_36313
  11785. goto @garner3_35415
  11786.  
  11787. :garner3_36313
  11788. goto @garner3_330
  11789. thread 'garner4'
  11790. alloc 31@ 128
  11791. 0C11: memset destination 31@ value 0 size 128
  11792. if
  11793. call @garner4_15910 1 31@ 31@
  11794. jf @garner4_63
  11795. gosub @garner4_19894
  11796.  
  11797. :garner4_63
  11798. free 31@
  11799.  
  11800. :garner4_68
  11801. wait 0
  11802. end_thread
  11803. goto @garner4_68
  11804.  
  11805. :garner4_81
  11806. if and
  11807. not Dialog.IsExists(0@)
  11808. not Dialog.IsExists(20@)
  11809. jf @garner4_470
  11810. Dialog.Create(0@, "AdminTools")
  11811. 0B60: convert_game_screen_coords 0 161.0 to_window_screen_coords 0 3@
  11812. SAMP.GetScreenResolution(1@, 2@)
  11813. 1@ /= 2
  11814. 1@ -= 185
  11815. Dialog.SetRECT(0@, 1@, 3@, 370, 255)
  11816. Dialog.AddListBox(0@, 100, 2, 3, 365, 199)
  11817. Dialog.ListBoxInsertElement(0@, 100, "Телепортация", 1, -1)
  11818. Dialog.ListBoxInsertElement(0@, 100, "Объявить о мероприятии", 2, -1)
  11819. Dialog.ListBoxInsertElement(0@, 100, "Назначить себя врем. лидером", 3, -1)
  11820. Dialog.ListBoxInsertElement(0@, 100, "Отобразить таблицу наказаний", 4, -1)
  11821. Dialog.ListBoxInsertElement(0@, 100, "Отобразить онлайн лидеров", 4, -1)
  11822. Dialog.ListBoxInsertElement(0@, 100, "Заспавнить транспорт", 4, -1)
  11823. Dialog.ListBoxInsertElement(0@, 100, "Настройки", 5, -1)
  11824. Dialog.ListBoxInsertElement(0@, 100, "Помощь", 5, -1)
  11825. Dialog.AddButton(0@, 101, "Закрыть", 135, 204, 100, 30)
  11826.  
  11827. :garner4_470
  11828. SAMP.CmdRet
  11829. ret 1 0@
  11830.  
  11831. :garner4_480
  11832. alloc 0@ 20
  11833. alloc 2@ 32
  11834. 0C11: memset destination 0@ value 0 size 20
  11835. 0C11: memset destination 2@ value 0 size 32
  11836. SAMP.GetCurrentServerAddress(0@, 1@)
  11837. 2@ = SAMP.GetCurrentServerName()
  11838. alloc 3@ 128
  11839. 0C11: memset destination 3@ value 0 size 128
  11840. format 3@ "Переподключение к серверу %s..." 2@
  11841. call @garner4_17369 1 3@
  11842. free 3@
  11843. SAMP.ConnectToServer(0@, 1@)
  11844. free 0@
  11845. free 2@
  11846. ret 0
  11847.  
  11848. :garner4_626
  11849. 0A96: 25@ = actor $PLAYER_ACTOR struct
  11850. 0C0C: 26@ = struct 25@ offset 20 size 4
  11851. 0C0D: struct 26@ offset 48 size 4 = 0@
  11852. 0C0D: struct 26@ offset 52 size 4 = 1@
  11853. 0C0D: struct 26@ offset 56 size 4 = 2@
  11854. ret 0
  11855.  
  11856. :garner4_687
  11857. 0A97: 25@ = car 0@ struct
  11858. 0C0C: 26@ = struct 25@ offset 20 size 4
  11859. 0C0D: struct 26@ offset 48 size 4 = 1@
  11860. 0C0D: struct 26@ offset 52 size 4 = 2@
  11861. 0C0D: struct 26@ offset 56 size 4 = 3@
  11862. ret 0
  11863. 0BE5: raknet 28@ = get_hook_param 1
  11864. if
  11865. 28@ == 93
  11866. jf @garner4_1929
  11867. 0BE5: raknet 27@ = get_hook_param 0
  11868. 26@ = BitStream.Read(27@, 3)
  11869. 26@ = BitStream.Read(27@, 3)
  11870. alloc 28@ 200
  11871. 0C11: memset destination 28@ value 0 size 200
  11872. BitStream.ReadArray(27@, 28@, 26@)
  11873. 0C1E: array 28@ element 26@ el_size 1 = 0
  11874. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  11875. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  11876. alloc 22@ 16
  11877. 0AA5: call 23@ num_params 1 pop 0 22@
  11878. 0085: 21@ = 22@ // (int)
  11879. alloc 25@ 200
  11880. 0C11: memset destination 25@ value 0 size 200
  11881. alloc 26@ 200
  11882. 0C11: memset destination 26@ value 0 size 200
  11883. 21@ += 6
  11884. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  11885. format 25@ "[%.2d-" 27@
  11886. 0C15: strcat destination 26@ source 25@
  11887. 21@ -= 4
  11888. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  11889. format 25@ "%.2d-" 27@
  11890. 0C15: strcat destination 26@ source 25@
  11891. 21@ -= 2
  11892. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  11893. format 25@ "%.2d " 27@
  11894. 0C15: strcat destination 26@ source 25@
  11895. 21@ += 8
  11896. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  11897. format 25@ "%.2d:" 27@
  11898. 0C15: strcat destination 26@ source 25@
  11899. 21@ += 2
  11900. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  11901. format 25@ "%.2d:" 27@
  11902. 0C15: strcat destination 26@ source 25@
  11903. 21@ += 2
  11904. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  11905. format 25@ "%.2d] " 27@
  11906. 0C15: strcat destination 26@ source 25@
  11907. free 22@
  11908. 0AA3: free_library 24@
  11909. format 25@ "%s%c" 28@ 10
  11910. 0C15: strcat destination 26@ source 25@
  11911. 0BFD: 21@ = get_global_var "auto-invite-status"
  11912. if
  11913. 21@ == 1
  11914. jf @garner4_1527
  11915. alloc 22@ 200
  11916. 0C11: memset destination 22@ value 0 size 200
  11917. format 25@ "%c%c%c%cБАНКОВСКИЙ ЧЕК" 32 32 32 32
  11918. format 22@ "Вы вошли как администратор четвёртого уровня"
  11919. if or
  11920. 0C21: stricmp string1 28@ string2 25@
  11921. 0C21: stricmp string1 28@ string2 22@
  11922. jf @garner4_1522
  11923. 0AF4: 25@ = read_string_from_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  11924. if
  11925. 8C21: not stricmp string1 25@ string2 "0 0"
  11926. jf @garner4_1522
  11927. say "/templeader %s" 25@
  11928.  
  11929. :garner4_1522
  11930. free 22@
  11931.  
  11932. :garner4_1527
  11933. free 25@
  11934. 0BFD: 21@ = get_global_var "ADMIN_LVL"
  11935. if
  11936. 21@ == 0
  11937. jf @garner4_1845
  11938. if
  11939. 0C25: strncmp string1 28@ string2 "Вы вошли как" size 12
  11940. jf @garner4_1845
  11941. if
  11942. 0C29: 25@ = stristr string1 28@ string2 "первого"
  11943. jf @garner4_1648
  11944. 0BFC: set_global_var "ADMIN_LVL" = 1
  11945. goto @garner4_1845
  11946.  
  11947. :garner4_1648
  11948. if
  11949. 0C29: 25@ = stristr string1 28@ string2 "второго"
  11950. jf @garner4_1698
  11951. 0BFC: set_global_var "ADMIN_LVL" = 2
  11952. goto @garner4_1845
  11953.  
  11954. :garner4_1698
  11955. if
  11956. 0C29: 25@ = stristr string1 28@ string2 "третьего"
  11957. jf @garner4_1749
  11958. 0BFC: set_global_var "ADMIN_LVL" = 3
  11959. goto @garner4_1845
  11960.  
  11961. :garner4_1749
  11962. if
  11963. 0C29: 25@ = stristr string1 28@ string2 "четвёртого"
  11964. jf @garner4_1802
  11965. 0BFC: set_global_var "ADMIN_LVL" = 4
  11966. goto @garner4_1845
  11967.  
  11968. :garner4_1802
  11969. if
  11970. 0C29: 25@ = stristr string1 28@ string2 "главный"
  11971. jf @garner4_1845
  11972. 0BFC: set_global_var "ADMIN_LVL" = 5
  11973.  
  11974. :garner4_1845
  11975. free 28@
  11976. if
  11977. 28@ = File.Open("cleo\AdminTools\logs\chat_log.txt", "a")
  11978. jf @garner4_1917
  11979. File.WriteString(28@, 26@)
  11980. File.Close(28@)
  11981.  
  11982. :garner4_1917
  11983. free 26@
  11984. goto @garner4_5928
  11985.  
  11986. :garner4_1929
  11987. if or
  11988. 28@ == 137
  11989. 28@ == 138
  11990. jf @garner4_5928
  11991. 0BE5: raknet 30@ = get_hook_param 0
  11992. if
  11993. 28@ == 137
  11994. jf @garner4_5132
  11995. 27@ = BitStream.Read(30@, 2)
  11996. 29@ = BitStream.Read(30@, 3)
  11997. 29@ = BitStream.Read(30@, 0)
  11998. 29@ = BitStream.Read(30@, 0)
  11999. alloc 28@ 25
  12000. BitStream.ReadArray(30@, 28@, 29@)
  12001. 0C1E: array 28@ element 29@ el_size 1 = 0
  12002. 0BFD: 25@ = get_global_var "pl-match"
  12003. if and
  12004. SAMP.IsLocalPlayerSpawned
  12005. 25@ == 0
  12006. jf @garner4_3899
  12007. if
  12008. call @garner4_6901 0 22@ 23@ 24@ 25@
  12009. jf @garner4_3899
  12010. alloc 26@ 128
  12011. 0C11: memset destination 26@ value 0 size 128
  12012. 0BFD: 21@ = get_global_var "pl-count"
  12013. 21@ -= 1
  12014. 20@ = 0
  12015.  
  12016. :garner4_2167
  12017. 0C1F: 29@ = string_array 22@ element 20@ size 25
  12018. if
  12019. 0C21: stricmp string1 28@ string2 29@
  12020. jf @garner4_3852
  12021. format 26@ "Таблица наказаний: %s[%i] подключился к серверу." 28@ 27@
  12022. call @garner4_17369 1 26@
  12023. 0AF0: 29@ = get_int_from_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  12024. if
  12025. 29@ == 1
  12026. jf @garner4_2431
  12027. 29@ = Audiostream.Load("CLEO\AdminTools\data\audio\notification.mp3")
  12028. 0BFC: set_global_var "AT_NOTIFICATION_SOUND" = 29@
  12029. Audiostream.PerformAction(29@, PLAY)
  12030.  
  12031. :garner4_2431
  12032. 0BFD: 29@ = get_global_var "pl-auto-mode"
  12033. if
  12034. 29@ == 1
  12035. jf @garner4_3845
  12036. 0C1F: 29@ = string_array 23@ element 20@ size 8
  12037. 0AF0: 30@ = get_int_from_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "opened"
  12038. if and
  12039. SAMP.IsLocalPlayerSpawned
  12040. 30@ == 0
  12041. jf @garner4_3845
  12042. if
  12043. 0C21: stricmp string1 "/jail" string2 29@
  12044. jf @garner4_2834
  12045. 0C1F: 29@ = string_array 24@ element 20@ size 4
  12046. 0C1F: 30@ = string_array 25@ element 20@ size 40
  12047. format 26@ "Игрок будет посажен в тюрьму на %s минут по причине: %s." 29@ 30@
  12048. call @garner4_17369 1 26@
  12049. 0AF1: write_int 27@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id"
  12050. 0AF1: write_int 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id-mass"
  12051. 0BFC: set_global_var "pl-match" = 1
  12052. goto @garner4_3845
  12053.  
  12054. :garner4_2834
  12055. if
  12056. 0C21: stricmp string1 "/mute" string2 29@
  12057. jf @garner4_3107
  12058. 0C1F: 29@ = string_array 24@ element 20@ size 4
  12059. 0C1F: 30@ = string_array 25@ element 20@ size 40
  12060. format 26@ "Игроку будет заблокирован чат на %s минут по причине: %s." 29@ 30@
  12061. call @garner4_17369 1 26@
  12062. 0AF1: write_int 27@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id"
  12063. 0AF1: write_int 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id-mass"
  12064. 0BFC: set_global_var "pl-match" = 1
  12065. goto @garner4_3845
  12066.  
  12067. :garner4_3107
  12068. if
  12069. 0C21: stricmp string1 "/warn" string2 29@
  12070. jf @garner4_3357
  12071. 0C1F: 30@ = string_array 25@ element 20@ size 40
  12072. format 26@ "Игроку будет выдано предупреждение по причине: %s." 30@
  12073. call @garner4_17369 1 26@
  12074. 0AF1: write_int 27@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id"
  12075. 0AF1: write_int 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id-mass"
  12076. 0BFC: set_global_var "pl-match" = 1
  12077. goto @garner4_3845
  12078.  
  12079. :garner4_3357
  12080. if
  12081. 0C21: stricmp string1 "/ban" string2 29@
  12082. jf @garner4_3632
  12083. 0C1F: 29@ = string_array 24@ element 20@ size 4
  12084. 0C1F: 30@ = string_array 25@ element 20@ size 40
  12085. format 26@ "Аккаунт игрока будет заблокирован на %s дней по причине: %s." 29@ 30@
  12086. call @garner4_17369 1 26@
  12087. 0AF1: write_int 27@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id"
  12088. 0AF1: write_int 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id-mass"
  12089. 0BFC: set_global_var "pl-match" = 1
  12090. goto @garner4_3845
  12091.  
  12092. :garner4_3632
  12093. if
  12094. 0C21: stricmp string1 "/unwarn" string2 29@
  12095. jf @garner4_3845
  12096. format 26@ "Игроку будет снято предупреждение."
  12097. call @garner4_17369 1 26@
  12098. 0AF1: write_int 27@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id"
  12099. 0AF1: write_int 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "punishment-list" key "id-mass"
  12100. 0BFC: set_global_var "pl-match" = 1
  12101.  
  12102. :garner4_3845
  12103. goto @garner4_3899
  12104.  
  12105. :garner4_3852
  12106. free 26@
  12107. free 22@
  12108. free 23@
  12109. free 24@
  12110. free 25@
  12111. 20@ += 1
  12112. 001D: 20@ > 21@ // (int)
  12113. jf @garner4_2167
  12114.  
  12115. :garner4_3899
  12116. 0BFD: 21@ = get_global_var "admins-in-file-count"
  12117. if
  12118. 21@ > 0
  12119. jf @garner4_4472
  12120. 21@ -= 1
  12121. 20@ = 0
  12122.  
  12123. :garner4_3958
  12124. 0C1F: 22@ = string_array 10@ element 20@ size 25
  12125. 0C1F: 23@ = string_array 11@ element 20@ size 2
  12126. if
  12127. 0C21: stricmp string1 28@ string2 22@
  12128. jf @garner4_4450
  12129. if
  12130. SAMP.IsLocalPlayerSpawned
  12131. jf @garner4_4426
  12132. alloc 24@ 128
  12133. 0C11: memset destination 24@ value 0 size 128
  12134. if or
  12135. 0C21: stricmp string1 23@ string2 "7"
  12136. 0C21: stricmp string1 23@ string2 "6"
  12137. jf @garner4_4136
  12138. format 24@ "Главный администратор %s[%i] подключился." 28@ 27@
  12139. call @garner4_17369 1 24@
  12140. goto @garner4_4421
  12141.  
  12142. :garner4_4136
  12143. if
  12144. 0C21: stricmp string1 23@ string2 "5"
  12145. jf @garner4_4237
  12146. format 24@ "Зам. Главного администратора %s[%i] подключился." 28@ 27@
  12147. call @garner4_17369 1 24@
  12148. goto @garner4_4421
  12149.  
  12150. :garner4_4237
  12151. if or
  12152. 0C21: stricmp string1 23@ string2 "4"
  12153. 0C21: stricmp string1 23@ string2 "3"
  12154. 0C21: stricmp string1 23@ string2 "2"
  12155. 0C21: stricmp string1 23@ string2 "1"
  12156. jf @garner4_4361
  12157. format 24@ "Подключился администратор %s уровня, %s[%i]." 23@ 28@ 27@
  12158. call @garner4_17369 1 24@
  12159. goto @garner4_4421
  12160.  
  12161. :garner4_4361
  12162. format 24@ "Администратор %s[%i] подключился." 28@ 27@
  12163. call @garner4_17369 1 24@
  12164.  
  12165. :garner4_4421
  12166. free 24@
  12167.  
  12168. :garner4_4426
  12169. 0C20: string_array 13@ element 20@ size 25 = 28@
  12170. 0C0F: array 14@ element 20@ = 27@
  12171.  
  12172. :garner4_4450
  12173. 20@ += 1
  12174. 001D: 20@ > 21@ // (int)
  12175. jf @garner4_3958
  12176.  
  12177. :garner4_4472
  12178. 0BFD: 21@ = get_global_var "leaders-in-file-count"
  12179. if
  12180. 21@ > 0
  12181. jf @garner4_4698
  12182. 21@ -= 1
  12183. 20@ = 0
  12184.  
  12185. :garner4_4532
  12186. 0C1F: 22@ = string_array 12@ element 20@ size 25
  12187. if
  12188. 0C21: stricmp string1 28@ string2 22@
  12189. jf @garner4_4676
  12190. if
  12191. SAMP.IsLocalPlayerSpawned
  12192. jf @garner4_4652
  12193. alloc 24@ 128
  12194. 0C11: memset destination 24@ value 0 size 128
  12195. format 24@ "Лидер %s[%i] подключился." 28@ 27@
  12196. call @garner4_17369 1 24@
  12197. free 24@
  12198.  
  12199. :garner4_4652
  12200. 0C20: string_array 16@ element 20@ size 25 = 28@
  12201. 0C0F: array 17@ element 20@ = 27@
  12202.  
  12203. :garner4_4676
  12204. 20@ += 1
  12205. 001D: 20@ > 21@ // (int)
  12206. jf @garner4_4532
  12207.  
  12208. :garner4_4698
  12209. 0BFD: 23@ = get_global_var "leaders-in-file-count"
  12210. 0BFD: 21@ = get_global_var "friends-in-file-count"
  12211. if
  12212. 21@ > 0
  12213. jf @garner4_4961
  12214. 005A: 21@ += 23@ // (int)
  12215. 21@ -= 1
  12216. 0085: 20@ = 23@ // (int)
  12217.  
  12218. :garner4_4795
  12219. 0C1F: 22@ = string_array 12@ element 20@ size 25
  12220. if
  12221. 0C21: stricmp string1 28@ string2 22@
  12222. jf @garner4_4939
  12223. if
  12224. SAMP.IsLocalPlayerSpawned
  12225. jf @garner4_4915
  12226. alloc 24@ 128
  12227. 0C11: memset destination 24@ value 0 size 128
  12228. format 24@ "%s[%i] подключился(-ась)." 28@ 27@
  12229. call @garner4_17369 1 24@
  12230. free 24@
  12231.  
  12232. :garner4_4915
  12233. 0C20: string_array 16@ element 20@ size 25 = 28@
  12234. 0C0F: array 17@ element 20@ = 27@
  12235.  
  12236. :garner4_4939
  12237. 20@ += 1
  12238. 001D: 20@ > 21@ // (int)
  12239. jf @garner4_4795
  12240.  
  12241. :garner4_4961
  12242. 0BFD: 21@ = get_global_var "auto-skick-status"
  12243. if
  12244. 21@ == 1
  12245. jf @garner4_5120
  12246. alloc 24@ 128
  12247. 0C11: memset destination 24@ value 0 size 128
  12248. 0AF4: 24@ = read_string_from_ini_file "cleo\AdminTools\data\tempdata" section "auto-skick" key "nickname"
  12249. if
  12250. 0C21: stricmp string1 28@ string2 24@
  12251. jf @garner4_5115
  12252. say "/skick %i" 27@
  12253.  
  12254. :garner4_5115
  12255. free 24@
  12256.  
  12257. :garner4_5120
  12258. free 28@
  12259. goto @garner4_5928
  12260.  
  12261. :garner4_5132
  12262. 23@ = BitStream.Read(30@, 2)
  12263. 24@ = BitStream.Read(30@, 0)
  12264. 0BFD: 21@ = get_global_var "admins-in-file-count"
  12265. if
  12266. 21@ > 0
  12267. jf @garner4_5403
  12268. 21@ -= 1
  12269. 20@ = 0
  12270.  
  12271. :garner4_5211
  12272. 0C0E: 22@ = array 14@ element 20@
  12273. if
  12274. 003B: 22@ == 23@ // (int)
  12275. jf @garner4_5381
  12276. 0C1F: 26@ = string_array 13@ element 20@ size 25
  12277. alloc 25@ 128
  12278. 0C11: memset destination 25@ value 0 size 128
  12279. format 25@ "Администратор %s[%i] отключился." 26@ 22@
  12280. call @garner4_17369 1 25@
  12281. free 25@
  12282. alloc 25@ 25
  12283. 0C11: memset destination 25@ value 0 size 25
  12284. 0C20: string_array 13@ element 20@ size 25 = 25@
  12285. free 25@
  12286. 0C0F: array 14@ element 20@ = 2000
  12287.  
  12288. :garner4_5381
  12289. 20@ += 1
  12290. 001D: 20@ > 21@ // (int)
  12291. jf @garner4_5211
  12292.  
  12293. :garner4_5403
  12294. 0BFD: 21@ = get_global_var "leaders-in-file-count"
  12295. if
  12296. 21@ > 0
  12297. jf @garner4_5647
  12298. 21@ -= 1
  12299. 20@ = 0
  12300.  
  12301. :garner4_5463
  12302. 0C0E: 22@ = array 17@ element 20@
  12303. if
  12304. 003B: 22@ == 23@ // (int)
  12305. jf @garner4_5625
  12306. 0C1F: 26@ = string_array 16@ element 20@ size 25
  12307. alloc 25@ 128
  12308. 0C11: memset destination 25@ value 0 size 128
  12309. format 25@ "Лидер %s[%i] отключился." 26@ 22@
  12310. call @garner4_17369 1 25@
  12311. free 25@
  12312. alloc 25@ 25
  12313. 0C11: memset destination 25@ value 0 size 25
  12314. 0C20: string_array 16@ element 20@ size 25 = 25@
  12315. free 25@
  12316. 0C0F: array 17@ element 20@ = 2000
  12317.  
  12318. :garner4_5625
  12319. 20@ += 1
  12320. 001D: 20@ > 21@ // (int)
  12321. jf @garner4_5463
  12322.  
  12323. :garner4_5647
  12324. 0BFD: 24@ = get_global_var "friends-in-file-count"
  12325. 0BFD: 21@ = get_global_var "leaders-in-file-count"
  12326. if
  12327. 24@ > 0
  12328. jf @garner4_5928
  12329. 005A: 24@ += 21@ // (int)
  12330. 24@ -= 1
  12331. 0085: 20@ = 21@ // (int)
  12332.  
  12333. :garner4_5744
  12334. 0C0E: 22@ = array 17@ element 20@
  12335. if
  12336. 003B: 22@ == 23@ // (int)
  12337. jf @garner4_5906
  12338. 0C1F: 26@ = string_array 16@ element 20@ size 25
  12339. alloc 25@ 128
  12340. 0C11: memset destination 25@ value 0 size 128
  12341. format 25@ "%s[%i] отключился(-ась)." 26@ 22@
  12342. call @garner4_17369 1 25@
  12343. free 25@
  12344. alloc 25@ 25
  12345. 0C11: memset destination 25@ value 0 size 25
  12346. 0C20: string_array 16@ element 20@ size 25 = 25@
  12347. free 25@
  12348. 0C0F: array 17@ element 20@ = 2000
  12349.  
  12350. :garner4_5906
  12351. 20@ += 1
  12352. 001D: 20@ > 24@ // (int)
  12353. jf @garner4_5744
  12354.  
  12355. :garner4_5928
  12356. if
  12357. 28@ == 105
  12358. jf @garner4_6227
  12359. 0BFD: 27@ = get_global_var "adm-textdraw-upd-notice"
  12360. if
  12361. 27@ == 1
  12362. jf @garner4_6227
  12363. 0BE5: raknet 27@ = get_hook_param 0
  12364. 26@ = BitStream.Read(27@, 2)
  12365. if
  12366. 26@ == 7
  12367. jf @garner4_6129
  12368. alloc 28@ 128
  12369. 0C11: memset destination 28@ value 0 size 128
  12370. format 28@ "Строка античита на быстрое перемещение обновлена!"
  12371. call @garner4_17369 1 28@
  12372. free 28@
  12373. goto @garner4_6227
  12374.  
  12375. :garner4_6129
  12376. if
  12377. 26@ == 14
  12378. jf @garner4_6227
  12379. alloc 28@ 128
  12380. 0C11: memset destination 28@ value 0 size 128
  12381. format 28@ "Строка античита на оружие обновлена!"
  12382. call @garner4_17369 1 28@
  12383. free 28@
  12384.  
  12385. :garner4_6227
  12386. 0BE0: raknet hook_ret 1
  12387. 0BE5: raknet 28@ = get_hook_param 1
  12388. 0BFD: 26@ = get_global_var "COMMAND_FROM_ADM_CHAT_STATUS"
  12389. if and
  12390. 28@ == 93
  12391. 26@ == 0
  12392. jf @garner4_6897
  12393. 0BE5: raknet 28@ = get_hook_param 0
  12394. 27@ = BitStream.Read(28@, 3)
  12395. 27@ = BitStream.Read(28@, 3)
  12396. 0C11: memset destination 31@ value 0 size 200
  12397. BitStream.ReadArray(28@, 31@, 27@)
  12398. 0C1E: array 31@ element 27@ el_size 1 = 0
  12399. if
  12400. 0C25: strncmp string1 31@ string2 "[A]" size 3
  12401. jf @garner4_6897
  12402. if or
  12403. 0C29: 28@ = stristr string1 31@ string2 "/kick "
  12404. 0C29: 28@ = stristr string1 31@ string2 "/skick "
  12405. 0C29: 28@ = stristr string1 31@ string2 "/mute "
  12406. 0C29: 28@ = stristr string1 31@ string2 "/jail "
  12407. 0C29: 28@ = stristr string1 31@ string2 "/warn "
  12408. 0C29: 28@ = stristr string1 31@ string2 "/ban "
  12409. 0C29: 28@ = stristr string1 31@ string2 "/unjail "
  12410. 0C29: 28@ = stristr string1 31@ string2 "/unmute "
  12411. jf @garner4_6599
  12412. 0BFD: 28@ = get_global_var "ADMIN_LVL"
  12413. if
  12414. 28@ >= 3
  12415. jf @garner4_6592
  12416. 0BFC: set_global_var "COMMAND_FROM_ADM_CHAT_STATUS" = 1
  12417.  
  12418. :garner4_6592
  12419. goto @garner4_6897
  12420.  
  12421. :garner4_6599
  12422. if or
  12423. 0C29: 28@ = stristr string1 31@ string2 "/offwarn "
  12424. 0C29: 28@ = stristr string1 31@ string2 "/offban "
  12425. 0C29: 28@ = stristr string1 31@ string2 "/unwarn "
  12426. 0C29: 28@ = stristr string1 31@ string2 "/unban "
  12427. 0C29: 28@ = stristr string1 31@ string2 "/skin "
  12428. 0C29: 28@ = stristr string1 31@ string2 "/msg "
  12429. 0C29: 28@ = stristr string1 31@ string2 "/hp "
  12430. jf @garner4_6802
  12431. 0BFD: 28@ = get_global_var "ADMIN_LVL"
  12432. if
  12433. 28@ >= 4
  12434. jf @garner4_6795
  12435. 0BFC: set_global_var "COMMAND_FROM_ADM_CHAT_STATUS" = 1
  12436.  
  12437. :garner4_6795
  12438. goto @garner4_6897
  12439.  
  12440. :garner4_6802
  12441. if
  12442. 0C29: 28@ = stristr string1 31@ string2 "/areg "
  12443. jf @garner4_6897
  12444. 0BFD: 28@ = get_global_var "ADMIN_LVL"
  12445. if
  12446. 28@ >= 3
  12447. jf @garner4_6897
  12448. 0BFC: set_global_var "COMMAND_FROM_ADM_CHAT_STATUS" = 1
  12449.  
  12450. :garner4_6897
  12451. 0BE0: raknet hook_ret 1
  12452.  
  12453. :garner4_6901
  12454. 1@ = File.Open("cleo\AdminTools\punishment_list.txt", "r")
  12455. alloc 15@ 75
  12456. 0C11: memset destination 15@ value 0 size 75
  12457. 8@ = 0
  12458.  
  12459. :garner4_6969
  12460. if
  12461. File.ReadString(1@, 15@, 75)
  12462. jf @garner4_7023
  12463. 0C17: 5@ = strlen 15@
  12464. if
  12465. 5@ > 1
  12466. jf @garner4_7023
  12467. 8@ += 1
  12468.  
  12469. :garner4_7023
  12470. File.EOF(1@)
  12471. jf @garner4_6969
  12472. 0BFC: set_global_var "pl-count" = 8@
  12473. File.Close(1@)
  12474. free 15@
  12475. if
  12476. not 8@ == 0
  12477. jf @garner4_7988
  12478. 0@ = 25
  12479. 1@ = 8
  12480. 2@ = 4
  12481. 3@ = 40
  12482. 006A: 0@ *= 8@ // (int)
  12483. 006A: 1@ *= 8@ // (int)
  12484. 006A: 2@ *= 8@ // (int)
  12485. 006A: 3@ *= 8@ // (int)
  12486. alloc 25@ 0@
  12487. alloc 26@ 1@
  12488. alloc 27@ 2@
  12489. alloc 28@ 3@
  12490. 0C11: memset destination 25@ value 0 size 0@
  12491. 0C11: memset destination 26@ value 0 size 1@
  12492. 0C11: memset destination 27@ value 0 size 2@
  12493. 0C11: memset destination 28@ value 0 size 3@
  12494. 0@ = File.Open("cleo\AdminTools\punishment_list.txt", "r")
  12495. 8@ -= 1
  12496. 1@ = 0
  12497.  
  12498. :garner4_7269
  12499. alloc 10@ 75
  12500. 0C11: memset destination 10@ value 0 size 75
  12501. File.ReadString(0@, 10@, 75)
  12502. if
  12503. 0C2C: 5@ = strrchr 10@ char 10
  12504. jf @garner4_7325
  12505. 0C11: memset destination 5@ value 0 size 1
  12506.  
  12507. :garner4_7325
  12508. 0C19: 3@ = strcspn string1 10@ string2 " "
  12509. alloc 24@ 8
  12510. 0C11: memset destination 24@ value 0 size 8
  12511. 0C27: strncat destination 24@ source 10@ size 3@
  12512. 0C20: string_array 26@ element 1@ size 8 = 24@
  12513. free 24@
  12514. 0C17: 2@ = strlen 10@
  12515. 3@ += 1
  12516. 0062: 2@ -= 3@ // (int)
  12517. alloc 11@ 75
  12518. 0C11: memset destination 11@ value 0 size 75
  12519. 0C2D: strrev in 10@ out 11@
  12520. 0C11: memset destination 10@ value 0 size 75
  12521. 0C24: strncpy destination 10@ source 11@ size 2@
  12522. 0C11: memset destination 11@ value 0 size 75
  12523. 0C2D: strrev in 10@ out 11@
  12524. 0C1F: 22@ = string_array 26@ element 1@ size 8
  12525. if
  12526. 8C21: not stricmp string1 "/unwarn" string2 22@
  12527. jf @garner4_7875
  12528. 0C19: 3@ = strcspn string1 11@ string2 " "
  12529. alloc 24@ 25
  12530. 0C11: memset destination 24@ value 0 size 25
  12531. 0C27: strncat destination 24@ source 11@ size 3@
  12532. 0C20: string_array 25@ element 1@ size 25 = 24@
  12533. free 24@
  12534. 0C17: 2@ = strlen 11@
  12535. 3@ += 1
  12536. 0062: 2@ -= 3@ // (int)
  12537. 0C11: memset destination 10@ value 0 size 75
  12538. 0C2D: strrev in 11@ out 10@
  12539. 0C11: memset destination 11@ value 0 size 75
  12540. 0C24: strncpy destination 11@ source 10@ size 2@
  12541. 0C11: memset destination 10@ value 0 size 75
  12542. 0C2D: strrev in 11@ out 10@
  12543. 0C1F: 22@ = string_array 26@ element 1@ size 8
  12544. if
  12545. 8C21: not stricmp string1 "/warn" string2 22@
  12546. jf @garner4_7775
  12547. 0C19: 3@ = strcspn string1 10@ string2 " "
  12548. alloc 24@ 4
  12549. 0C11: memset destination 24@ value 0 size 4
  12550. 0C27: strncat destination 24@ source 10@ size 3@
  12551. 0C20: string_array 27@ element 1@ size 4 = 24@
  12552. free 24@
  12553. 0C17: 2@ = strlen 10@
  12554. 3@ += 1
  12555. 0062: 2@ -= 3@ // (int)
  12556. 0C11: memset destination 11@ value 0 size 75
  12557. 0C2D: strrev in 10@ out 11@
  12558. goto @garner4_7818
  12559.  
  12560. :garner4_7775
  12561. alloc 24@ 4
  12562. 0C11: memset destination 24@ value 0 size 4
  12563. format 24@ "1"
  12564. 0C20: string_array 27@ element 1@ size 4 = 24@
  12565. free 24@
  12566.  
  12567. :garner4_7818
  12568. 0C11: memset destination 10@ value 0 size 75
  12569. 0C24: strncpy destination 10@ source 11@ size 2@
  12570. 0C11: memset destination 11@ value 0 size 75
  12571. 0C2D: strrev in 10@ out 11@
  12572. 0C20: string_array 28@ element 1@ size 40 = 11@
  12573. goto @garner4_7944
  12574.  
  12575. :garner4_7875
  12576. 0C20: string_array 25@ element 1@ size 25 = 11@
  12577. alloc 24@ 4
  12578. 0C11: memset destination 24@ value 0 size 4
  12579. format 24@ "-"
  12580. 0C20: string_array 27@ element 1@ size 4 = 24@
  12581. 0C20: string_array 28@ element 1@ size 40 = 24@
  12582. free 24@
  12583.  
  12584. :garner4_7944
  12585. free 10@
  12586. free 11@
  12587. 1@ += 1
  12588. 001D: 1@ > 8@ // (int)
  12589. jf @garner4_7269
  12590. File.Close(0@)
  12591. goto @garner4_8007
  12592.  
  12593. :garner4_7988
  12594. return_false
  12595. ret 4 25@ 26@ 27@ 28@
  12596.  
  12597. :garner4_8007
  12598. return_true
  12599. ret 4 25@ 26@ 27@ 28@
  12600.  
  12601. :garner4_8026
  12602. alloc 13@ 300
  12603. alloc 14@ 200
  12604. alloc 17@ 200
  12605. 0C11: memset destination 13@ value 0 size 300
  12606. 0C11: memset destination 14@ value 0 size 200
  12607. 0C11: memset destination 17@ value 0 size 200
  12608. 15@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  12609. 16@ = SAMP.GetPlayerNickname(15@)
  12610. 19@ = 0
  12611.  
  12612. :garner4_8103
  12613. if
  12614. SAMP.IsPlayerConnected(19@)
  12615. jf @garner4_8153
  12616. 20@ = SAMP.GetPlayerNickname(19@)
  12617. if
  12618. 0C21: stricmp string1 3@ string2 20@
  12619. jf @garner4_8153
  12620. goto @garner4_8175
  12621.  
  12622. :garner4_8153
  12623. 19@ += 1
  12624. 19@ > 1000
  12625. jf @garner4_8103
  12626.  
  12627. :garner4_8175
  12628. if
  12629. 0C21: stricmp string1 "/mute" string2 0@
  12630. jf @garner4_8333
  12631. format 14@ "Администратор %s поставил затычку игроку %s" 16@ 3@
  12632. format 17@ "Администратор %s[%i] поставил затычку игроку %s[%i]" 16@ 15@ 3@ 19@
  12633. goto @garner4_9270
  12634.  
  12635. :garner4_8333
  12636. if
  12637. 0C21: stricmp string1 "/jail" string2 0@
  12638. jf @garner4_8464
  12639. format 14@ "[A] %s[%i] посадил в тюрьму %s" 16@ 15@ 3@
  12640. format 17@ "[A] %s[%i] посадил в тюрьму %s[%i]" 16@ 15@ 3@ 19@
  12641. goto @garner4_9270
  12642.  
  12643. :garner4_8464
  12644. if and
  12645. 0C21: stricmp string1 "/ban" string2 0@
  12646. 4@ == 0
  12647. jf @garner4_8610
  12648. format 14@ "Администратор %s забанил игрока %s" 16@ 3@
  12649. format 17@ "Администратор %s[%i] забанил игрока %s[%i]" 16@ 15@ 3@ 19@
  12650. goto @garner4_9270
  12651.  
  12652. :garner4_8610
  12653. if and
  12654. 0C21: stricmp string1 "/ban" string2 0@
  12655. 4@ == 1
  12656. jf @garner4_8765
  12657. format 14@ "Администратор %s забанил оффлайн игрока %s" 16@ 3@
  12658. format 17@ "Администратор %s[%i] забанил оффлайн игрока %s" 16@ 15@ 3@
  12659. goto @garner4_9270
  12660.  
  12661. :garner4_8765
  12662. if and
  12663. 0C21: stricmp string1 "/warn" string2 0@
  12664. 4@ == 0
  12665. jf @garner4_8938
  12666. format 14@ "Администратор %s выдал предупреждение игроку %s" 16@ 3@
  12667. format 17@ "Администратор %s[%i] выдал предупреждение игроку %s[%i]" 16@ 15@ 3@ 19@
  12668. goto @garner4_9270
  12669.  
  12670. :garner4_8938
  12671. if and
  12672. 0C21: stricmp string1 "/warn" string2 0@
  12673. 4@ == 1
  12674. jf @garner4_9120
  12675. format 14@ "Администратор %s выдал оффлайн предупреждение игроку %s" 16@ 3@
  12676. format 17@ "Администратор %s[%i] выдал оффлайн предупреждение игроку %s" 16@ 15@ 3@
  12677. goto @garner4_9270
  12678.  
  12679. :garner4_9120
  12680. if
  12681. 0C21: stricmp string1 "/unwarn" string2 0@
  12682. jf @garner4_9270
  12683. format 14@ "[A] %s[%i] снял 1 предупреждение игроку %s" 16@ 15@ 3@
  12684. format 17@ "[A] %s[%i] снял 1 предупреждение игроку %s[%i]" 16@ 15@ 3@ 19@
  12685.  
  12686. :garner4_9270
  12687. 0C17: 15@ = strlen 14@
  12688. 0C17: 18@ = strlen 17@
  12689. 16@ = 0
  12690. 30@ = 0
  12691. 0C74: 29@ = create_timer_interval 1000 on_label -144627
  12692. wait 500
  12693.  
  12694. :garner4_9318
  12695. wait 0
  12696. 10@ = 99
  12697.  
  12698. :garner4_9329
  12699. SAMP.GetChatString(10@, 13@, 0, 0, 0)
  12700. if or
  12701. 0C25: strncmp string1 13@ string2 14@ size 15@
  12702. 0C25: strncmp string1 13@ string2 17@ size 18@
  12703. 0C25: strncmp string1 "Этот игрок забанен" string2 13@ size 18
  12704. 0C21: stricmp string1 13@ string2 "У этого игрока нет предупреждений"
  12705. jf @garner4_11048
  12706. 0C11: memset destination 2@ value 0 size 75
  12707. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  12708. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  12709. alloc 22@ 16
  12710. 0AA5: call 23@ num_params 1 pop 0 22@
  12711. 0085: 21@ = 22@ // (int)
  12712. alloc 25@ 200
  12713. 0C11: memset destination 25@ value 0 size 200
  12714. alloc 26@ 200
  12715. 0C11: memset destination 26@ value 0 size 200
  12716. 21@ += 6
  12717. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12718. format 25@ "[%.2d-" 27@
  12719. 0C15: strcat destination 26@ source 25@
  12720. 21@ -= 4
  12721. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12722. format 25@ "%.2d-" 27@
  12723. 0C15: strcat destination 26@ source 25@
  12724. 21@ -= 2
  12725. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12726. format 25@ "%.2d " 27@
  12727. 0C15: strcat destination 26@ source 25@
  12728. 21@ += 8
  12729. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12730. format 25@ "%.2d:" 27@
  12731. 0C15: strcat destination 26@ source 25@
  12732. 21@ += 2
  12733. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12734. format 25@ "%.2d:" 27@
  12735. 0C15: strcat destination 26@ source 25@
  12736. 21@ += 2
  12737. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12738. format 25@ "%.2d]" 27@
  12739. 0C15: strcat destination 26@ source 25@
  12740. free 22@
  12741. 0AA3: free_library 24@
  12742. if or
  12743. 0C25: strncmp string1 13@ string2 14@ size 15@
  12744. 0C25: strncmp string1 13@ string2 17@ size 18@
  12745. jf @garner4_10170
  12746. 0C17: 6@ = strlen 3@
  12747. if
  12748. not 6@ > 5
  12749. jf @garner4_9978
  12750. format 25@ "%s Ник игрока: %s%c%c%c| Наказание: %s%c| Причина: %s.%c" 26@ 3@ 9 9 9 0@ 9 5@ 10
  12751. goto @garner4_10163
  12752.  
  12753. :garner4_9978
  12754. if
  12755. not 6@ > 13
  12756. jf @garner4_10085
  12757. format 25@ "%s Ник игрока: %s%c%c| Наказание: %s%c| Причина: %s.%c" 26@ 3@ 9 9 0@ 9 5@ 10
  12758. goto @garner4_10163
  12759.  
  12760. :garner4_10085
  12761. format 25@ "%s Ник игрока: %s%c| Наказание: %s%c| Причина: %s.%c" 26@ 3@ 9 0@ 9 5@ 10
  12762.  
  12763. :garner4_10163
  12764. goto @garner4_10958
  12765.  
  12766. :garner4_10170
  12767. if
  12768. 0C25: strncmp string1 "Этот игрок забанен" string2 13@ size 18
  12769. jf @garner4_10558
  12770. 0C17: 6@ = strlen 3@
  12771. if
  12772. not 6@ > 5
  12773. jf @garner4_10340
  12774. format 25@ "%s Ник игрока: %s%c%c%c| Наказание: %s%c| Сообщение от сервера: %s.%c" 26@ 3@ 9 9 9 0@ 9 13@ 10
  12775. goto @garner4_10551
  12776.  
  12777. :garner4_10340
  12778. if
  12779. not 6@ > 13
  12780. jf @garner4_10460
  12781. format 25@ "%s Ник игрока: %s%c%c| Наказание: %s%c| Сообщение от сервера: %s.%c" 26@ 3@ 9 9 0@ 9 13@ 10
  12782. goto @garner4_10551
  12783.  
  12784. :garner4_10460
  12785. format 25@ "%s Ник игрока: %s%c| Наказание: %s%c| Сообщение от сервера: %s.%c" 26@ 3@ 9 0@ 9 13@ 10
  12786.  
  12787. :garner4_10551
  12788. goto @garner4_10958
  12789.  
  12790. :garner4_10558
  12791. if
  12792. 0C21: stricmp string1 13@ string2 "У этого игрока нет предупреждений"
  12793. jf @garner4_10958
  12794. 0C17: 6@ = strlen 3@
  12795. if
  12796. not 6@ > 5
  12797. jf @garner4_10743
  12798. format 25@ "%s Ник игрока: %s%c%c%c| Снятие предупреждения | Сообщение от сервера: %s.%c" 26@ 3@ 9 9 9 13@ 10
  12799. goto @garner4_10958
  12800.  
  12801. :garner4_10743
  12802. if
  12803. not 6@ > 13
  12804. jf @garner4_10865
  12805. format 25@ "%s Ник игрока: %s%c%c| Снятие предупреждения | Сообщение от сервера: %s.%c" 26@ 3@ 9 9 13@ 10
  12806. goto @garner4_10958
  12807.  
  12808. :garner4_10865
  12809. format 25@ "%s Ник игрока: %s%c| Снятие предупреждения | Сообщение от сервера: %s.%c" 26@ 3@ 9 13@ 10
  12810.  
  12811. :garner4_10958
  12812. 28@ = File.Open("cleo\AdminTools\logs\pl_log.txt", "a")
  12813. File.WriteString(28@, 25@)
  12814. free 25@
  12815. free 26@
  12816. File.Close(28@)
  12817. 1@ += 1
  12818. 16@ = 1
  12819. wait 5000
  12820. goto @garner4_12138
  12821.  
  12822. :garner4_11048
  12823. if or
  12824. 0C25: strncmp string1 "The server is restarting" string2 13@ size 24
  12825. 0C25: strncmp string1 "Server closed the connection" string2 13@ size 28
  12826. 0C25: strncmp string1 "Игроку уже выдана затычка" string2 13@ size 25
  12827. 0C25: strncmp string1 "Игрок уже в тюрьме" string2 13@ size 18
  12828. 0C25: strncmp string1 "Игрок с таким ником (или номером аккаунта) не найден" string2 13@ size 52
  12829. 0C25: strncmp string1 "Этот игрок онлайн" string2 13@ size 17
  12830. 0C25: strncmp string1 "Такого игрока нет в базе данных" string2 13@ size 31
  12831. jf @garner4_12117
  12832. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  12833. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  12834. alloc 22@ 16
  12835. 0AA5: call 23@ num_params 1 pop 0 22@
  12836. 0085: 21@ = 22@ // (int)
  12837. alloc 25@ 200
  12838. 0C11: memset destination 25@ value 0 size 200
  12839. alloc 26@ 200
  12840. 0C11: memset destination 26@ value 0 size 200
  12841. 21@ += 6
  12842. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12843. format 25@ "[%.2d-" 27@
  12844. 0C15: strcat destination 26@ source 25@
  12845. 21@ -= 4
  12846. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12847. format 25@ "%.2d-" 27@
  12848. 0C15: strcat destination 26@ source 25@
  12849. 21@ -= 2
  12850. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12851. format 25@ "%.2d " 27@
  12852. 0C15: strcat destination 26@ source 25@
  12853. 21@ += 8
  12854. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12855. format 25@ "%.2d:" 27@
  12856. 0C15: strcat destination 26@ source 25@
  12857. 21@ += 2
  12858. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12859. format 25@ "%.2d:" 27@
  12860. 0C15: strcat destination 26@ source 25@
  12861. 21@ += 2
  12862. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  12863. format 25@ "%.2d]" 27@
  12864. 0C15: strcat destination 26@ source 25@
  12865. free 22@
  12866. 0AA3: free_library 24@
  12867. 28@ = File.Open("cleo\AdminTools\logs\pl_log.txt", "a")
  12868. 0C17: 6@ = strlen 3@
  12869. if
  12870. not 6@ > 5
  12871. jf @garner4_11864
  12872. format 25@ "%s Ник игрока: %s%c%c%c| Наказание: %s%c| Сообщение от сервера: %s.%c" 26@ 3@ 9 9 9 0@ 9 13@ 10
  12873. goto @garner4_12075
  12874.  
  12875. :garner4_11864
  12876. if
  12877. not 6@ > 13
  12878. jf @garner4_11984
  12879. format 25@ "%s Ник игрока: %s%c%c| Наказание: %s%c| Сообщение от сервера: %s.%c" 26@ 3@ 9 9 0@ 9 13@ 10
  12880. goto @garner4_12075
  12881.  
  12882. :garner4_11984
  12883. format 25@ "%s Ник игрока: %s%c| Наказание: %s%c| Сообщение от сервера: %s.%c" 26@ 3@ 9 0@ 9 13@ 10
  12884.  
  12885. :garner4_12075
  12886. File.WriteString(28@, 25@)
  12887. free 25@
  12888. free 26@
  12889. File.Close(28@)
  12890. 16@ = 1
  12891. wait 5000
  12892. goto @garner4_12138
  12893.  
  12894. :garner4_12117
  12895. 10@ -= 1
  12896. 94 > 10@
  12897. jf @garner4_9329
  12898.  
  12899. :garner4_12138
  12900. if
  12901. 8C79: not is_timer 29@ active
  12902. jf @garner4_12246
  12903. alloc 5@ 128
  12904. 0C11: memset destination 5@ value 0 size 128
  12905. format 5@ "Время ожидания ответа от сервера истекло."
  12906. call @garner4_17369 1 5@
  12907. free 5@
  12908. goto @garner4_12260
  12909.  
  12910. :garner4_12246
  12911. 16@ == 1
  12912. jf @garner4_9318
  12913.  
  12914. :garner4_12260
  12915. 0C75: kill_timer 29@
  12916. free 13@
  12917. free 14@
  12918. free 17@
  12919. ret 2 1@ 2@
  12920. 30@ += 1
  12921. if
  12922. 30@ == 15
  12923. jf @garner4_12323
  12924. 0C78: set_timer 29@ active 0
  12925.  
  12926. :garner4_12323
  12927. SAMP.CmdRet
  12928. 4@ += 1
  12929. if
  12930. 4@ == 30
  12931. jf @garner4_12357
  12932. 0C78: set_timer 3@ active 0
  12933.  
  12934. :garner4_12357
  12935. SAMP.CmdRet
  12936.  
  12937. :garner4_12359
  12938. 0AA2: 0@ = load_library "samp.dll" // IF and SET
  12939. 0085: 1@ = 0@ // (int)
  12940. 1@ += 2203876
  12941. 0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
  12942. 0085: 2@ = 0@ // (int)
  12943. 2@ += 409616
  12944. 0AA6: call_method 2@ struct 3@ num_params 5 pop 0 0 16777215 0 "{A9A9A9}[{FFA500}AdminTools{A9A9A9}] {FF0000}Произошла ошибка при загрузке скрипта!" 8
  12945. 0AA6: call_method 2@ struct 3@ num_params 5 pop 0 0 16777215 0 "{A9A9A9}[{FFA500}AdminTools{A9A9A9}] {FF0000}Плагин 'SAMPFUNCS' не найден или вы используете устаревшую версию!" 8
  12946. 0AA6: call_method 2@ struct 3@ num_params 5 pop 0 0 16777215 0 "{A9A9A9}[{FFA500}AdminTools{A9A9A9}] {FF0000}Установите или обновите плагин 'SAMPFUNCS'!" 8
  12947. ret 0
  12948.  
  12949. :garner4_12787
  12950. 0AA2: 0@ = load_library "samp.dll" // IF and SET
  12951. 0085: 1@ = 0@ // (int)
  12952. 1@ += 2203876
  12953. 0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
  12954. 0085: 2@ = 0@ // (int)
  12955. 2@ += 409616
  12956. 0AA6: call_method 2@ struct 3@ num_params 5 pop 0 0 16777215 0 "{A9A9A9}[{FFA500}AdminTools{A9A9A9}] {FF0000}Вы используете устаревшую версию библиотеки CLEO!" 8
  12957. 0AA6: call_method 2@ struct 3@ num_params 5 pop 0 0 16777215 0 "{A9A9A9}[{FFA500}AdminTools{A9A9A9}] {FF0000}Рекомендуется использовать CLEO версии 4.3.21 или новее!" 8
  12958. 0AA6: call_method 2@ struct 3@ num_params 5 pop 0 0 16777215 0 "{A9A9A9}[{FFA500}AdminTools{A9A9A9}] {FF0000}Официальный сайт библиотеки CLEO: cleo.li." 8
  12959. ret 0
  12960.  
  12961. :garner4_13215
  12962. 0@ = File.Open("cleo\AdminTools\checker\admins.txt", "r")
  12963. alloc 1@ 30
  12964. 0C11: memset destination 1@ value 0 size 30
  12965. 8@ = 0
  12966.  
  12967. :garner4_13282
  12968. if
  12969. File.ReadString(0@, 1@, 30)
  12970. jf @garner4_13310
  12971. 8@ += 1
  12972.  
  12973. :garner4_13310
  12974. File.EOF(0@)
  12975. jf @garner4_13282
  12976. 0BFC: set_global_var "admins-in-file-count" = 8@
  12977. File.Close(0@)
  12978. free 1@
  12979. if
  12980. not 8@ == 0
  12981. jf @garner4_13712
  12982. 5@ = 25
  12983. 6@ = 2
  12984. 006A: 5@ *= 8@ // (int)
  12985. 006A: 6@ *= 8@ // (int)
  12986. alloc 14@ 5@
  12987. alloc 15@ 30
  12988. alloc 16@ 6@
  12989. 0C11: memset destination 15@ value 0 size 30
  12990. 0C11: memset destination 14@ value 0 size 5@
  12991. 0C11: memset destination 16@ value 0 size 6@
  12992. 1@ = File.Open("cleo\AdminTools\checker\admins.txt", "r")
  12993. 8@ -= 1
  12994. 2@ = 0
  12995.  
  12996. :garner4_13517
  12997. if
  12998. File.ReadString(1@, 15@, 30)
  12999. jf @garner4_13673
  13000. if
  13001. 0C2C: 3@ = strrchr 15@ char 10
  13002. jf @garner4_13568
  13003. 0C11: memset destination 3@ value 0 size 1
  13004.  
  13005. :garner4_13568
  13006. 0C19: 3@ = strcspn string1 15@ string2 " "
  13007. alloc 24@ 25
  13008. 0C11: memset destination 24@ value 0 size 25
  13009. 0C27: strncat destination 24@ source 15@ size 3@
  13010. 0C20: string_array 14@ element 2@ size 25 = 24@
  13011. if
  13012. 0C2B: 3@ = strpbrk string 15@ control "1234567"
  13013. jf @garner4_13655
  13014. 0C13: strcpy destination 24@ source 3@
  13015.  
  13016. :garner4_13655
  13017. 0C20: string_array 16@ element 2@ size 2 = 24@
  13018. free 24@
  13019.  
  13020. :garner4_13673
  13021. 2@ += 1
  13022. 001D: 2@ > 8@ // (int)
  13023. jf @garner4_13517
  13024. free 15@
  13025. File.Close(1@)
  13026. goto @garner4_13725
  13027.  
  13028. :garner4_13712
  13029. return_false
  13030. ret 2 14@ 16@
  13031.  
  13032. :garner4_13725
  13033. return_true
  13034. ret 2 14@ 16@
  13035.  
  13036. :garner4_13738
  13037. alloc 15@ 25
  13038. 0C11: memset destination 15@ value 0 size 25
  13039. 1@ = File.Open("cleo\AdminTools\checker\leaders.txt", "r")
  13040. 8@ = 0
  13041.  
  13042. :garner4_13806
  13043. wait 0
  13044. if
  13045. File.ReadString(1@, 15@, 25)
  13046. jf @garner4_13838
  13047. 8@ += 1
  13048.  
  13049. :garner4_13838
  13050. File.EOF(1@)
  13051. jf @garner4_13806
  13052. 0BFC: set_global_var "leaders-in-file-count" = 8@
  13053. File.Close(1@)
  13054. 1@ = File.Open("cleo\AdminTools\checker\friends.txt", "r")
  13055. 9@ = 0
  13056.  
  13057. :garner4_13935
  13058. wait 0
  13059. if
  13060. File.ReadString(1@, 15@, 25)
  13061. jf @garner4_13967
  13062. 9@ += 1
  13063.  
  13064. :garner4_13967
  13065. File.EOF(1@)
  13066. jf @garner4_13935
  13067. 0BFC: set_global_var "friends-in-file-count" = 9@
  13068. File.Close(1@)
  13069. free 15@
  13070. if
  13071. not 8@ == 0
  13072. jf @garner4_14428
  13073. 0085: 10@ = 8@ // (int)
  13074. 005A: 10@ += 9@ // (int)
  13075. 5@ = 25
  13076. 006A: 5@ *= 10@ // (int)
  13077. alloc 13@ 5@
  13078. alloc 15@ 25
  13079. 0C11: memset destination 15@ value 0 size 25
  13080. 0C11: memset destination 13@ value 0 size 5@
  13081. 1@ = File.Open("cleo\AdminTools\checker\leaders.txt", "r")
  13082. 8@ -= 1
  13083. 2@ = 0
  13084.  
  13085. :garner4_14159
  13086. if
  13087. File.ReadString(1@, 15@, 25)
  13088. jf @garner4_14223
  13089. if
  13090. 0C2C: 3@ = strrchr 15@ char 10
  13091. jf @garner4_14210
  13092. 0C11: memset destination 3@ value 0 size 1
  13093.  
  13094. :garner4_14210
  13095. 0C20: string_array 13@ element 2@ size 25 = 15@
  13096.  
  13097. :garner4_14223
  13098. 2@ += 1
  13099. 001D: 2@ > 8@ // (int)
  13100. jf @garner4_14159
  13101. File.Close(1@)
  13102. 1@ = File.Open("cleo\AdminTools\checker\friends.txt", "r")
  13103. 8@ += 1
  13104. 005A: 9@ += 8@ // (int)
  13105. 9@ -= 1
  13106. 0085: 2@ = 8@ // (int)
  13107.  
  13108. :garner4_14325
  13109. if
  13110. File.ReadString(1@, 15@, 25)
  13111. jf @garner4_14389
  13112. if
  13113. 0C2C: 3@ = strrchr 15@ char 10
  13114. jf @garner4_14376
  13115. 0C11: memset destination 3@ value 0 size 1
  13116.  
  13117. :garner4_14376
  13118. 0C20: string_array 13@ element 2@ size 25 = 15@
  13119.  
  13120. :garner4_14389
  13121. 2@ += 1
  13122. 001D: 2@ > 9@ // (int)
  13123. jf @garner4_14325
  13124. free 15@
  13125. File.Close(1@)
  13126. goto @garner4_14675
  13127.  
  13128. :garner4_14428
  13129. if
  13130. not 9@ == 0
  13131. jf @garner4_14665
  13132. 005A: 8@ += 9@ // (int)
  13133. 5@ = 25
  13134. 006A: 5@ *= 8@ // (int)
  13135. alloc 13@ 5@
  13136. alloc 15@ 30
  13137. 0C11: memset destination 15@ value 0 size 30
  13138. 0C11: memset destination 13@ value 0 size 5@
  13139. 1@ = File.Open("cleo\AdminTools\checker\friends.txt", "r")
  13140. 8@ -= 1
  13141. 2@ = 0
  13142.  
  13143. :garner4_14562
  13144. if
  13145. File.ReadString(1@, 15@, 25)
  13146. jf @garner4_14626
  13147. if
  13148. 0C2C: 3@ = strrchr 15@ char 10
  13149. jf @garner4_14613
  13150. 0C11: memset destination 3@ value 0 size 1
  13151.  
  13152. :garner4_14613
  13153. 0C20: string_array 13@ element 2@ size 25 = 15@
  13154.  
  13155. :garner4_14626
  13156. 2@ += 1
  13157. 001D: 2@ > 8@ // (int)
  13158. jf @garner4_14562
  13159. free 15@
  13160. File.Close(1@)
  13161. goto @garner4_14675
  13162.  
  13163. :garner4_14665
  13164. return_false
  13165. ret 1 13@
  13166.  
  13167. :garner4_14675
  13168. return_true
  13169. ret 1 13@
  13170.  
  13171. :garner4_14685
  13172. SAMP.IsCommandTyped(20@)
  13173. alloc 21@ 128
  13174. 0C11: memset destination 21@ value 0 size 128
  13175. if
  13176. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  13177. jf @garner4_14956
  13178. if and
  13179. 22@ >= 0
  13180. not 22@ > 1000
  13181. jf @garner4_14934
  13182. 23@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  13183. if
  13184. SAMP.IsPlayerConnected(22@)
  13185. jf @garner4_14815
  13186. 24@ = SAMP.GetPlayerNickname(22@)
  13187. say "/get %s" 24@
  13188. goto @garner4_14927
  13189.  
  13190. :garner4_14815
  13191. if
  13192. 003B: 22@ == 23@ // (int)
  13193. jf @garner4_14864
  13194. 23@ = SAMP.GetPlayerNickname(22@)
  13195. say "/get %s" 23@
  13196. goto @garner4_14927
  13197.  
  13198. :garner4_14864
  13199. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  13200. call @garner4_17369 1 21@
  13201.  
  13202. :garner4_14927
  13203. goto @garner4_14949
  13204.  
  13205. :garner4_14934
  13206. say "/get %s" 20@
  13207.  
  13208. :garner4_14949
  13209. goto @garner4_15094
  13210.  
  13211. :garner4_14956
  13212. if
  13213. 0AD4: 22@ = scan_string 20@ format "%s" 21@
  13214. jf @garner4_15005
  13215. say "/get %s" 20@
  13216. goto @garner4_15094
  13217.  
  13218. :garner4_15005
  13219. format 21@ "Используйте /iget [ID игрока] или [ник игрока] или [номер аккаунта]."
  13220. call @garner4_17369 1 21@
  13221.  
  13222. :garner4_15094
  13223. free 21@
  13224. SAMP.CmdRet
  13225.  
  13226. :garner4_15101
  13227. SAMP.IsCommandTyped(20@)
  13228. alloc 21@ 128
  13229. 0C11: memset destination 21@ value 0 size 128
  13230. if
  13231. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  13232. jf @garner4_15447
  13233. 23@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  13234. if
  13235. SAMP.IsPlayerConnected(22@)
  13236. jf @garner4_15274
  13237. 24@ = SAMP.GetPlayerNickname(22@)
  13238. say "/history %s" 24@
  13239. format 21@ "Отображена история имён игрока %s[%i]." 24@ 22@
  13240. call @garner4_17369 1 21@
  13241. goto @garner4_15440
  13242.  
  13243. :garner4_15274
  13244. if
  13245. 003B: 22@ == 23@ // (int)
  13246. jf @garner4_15377
  13247. 23@ = SAMP.GetPlayerNickname(22@)
  13248. say "/history %s" 23@
  13249. format 21@ "Отображена Ваша история имён."
  13250. call @garner4_17369 1 21@
  13251. goto @garner4_15440
  13252.  
  13253. :garner4_15377
  13254. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  13255. call @garner4_17369 1 21@
  13256.  
  13257. :garner4_15440
  13258. goto @garner4_15498
  13259.  
  13260. :garner4_15447
  13261. format 21@ "Используйте /hist [ID игрока]."
  13262. call @garner4_17369 1 21@
  13263.  
  13264. :garner4_15498
  13265. free 21@
  13266. SAMP.CmdRet
  13267.  
  13268. :garner4_15505
  13269. alloc 20@ 200
  13270. 0C11: memset destination 20@ value 0 size 200
  13271. 0BFD: 21@ = get_global_var "ADMIN_LVL"
  13272. if
  13273. 21@ >= 3
  13274. jf @garner4_15665
  13275. Model.Load(#DESERT_EAGLE)
  13276. Model.Load(#M4)
  13277. 038B: load_requested_models
  13278. if and
  13279. Model.Available(#DESERT_EAGLE)
  13280. Model.Available(#M4)
  13281. jf @garner4_15648
  13282. Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, DesertEagle, 60)
  13283. Actor.GiveWeaponAndAmmo($PLAYER_ACTOR, M4, 500)
  13284. format 20@ "Вам выдано оружие."
  13285. call @garner4_17369 1 20@
  13286.  
  13287. :garner4_15648
  13288. Model.Destroy(#DESERT_EAGLE)
  13289. Model.Destroy(#M4)
  13290. goto @garner4_15751
  13291.  
  13292. :garner4_15665
  13293. format 20@ "Данная команда предназначена для администраторов 3 уровня и выше."
  13294. call @garner4_17369 1 20@
  13295.  
  13296. :garner4_15751
  13297. free 20@
  13298. SAMP.CmdRet
  13299. 0AA2: 10@ = load_library "Urlmon.dll" // IF and SET
  13300. 0AA4: 11@ = get_proc_address "URLDownloadToFileA" library 10@ // IF and SET
  13301. 0AA7: call_function 11@ num_params 5 pop 0 0 0 0@ 1@ 0 12@
  13302. ret 1 12@
  13303. 0AA2: 10@ = load_library "Wininet.dll" // IF and SET
  13304. 0AA4: 11@ = get_proc_address "DeleteUrlCacheEntryA" library 10@ // IF and SET
  13305. 0AA7: call_function 11@ num_params 1 pop 0 0@ 12@
  13306. 0AA3: free_library 10@
  13307. ret 0
  13308.  
  13309. :garner4_15910
  13310. alloc 10@ 256
  13311. 0C11: memset destination 10@ value 0 size 256
  13312. alloc 11@ 200
  13313. 0C11: memset destination 11@ value 0 size 200
  13314. format 10@ "https:%c%cwww.googleapis.com/urlshortener/v1/" 47 47
  13315. format 11@ "url?shortUrl=https:%c%cgoo.gl/FLsYYW" 47 47
  13316. 0C15: strcat destination 10@ source 11@
  13317. format 11@ "&key=AIzaSyDrui3Na0hGHXWPiKoLD-cyG7RHC2P5kfA"
  13318. 0C15: strcat destination 10@ source 11@
  13319. free 11@
  13320. 0C65: 11@ = download_url 10@ to_file "cleo/AdminTools/data/response.txt"
  13321. 3@ = -1
  13322.  
  13323. :garner4_16174
  13324. 3@ == -1
  13325. jf @garner4_16207
  13326. wait 0
  13327. 0C66: 3@ = get_download 11@ state
  13328. goto @garner4_16174
  13329.  
  13330. :garner4_16207
  13331. free 10@
  13332. 0C7D: release_download 11@
  13333. 0B00: delete_file "cleo/AdminTools/data/response.txt" // IF and SET
  13334. alloc 10@ 256
  13335. 0C11: memset destination 10@ value 0 size 256
  13336. format 10@ "https:%c%cgoo.gl/FLsYYW" 47 47
  13337. 0C65: 11@ = download_url 10@ to_file "cleo/AdminTools/version.ini"
  13338. 3@ = -1
  13339.  
  13340. :garner4_16351
  13341. 3@ == -1
  13342. jf @garner4_16384
  13343. wait 0
  13344. 0C66: 3@ = get_download 11@ state
  13345. goto @garner4_16351
  13346.  
  13347. :garner4_16384
  13348. free 10@
  13349. 0C7D: release_download 11@
  13350. 0AA2: 24@ = load_library "kernel32.dll" // IF and SET
  13351. 0AA4: 23@ = get_proc_address "GetLocalTime" library 24@ // IF and SET
  13352. alloc 22@ 16
  13353. 0AA5: call 23@ num_params 1 pop 0 22@
  13354. 0085: 21@ = 22@ // (int)
  13355. alloc 25@ 200
  13356. 0C11: memset destination 25@ value 0 size 200
  13357. alloc 26@ 200
  13358. 0C11: memset destination 26@ value 0 size 200
  13359. 21@ += 6
  13360. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  13361. format 25@ "%.2d-" 27@
  13362. 0C15: strcat destination 26@ source 25@
  13363. 21@ -= 4
  13364. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  13365. format 25@ "%.2d-" 27@
  13366. 0C15: strcat destination 26@ source 25@
  13367. 21@ -= 2
  13368. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  13369. format 25@ "%.2d " 27@
  13370. 0C15: strcat destination 26@ source 25@
  13371. 21@ += 8
  13372. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  13373. format 25@ "%.2d:" 27@
  13374. 0C15: strcat destination 26@ source 25@
  13375. 21@ += 2
  13376. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  13377. format 25@ "%.2d:" 27@
  13378. 0C15: strcat destination 26@ source 25@
  13379. 21@ += 2
  13380. 0A8D: 27@ = read_memory 21@ size 2 virtual_protect 0
  13381. format 25@ "%.2d" 27@
  13382. 0C15: strcat destination 26@ source 25@
  13383. free 22@
  13384. 0AA3: free_library 24@
  13385. if
  13386. not 3@ == 0
  13387. jf @garner4_16921
  13388. alloc 4@ 200
  13389. 0C11: memset destination 4@ value 0 size 200
  13390. format 4@ "Операция проверки обновления завершена с ошибкой %p." 3@
  13391. call @garner4_17369 1 4@
  13392. free 4@
  13393. format 25@ " (ошибка %p)" 3@
  13394. 0C15: strcat destination 26@ source 25@
  13395. goto @garner4_17290
  13396.  
  13397. :garner4_16921
  13398. wait 0
  13399. 0AAB: file_exists "cleo\AdminTools\version.ini"
  13400. jf @garner4_16921
  13401. if
  13402. 0AAB: file_exists "cleo\AdminTools\version.ini"
  13403. jf @garner4_17290
  13404. if
  13405. 0AF4: 0@ = read_string_from_ini_file "cleo\AdminTools\version.ini" section "other" key "version"
  13406. jf @garner4_17259
  13407. alloc 1@ 128
  13408. 0C11: memset destination 1@ value 0 size 128
  13409. format 1@ "%s" '1.7.3.3'
  13410. if and
  13411. 8C21: not stricmp string1 0@ string2 1@
  13412. 8C21: not stricmp string1 0@ string2 '1.7.1.8'
  13413. jf @garner4_17254
  13414. free 1@
  13415. 0B00: delete_file "cleo\AdminTools\version.ini" // IF and SET
  13416. 0AF5: write_string 26@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "last-check-update"
  13417. free 25@
  13418. free 26@
  13419. return_true
  13420. ret 1 0@
  13421.  
  13422. :garner4_17254
  13423. free 1@
  13424.  
  13425. :garner4_17259
  13426. 0B00: delete_file "cleo\AdminTools\version.ini" // IF and SET
  13427.  
  13428. :garner4_17290
  13429. 0AF5: write_string 26@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "last-check-update"
  13430. free 25@
  13431. free 26@
  13432. return_false
  13433. ret 0
  13434.  
  13435. :garner4_17369
  13436. chatmsg "{FFA500}[AdminTools] {DCDCDC}%s" 14474460 0@
  13437. ret 0
  13438.  
  13439. :garner4_17418
  13440. 1@ = File.Open("cleo\AdminTools\config.ini", "w")
  13441. 0AD9: write_formatted_text ";AdminTools for Advance-RP by David Garner" in_file 1@
  13442. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "status"
  13443. 0AF3: write_float 5.0 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "x-pos"
  13444. 0AF3: write_float 183.0 to_ini_file "cleo\AdminTools\config.ini" section "player-info-panel" key "y-pos"
  13445. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "leader-checker-status"
  13446. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "friends-checker-status"
  13447. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "admin-checker-status"
  13448. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "panel-status"
  13449. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-start"
  13450. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-start"
  13451. 0AF1: write_int 18 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key1"
  13452. 0AF1: write_int 114 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "wh-on-key2"
  13453. 0AF1: write_int 45 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key1"
  13454. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "gm-on-key2"
  13455. 0AF1: write_int 188 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key1"
  13456. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "ab-on-key2"
  13457. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "player-id-in-mask"
  13458. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "cheats" key "adm-textdraw-upd-notice"
  13459. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "auto-check-update"
  13460. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "cmd-from-adm-chat"
  13461. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "sound-status"
  13462. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "status"
  13463. 0AF1: write_int 230 to_ini_file "cleo\AdminTools\config.ini" section "skin-changer" key "tempskin"
  13464. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "punishments-list" key "auto-mode"
  13465. 0AF1: write_int 77 to_ini_file "cleo\AdminTools\config.ini" section "other" key "menu-on-key"
  13466. 0AF1: write_int 2 to_ini_file "cleo\AdminTools\config.ini" section "other" key "fast-comm-menu-key"
  13467. 0AF1: write_int 16 to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key1"
  13468. 0AF1: write_int 48 to_ini_file "cleo\AdminTools\config.ini" section "reconnect" key "reconnect-on-key2"
  13469. 0AF1: write_int 16 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key1"
  13470. 0AF1: write_int 70 to_ini_file "cleo\AdminTools\config.ini" section "checkers" key "checker-on-key2"
  13471. 0AF1: write_int 1 to_ini_file "cleo\AdminTools\config.ini" section "other" key "admins-nick-in-command"
  13472. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color1"
  13473. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "spawn-vehicle" key "color2"
  13474. 0AF1: write_int 0 to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "status"
  13475. alloc 0@ 10
  13476. 0C11: memset destination 0@ value 0 size 10
  13477. format 0@ "0 0"
  13478. 0AF5: write_string 0@ to_ini_file "cleo\AdminTools\config.ini" section "auto-invite" key "organisation"
  13479. free 0@
  13480. 0AF1: write_int 46 to_ini_file "cleo\AdminTools\config.ini" section "other" key "confirm-on-key"
  13481. 0AF1: write_int 39 to_ini_file "cleo\AdminTools\config.ini" section "other" key "next-id-on-key"
  13482. 0AF1: write_int 37 to_ini_file "cleo\AdminTools\config.ini" section "other" key "prev-id-on-key"
  13483. File.Close(1@)
  13484. ret 0
  13485.  
  13486. :garner4_19664
  13487. 1@ = File.Open("cleo\AdminTools\data\tempdata", "w")
  13488. 0AD9: write_formatted_text ";AdminTools for Advance-RP by David Garner" in_file 1@
  13489. 0AD9: write_formatted_text "%c;Различные данные, используемые и изменяемые скриптом в процессе игры. Вносить изменения настоятельно не рекомендуется." in_file 1@ 10
  13490. File.Close(1@)
  13491. ret 0
  13492.  
  13493. :garner4_19894
  13494. alloc 1@ 128
  13495. format 1@ "https:%c%cwww.dropbox.com/s/ddlfgozmwsudkno/changelog.txt?dl=1" 47 47
  13496. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools/changelog.txt"
  13497. free 1@
  13498. 1@ = -1
  13499.  
  13500. :garner4_20027
  13501. 1@ == -1
  13502. jf @garner4_20060
  13503. wait 0
  13504. 0C66: 1@ = get_download 2@ state
  13505. goto @garner4_20027
  13506.  
  13507. :garner4_20060
  13508. 0C7D: release_download 2@
  13509. if
  13510. not 1@ == 0
  13511. jf @garner4_20205
  13512. alloc 2@ 200
  13513. 0C11: memset destination 2@ value 0 size 200
  13514. format 2@ "Произошла ошибка во время загрузки списка изменений. Код ошибки: %p." 1@
  13515. call @garner4_17369 1 2@
  13516. free 2@
  13517. goto @garner4_20424
  13518.  
  13519. :garner4_20205
  13520. wait 0
  13521. 0AAB: file_exists "cleo\AdminTools\changelog.txt"
  13522. jf @garner4_20205
  13523. alloc 3@ 256
  13524. 0C11: memset destination 3@ value 0 size 256
  13525. 2@ = File.Open("cleo\AdminTools\changelog.txt", "r")
  13526. 4@ = File.Size(2@)
  13527. 4@ += 1
  13528. alloc 13@ 4@
  13529. 0C11: memset destination 13@ value 0 size 4@
  13530.  
  13531. :garner4_20339
  13532. if
  13533. File.ReadString(2@, 3@, 256)
  13534. jf @garner4_20369
  13535. 0C15: strcat destination 13@ source 3@
  13536.  
  13537. :garner4_20369
  13538. File.EOF(2@)
  13539. jf @garner4_20339
  13540. free 3@
  13541. File.Close(2@)
  13542. 0B00: delete_file "cleo/AdminTools/changelog.txt" // IF and SET
  13543.  
  13544. :garner4_20424
  13545. 0085: 5@ = 4@ // (int)
  13546. 5@ += 200
  13547. 4@ += 500
  13548. alloc 12@ 4@
  13549. 0C11: memset destination 12@ value 0 size 4@
  13550. alloc 14@ 5@
  13551. 0C11: memset destination 14@ value 0 size 5@
  13552. format 12@ "{FFFFFF}Доступно обновление AdminTools до версии %s. Выполнить обновление?%c%c" 31@ 10 10
  13553. format 14@ "Список изменений:%c%s" 10 13@
  13554. 0C15: strcat destination 12@ source 14@
  13555. 7@ = 700
  13556. 7@ += 11
  13557. SAMP.ShowDialog(7@, "Проверка обновлений", 12@, "Обновить", "Закрыть", DIALOG_STYLE_MSGBOX)
  13558. free 13@
  13559. free 12@
  13560. free 14@
  13561.  
  13562. :garner4_20699
  13563. wait 0
  13564. SAMP.DialogRespond(7@, 13@, 0, 0)
  13565. jf @garner4_20699
  13566. if
  13567. 13@ == 1
  13568. jf @garner4_21593
  13569. alloc 5@ 128
  13570. 0C11: memset destination 5@ value 0 size 128
  13571. format 5@ "Выполняется процесс обновления, пожалуйста, подождите..."
  13572. call @garner4_17369 1 5@
  13573. free 5@
  13574. alloc 1@ 128
  13575. format 1@ "https:%c%cgoo.gl/FzXU8S" 47 47
  13576. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools.cs"
  13577. free 1@
  13578. 3@ = -1
  13579.  
  13580. :garner4_20923
  13581. 3@ == -1
  13582. jf @garner4_20956
  13583. wait 0
  13584. 0C66: 3@ = get_download 2@ state
  13585. goto @garner4_20923
  13586.  
  13587. :garner4_20956
  13588. 0C7D: release_download 2@
  13589. wait 100
  13590. if
  13591. not 3@ == 0
  13592. jf @garner4_21090
  13593. alloc 4@ 200
  13594. 0C11: memset destination 4@ value 0 size 200
  13595. format 4@ "Произошла ошибка во время обновления. Код ошибки: %p." 3@
  13596. call @garner4_17369 1 4@
  13597. free 4@
  13598. goto @garner4_21593
  13599.  
  13600. :garner4_21090
  13601. wait 0
  13602. 0AAB: file_exists "cleo\AdminTools.cs"
  13603. jf @garner4_21090
  13604. alloc 1@ 128
  13605. format 1@ "https:%c%cwww.dropbox.com/s/zqxj9kytk282zaw/click.mp3?dl=1" 47 47
  13606. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools/data/audio/click.mp3"
  13607. free 1@
  13608. 1@ = -1
  13609.  
  13610. :garner4_21259
  13611. 1@ == -1
  13612. jf @garner4_21292
  13613. wait 0
  13614. 0C66: 1@ = get_download 2@ state
  13615. goto @garner4_21259
  13616.  
  13617. :garner4_21292
  13618. 0C7D: release_download 2@
  13619. if
  13620. 1@ == 0
  13621. jf @garner4_21503
  13622. alloc 1@ 128
  13623. format 1@ "https:%c%cwww.dropbox.com/s/w3iw1qxcyqra9wt/notification.mp3?dl=1" 47 47
  13624. 0C65: 2@ = download_url 1@ to_file "cleo/AdminTools/data/audio/notification.mp3"
  13625. free 1@
  13626. 1@ = -1
  13627.  
  13628. :garner4_21465
  13629. 1@ == -1
  13630. jf @garner4_21498
  13631. wait 0
  13632. 0C66: 1@ = get_download 2@ state
  13633. goto @garner4_21465
  13634.  
  13635. :garner4_21498
  13636. 0C7D: release_download 2@
  13637.  
  13638. :garner4_21503
  13639. if
  13640. 0C90: samp is_client_command_defined "at"
  13641. jf @garner4_21526
  13642. SAMP.UnregisterClientCommand("at")
  13643.  
  13644. :garner4_21526
  13645. 0BFC: set_global_var "UPDATING_STATUS" = 1
  13646. free 31@
  13647. if
  13648. Dialog.IsExists(0@)
  13649. jf @garner4_21573
  13650. Dialog.Free(0@)
  13651.  
  13652. :garner4_21573
  13653. run "AdminTools.cs"
  13654. end_thread
  13655.  
  13656. :garner4_21593
  13657. return
  13658.  
  13659. :garner4_21595
  13660. SAMP.IsCommandTyped(20@)
  13661. alloc 21@ 128
  13662. 0C11: memset destination 21@ value 0 size 128
  13663. if
  13664. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  13665. jf @garner4_22117
  13666. 23@ = SAMP.GetVehicleHandleBySAMPVehicleID(22@)
  13667. if
  13668. 056E: car 23@ defined
  13669. jf @garner4_22025
  13670. if
  13671. Actor.Driving($PLAYER_ACTOR)
  13672. jf @garner4_21736
  13673. 24@ = Actor.CurrentCar($PLAYER_ACTOR)
  13674. SAMP.SendExitVehicle(24@)
  13675. Actor.StorePos($PLAYER_ACTOR, 25@, 26@, 27@)
  13676. 25@ += 2.0
  13677. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 25@ 26@ 27@
  13678.  
  13679. :garner4_21736
  13680. 24@ = Car.Model(23@)
  13681. 046C: 25@ = car 23@ driver
  13682. if
  13683. 25@ == -1
  13684. jf @garner4_21897
  13685. alloc 25@ 128
  13686. 0ADB: 25@ = car_model 24@ name
  13687. SAMP.SendEnterVehicle(7@, 0)
  13688. 036A: put_actor $PLAYER_ACTOR in_car 23@
  13689. Camera.Restore_WithJumpCut
  13690. format 21@ "Вы были телепортированы в транспортное средство %s[%i]." 25@ 24@
  13691. call @garner4_17369 1 21@
  13692. free 25@
  13693. goto @garner4_22018
  13694.  
  13695. :garner4_21897
  13696. 01EA: 24@ = car 23@ max_passengers
  13697. 24@ -= 1
  13698. if
  13699. 0431: car 23@ passenger_seat_free 24@
  13700. jf @garner4_21957
  13701. SAMP.SendEnterVehicle(23@, 24@)
  13702. 072B: put_actor $PLAYER_ACTOR into_car 23@ passengerseat 24@
  13703. goto @garner4_22018
  13704.  
  13705. :garner4_21957
  13706. format 21@ "Нельзя телепортироваться в ТС с игроком."
  13707. call @garner4_17369 1 21@
  13708.  
  13709. :garner4_22018
  13710. goto @garner4_22110
  13711.  
  13712. :garner4_22025
  13713. format 21@ "Транспортное средство с ID [%i] не найдено в зоне прорисовки." 22@
  13714. call @garner4_17369 1 21@
  13715.  
  13716. :garner4_22110
  13717. goto @garner4_22278
  13718.  
  13719. :garner4_22117
  13720. format 21@ "Используйте /goinveh [ID транспортного средства]."
  13721. call @garner4_17369 1 21@
  13722. format 21@ "Для того, чтоб узнать ID транспортного средства - введите команду /dl."
  13723. call @garner4_17369 1 21@
  13724.  
  13725. :garner4_22278
  13726. free 21@
  13727. SAMP.CmdRet
  13728.  
  13729. :garner4_22285
  13730. SAMP.IsCommandTyped(20@)
  13731. alloc 21@ 128
  13732. 0C11: memset destination 21@ value 0 size 128
  13733. if
  13734. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  13735. jf @garner4_22748
  13736. 23@ = SAMP.GetVehicleHandleBySAMPVehicleID(22@)
  13737. if
  13738. 056E: car 23@ defined
  13739. jf @garner4_22656
  13740. if
  13741. Actor.Driving($PLAYER_ACTOR)
  13742. jf @garner4_22388
  13743. 24@ = Actor.CurrentCar($PLAYER_ACTOR)
  13744. SAMP.SendExitVehicle(24@)
  13745.  
  13746. :garner4_22388
  13747. 24@ = Car.Model(23@)
  13748. 046C: 25@ = car 23@ driver
  13749. if
  13750. 25@ == -1
  13751. jf @garner4_22588
  13752. alloc 25@ 128
  13753. 0ADB: 25@ = car_model 24@ name
  13754. Actor.StorePos($PLAYER_ACTOR, 26@, 27@, 28@)
  13755. SAMP.SendEnterVehicle(22@, 0)
  13756. 036A: put_actor $PLAYER_ACTOR in_car 23@
  13757. Camera.Restore_WithJumpCut
  13758. Car.PutAt(23@, 26@, 27@, 28@)
  13759. format 21@ "Транспортное средство %s[%i] было телепортировано на Вашу позицию." 25@ 24@
  13760. call @garner4_17369 1 21@
  13761. free 25@
  13762. goto @garner4_22649
  13763.  
  13764. :garner4_22588
  13765. format 21@ "Нельзя телепортироваться в ТС с игроком."
  13766. call @garner4_17369 1 21@
  13767.  
  13768. :garner4_22649
  13769. goto @garner4_22741
  13770.  
  13771. :garner4_22656
  13772. format 21@ "Транспортное средство с ID [%i] не найдено в зоне прорисовки." 22@
  13773. call @garner4_17369 1 21@
  13774.  
  13775. :garner4_22741
  13776. goto @garner4_22910
  13777.  
  13778. :garner4_22748
  13779. format 21@ "Используйте /getvhere [ID транспортного средства]."
  13780. call @garner4_17369 1 21@
  13781. format 21@ "Для того, чтоб узнать ID транспортного средства - введите команду /dl."
  13782. call @garner4_17369 1 21@
  13783.  
  13784. :garner4_22910
  13785. free 21@
  13786. SAMP.CmdRet
  13787.  
  13788. :garner4_22917
  13789. 0BFD: 20@ = get_global_var "check-reg-status"
  13790. 0BFD: 21@ = get_global_var "check-reg-a-status"
  13791. if and
  13792. 20@ == 0
  13793. 21@ == 0
  13794. jf @garner4_23659
  13795. SAMP.IsCommandTyped(20@)
  13796. if
  13797. 0AD4: 22@ = scan_string 20@ format "%i" 21@
  13798. jf @garner4_23422
  13799. 22@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  13800. if
  13801. SAMP.IsPlayerConnected(21@)
  13802. jf @garner4_23179
  13803. 22@ = SAMP.GetPlayerNickname(21@)
  13804. 0AF5: write_string 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  13805. 0AF1: write_int 21@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  13806. 0BFC: set_global_var "check-reg-status" = 1
  13807. goto @garner4_23415
  13808.  
  13809. :garner4_23179
  13810. if
  13811. 003B: 22@ == 21@ // (int)
  13812. jf @garner4_23331
  13813. 21@ = SAMP.GetPlayerNickname(22@)
  13814. 0AF5: write_string 21@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  13815. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  13816. 0BFC: set_global_var "check-reg-status" = 1
  13817. goto @garner4_23415
  13818.  
  13819. :garner4_23331
  13820. alloc 20@ 128
  13821. 0C11: memset destination 20@ value 0 size 128
  13822. format 20@ "Игрок с ID %i не подключен к серверу." 21@
  13823. call @garner4_17369 1 20@
  13824. free 20@
  13825.  
  13826. :garner4_23415
  13827. goto @garner4_23659
  13828.  
  13829. :garner4_23422
  13830. if
  13831. 0AD4: 22@ = scan_string 20@ format "%s" 21@
  13832. jf @garner4_23573
  13833. 0AF5: write_string 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  13834. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  13835. 0BFC: set_global_var "check-reg-status" = 1
  13836. goto @garner4_23659
  13837.  
  13838. :garner4_23573
  13839. alloc 20@ 128
  13840. 0C11: memset destination 20@ value 0 size 128
  13841. format 20@ "Используйте /reg ID или /reg [ник игрока]."
  13842. call @garner4_17369 1 20@
  13843. free 20@
  13844.  
  13845. :garner4_23659
  13846. SAMP.CmdRet
  13847.  
  13848. :garner4_23661
  13849. 0BFD: 20@ = get_global_var "check-reg-status"
  13850. 0BFD: 21@ = get_global_var "check-reg-a-status"
  13851. if and
  13852. 20@ == 0
  13853. 21@ == 0
  13854. jf @garner4_24411
  13855. SAMP.IsCommandTyped(20@)
  13856. if
  13857. 0AD4: 22@ = scan_string 20@ format "%i" 21@
  13858. jf @garner4_24170
  13859. 22@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  13860. if
  13861. SAMP.IsPlayerConnected(21@)
  13862. jf @garner4_23925
  13863. 22@ = SAMP.GetPlayerNickname(21@)
  13864. 0AF5: write_string 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  13865. 0AF1: write_int 21@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  13866. 0BFC: set_global_var "check-reg-a-status" = 1
  13867. goto @garner4_24163
  13868.  
  13869. :garner4_23925
  13870. if
  13871. 003B: 22@ == 21@ // (int)
  13872. jf @garner4_24079
  13873. 21@ = SAMP.GetPlayerNickname(22@)
  13874. 0AF5: write_string 21@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  13875. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  13876. 0BFC: set_global_var "check-reg-a-status" = 1
  13877. goto @garner4_24163
  13878.  
  13879. :garner4_24079
  13880. alloc 20@ 128
  13881. 0C11: memset destination 20@ value 0 size 128
  13882. format 20@ "Игрок с ID %i не подключен к серверу." 21@
  13883. call @garner4_17369 1 20@
  13884. free 20@
  13885.  
  13886. :garner4_24163
  13887. goto @garner4_24411
  13888.  
  13889. :garner4_24170
  13890. if
  13891. 0AD4: 22@ = scan_string 20@ format "%s" 21@
  13892. jf @garner4_24323
  13893. 0AF5: write_string 20@ to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "nickname"
  13894. 0AF1: write_int -1 to_ini_file "cleo\AdminTools\data\tempdata" section "reg" key "id"
  13895. 0BFC: set_global_var "check-reg-a-status" = 1
  13896. goto @garner4_24411
  13897.  
  13898. :garner4_24323
  13899. alloc 20@ 128
  13900. 0C11: memset destination 20@ value 0 size 128
  13901. format 20@ "Используйте /areg ID или /areg [ник игрока]."
  13902. call @garner4_17369 1 20@
  13903. free 20@
  13904.  
  13905. :garner4_24411
  13906. SAMP.CmdRet
  13907.  
  13908. :garner4_24413
  13909. 0C65: 10@ = download_url 0@ to_file "cleo/AdminTools/reg.txt"
  13910. 9@ = -1
  13911.  
  13912. :garner4_24453
  13913. 9@ == -1
  13914. jf @garner4_24486
  13915. wait 0
  13916. 0C66: 9@ = get_download 10@ state
  13917. goto @garner4_24453
  13918.  
  13919. :garner4_24486
  13920. 0C7D: release_download 10@
  13921. if
  13922. not 9@ == 0
  13923. jf @garner4_24638
  13924. alloc 4@ 200
  13925. 0C11: memset destination 4@ value 0 size 200
  13926. format 4@ "Произошла ошибка при получении данных об IP адресах. Код ошибки: %p." 9@
  13927. call @garner4_17369 1 4@
  13928. free 4@
  13929. return_false
  13930. ret 0
  13931. goto @garner4_24965
  13932.  
  13933. :garner4_24638
  13934. wait 0
  13935. 0AAB: file_exists "cleo/AdminTools/reg.txt"
  13936. jf @garner4_24638
  13937. if
  13938. 0AAB: file_exists "cleo\AdminTools\reg.txt"
  13939. jf @garner4_24965
  13940. 2@ = File.Open("cleo\AdminTools\reg.txt", "r")
  13941. 11@ = 0
  13942.  
  13943. :garner4_24754
  13944. if
  13945. File.ReadString(2@, 0@, 100)
  13946. jf @garner4_24887
  13947. if
  13948. 0C2C: 3@ = strrchr 0@ char 10
  13949. jf @garner4_24805
  13950. 0C11: memset destination 3@ value 0 size 1
  13951.  
  13952. :garner4_24805
  13953. if and
  13954. 11@ == 0
  13955. 8C21: not stricmp string1 0@ string2 "success"
  13956. jf @garner4_24851
  13957. goto @garner4_24908
  13958. goto @garner4_24874
  13959.  
  13960. :garner4_24851
  13961. if
  13962. File.EOF(2@)
  13963. jf @garner4_24874
  13964. goto @garner4_24908
  13965.  
  13966. :garner4_24874
  13967. 0C20: string_array 1@ element 11@ size 100 = 0@
  13968.  
  13969. :garner4_24887
  13970. 11@ += 1
  13971. 11@ > 13
  13972. jf @garner4_24754
  13973.  
  13974. :garner4_24908
  13975. if
  13976. 11@ == 0
  13977. jf @garner4_24933
  13978. return_false
  13979. ret 0
  13980.  
  13981. :garner4_24933
  13982. File.Close(2@)
  13983. 0B00: delete_file "cleo\AdminTools\reg.txt" // IF and SET
  13984.  
  13985. :garner4_24965
  13986. return_true
  13987. ret 1 1@
  13988.  
  13989. :garner4_24975
  13990. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  13991. if
  13992. 20@ >= 4
  13993. jf @garner4_25189
  13994. 0BFD: 20@ = get_global_var "tp-no-drivers-status"
  13995. if
  13996. 20@ == 0
  13997. jf @garner4_25087
  13998. 0BFC: set_global_var "tp-no-drivers-status" = 1
  13999. goto @garner4_25182
  14000.  
  14001. :garner4_25087
  14002. alloc 20@ 128
  14003. 0C11: memset destination 20@ value 0 size 128
  14004. format 20@ "Телепортация остановлена."
  14005. call @garner4_17369 1 20@
  14006. free 20@
  14007. 0BFC: set_global_var "tp-no-drivers-status" = 0
  14008.  
  14009. :garner4_25182
  14010. goto @garner4_25302
  14011.  
  14012. :garner4_25189
  14013. alloc 20@ 128
  14014. 0C11: memset destination 20@ value 0 size 128
  14015. format 20@ "Данная команда доступна только для администраторов 4 уровня или выше."
  14016. call @garner4_17369 1 20@
  14017. free 20@
  14018.  
  14019. :garner4_25302
  14020. SAMP.CmdRet
  14021.  
  14022. :garner4_25304
  14023. 0AA2: 10@ = load_library "Kernel32.DLL" // IF and SET
  14024. 0AA4: 9@ = get_proc_address "MultiByteToWideChar" library 10@ // IF and SET
  14025. 3@ = 65001
  14026. 0AA7: call_function 9@ num_params 6 pop 0 0 0 300 0@ 0 3@ 2@
  14027. alloc 21@ 2@
  14028. 0C11: memset destination 21@ value 0 size 2@
  14029. 0AA7: call_function 9@ num_params 6 pop 0 2@ 21@ -1 0@ 0 3@ 2@
  14030. 3@ = 1251
  14031. 0AA4: 9@ = get_proc_address "WideCharToMultiByte" library 10@ // IF and SET
  14032. 0AA7: call_function 9@ num_params 8 pop 0 0 0 0 0 -1 21@ 0 3@ 2@
  14033. alloc 22@ 2@
  14034. 0C11: memset destination 22@ value 0 size 2@
  14035. 0AA7: call_function 9@ num_params 8 pop 0 0 0 2@ 22@ -1 21@ 0 3@ 2@
  14036. 0AA3: free_library 10@
  14037. free 21@
  14038. ret 1 22@
  14039.  
  14040. :garner4_25574
  14041. alloc 21@ 128
  14042. 0C11: memset destination 21@ value 0 size 128
  14043. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14044. if
  14045. 20@ >= 4
  14046. jf @garner4_25959
  14047. 0BFD: 20@ = get_global_var "check-find"
  14048. 0BFD: 22@ = get_global_var "check-a-find"
  14049. if and
  14050. 20@ == 0
  14051. 22@ == 0
  14052. jf @garner4_25952
  14053. SAMP.IsCommandTyped(20@)
  14054. if
  14055. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  14056. jf @garner4_25895
  14057. if and
  14058. 22@ > 0
  14059. not 22@ > 13
  14060. jf @garner4_25823
  14061. 0BFC: set_global_var "check-find" = 1
  14062. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "fraction-id"
  14063. goto @garner4_25888
  14064.  
  14065. :garner4_25823
  14066. format 21@ "Неверный ID организации. Доступные ID: 1-13."
  14067. call @garner4_17369 1 21@
  14068.  
  14069. :garner4_25888
  14070. goto @garner4_25952
  14071.  
  14072. :garner4_25895
  14073. format 21@ "Используйте /findd [ID организации]."
  14074. call @garner4_17369 1 21@
  14075.  
  14076. :garner4_25952
  14077. goto @garner4_26045
  14078.  
  14079. :garner4_25959
  14080. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14081. call @garner4_17369 1 21@
  14082.  
  14083. :garner4_26045
  14084. free 21@
  14085. SAMP.CmdRet
  14086.  
  14087. :garner4_26052
  14088. alloc 21@ 128
  14089. 0C11: memset destination 21@ value 0 size 128
  14090. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14091. if
  14092. 20@ >= 4
  14093. jf @garner4_26440
  14094. 0BFD: 22@ = get_global_var "check-find"
  14095. 0BFD: 20@ = get_global_var "check-a-find"
  14096. if and
  14097. 20@ == 0
  14098. 22@ == 0
  14099. jf @garner4_26433
  14100. SAMP.IsCommandTyped(20@)
  14101. if
  14102. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  14103. jf @garner4_26375
  14104. if and
  14105. 22@ > 0
  14106. not 22@ > 13
  14107. jf @garner4_26303
  14108. 0BFC: set_global_var "check-a-find" = 1
  14109. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "fraction-id"
  14110. goto @garner4_26368
  14111.  
  14112. :garner4_26303
  14113. format 21@ "Неверный ID организации. Доступные ID: 1-13."
  14114. call @garner4_17369 1 21@
  14115.  
  14116. :garner4_26368
  14117. goto @garner4_26433
  14118.  
  14119. :garner4_26375
  14120. format 21@ "Используйте /afindd [ID организации]."
  14121. call @garner4_17369 1 21@
  14122.  
  14123. :garner4_26433
  14124. goto @garner4_26526
  14125.  
  14126. :garner4_26440
  14127. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14128. call @garner4_17369 1 21@
  14129.  
  14130. :garner4_26526
  14131. free 21@
  14132. SAMP.CmdRet
  14133.  
  14134. :garner4_26533
  14135. SAMP.IsCommandTyped(20@)
  14136. if
  14137. 0AD4: 21@ = scan_string 20@ format "%i" 22@
  14138. jf @garner4_26962
  14139. if
  14140. SAMP.IsPlayerConnected(22@)
  14141. jf @garner4_26948
  14142. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "player-info" key "id"
  14143. 0BFD: 20@ = get_global_var "ADMINPANEL_FLAG"
  14144. if
  14145. 20@ == 0
  14146. jf @garner4_26913
  14147. Actor.StorePos($PLAYER_ACTOR, 23@, 24@, 25@)
  14148. 0092: 26@ = float 23@ to_integer
  14149. 0AF1: write_int 26@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "x-pos-defore-sp"
  14150. 0092: 26@ = float 24@ to_integer
  14151. 0AF1: write_int 26@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "y-pos-defore-sp"
  14152. 0092: 26@ = float 25@ to_integer
  14153. 0AF1: write_int 26@ to_ini_file "cleo\AdminTools\data\tempdata" section "other" key "z-pos-defore-sp"
  14154. 0BFC: set_global_var "ADMINPANEL_FLAG" = 1
  14155.  
  14156. :garner4_26913
  14157. say "/sp %i" 22@
  14158. 0BFC: set_global_var "first-sp" = 1
  14159. goto @garner4_26962
  14160.  
  14161. :garner4_26948
  14162. say "/sp %i" 22@
  14163.  
  14164. :garner4_26962
  14165. SAMP.CmdRet
  14166.  
  14167. :garner4_26964
  14168. SAMP.IsCommandTyped(20@)
  14169. alloc 21@ 128
  14170. 0C11: memset destination 21@ value 0 size 128
  14171. if
  14172. 0AD4: 23@ = scan_string 20@ format "%i.%i.%i.%i" 22@ 24@ 25@ 26@
  14173. jf @garner4_27131
  14174. format 21@ "%i.%i.%i.%i" 22@ 24@ 25@ 26@
  14175. 0AF5: write_string 21@ to_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "ip"
  14176. 0BFC: set_global_var "lip-status" = 2
  14177. goto @garner4_27501
  14178.  
  14179. :garner4_27131
  14180. if
  14181. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  14182. jf @garner4_27435
  14183. 23@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  14184. if
  14185. SAMP.IsPlayerConnected(22@)
  14186. jf @garner4_27264
  14187. 24@ = SAMP.GetPlayerNickname(22@)
  14188. 0AF5: write_string 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "nickname"
  14189. 0BFC: set_global_var "lip-status" = 1
  14190. goto @garner4_27428
  14191.  
  14192. :garner4_27264
  14193. if
  14194. 003B: 22@ == 23@ // (int)
  14195. jf @garner4_27365
  14196. 23@ = SAMP.GetPlayerNickname(22@)
  14197. 0AF5: write_string 23@ to_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "nickname"
  14198. 0BFC: set_global_var "lip-status" = 1
  14199. goto @garner4_27428
  14200.  
  14201. :garner4_27365
  14202. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  14203. call @garner4_17369 1 21@
  14204.  
  14205. :garner4_27428
  14206. goto @garner4_27501
  14207.  
  14208. :garner4_27435
  14209. format 21@ "Используйте /ilip [ID игрока] или [IP-адрес]."
  14210. call @garner4_17369 1 21@
  14211.  
  14212. :garner4_27501
  14213. free 21@
  14214. SAMP.CmdRet
  14215.  
  14216. :garner4_27508
  14217. alloc 21@ 128
  14218. 0C11: memset destination 21@ value 0 size 128
  14219. 0BFD: 20@ = get_global_var "lip-bans-status"
  14220. if
  14221. 20@ == 0
  14222. jf @garner4_28256
  14223. SAMP.IsCommandTyped(20@)
  14224. if
  14225. 0AD4: 23@ = scan_string 20@ format "%i.%i.%i.%i" 22@ 24@ 25@ 26@
  14226. jf @garner4_27720
  14227. format 21@ "%i.%i.%i.%i" 22@ 24@ 25@ 26@
  14228. 0AF5: write_string 21@ to_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "ip"
  14229. 0BFC: set_global_var "lip-bans-status" = 2
  14230. goto @garner4_28249
  14231.  
  14232. :garner4_27720
  14233. if
  14234. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  14235. jf @garner4_28180
  14236. 23@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  14237. if
  14238. SAMP.IsPlayerConnected(22@)
  14239. jf @garner4_27931
  14240. 24@ = SAMP.GetPlayerNickname(22@)
  14241. 0AF5: write_string 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "nickname"
  14242. 0BFC: set_global_var "lip-bans-status" = 1
  14243. format 21@ "Для прерывания проверки, введите команду еще раз." 22@
  14244. call @garner4_17369 1 21@
  14245. goto @garner4_28173
  14246.  
  14247. :garner4_27931
  14248. if
  14249. 003B: 22@ == 23@ // (int)
  14250. jf @garner4_28110
  14251. 23@ = SAMP.GetPlayerNickname(22@)
  14252. 0AF5: write_string 23@ to_ini_file "cleo\AdminTools\data\tempdata" section "lip" key "nickname"
  14253. 0BFC: set_global_var "lip-bans-status" = 1
  14254. format 21@ "Для прерывания проверки, введите команду еще раз." 22@
  14255. call @garner4_17369 1 21@
  14256. goto @garner4_28173
  14257.  
  14258. :garner4_28110
  14259. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  14260. call @garner4_17369 1 21@
  14261.  
  14262. :garner4_28173
  14263. goto @garner4_28249
  14264.  
  14265. :garner4_28180
  14266. format 21@ "Используйте /lipbans [ID игрока] или [IP-адрес]."
  14267. call @garner4_17369 1 21@
  14268.  
  14269. :garner4_28249
  14270. goto @garner4_28316
  14271.  
  14272. :garner4_28256
  14273. 0BFC: set_global_var "lip-bans-status" = 0
  14274. format 21@ "Проверка прервана."
  14275. call @garner4_17369 1 21@
  14276.  
  14277. :garner4_28316
  14278. free 21@
  14279. SAMP.CmdRet
  14280.  
  14281. :garner4_28323
  14282. 0BFD: 20@ = get_global_var "apay-player-id"
  14283. if
  14284. 20@ == -1
  14285. jf @garner4_28831
  14286. SAMP.IsCommandTyped(20@)
  14287. alloc 21@ 128
  14288. 0C11: memset destination 21@ value 0 size 128
  14289. if
  14290. 0AD4: 24@ = scan_string 20@ format "%i %i" 22@ 23@
  14291. jf @garner4_28760
  14292. if
  14293. SAMP.IsPlayerConnected(22@)
  14294. jf @garner4_28690
  14295. 24@ = SAMP.GetActorHandleByPlayerID(22@)
  14296. if
  14297. 056D: actor 24@ defined
  14298. jf @garner4_28631
  14299. if
  14300. 0104: actor $PLAYER_ACTOR near_actor 24@ radius 3.0 3.0 3.0 sphere 0
  14301. jf @garner4_28572
  14302. 0BFC: set_global_var "apay-player-id" = 22@
  14303. 0AF1: write_int 23@ to_ini_file "cleo\AdminTools\data\tempdata" section "apay" key "amount"
  14304. goto @garner4_28624
  14305.  
  14306. :garner4_28572
  14307. format 21@ "Игрок находится слишком далеко."
  14308. call @garner4_17369 1 21@
  14309.  
  14310. :garner4_28624
  14311. goto @garner4_28683
  14312.  
  14313. :garner4_28631
  14314. format 21@ "Игрок находится слишком далеко."
  14315. call @garner4_17369 1 21@
  14316.  
  14317. :garner4_28683
  14318. goto @garner4_28753
  14319.  
  14320. :garner4_28690
  14321. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  14322. call @garner4_17369 1 21@
  14323.  
  14324. :garner4_28753
  14325. goto @garner4_28819
  14326.  
  14327. :garner4_28760
  14328. format 21@ "Используйте /apay [ID игрока] [сумма]."
  14329. call @garner4_17369 1 21@
  14330.  
  14331. :garner4_28819
  14332. free 21@
  14333. goto @garner4_28851
  14334.  
  14335. :garner4_28831
  14336. 0BFC: set_global_var "apay-player-id" = -1
  14337.  
  14338. :garner4_28851
  14339. SAMP.CmdRet
  14340.  
  14341. :garner4_28853
  14342. alloc 21@ 128
  14343. 0C11: memset destination 21@ value 0 size 128
  14344. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14345. if
  14346. 20@ >= 4
  14347. jf @garner4_29441
  14348. 0BFD: 20@ = get_global_var "rskin-status"
  14349. if
  14350. 20@ == 0
  14351. jf @garner4_29416
  14352. SAMP.IsCommandTyped(20@)
  14353. if
  14354. 0AD4: 24@ = scan_string 20@ format "%i %i" 22@ 23@
  14355. jf @garner4_29349
  14356. if and
  14357. 22@ >= 1
  14358. not 22@ > 311
  14359. not 22@ == 74
  14360. jf @garner4_29303
  14361. if and
  14362. 23@ >= 3
  14363. not 23@ > 80
  14364. jf @garner4_29242
  14365. if
  14366. 0C8A: samp 24@ = get_max_player_id streamed_only 1
  14367. jf @garner4_29181
  14368. 0BFC: set_global_var "rskin-status" = 1
  14369. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "rskin" key "skin"
  14370. 0AF1: write_int 23@ to_ini_file "cleo\AdminTools\data\tempdata" section "rskin" key "radius"
  14371. goto @garner4_29235
  14372.  
  14373. :garner4_29181
  14374. format 21@ "В зоне прорисовки игроков нет." 22@
  14375. call @garner4_17369 1 21@
  14376.  
  14377. :garner4_29235
  14378. goto @garner4_29296
  14379.  
  14380. :garner4_29242
  14381. format 21@ "Укажите радиус от 3 до 80 метров."
  14382. call @garner4_17369 1 21@
  14383.  
  14384. :garner4_29296
  14385. goto @garner4_29342
  14386.  
  14387. :garner4_29303
  14388. format 21@ "Неверный ID скина."
  14389. call @garner4_17369 1 21@
  14390.  
  14391. :garner4_29342
  14392. goto @garner4_29409
  14393.  
  14394. :garner4_29349
  14395. format 21@ "Используйте /rskin [ID скина] [радиус]."
  14396. call @garner4_17369 1 21@
  14397.  
  14398. :garner4_29409
  14399. goto @garner4_29434
  14400.  
  14401. :garner4_29416
  14402. 0BFC: set_global_var "rskin-status" = 0
  14403.  
  14404. :garner4_29434
  14405. goto @garner4_29527
  14406.  
  14407. :garner4_29441
  14408. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14409. call @garner4_17369 1 21@
  14410.  
  14411. :garner4_29527
  14412. free 21@
  14413. SAMP.CmdRet
  14414.  
  14415. :garner4_29534
  14416. alloc 21@ 128
  14417. 0C11: memset destination 21@ value 0 size 128
  14418. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14419. if
  14420. 20@ >= 4
  14421. jf @garner4_30308
  14422. 0BFD: 20@ = get_global_var "rskins-status"
  14423. if
  14424. 20@ == 0
  14425. jf @garner4_30282
  14426. SAMP.IsCommandTyped(20@)
  14427. if
  14428. 0AD4: 25@ = scan_string 20@ format "%i %i %i" 22@ 24@ 23@
  14429. jf @garner4_30187
  14430. if and
  14431. 22@ >= 1
  14432. not 22@ > 311
  14433. not 22@ == 74
  14434. jf @garner4_30133
  14435. if and
  14436. 24@ >= 1
  14437. not 24@ > 311
  14438. not 24@ == 74
  14439. jf @garner4_30079
  14440. if and
  14441. 23@ >= 3
  14442. not 23@ > 80
  14443. jf @garner4_30018
  14444. if
  14445. 0C8A: samp 25@ = get_max_player_id streamed_only 1
  14446. jf @garner4_29957
  14447. 0BFC: set_global_var "rskins-status" = 1
  14448. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "rskins" key "skin1"
  14449. 0AF1: write_int 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "rskins" key "skin2"
  14450. 0AF1: write_int 23@ to_ini_file "cleo\AdminTools\data\tempdata" section "rskins" key "radius"
  14451. goto @garner4_30011
  14452.  
  14453. :garner4_29957
  14454. format 21@ "В зоне прорисовки игроков нет." 22@
  14455. call @garner4_17369 1 21@
  14456.  
  14457. :garner4_30011
  14458. goto @garner4_30072
  14459.  
  14460. :garner4_30018
  14461. format 21@ "Укажите радиус от 3 до 80 метров."
  14462. call @garner4_17369 1 21@
  14463.  
  14464. :garner4_30072
  14465. goto @garner4_30126
  14466.  
  14467. :garner4_30079
  14468. format 21@ "Неверный ID второго скина."
  14469. call @garner4_17369 1 21@
  14470.  
  14471. :garner4_30126
  14472. goto @garner4_30180
  14473.  
  14474. :garner4_30133
  14475. format 21@ "Неверный ID первого скина."
  14476. call @garner4_17369 1 21@
  14477.  
  14478. :garner4_30180
  14479. goto @garner4_30275
  14480.  
  14481. :garner4_30187
  14482. format 21@ "Используйте /rskins [ID первого скина] [ID второго скина] [радиус]."
  14483. call @garner4_17369 1 21@
  14484.  
  14485. :garner4_30275
  14486. goto @garner4_30301
  14487.  
  14488. :garner4_30282
  14489. 0BFC: set_global_var "rskins-status" = 0
  14490.  
  14491. :garner4_30301
  14492. goto @garner4_30394
  14493.  
  14494. :garner4_30308
  14495. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14496. call @garner4_17369 1 21@
  14497.  
  14498. :garner4_30394
  14499. free 21@
  14500. SAMP.CmdRet
  14501.  
  14502. :garner4_30401
  14503. alloc 21@ 128
  14504. 0C11: memset destination 21@ value 0 size 128
  14505. 0BFD: 20@ = get_global_var "auto-skick-status"
  14506. if
  14507. 20@ == 0
  14508. jf @garner4_30827
  14509. SAMP.IsCommandTyped(20@)
  14510. if
  14511. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  14512. jf @garner4_30767
  14513. if
  14514. SAMP.IsPlayerConnected(22@)
  14515. jf @garner4_30697
  14516. 24@ = SAMP.GetPlayerNickname(22@)
  14517. 0AF5: write_string 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "auto-skick" key "nickname"
  14518. 0BFC: set_global_var "auto-skick-status" = 1
  14519. format 21@ "Вы будете автоматически кикать %s без лишнего шума." 24@
  14520. call @garner4_17369 1 21@
  14521. say "/skick %i" 22@
  14522. goto @garner4_30760
  14523.  
  14524. :garner4_30697
  14525. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  14526. call @garner4_17369 1 21@
  14527.  
  14528. :garner4_30760
  14529. goto @garner4_30820
  14530.  
  14531. :garner4_30767
  14532. format 21@ "Используйте /askick [ID игрока]."
  14533. call @garner4_17369 1 21@
  14534.  
  14535. :garner4_30820
  14536. goto @garner4_30934
  14537.  
  14538. :garner4_30827
  14539. format 21@ "Функция автоматического кика игрока без лишнего шума отключена."
  14540. call @garner4_17369 1 21@
  14541. 0BFC: set_global_var "auto-skick-status" = 0
  14542.  
  14543. :garner4_30934
  14544. free 21@
  14545. SAMP.CmdRet
  14546.  
  14547. :garner4_30941
  14548. alloc 21@ 128
  14549. 0C11: memset destination 21@ value 0 size 128
  14550. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14551. if
  14552. 20@ >= 4
  14553. jf @garner4_31428
  14554. SAMP.IsCommandTyped(20@)
  14555. if
  14556. 0AD4: 23@ = scan_string 20@ format "%i" 22@
  14557. jf @garner4_31358
  14558. if
  14559. SAMP.IsPlayerConnected(22@)
  14560. jf @garner4_31288
  14561. if
  14562. 0C2A: 25@ = strchr 20@ char 32
  14563. jf @garner4_31218
  14564. 25@ += 1
  14565. 24@ = SAMP.GetPlayerNickname(22@)
  14566. 0AF5: write_string 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "2warns" key "nickname"
  14567. 0AF5: write_string 25@ to_ini_file "cleo\AdminTools\data\tempdata" section "2warns" key "reason"
  14568. say "/warn %s" 20@
  14569. 0BFC: set_global_var "2warns" = 1
  14570. goto @garner4_31281
  14571.  
  14572. :garner4_31218
  14573. format 21@ "Используйте /2warns [ID игрока] [Причина]."
  14574. call @garner4_17369 1 21@
  14575.  
  14576. :garner4_31281
  14577. goto @garner4_31351
  14578.  
  14579. :garner4_31288
  14580. format 21@ "Игрок с ID [%i] не подключен к серверу." 22@
  14581. call @garner4_17369 1 21@
  14582.  
  14583. :garner4_31351
  14584. goto @garner4_31421
  14585.  
  14586. :garner4_31358
  14587. format 21@ "Используйте /2warns [ID игрока] [Причина]."
  14588. call @garner4_17369 1 21@
  14589.  
  14590. :garner4_31421
  14591. goto @garner4_31514
  14592.  
  14593. :garner4_31428
  14594. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14595. call @garner4_17369 1 21@
  14596.  
  14597. :garner4_31514
  14598. free 21@
  14599. SAMP.CmdRet
  14600.  
  14601. :garner4_31521
  14602. alloc 21@ 128
  14603. 0C11: memset destination 21@ value 0 size 128
  14604. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14605. if
  14606. 20@ >= 4
  14607. jf @garner4_32409
  14608. 0BFD: 20@ = get_global_var "car-spawn-status"
  14609. if
  14610. 20@ == 0
  14611. jf @garner4_32380
  14612. SAMP.IsCommandTyped(20@)
  14613. if
  14614. 0AD4: 27@ = scan_string 20@ format "%i %i %i %i %i" 22@ 23@ 24@ 25@ 26@
  14615. jf @garner4_32271
  14616. if and
  14617. 24@ >= 400
  14618. not 24@ > 611
  14619. jf @garner4_32195
  14620. if and
  14621. 25@ >= 0
  14622. not 25@ > 255
  14623. 26@ >= 0
  14624. not 26@ > 255
  14625. jf @garner4_32115
  14626. 0AF1: write_int 22@ to_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "rows"
  14627. 0AF1: write_int 23@ to_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "car-count"
  14628. 0AF1: write_int 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "car-id"
  14629. 0AF1: write_int 25@ to_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "color1"
  14630. 0AF1: write_int 26@ to_ini_file "cleo\AdminTools\data\tempdata" section "car-spawn" key "color2"
  14631. 0BFC: set_global_var "car-spawn-status" = 1
  14632. format 21@ "Для прерывания спавна Т/С, введите команду еще раз."
  14633. call @garner4_17369 1 21@
  14634. goto @garner4_32188
  14635.  
  14636. :garner4_32115
  14637. format 21@ "ID цвета Т/С должно быть равно значению от 0 до 255."
  14638. call @garner4_17369 1 21@
  14639.  
  14640. :garner4_32188
  14641. goto @garner4_32264
  14642.  
  14643. :garner4_32195
  14644. format 21@ "ID Т/С должно быть равно значению от 400 до 611."
  14645. call @garner4_17369 1 21@
  14646.  
  14647. :garner4_32264
  14648. goto @garner4_32373
  14649.  
  14650. :garner4_32271
  14651. format 21@ "Используйте /carsp [Кол-во рядов] [Кол-во Т/С в ряду] [ID Т/С] [Цвет 1] [Цвет 2]."
  14652. call @garner4_17369 1 21@
  14653.  
  14654. :garner4_32373
  14655. goto @garner4_32402
  14656.  
  14657. :garner4_32380
  14658. 0BFC: set_global_var "car-spawn-status" = 0
  14659.  
  14660. :garner4_32402
  14661. goto @garner4_32495
  14662.  
  14663. :garner4_32409
  14664. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14665. call @garner4_17369 1 21@
  14666.  
  14667. :garner4_32495
  14668. free 21@
  14669. SAMP.CmdRet
  14670.  
  14671. :garner4_32502
  14672. alloc 20@ 128
  14673. 0C11: memset destination 20@ value 0 size 128
  14674. format 20@ "Получение списка названий тем с форума..."
  14675. call @garner4_17369 1 20@
  14676. free 20@
  14677. 0BFC: set_global_var "check-forum" = 1
  14678. SAMP.CmdRet
  14679.  
  14680. :garner4_32606
  14681. alloc 21@ 128
  14682. 0C11: memset destination 21@ value 0 size 128
  14683. 0BFD: 20@ = get_global_var "ADMIN_LVL"
  14684. if
  14685. 20@ >= 4
  14686. jf @garner4_33264
  14687. 0BFD: 20@ = get_global_var "rasform"
  14688. if
  14689. 20@ == 0
  14690. jf @garner4_33192
  14691. SAMP.IsCommandTyped(20@)
  14692. if
  14693. 0AD4: 23@ = scan_string 20@ format "%i %i" 22@ 24@
  14694. jf @garner4_33016
  14695. if and
  14696. 22@ >= 6
  14697. not 22@ > 10
  14698. jf @garner4_32943
  14699. if and
  14700. not 24@ > 45
  14701. 24@ >= 1
  14702. jf @garner4_32859
  14703. 0AF1: write_int 24@ to_ini_file "cleo\AdminTools\data\tempdata" section "rasform" key "players-count"
  14704. 0BFC: set_global_var "rasform" = 22@
  14705. goto @garner4_32936
  14706.  
  14707. :garner4_32859
  14708. format 21@ "Количество игроков должно быть не более 45 и не менее 1."
  14709. call @garner4_17369 1 21@
  14710.  
  14711. :garner4_32936
  14712. goto @garner4_33009
  14713.  
  14714. :garner4_32943
  14715. format 21@ "Расформировать можно только банду (ID: 6-10)."
  14716. call @garner4_17369 1 21@
  14717.  
  14718. :garner4_33009
  14719. goto @garner4_33185
  14720.  
  14721. :garner4_33016
  14722. format 21@ "Используйте /rasform [ID банды] [Количество игроков]*"
  14723. call @garner4_17369 1 21@
  14724. format 21@ "*Количетсво игроков из showall, которых нужно уволить (по убыванию ранга)."
  14725. call @garner4_17369 1 21@
  14726.  
  14727. :garner4_33185
  14728. goto @garner4_33257
  14729.  
  14730. :garner4_33192
  14731. 0BFC: set_global_var "rasform" = 0
  14732. format 21@ "Расформирование банды прервано."
  14733. call @garner4_17369 1 21@
  14734.  
  14735. :garner4_33257
  14736. goto @garner4_33350
  14737.  
  14738. :garner4_33264
  14739. format 21@ "Данная команда предназначена для администраторов 4 уровня и выше."
  14740. call @garner4_17369 1 21@
  14741.  
  14742. :garner4_33350
  14743. free 21@
  14744. SAMP.CmdRet
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!