|
[CLEO] Помощь по редактированию скриптов
|
|
| Castiellll |
Дата: Суббота, 05.09.2015, 21:57 | Сообщение # 631
|
Боец
Сообщений: 110
Статус: Offline
|
Код {$CLEO .cs}
//-------------MAIN---------------
if
0@ = SAMP.Base()
else_jump @Noname_16
:Noname_16
not SAMP.Available
else_jump @Noname_36
wait 100
jump @Noname_16
:Noname_36
0B34: samp register_client_command "gg" to_label @Noname_160
0B34: samp register_client_command "wp" to_label @Noname_325
wait 0
if
30@ == 1
else_jump @Noname_153
call @Noname_490 1 100.0 27@ 28@ 29@
wait 100
if and
0045: 2248.3767 == 27@ // (float)
0045: -1207.5602 == 28@ // (float)
0045: 1049.0234 == 29@ // (float)
else_jump @Noname_222
0AF8: samp add_message_to_chat "ÑÎÂÏÀÄÀÞÒ!" color 65280
:Noname_153
jump @Noname_36
:Noname_222
0AF8: samp add_message_to_chat "ÍÅ ÑÎÂÏÀÄÀÞÒ!" color 65280
jump @Noname_36
:Noname_160
30@ = 1
SAMP.CmdRet
:Noname_325
30@ = 0
SAMP.CmdRet
:Noname_490
10@ = 13098328
6@ = 3
:Noname_507
0085: 14@ = 6@ // (int)
14@ *= 160
0A8E: 13@ = 10@ + 14@ // int
0A8E: 11@ = 13@ + 48 // int
0A8D: 3@ = read_memory 11@ size 4 virtual_protect 0
0A8E: 11@ = 13@ + 52 // int
0A8D: 4@ = read_memory 11@ size 4 virtual_protect 0
0A8E: 11@ = 13@ + 56 // int
0A8D: 5@ = read_memory 11@ size 4 virtual_protect 0
if and
not 3@ == 0.0
not 4@ == 0.0
else_jump @Noname_681
Actor.StorePos($PLAYER_ACTOR, 20@, 21@, 22@)
0509: 12@ = distance_between_XY 3@ 4@ and_XY 20@ 21@
if
0025: 12@ > 0@ // (float)
else_jump @Noname_702
:Noname_681
6@ += 1
6@ > 32
else_jump @Noname_507
:Noname_702
ret 3 3@ 4@ 5@
Варнинги, в чём ошибка?
s
|
|
|
|
|
| DubStep_ |
Дата: Суббота, 05.09.2015, 21:57 | Сообщение # 632
|
{ }
Сообщений: 1406
Статус: Offline
|
У тебя бесконечно регистрируются команды, исправь. Потом еще ошибки где скажем Добавлено (07.08.2014, 23:47)
---------------------------------------------
Блин я от этого кода фигею
|
|
|
|
|
| Castiellll |
Дата: Суббота, 05.09.2015, 21:57 | Сообщение # 633
|
Боец
Сообщений: 110
Статус: Offline
|
DubStep_, Код {$CLEO .cs}
//-------------MAIN---------------
if
0@ = SAMP.Base()
else_jump @Noname_16
:Noname_16
not SAMP.Available
else_jump @Noname_36
wait 100
jump @Noname_16
:Noname_36
0B34: samp register_client_command "gg" to_label @Noname_160
0B34: samp register_client_command "wp" to_label @Noname_325
wait 0
if
30@ == 1
else_jump @Noname_153
:Noname_777
call @Noname_490 1 100.0 27@ 28@ 29@
wait 100
if and
0045: 2248.3767 == 27@ // (float)
0045: -1207.5602 == 28@ // (float)
0045: 1049.0234 == 29@ // (float)
else_jump @Noname_222
0AF8: samp add_message_to_chat "ÑÎÂÏÀÄÀÞÒ!" color 65280
:Noname_153
jump @Noname_777
:Noname_222
0AF8: samp add_message_to_chat "ÍÅ ÑÎÂÏÀÄÀÞÒ!" color 65280
jump @Noname_777
:Noname_160
30@ = 1
SAMP.CmdRet
:Noname_325
30@ = 0
SAMP.CmdRet
:Noname_490
10@ = 13098328
6@ = 3
:Noname_507
0085: 14@ = 6@ // (int)
14@ *= 160
0A8E: 13@ = 10@ + 14@ // int
0A8E: 11@ = 13@ + 48 // int
0A8D: 3@ = read_memory 11@ size 4 virtual_protect 0
0A8E: 11@ = 13@ + 52 // int
0A8D: 4@ = read_memory 11@ size 4 virtual_protect 0
0A8E: 11@ = 13@ + 56 // int
0A8D: 5@ = read_memory 11@ size 4 virtual_protect 0
if and
not 3@ == 0.0
not 4@ == 0.0
else_jump @Noname_681
Actor.StorePos($PLAYER_ACTOR, 20@, 21@, 22@)
0509: 12@ = distance_between_XY 3@ 4@ and_XY 20@ 21@
if
0025: 12@ > 0@ // (float)
else_jump @Noname_702
:Noname_681
6@ += 1
6@ > 32
else_jump @Noname_507
:Noname_702
ret 3 3@ 4@ 5@
s
|
|
|
|
|
| RAKSHA1337 |
Дата: Суббота, 05.09.2015, 21:57 | Сообщение # 634
|
Советник
Сообщений: 784
Статус: Offline
|
Castiellll,  хммм наверно проблема в этом.
Цитата DubStep_ (  ) бесконечно регистрируются команды
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
|
|
|
|
|
| Castiellll |
Дата: Суббота, 05.09.2015, 21:57 | Сообщение # 635
|
Боец
Сообщений: 110
Статус: Offline
|
RAKSHA1337, Код {$CLEO .cs}
//-------------MAIN---------------
if
0@ = SAMP.Base()
else_jump @Noname_16
:Noname_16
not SAMP.Available
else_jump @Noname_36
wait 100
jump @Noname_16
:Noname_36
0B34: samp register_client_command "gg" to_label @Noname_160
0B34: samp register_client_command "wp" to_label @Noname_325
:Noname_777
wait 0
if
30@ == 1
else_jump @Noname_153
call @Noname_490 1 100.0 27@ 28@ 29@
wait 100
if and
0045: 2248.3767 == 27@ // (float)
0045: -1207.5602 == 28@ // (float)
0045: 1049.0234 == 29@ // (float)
else_jump @Noname_222
0AF8: samp add_message_to_chat "ÑÎÂÏÀÄÀÞÒ!" color 65280
:Noname_153
jump @Noname_777
:Noname_222
0AF8: samp add_message_to_chat "ÍÅ ÑÎÂÏÀÄÀÞÒ!" color 65280
jump @Noname_777
:Noname_160
30@ = 1
jump @Noname_777
:Noname_325
30@ = 0
jump @Noname_777
:Noname_490
10@ = 13098328
6@ = 3
:Noname_507
0085: 14@ = 6@ // (int)
14@ *= 160
0A8E: 13@ = 10@ + 14@ // int
0A8E: 11@ = 13@ + 48 // int
0A8D: 3@ = read_memory 11@ size 4 virtual_protect 0
0A8E: 11@ = 13@ + 52 // int
0A8D: 4@ = read_memory 11@ size 4 virtual_protect 0
0A8E: 11@ = 13@ + 56 // int
0A8D: 5@ = read_memory 11@ size 4 virtual_protect 0
if and
not 3@ == 0.0
not 4@ == 0.0
else_jump @Noname_681
Actor.StorePos($PLAYER_ACTOR, 20@, 21@, 22@)
0509: 12@ = distance_between_XY 3@ 4@ and_XY 20@ 21@
if
0025: 12@ > 0@ // (float)
else_jump @Noname_702
:Noname_681
6@ += 1
6@ > 32
else_jump @Noname_507
:Noname_702
ret 3 3@ 4@ 5@
s
Сообщение отредактировал Castiellll - Пятница, 08.08.2014, 14:51 |
|
|
|
|
| RAKSHA1337 |
Дата: Суббота, 05.09.2015, 21:57 | Сообщение # 636
|
Советник
Сообщений: 784
Статус: Offline
|
Castiellll, попробуй за место 0045
использовать 0043: 3@ == 0.2
ИИИ выход из команд сделай, а то зависать будет.
Сделаешь, расскажешь что происходит и при каких условиях. По подробнее.
p.s. может дабстеп чё добавит.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
|
|
|
|
|
| Castiellll |
Дата: Суббота, 05.09.2015, 21:58 | Сообщение # 637
|
Боец
Сообщений: 110
Статус: Offline
|
RAKSHA1337, Всё работает , только координаты не совпадают. Я как делал , нашёл их через функцию и в чат вывел через 0.2f. Потом записал 0043: 27@ == 495.41
s
|
|
|
|
|
| Bedolaga21 |
Дата: Суббота, 05.09.2015, 21:58 | Сообщение # 638
|
Новичок
Сообщений: 1
Статус: Offline
|
Всех приветствую! В этом скрипте при вводе команды /pinf выходит меню в котором нужно выбирать нужные тебе параметры которые будут показываться около скина игроков текстдрайвом (Пинг,уровень,хп и броня).Но при каждом релоге необходимо снова вводить команду и выбирать параметры.И дальность показа этих текстдрайвов на скине велика+видно сквозь текстуры(Как WH).Как сделать так,чтобы при заходе на сервер сразу показывалось хп и броня,и дальность прорисовки была как у обычной полоски ХП над головой у игроков+чтоб не просвечивало сквозь текстуры?
P.S
Сразу отвечу на вопрос зачем тебе это если эти параметры есть у игроков над головами? На моём ноутбуке Lenovo ХП и брони над головами игроков не показывает,причину выяснить немогу.
Код
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
thread "pinf"
:PINF_8
not SAMP.Available
else_jump @PINF_28
wait 100
goto @PINF_8
:PINF_28
0AF8: samp add_message_to_chat "[hnnssy | PI] {EAEAEA}Players informer. {00CCFF}/pinf {EAEAEA}— îòêðûòü íàñòðîéêè. Àâòîð: {00CCFF}hnnssy" color 52479
0DC3: show_text_box "Acheats.RU (c) 2014 | _mgmoldova edition"
0B34: samp register_client_command "pinf" to_label @PINF_908
Dialog.Create(28@, "{00CCFF}P-INFORMER")
SAMP.GetScreenResolution(26@, 27@)
26@ /= 2
27@ /= 2
26@ -= 70
27@ -= 50
Dialog.SetRECT(28@, 26@, 27@, 140, 100)
Dialog.AddCheckBox(28@, 1, "HP", 10, 20, 50, 15)
Dialog.AddCheckBox(28@, 2, "AP", 10, 40, 50, 15)
Dialog.AddCheckBox(28@, 3, "Ping", 70, 20, 60, 15)
Dialog.AddCheckBox(28@, 4, "Level", 70, 40, 60, 15)
Dialog.SetBackgroundColor(28@, -99999999)
Dialog.SetVisible(28@, 0)
:PINF_374
wait 0
0@ = 0
:PINF_385
03F0: enable_text_draw 1
if
SAMP.IsPlayerConnected(0@)
else_jump @PINF_879
1@ = SAMP.GetActorHandleByPlayerID(0@)
if
056D: actor 1@ defined
else_jump @PINF_879
alloc 21@ 32
Actor.StorePos(1@, 25@, 26@, 27@)
SAMP.Convert3DCoordsToScreen(25@, 26@, 27@, 3@, 4@)
if and
00C2: sphere_onscreen 25@ 26@ 27@ radius 0.0
00FE: actor $PLAYER_ACTOR sphere 0 in_sphere 25@ 26@ 27@ radius 150.0 150.0 150.0
else_jump @PINF_879
if
Dialog.CheckBoxIsChecked(28@, 1)
else_jump @PINF_611
2@ = SAMP.GetPlayerHealthByActorHandle(0@)
format 21@ "HP: {EAEAEA}%d" 2@
4@ += 12
0D94: draw_text 21@ pos_xy 3@ 4@ align_xy 0.5 0.0 color 52479 shadow 1
:PINF_611
if
Dialog.CheckBoxIsChecked(28@, 2)
else_jump @PINF_697
7@ = SAMP.GetPlayerArmorByActorHandle(0@)
format 21@ "AP: {EAEAEA}%d" 7@
4@ += 12
0D94: draw_text 21@ pos_xy 3@ 4@ align_xy 0.5 0.0 color 52479 shadow 1
:PINF_697
if
Dialog.CheckBoxIsChecked(28@, 3)
else_jump @PINF_785
8@ = SAMP.GetPlayerPing(0@)
format 21@ "Ping: {EAEAEA}%d" 8@
4@ += 12
0D94: draw_text 21@ pos_xy 3@ 4@ align_xy 0.5 0.0 color 52479 shadow 1
:PINF_785
if
Dialog.CheckBoxIsChecked(28@, 4)
else_jump @PINF_874
9@ = SAMP.GetPlayerScore(0@)
format 21@ "Level: {EAEAEA}%d" 9@
4@ += 12
0D94: draw_text 21@ pos_xy 3@ 4@ align_xy 0.5 0.0 color 52479 shadow 1
:PINF_874
free 21@
:PINF_879
0@ += 1
0@ > 1000
else_jump @PINF_385
goto @PINF_374
:PINF_908
0B12: 10@ = 10@ XOR 1
if
10@ == 1
else_jump @PINF_947
Dialog.SetVisible(28@, 1)
SAMP.ToggleCursor(1)
:PINF_947
if
10@ == 0
else_jump @PINF_976
Dialog.SetVisible(28@, 0)
SAMP.ToggleCursor(0)
:PINF_976
SAMP.CmdRet
Сообщение отредактировал Bedolaga21 - Воскресенье, 10.08.2014, 13:39 |
|
|
|
|
| alexipru |
Дата: Суббота, 05.09.2015, 21:58 | Сообщение # 639
|
Боец
Сообщений: 72
Статус: Offline
|
Здравствуйте,прошу помощи а имено в обновленном мопе NOP Send Death(не передеает инфу об убийцы ) собейт не предлагать ищу в клео.им пользовался еще на 0.3x
|
|
|
|
|
| Кoт |
Дата: Суббота, 05.09.2015, 21:58 | Сообщение # 640
|
Сообщений: 1074
Статус: Offline
|
Цитата alexipru ( ) Здравствуйте,прошу помощи а имено в обновленном мопе NOP Send Death(не передеает инфу об убийцы ) собейт не предлагать ищу в клео.им пользовался еще на 0.3x
это тема не предназначена для поиска клео скриптов
вот тебе адрес нопа и делай клео сам,это просто
"NOP SendDeath" 0x4A90 "" "C390"
|
|
|
|
|
| fak0098 |
Дата: Суббота, 05.09.2015, 21:58 | Сообщение # 641
|
Новичок
Сообщений: 7
Статус: Offline
|
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
03A4: name_thread "Warmix"
0000: NOP
0662: printstring ">==============================<"
0662: printstring ">Бот для работы на нахте<"
0662: printstring ">Сервер: DiamondRP<"
0662: printstring ">Автор: ВарМих<"
0662: printstring ">Сайт: Cheat-Master.ru<"
0662: printstring ">==============================<"
0B34: samp register_client_command "shaxon" to_label @Warmix_701
0B34: samp register_client_command "shaxoff" to_label @Warmix_710
0001: wait 5000 ms
0AF8: samp add_message_to_chat "{FF0000}>{483D8B}=============================={FF0000}<" color 6908265
0AF8: samp add_message_to_chat "{FF0000}>{483D8B}Бот шахтёр: {8470FF}Загружен{FF0000}<" color 6908265
0AF8: samp add_message_to_chat "{FF0000}>{483D8B}Сервер: {8470FF}Diamond RP{FF0000}<" color 6908265
0AF8: samp add_message_to_chat "{FF0000}>{483D8B}Автор: {8470FF}ВарМих{FF0000}<" color 6908265
0AF8: samp add_message_to_chat "{FF0000}>{483D8B}Сайт: {8470FF}Cheat-Master.ru{FF0000}<" color 6908265
0AF8: samp add_message_to_chat "{FF0000}>{483D8B}=============================={FF0000}<" color 6908265
:Warmix_598
0001: wait 0 ms
00D6: if
0039: 1@ == 1
004D: jump_if_false @Warmix_694
00A0: store_actor $PLAYER_ACTOR position_to 3@ 4@ 5@
0DB4: 6@ = nearset marker to position x 3@ y 4@ radius 100.0 //IF AND SET
0001: wait 100 ms
0DB3: marker 6@ position to x 7@ y 8@ z 9@ //IF AND SET
0AB3: var 740 = 3
05D3: AS_actor $PLAYER_ACTOR goto_point 7@ 8@ 9@ mode 6 time 15000 ms // versionA
:Warmix_694
0002: jump @Warmix_598
:Warmix_701
0006: 1@ = 1
0B43: samp cmd_ret
:Warmix_710
0AB3: var 740 = 0
0687: clear_actor $PLAYER_ACTOR task
0006: 1@ = 0
0B43: samp cmd_ret
это бот для Шахты диамонд там рандомные метки . Нужно переделать его в БОТ ДЛЯ ЛЕСОпилки. Там также рандомные метки но он у деревьев стоит несколько секунд . И Бот должен ХОДИТЬ. А не бегать
|
|
|
|
|
| alexipru |
Дата: Суббота, 05.09.2015, 21:58 | Сообщение # 642
|
Боец
Сообщений: 72
Статус: Offline
|
Цитата Кoт ( ) это тема не предназначена для поиска клео скриптов
вот тебе адрес нопа и делай клео сам,это просто
"NOP SendDeath" 0x4A90 "" "C390"
Я бы сделал но не умею с 0 делать могу редактить прекрасно но с 0 не как
Сообщение отредактировал alexipru - Суббота, 16.08.2014, 19:13 |
|
|
|
|
| DubStep_ |
Дата: Суббота, 05.09.2015, 21:59 | Сообщение # 643
|
{ }
Сообщений: 1406
Статус: Offline
|
Цитата alexipru ( ) Здравствуйте,прошу помощи а имено в обновленном мопе NOP Send Death(не передеает инфу об убийцы ) собейт не предлагать ищу в клео.им пользовался еще на 0.3x
Если на samp-rp тебе нужно чтобы тащить пейнтболлы \ терры \ не сажаться от выстрелов копов в тебя.. То это фикс там
|
|
|
|
|
| alexipru |
Дата: Суббота, 05.09.2015, 21:59 | Сообщение # 644
|
Боец
Сообщений: 72
Статус: Offline
|
Цитата DubStep_ ( ) Если на samp-rp тебе нужно чтобы тащить пейнтболлы \ терры \ не сажаться от выстрелов копов в тебя.. То это фикс там
Да не самп рп я на адвансе юзал потом на опр если че заливал да и копы не садили ну короче клевое было а потом потерял клео,да и активация там была на /death...тобишь один раз вел и все я даже не помню где находил его по моему CM
Сообщение отредактировал alexipru - Суббота, 16.08.2014, 19:40 |
|
|
|
|
| [CM]Perez[CM] |
Дата: Суббота, 05.09.2015, 21:59 | Сообщение # 645
|
Боец
Сообщений: 92
Статус: Offline
|
Привет всем!
Надо переделать под адванс вот этот клео скрипт --- http://cheat-master.ru/forum/129-288300-1
Я сам пытался но мне выдает ошибку ----Неверное выражение 10@ = SAMP.Base().
Одна из переменных имеет неизвестный тип, либо их типы несовместимы.
Я сам короче в этом не про.
Так вот надо в клео вместо команды /changehouse поставить команду /sellmyhome ( Это команда для продажи дома на адвансе)
/changecar надо /sellmycar (команда продажи авто )
и еще надо чтобы когда напишешь dr15,у игрока прописывалось /q (это команда выхода из сампа )
ну вот и все!
Если кто поможет буду очень благодарен! в лс файл киньте!
А если получиться у кого то авто и дом угнать то я с вами поделюсь 
Если нужна помощь в поиске чего либо или просто помощь пиши в ЛС.Помогу чем нибудь.
ВК-- https://vk.com/id94548022
Мои достижения:
365 дней на CM [+] 200 репутации [+] Пользователь [+]
500 дней на СМ [+] 500 репутации [+] Клан CM [-]
1000 дней на CM [+] 1000 репутации [-] Проверенный [-]
1500 дней на CM [-] 2000 репутации [-] Админ-Совет [-] Это не скоро :D
|
|
|
|
|
