[CLEO] Вопрос - Ответ - Страница 270 - Форум Cheat-Master.ru
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » CLEO Программирование » [CLEO] Вопрос - Ответ
[CLEO] Вопрос - Ответ
[CM]Рафаэль Дата: Суббота, 05.09.2015, 20:19 | Сообщение # 1
Cheat-Master
Сообщений: 3080
Статус: Offline

В этой теме задаются вопросы по CLEO, конкретным опкодам (например, назначение того или иного опкода) и т.д.


Форма вопроса:
Код
[color=#1E90FF][b]Вопрос:[/b][/color] text


Форма ответа:
Код
[color=#1E90FF][b]Ответ:[/b][/color] text



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

Контактные данные:
VK: vk.com/ali_benua
Skype: lvinyipen
Telegram: @AliBenua
ICQ: 552-090-283
BlackxWhite Дата: Воскресенье, 12.02.2017, 17:23 | Сообщение # 4036
Новичок
Сообщений: 22
Статус: Offline
Всем привет!
Не подскажет никто, есть ли еще "dgun" для Advance-Rp (рабочий)
Если да, то где скачать ?)
P.s. в поиске ничего не нашел, спасибо за помощь.
SunsetStorm Дата: Среда, 01.03.2017, 16:03 | Сообщение # 4037
Новичок
Сообщений: 6
Статус: Offline
Как сделать при вводе локальной команды использование 2-3х серверных команд?
roma_caddy Дата: Среда, 01.03.2017, 18:24 | Сообщение # 4038
Боец
Сообщений: 89
Статус: Offline
Цитата SunsetStorm ()
Как сделать при вводе локальной команды использование 2-3х серверных команд?

Код
{$CLEO}
0000:
repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command {òâîÿ êîìàíäà}"cmd" to_label @label

while true
wait 0
    if 30@ == 1
    then
        say {òâîé òåêñò}" "
        wait{çàäåæêà ìåæäó ñîîáùåíèåì} 1000
        say {òâîé òåêñò}" "
        wait{çàäåæêà ìåæäó ñîîáùåíèåì} 1000
        say {òâîé òåêñò}" "
        30@ = 0
    end
end

:label
30@ = 1
samp.CmdRet()

вставь в сани билдер и коментарии будут на русском.


Сообщение отредактировал roma_caddy - Среда, 01.03.2017, 18:25
SunsetStorm Дата: Среда, 01.03.2017, 21:17 | Сообщение # 4039
Новичок
Сообщений: 6
Статус: Offline
Цитата roma_caddy ()
вставь в сани билдер и коментарии будут на русском.

Забыл уточнить, что мне надо, чтобы там была переменная с идом игрока. Ну ладно, дальше я сам разберусь, спасибо smile
UPD: Не разобрался. Нужна хелпа biggrin


Сообщение отредактировал SunsetStorm - Среда, 01.03.2017, 21:34
roma_caddy Дата: Четверг, 02.03.2017, 16:02 | Сообщение # 4040
Боец
Сообщений: 89
Статус: Offline
Цитата SunsetStorm ()
UPD: Не разобрался. Нужна хелпа

Код
{$CLEO}
0000:
repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command {твоя команда}"cmd" to_label @label

while true
wait 0
    if 30@ == 1
    then
        say {твой текст}"Я ввел после команды цифру - %d" 1@
        wait{задежка между сообщением} 1000
        say {твой текст}" "
        wait{задежка между сообщением} 1000
        say {твой текст}" "
        30@ = 0
    end
end

:label
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 1@
jf @err
{ так мы просканировав строку после команды, получаем введеный ид в переменную 1@ в ней теперь ид игрока, если команда была введена без каких либо значений, прыгаем на лабел :err }
30@ = 1 // присваеваем переменной 30@ = 1 чтобы цикл начал работу
samp.CmdRet()

:err
samp.CmdRet()

вроде понятно там прокоментировал. в переменной 1@ запишется число которое ты ввел после команды, вводи ид игрока.
SunsetStorm Дата: Четверг, 02.03.2017, 17:43 | Сообщение # 4041
Новичок
Сообщений: 6
Статус: Offline
roma_caddy,
Цитата roma_caddy ()
вроде понятно там прокоментировал. в переменной 1@ запишется число которое ты ввел после команды, вводи ид игрока.

У меня проблема образовалась. Как сделать несколько команд по такому принципу? 1 команду я настроил и благодаря тебе я разобрался как это все делается и понял. Я приготовил еще несколько команд, но я не знаю как их собрать в 1 скрипт?
roma_caddy Дата: Четверг, 02.03.2017, 20:04 | Сообщение # 4042
Боец
Сообщений: 89
Статус: Offline
Цитата SunsetStorm ()
У меня проблема образовалась. Как сделать несколько команд по такому принципу? 1 команду я настроил и благодаря тебе я разобрался как это все делается и понял. Я приготовил еще несколько команд, но я не знаю как их собрать в 1 скрипт?

Код
{$CLEO}
0000:
repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "cmd" to_label @label
0B34: samp register_client_command "cmd2" to_label @label2
0B34: samp register_client_command "cmd3" to_label @label3

while true
wait 0
    if 30@ == 1
    then
        say {text} "ÿ ââåë ïåðâóþ êîìàíäó è ïîñëå íåå - %d " 1@
        wait 1000
        say {text} " - %d " 1@
        wait 1000
        say {text} " - %d " 1@
        30@ = 0
    end
    
    if 29@ == 1
    then
        say {text} "ÿ ââåë âòîðóþ êîìàíäó è ïîñëå íåå - %d " 1@
        wait 1000
        say {text} " - %d " 1@
        wait 1000
        say {text} "- %d " 1@
        29@ = 0
    end
    
    if 28@ == 1
    then
        say {text} "ÿ ââåë òðåòüþ êîìàíäó è ïîñëå íåå - %d " 1@
        wait 1000
        say {text} " - %d " 1@
        wait 1000
        say {text} "- %d " 1@
        28@ = 0
    end
end

:label
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 1@
jf @err
30@ = 1
samp.CmdRet()

:label2
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 1@
jf @err
29@ = 1
samp.CmdRet()

:label3
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 1@
jf @err
28@ = 1
samp.CmdRet()

:err
samp.CmdRet()


Cоздаешь другую команду, назначаешь в ней активацию на другую переменную. и переменные в цикл(в коде покопайся, поймешь)
Могу посоветовать канал DarkP1xel'a самые годные уроки по cleo скриптам - сlick
SunsetStorm Дата: Пятница, 03.03.2017, 14:22 | Сообщение # 4043
Новичок
Сообщений: 6
Статус: Offline
Поискал в интернете, чет не нашел. Как сделать отправку рандомной команды?
Пример: Пишу /privet - в чат отправляется "/s Привет", либо "/s Здарова", либо "/s Здравствуй".
Alllss Дата: Пятница, 03.03.2017, 20:07 | Сообщение # 4044
Боец
Сообщений: 67
Статус: Offline
Цитата SunsetStorm ()
Как сделать отправку рандомной команды?

0209: 2@ = random_int_in_ranges 0@ 1@
Дальше у тебя выше есть пример
SunsetStorm Дата: Среда, 08.03.2017, 01:47 | Сообщение # 4045
Новичок
Сообщений: 6
Статус: Offline
Код
    repeat
    wait 0
    until 0B61: samp is_local_player_spawned
    wait 4000
    0af9: "/cvet 87"
end

:dead
wait 0
if
Actor.Dead($PLAYER_ACTOR)
else_jump @dead
wait 3500
0AF9: samp say_msg "/cvet 87"

:dead2
wait 0
if
not Actor.Dead($PLAYER_ACTOR)
else_jump @dead2
jump @dead
samp.CmdRet()


У меня цикл не прекращается. Вот как пофиксить, я не понимаю(((


Сообщение отредактировал SunsetStorm - Среда, 08.03.2017, 10:44
Igor1331 Дата: Среда, 08.03.2017, 12:54 | Сообщение # 4046
Новичок
Сообщений: 1
Статус: Offline
Всем привет! Хотел спросить вот , а возможно сделать так что бы cleo скрипт работал в машине , пользуюсь старой игрой gta 3.
Помогите пожалуйста может нужно дополнить что-то в файле .cs ?
Mda_Heh Дата: Четверг, 09.03.2017, 11:22 | Сообщение # 4047
Любитель
Сообщений: 44
Статус: Offline
Вопрос: Как сделать автоматическое нажатие кнопки в диалоге САМПа? Не пункта в меню, а именно кнопки. Если кому не трудно - дайте готовый код с пояснениями.

Сообщение отредактировал Mda_Heh - Четверг, 09.03.2017, 11:30
roma_caddy Дата: Четверг, 09.03.2017, 17:24 | Сообщение # 4048
Боец
Сообщений: 89
Статус: Offline
Цитата Mda_Heh ()
Вопрос: Как сделать автоматическое нажатие кнопки в диалоге САМПа? Не пункта в меню, а именно кнопки. Если кому не трудно - дайте готовый код с пояснениями.

0B47: samp close_current_dialog_with_button 1@ // id

Добавлено (09.03.2017, 17:24)
---------------------------------------------
Цитата SunsetStorm ()
    repeat
wait 0
until 0B61: samp is_local_player_spawned
wait 4000
0af9: "/cvet 87"
end

:dead
wait 0
if
Actor.Dead($PLAYER_ACTOR)
else_jump @dead
wait 3500
0AF9: samp say_msg "/cvet 87"

:dead2
wait 0
if
not Actor.Dead($PLAYER_ACTOR)
else_jump @dead2
jump @dead
samp.CmdRet()

У меня цикл не прекращается. Вот как пофиксить, я не понимаю(((

юзай не else jump, a jump if false. то есть jf | else jump используется в другом случае, почитай учебник SB найдешь проблему
_____
пора уже начать кодить высокоуровневыми конструкциями - https://www.youtube.com/watch?v=1TNxqFgv1Us


Сообщение отредактировал roma_caddy - Четверг, 09.03.2017, 17:28
SunsetStorm Дата: Пятница, 10.03.2017, 16:30 | Сообщение # 4049
Новичок
Сообщений: 6
Статус: Offline
Цикл все равно не прекращается
roma_caddy Дата: Суббота, 11.03.2017, 07:39 | Сообщение # 4050
Боец
Сообщений: 89
Статус: Offline
Цитата SunsetStorm ()
Цикл все равно не прекращается

Код
{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

repeat
wait 0
until 0B61:  samp is_local_player_spawned
wait 500
say "/clist 16"

while true
wait 0
    if actor.Dead($PLAYER_ACTOR)
    then
        30@ = 1
    end
    
    if and
    Not Actor.Dead($PLAYER_ACTOR)
    30@ == 1
    then
        wait 500
        say "/clist 16"
        30@ = 0
    end
end
    
    

Разберись в коде, проверял на сервере, на котором играю, перепиши под себя


Сообщение отредактировал roma_caddy - Суббота, 11.03.2017, 07:39
Форум » Программирование » CLEO Программирование » [CLEO] Вопрос - Ответ
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7209]

[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]

Новые пользователи
pokotiloroman91 [18:24]

stephensh5 [12:00]

calliesv7 [06:11]

louqm16 [22:14]

artushak [16:32]

Kingpolker [15:42]

leeyv11 [15:12]

Trappa17 [01:00]

Djamalchik [16:40]

ajeense [14:24]

654470559 [08:55]

Newtone [03:01]

godspeed [21:31]