randazzo
.
- 1,417
- 1,030
Да я пытался, но не меняется оно почему то. Как было GTA:SA:MP так и остается
Да я пытался, но не меняется оно почему то. Как было GTA:SA:MP так и остается
Попробуй так.Перенес функции в свой скрипт, крч без 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@
Даже по гайду сделал, всё равно крашит.Через sscanf делай, где-то в разделе Cleo есть гайд от Legend2360. Wait в командах не работает, убери нафиг. Зачем столько проверок на СФ? Хватит одной. Если у тебя нету цикла WHILE TRUE то можно поставить 0bde: 0.За работоспособность того что приложил не отвечаю т.к не проверял
CLEO:{$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
память под 2@ и 3@ выделиДаже по гайду сделал, всё равно крашит.
выделял. Он потом заместо id писал "4298421" + заместо русского текста какие-то иероглифы.память под 2@ и 3@ выдели
Под 2@ память, вместо 3@ юзай 3@vвыделял. Он потом заместо id писал "4298421" + заместо русского текста какие-то иероглифы.
И у тебя как бы в 2@ текст, а в 3@ число.выделял. Он потом заместо id писал "4298421" + заместо русского текста какие-то иероглифы.
ПопробуйКак сделать, чтобы при вводе /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
Зачем так много всегоПопробуй
{$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()
Зачем так много всего
CLEO:{$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()
Дайте пожалуйста пример тп игрока на координаты синхрой.
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