Вопросы по CLEO-скриптингу

[serhiyrubin]

Перенес функции в свой скрипт, крч без 0BDE: pause_thread 0 начинает мерцать экран(
А щас вообще ник в TAB поменялся на НИК (ID) ;D
=====
А не отбой, спасибо за помощь, но буду искать как вывести текст в меню пазы
SAMP UDF в AHK не будет работать)
=====
Кто понимает, посмотрите можно ли с помощью этого вывести текст в меню паузы?
TextOut function (Windows) (https://msdn.microsoft.com/en-us/library/windows/desktop/dd145133(v=vs.85).aspx)

 

[LaRossa]

Перенес функции в свой скрипт, крч без 0BDE: pause_thread 0 начинает мерцать экран(
А щас вообще ник в TAB поменялся на НИК (ID) ;D

Попробуй так.

while not Samp.Available()
wait 0
end

repeat
wait 0
until 0B61:  samp is_local_player_spawned
0B2B: samp 1@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B36: samp 2@ = get_player_nickname 1@
0AC8: 3@ = allocate_memory_size 64
0AD3: 3@ = format "%s (%d)" 2@ 1@
call @GetActiveWindow 0 0@
call @SetWindowTextA 2 0@ 3@
0AC9: free_allocated_memory 3@

while true
wait 0
// Main





:SetWindowTextA
0AA2: 25@ = load_library "User32.DLL"
0AA4: 26@ = get_proc_address "SetWindowTextA" library 25@
0AA7: call_function 26@ num_params 2 pop 0 1@ 0@ 27@ // 0@ - HWND | 1@ - lpString
0AA3: free_library 25@
0AB2: ret 0

:GetActiveWindow
0AA2: 25@ = load_library "User32.DLL"
0AA4: 26@ = get_proc_address "GetActiveWindow" library 25@
0AA7: call_function 26@ num_params 0 pop 0 0@
0AA3: free_library 25@
0AB2: ret 1 0@

 

[serhiyrubin]

Извини за хлопоты. Я нашел причину, у меня до этого 0@ используется и выделена память, выбрал другую переменную и норм.
Спасибо за хлопоты))

 

[_RosE_]

Через sscanf делай, где-то в разделе Cleo есть гайд от Legend2360. Wait в командах не работает, убери нафиг. Зачем столько проверок на СФ? Хватит одной. Если у тебя нету цикла WHILE TRUE то можно поставить 0bde: 0.За работоспособность того что приложил не отвечаю т.к не проверял

{$CLEO}

while not SAMP.Available()
    wait 400
end

0B34: samp register_client_command "w" to_label @w

0BDE: PAUSE_THREAD 0

:w
if  0B35: samp 1@ = get_last_command_params
then
    0AA5: call 0x8220AD num_params 4 pop 4 params 2@ 3@ "%d %s" 1@
    0AF9: samp say_msg "/whisper %d %s" 2@ 3@
else
    chatmsg "Вы не ввели ID или текста." -1
end  
Samp.CmdRet

Даже по гайду сделал, всё равно крашит.

 

[randazzo]

Даже по гайду сделал, всё равно крашит.

память под 2@ и 3@ выдели

 

[_RosE_]

память под 2@ и 3@ выдели

выделял. Он потом заместо id писал "4298421" + заместо русского текста какие-то иероглифы.

 

[BlackKnigga]

выделял. Он потом заместо id писал "4298421" + заместо русского текста какие-то иероглифы.

Под 2@ память, вместо 3@ юзай 3@v

выделял. Он потом заместо id писал "4298421" + заместо русского текста какие-то иероглифы.

И у тебя как бы в 2@ текст, а в 3@ число.
Должно быть так:
0AF9: samp say_msg "/whisper %d %s" 3@ 2@
В скане вместо 3@ юзай 3@v

 

[LaRossa]

Дайте пожалуйста пример тп игрока на координаты синхрой.

 

[kizn]

Как сделать, чтобы при вводе /shift (SAMP) зажималась клавиша shift, повторный ввод перестает её зажимать. Может кто подскажет?

 

[LaRossa]

Как сделать, чтобы при вводе /shift (SAMP) зажималась клавиша shift, повторный ввод перестает её зажимать. Может кто подскажет?

Попробуй

{$CLEO}
0000:
while not Samp.Available()
wait 0
end
0B34: samp register_client_command "shift" to_label @Xor

while true
wait 0
if and
0@ == 1
8B21: not samp is_chat_opened
then
0C72: set_virtual_key 16 down true
wait 500
0C72: set_virtual_key 16 down false
end
end

:Xor
0B12: 0@ = 0@ XOR 1
0B43: samp cmd_ret

 

[LUCHARE]

Попробуй

Зачем так много всего

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "shift" to_label @cmd
0BDE: 0

:cmd
0B12: 0@ = 0@ XOR 1
if 0@ == 1
then 0C72: set_virtual_key 16 down true
else 0C72: set_virtual_key 16 down false
end
SAMP.CmdRet()

 

[kizn]

Зачем так много всего

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "shift" to_label @cmd
0BDE: 0

:cmd
0B12: 0@ = 0@ XOR 1
if 0@ == 1
then 0C72: set_virtual_key 16 down true
else 0C72: set_virtual_key 16 down false
end
SAMP.CmdRet()

upd: все, разобрался. сампфункс не поставил

 

[hnnssy]

Дайте пожалуйста пример тп игрока на координаты синхрой.

Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.PutAt($PLAYER_ACTOR, 20.0, 20.0, 20.0)
0C83: samp force_onfoot_sync
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
0C83: samp force_onfoot_sync

 

[debil :))]

Есть ли опкод или способ как проверить прицелился ли игрок?

 

[LaRossa]

Подскажи как из переменной достать числа и раскидать их по переменным.
Например в 0@ (1234567)
Можно ли как то раскидать числа из переменной по другим переменным

0@ (1234567)
1 1@
2 2@
3 3@
4 4@
5 5@
6 6@
7 7@