[CLEO] Helper for ARP Yellow [МВД] - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Admin_Bot, Admin_Bot2, Admin_Bot3, Admin_Bot4  
[CLEO] Helper for ARP Yellow [МВД]
JustRPman Дата: Суббота, 23.01.2016, 14:50 | Сообщение # 1
Новичок
Сообщений: 2
Статус: Offline
CLEO Helper для игроков Жёлтого (Yellow) сервера Advance RP.
Данный helper включает в себя:

  • Сам CLEO файл helper (взят с этого форума)
  • Уголовный кодекс
  • Административный кодекс
  • Устав МВД
  • ПДД

Для работы скрипта требуется: библиотека CLEO и Sampfuncs.
Активация: /heh (можно изменить в файле settings.ini)
Скачать: http://rghost.ru/72WPTQb8N


Сообщение отредактировал JustRPman - Воскресенье, 24.01.2016, 08:15
stfuNigga Дата: Суббота, 23.01.2016, 14:53 | Сообщение # 2
Новичок
Сообщений: 28
Статус: Offline
Стиллера вроде бы нет, код открыт:
Код
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
wait 0
0662: printstring "by legend2360"
0662: printstring "BlastHack - cheating is art"

:NONAME_52
   not SAMP.Available
else_jump @NONAME_73
wait 400
jump @NONAME_52

:NONAME_73
Dialog.Create(0@, "{00ff00}Helper")
call @NONAME_2694 5 0@ 0 0 500 400
Dialog.AddStatic(0@, 1, "{ffff00}Ôàéëû:", 5, 5, 60, 15)
Dialog.AddListBox(0@, 2, 5, 25, 490, 300)
Dialog.AddStatic(0@, 3, "{99ff99}* Äâîéíîé êëèê íà íàçâàíèþ ôàéëà îòêðîåò åãî ñîäåðæèìîå.", 5, 330, 455, 15)
Dialog.AddStatic(0@, 4, "{99ff99}** ×òîáû áûëî óäîáíåå, ìîæåòå ïåðåìåñòèòü îêíî â ëþáîå ìåñòî,", 5, 345, 500, 15)
Dialog.AddStatic(0@, 5, "{99ff99}íàæàâ íà åãî çàãîëîâêå.", 5, 360, 176, 15)
Dialog.AddStatic(0@, 6, "{008AB8}by legend2360", 390, -15, 104, 15)
Dialog.SetVisible(0@, 0)
0C6A: 1@ = create_custom_thread_at_label -2815  
0C6C: set_thread 1@ local_var 0 = 0@
call @NONAME_1570 0

:NONAME_463
wait 0
if
   not Dialog.IsVisible(0@)
else_jump @NONAME_490
jump @NONAME_1563

:NONAME_490
call @NONAME_1976 1 0@
if
0AE4:   directory_exists "CLEO\helper"
else_jump @NONAME_763
call @NONAME_2299 0
0BFD: 1@ = get_global_var "helper.total_folders"
0BFD: 2@ = get_global_var "helper.folders"
alloc 3@ 128
0C11: memset destination 3@ value 0 size 128
1@ -= 1
4@ = 0

:NONAME_619
0C1F: 5@ = string_array 2@ element 4@ size 48
format 3@ "{ffff00}Ïàïêà \"%s\":" 5@
Dialog.ListBoxInsertElement(0@, 2, 3@, 65535, -1)
format 3@ "CLEO\helper\%s\*.txt" 5@
call @NONAME_2118 3 0@ 3@ 4@
4@ += 1
001D:   4@ > 1@ // (int)
else_jump @NONAME_619
free 3@
jump @NONAME_809

:NONAME_763
Dialog.ListBoxInsertElement(0@, 2, "Íè îäíîé ïàïêè íå áûëî íàéäåíî", 65535, -1)

:NONAME_809
Dialog.ListBoxInsertElement(0@, 2, " ", 65535, -1)
Dialog.ListBoxInsertElement(0@, 2, "{cc3333}BlastHack.Net / legend2360", 65534, -1)
Dialog.ListBoxInsertElement(0@, 2, "{99ff99}Thx{ffa500} gcode", 65533, -1)
Dialog.ListBoxInsertElement(0@, 2, "{B848FF}Çàêðûòü", 65532, -1)
alloc 4@ 48
alloc 5@ 128
0C11: memset destination 4@ value 0 size 48
0C11: memset destination 5@ value 0 size 128
0BFD: 6@ = get_global_var "helper.folders"

:NONAME_1003
   Dialog.IsVisible(0@)
else_jump @NONAME_1536
wait 0
if
   not Dialog.IsMinimized(0@)
else_jump @NONAME_1039
SAMP.SetCursorMode(2)

:NONAME_1039
if
   Dialog.PopEvent(0@, 1@, 2@)
else_jump @NONAME_1499
if
  1@ == 1793
else_jump @NONAME_1499
if
  2@ == 2
else_jump @NONAME_1499
Dialog.ListBoxGetSelectedAndCount(0@, 2, 3@, 0)
Dialog.ListBoxGetTextAndData(0@, 2, 3@, 4@, 7@)
if
  7@ == 65535
else_jump @NONAME_1154
jump @NONAME_1529

:NONAME_1154
if or
  7@ == 65534
  7@ == 65533
  7@ == 65532
else_jump @NONAME_1413
if
  7@ == 65534
else_jump @NONAME_1272
chatmsg "[Helper]:{ffffff} by {cc3333}legend2360" 35512
jump @NONAME_1406

:NONAME_1272
if
  7@ == 65533
else_jump @NONAME_1395
chatmsg "[Helper]:{ffffff} Ñïàñèáî {ffa500}gcode{ffffff} çà ñïîñîá ïåðåäâèæåíèÿ äèàëîãà ìûøüþ." 35512
jump @NONAME_1406

:NONAME_1395
Dialog.SetVisible(0@, 0)
SAMP.SetCursorMode(0)

:NONAME_1406
jump @NONAME_1529

:NONAME_1413
0C1F: 8@ = string_array 6@ element 7@ size 48
format 5@ "CLEO\helper\%s\%s.txt" 8@ 4@
call @NONAME_1770 3 5@ 0@ 4@
0C11: memset destination 4@ value 0 size 48
0C11: memset destination 5@ value 0 size 128

:NONAME_1499
if
   SAMP.DialogRespond(566, 1@, 0, 0)
else_jump @NONAME_1529
Dialog.SetMinimized(0@, 0)

:NONAME_1529
jump @NONAME_1003

:NONAME_1536
free 4@
free 5@
SAMP.SetCursorMode(0)
call @NONAME_2087 1 0@

:NONAME_1563
jump @NONAME_463

:NONAME_1570
alloc 0@ 32
0C11: memset destination 0@ value 0 size 32
if
8AF4:   not 0@ = read_string_from_ini_file "CLEO\helper\settings.ini" section "HELPER" key "command"
else_jump @NONAME_1659
format 0@ "shpora"

:NONAME_1659
chatmsg "[Helper]:{ffffff} Àêòèâàöèÿ {008AB8}/%s" 35512 0@
0B34: samp register_client_command 0@ to_label @NONAME_1731
free 0@
ret 0

:NONAME_1731
if
   Dialog.IsVisible(0@)
else_jump @NONAME_1761
Dialog.SetVisible(0@, 0)
jump @NONAME_1768

:NONAME_1761
Dialog.SetVisible(0@, 1)

:NONAME_1768
SAMP.CmdRet

:NONAME_1770
if
3@ = File.Open(0@, "r")
else_jump @NONAME_1971
4@ = File.Size(3@)
4@ += 1
if
  4@ > 4096
else_jump @NONAME_1834
4@ = 4096

:NONAME_1834
alloc 5@ 4@
alloc 6@ 96
0C11: memset destination 5@ value 0 size 4@
0C11: memset destination 6@ value 0 size 96

:NONAME_1868
   not File.EOF(3@)
else_jump @NONAME_1925
if
File.ReadString(3@, 6@, 95)
else_jump @NONAME_1909
0C15: strcat destination 5@ source 6@

:NONAME_1909
0C11: memset destination 6@ value 0 size 96
jump @NONAME_1868

:NONAME_1925
SAMP.ShowDialog(566, 2@, 5@, "Çàêðûòü", "", DIALOG_STYLE_MSGBOX)
Dialog.SetMinimized(1@, 1)
free 5@
free 6@
File.Close(3@)

:NONAME_1971
ret 0

:NONAME_1976
0A90: 2@ = 48 * 200 // int
2@ += 1
alloc 1@ 2@
0C11: memset destination 1@ value 0 size 2@
0BFC: set_global_var "helper.folders" = 1@
0BFC: set_global_var "helper.total_folders" = 0
Dialog.FreeControl(0@, 2)
Dialog.AddListBox(0@, 2, 5, 25, 490, 300)
ret 0

:NONAME_2087
0BFD: 1@ = get_global_var "helper.folders"
free 1@
ret 0

:NONAME_2118
alloc 3@ 48
0C11: memset destination 3@ value 0 size 48
if
0AE6: 4@ = find_first_file 1@ get_filename_to 3@ // IF and SET
else_jump @NONAME_2268
call @NONAME_2790 2 3@ 46
Dialog.ListBoxInsertElement(0@, 2, 3@, 2@, -1)
0C11: memset destination 3@ value 0 size 48

:NONAME_2195
0AE7: 3@ = find_next_file 4@ // IF and SET
else_jump @NONAME_2256
call @NONAME_2790 2 3@ 46
Dialog.ListBoxInsertElement(0@, 2, 3@, 2@, -1)
0C11: memset destination 3@ value 0 size 48
jump @NONAME_2195

:NONAME_2256
0AE8: find_close 4@
jump @NONAME_2289

:NONAME_2268
Dialog.ListBoxInsertElement(0@, 2, "Ïóñòî", 65535, -1)

:NONAME_2289
free 3@
ret 0

:NONAME_2299
alloc 1@ 318
0C11: memset destination 1@ value 0 size 318
0C71: 318 = get_module "kernel32.dll" proc
0203:   actor on_foot
0C71: 318 = get_module "kernel32.dll" proc
0303: show_text_4numbers_highpriority GXT
0C71: 318 = get_module "kernel32.dll" proc
0403:
hex
00 A7 0A 03
end
jump @NONAME_2
0004: 1@ = "CLEO\helper\*"  // Note: the incorrect math opcode was used here
0503: create_actor_on_rope_with_pedtype
hex
00 D6
end
0400: store_coords_to -1 300 15 from_object 84082713 with_offset
hex
04 00
end
   not 5@ == -1
else_jump @NONAME_2684
6@ = 1
0A8E: 7@ = 1@ + 44 // int
alloc 8@ 48
0C11: memset destination 8@ value 0 size 48
9@ = 0
0BFD: 10@ = get_global_var "helper.folders"

:NONAME_2533
   not 6@ == 0
else_jump @NONAME_2644
0C0C: 11@ = struct 1@ offset 0 size 4
if
  11@ == 16
else_jump @NONAME_2618
if
8C25:   not strncmp string1 7@ string2 "." size 1
else_jump @NONAME_2618
0C20: string_array 10@ element 9@ size 48 = 7@
9@ += 1

:NONAME_2618
0AA7: call_function 3@ num_params 2 pop 0 1@ 5@ 6@  
jump @NONAME_2533

:NONAME_2644
0BFC: set_global_var "helper.total_folders" = 9@
0AA5: call 4@ num_params 1 pop 0 5@  

:NONAME_2684
free 1@
ret 0

:NONAME_2694
SAMP.GetScreenResolution(5@, 6@)
5@ /= 2
6@ /= 2
0A91: 7@ = 3@ / 2 // int
0A91: 8@ = 4@ / 2 // int
0062: 5@ -= 7@ // (int)
005A: 5@ += 1@ // (int)
0062: 6@ -= 8@ // (int)
005A: 6@ += 2@ // (int)
Dialog.SetRECT(0@, 5@, 6@, 3@, 4@)
ret 0

:NONAME_2790
0C2C: 2@ = strrchr 0@ char 1@
0C11: memset destination 2@ value 0 size 1
ret 0
0000: NOP

:NONAME_2817
wait 0
if and
   Dialog.IsExists(0@)
   Dialog.IsVisible(0@)
else_jump @NONAME_2917
if
key_down 1
else_jump @NONAME_2917
Dialog.GetRECT(0@, 1@, 2@, 0, 0)
if
call @NONAME_2924 4 1@ 2@ 620 15
else_jump @NONAME_2917
call @NONAME_3014 1 0@

:NONAME_2917
jump @NONAME_2817

:NONAME_2924
0B5E: get_cursor_pos 4@ 5@
if and
001D:   4@ > 0@ // (int)
001D:   5@ > 1@ // (int)
else_jump @NONAME_3009
005A: 0@ += 2@ // (int)
005A: 1@ += 3@ // (int)
if and
001D:   0@ > 4@ // (int)
001D:   1@ > 5@ // (int)
else_jump @NONAME_3009
ret 0 1

:NONAME_3009
ret 0

:NONAME_3014
0B5E: get_cursor_pos 1@ 2@
Dialog.GetRECT(0@, 3@, 4@, 5@, 6@)
0062: 1@ -= 3@ // (int)
0062: 2@ -= 4@ // (int)

:NONAME_3055
key_down 1
else_jump @NONAME_3118
wait 0
0B5E: get_cursor_pos 3@ 4@
0062: 3@ -= 1@ // (int)
0062: 4@ -= 2@ // (int)
Dialog.SetRECT(0@, 3@, 4@, 5@, 6@)
jump @NONAME_3055

:NONAME_3118
ret 0
dragoviq2011 Дата: Суббота, 23.01.2016, 16:28 | Сообщение # 3
Боец
Сообщений: 69
Статус: Offline
В какую папку кидать? Сорь за глупый вопрос smile
stfuNigga Дата: Суббота, 23.01.2016, 16:50 | Сообщение # 4
Новичок
Сообщений: 28
Статус: Offline
Цитата dragoviq2011 ()
В какую папку кидать? Сорь за глупый вопрос

cleo
[CM]App1e Дата: Суббота, 23.01.2016, 20:25 | Сообщение # 5
КУПЛЮ АДМИНКУ СРП
Сообщений: 1784
Статус: Offline
Скрипт чистый.
Цитата dragoviq2011 ()
В какую папку кидать? Сорь за глупый вопрос

В папку с CLEO.


Продам админку SAMP-RP: http://cheat-master.ru/forum/96-565203-1
stfuNigga Дата: Среда, 06.04.2016, 13:42 | Сообщение # 6
Новичок
Сообщений: 28
Статус: Offline
как сделать, чтобы категории шли по порядку (как в папке)?

Добавлено (06.04.2016, 13:42)
---------------------------------------------
У кого нибудь есть готовая шпора, только под Purple сервер?

[CM]Madara Дата: Среда, 26.10.2016, 18:00 | Сообщение # 7
Боец
Сообщений: 169
Статус: Offline
Благодарю
[CM]Рафаэль Дата: Пятница, 15.12.2017, 22:49 | Сообщение # 8
Cheat-Master
Сообщений: 3080
Статус: Offline
битая ссылка



Мой Shop
Официальный гарант

Контактные данные:
VK: vk.com/ali_benua
Skype: lvinyipen
Telegram: @AliBenua
ICQ: 552-090-283
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7210]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи
dhcjcjcc [01:45]

Seriesfee [01:30]

ggrereTr6 [18:02]

IgromanPlay [12:55]

Ascentspd [01:46]

MrakCS [00:59]

Nikusrr [22:54]

grwrgwgeg32 [18:51]

davidik31 [18:34]

Bogdanopp [12:41]

Jarkoe [22:48]

alsik [23:22]

Temchiiiik [21:27]