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

[san0]

Как остановить зацикленость ?
допустим из примера выше . Я исправил уже там если что .

попробуй так

{$CLEO}
{$NOSOURCE}
 
0000:
0006: 0@ = -1
 
repeat
    wait 400
until 0AFA: is_samp_structures_available
 
0b34: register_client_command "floodgov" @floodgov
 
 
while true
    wait 0
    if 0@ == 1
    then
        message "Gov flood start" -1
        repeat
            0AF8: "gov flood to gov" -1
            wait 3000
        until 0@ == -1
        message "Gov flood disabled" -1
    end
end
 
:floodgov
0@ *= -1
Samp.CmdRet()

 

[Dark_Knight]

Короче не помогайте эму. Пусть условия учит, а то хуй что он поймет.

 

[fiendshadow]

Короче не помогайте эму. Пусть условия учит, а то хуй что он поймет.

Пизданул как мой препод :D

 

[TheUnity]

Поцаны, еще вопрос. Кто может подправить мой говнокец? Суть в том, что когда актер на велике (в случае с моим говно кодом ) или на мотоцикле, то при нажатии нум5 скрипт будет автоматом тыкать W и быстро ехать))) В общем я просто ленивый и сделал такую херню)

{$CLEO .cs}
 
0000: NOP
 
8AF7:  not get_samp_base_to 29@
:2
wait 400
0AFA:  is_samp_structures_available 
jf @2
 
:AutoForwardOn
wait 0
if
0AB0: key_pressed 49 //или 65 хер его знает. в общем нум5 или 12
jf @AutoForwardOn
jump @bikecheck
 
:bikecheck
if
047A: actor $PLAYER_ACTOR driving_bike
jf @AutoForwardOn
0af8: "Тест скрипта" -1
jump @AutoForward
 
 
:AutoForward
0B56: set_game_key 87 state 255
wait 500
0B56: set_game_key 87 state 0
jump @AutoForward

 

[fiendshadow]

Поцаны, еще вопрос. Кто может подправить мой говнокец? Суть в том, что когда актер на велике (в случае с моим говно кодом ) или на мотоцикле, то при нажатии нум5 скрипт будет автоматом тыкать W и быстро ехать))) В общем я просто ленивый и сделал такую херню)

{$CLEO .cs}
 
0000: NOP
 
8AF7:  not get_samp_base_to 29@
:2
wait 400
0AFA:  is_samp_structures_available
jf @2
 
:AutoForwardOn
wait 0
if
0AB0: key_pressed 49 //или 65 хер его знает. в общем нум5 или 12
jf @AutoForwardOn
jump @bikecheck
 
:bikecheck
if
047A: actor $PLAYER_ACTOR driving_bike
jf @AutoForwardOn
0af8: "Тест скрипта" -1
jump @AutoForward
 
 
:AutoForward
0B56: set_game_key 87 state 255
wait 500
0B56: set_game_key 87 state 0
jump @AutoForward

Для бага нужно вроде тыкать стрелочку вверх

 

[Milleron]

Для бага нужно вроде тыкать стрелочку вверх

Да , а если я не ошибаюсь , что-бы тыкать стрелочку вверх нужна эмуляция клавишь , а тогда MogAika Funcs (могу ошибаться)

 

[vladikf1]

Здравствуйте, подскажите как искать в txt файли ник?
Типа:
James_Lol и т.п

Я пытался сделать и не получилось!

if 0A9A: 11@ = openfile "CLEO\config.txt" mode "wt"
then
  if 0ADA: 3@ = scan_file 11@ format "Teodor_Crips"
  then
  0AF8: samp add_message_to_chat "есть" color -1
  else
  0AF8: samp add_message_to_chat "нету" color -1
  end
  0A9B: closefile 11@
end

Прошу помогите пожалуйста

 

[MISTER_GONWIK]

Здравствуйте, подскажите как искать в txt файли ник?
Типа:
James_Lol и т.п

Я пытался сделать и не получилось!

if 0A9A: 11@ = openfile "CLEO\config.txt" mode "wt"
then
  if 0ADA: 3@ = scan_file 11@ format "Teodor_Crips"
  then
  0AF8: samp add_message_to_chat "есть" color -1
  else
  0AF8: samp add_message_to_chat "нету" color -1
  end
  0A9B: closefile 11@
end

Прошу помогите пожалуйста

ты файл в режиме записи открываешь, wt замени на rt

 

[san0]

Здравствуйте, подскажите как искать в txt файли ник?
Типа:
James_Lol и т.п

Я пытался сделать и не получилось!

if 0A9A: 11@ = openfile "CLEO\config.txt" mode "wt"
then
  if 0ADA: 3@ = scan_file 11@ format "Teodor_Crips"
  then
  0AF8: samp add_message_to_chat "есть" color -1
  else
  0AF8: samp add_message_to_chat "нету" color -1
  end
  0A9B: closefile 11@
end

Прошу помогите пожалуйста

{$CLEO}
 
0000:
 
while true
    wait 0
    if and
    not Samp.ChatInputOpened()
    0ab0: 0x8
    then
        repeat
            wait 0
        until 8ab0: 0x8
        0@ = file.Open("cleo\text.txt", "rt")  // твой путь к файлу
        while not file.EOF(0@)
            0AD7: read_string_from_file 0@ to 1@ size 128 // IF and SET
            0af8: "READ>: %s" -1 1@
            if 0C18: 4@ = strstr string1 1@ string2 "Teodor_Crips"
            then
                message "sucess" -1 0xFF0000
            end         
        end
        free 1@ 128
        file.Close(0@)
    end
end

Файл такого типа

This_File
Mister_GONWIK
Teodor_Crips
Blast_Hack

 

[greatvova]

WHILE 0AB0:  key_pressed 220 
wait 0     
0ACD: show_text_highpriority "Script is now running !!!" time 2000
wait 1000
0AA5: call 1@ num_params 4 pop 0 0 0 0 0x0D 
wait 1000 
0AA5: call 1@ num_params 4 pop 0 0 0x02 0 0x0D 
 
if 0AB0:  key_pressed 220              
break
 
END

Что не так с циклом?

 

[SR_team]

WHILE 0AB0:  key_pressed 220
wait 0   
0ACD: show_text_highpriority "Script is now running !!!" time 2000
wait 1000
0AA5: call 1@ num_params 4 pop 0 0 0 0 0x0D
wait 1000
0AA5: call 1@ num_params 4 pop 0 0 0x02 0 0x0D
 
if 0AB0:  key_pressed 220             
break
 
END

Что не так с циклом?

if 0AB0: key_pressed 220
break

 

[greatvova]

if 0AB0: key_pressed 220
break

Не думаю, что проблема в этом потому что даже 1 итерация не срабатывает.
Как бы там ни было спасибо за ответ. Я переписал его без цикла и все заработало. Но если кто-то заметит еще ошибки - буду рад прочесть о них. В КЛЕО я еще новичек.

 

[MISTER_GONWIK]

Не думаю, что проблема в этом потому что даже 1 итерация не срабатывает.
Как бы там ни было спасибо за ответ. Я переписал его без цикла и все заработало. Но если кто-то заметит еще ошибки - буду рад прочесть о них. В КЛЕО я еще новичек.

проблема в этом

 

[fiendshadow]

Не думаю, что проблема в этом потому что даже 1 итерация не срабатывает.
Как бы там ни было спасибо за ответ. Я переписал его без цикла и все заработало. Но если кто-то заметит еще ошибки - буду рад прочесть о них. В КЛЕО я еще новичек.

Если ты новичок,то слушай других

 

[greatvova]

проблема в этом

Если ты новичок,то слушай других

Я эту строчку выпилил и ничего не изменилось. По сути она дублирует условие выполнение цикла на случай если оно не сработает. Так что проблема не там точно.