| 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
|
|
|
|
|
| stfuNigga |
Дата: Среда, 06.04.2016, 13:42 | Сообщение # 6
|
Новичок
Сообщений: 28
Статус: Offline
|
как сделать, чтобы категории шли по порядку (как в папке)? Добавлено (06.04.2016, 13:42) --------------------------------------------- У кого нибудь есть готовая шпора, только под Purple сервер?
|
|
|
|
|