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

[fonarik]

Нашел исходник domenk, все понимаю но одного не понял, почему "if 3@ == 1"?

cmd "tpa" @tpa
cmd "tpcar" @tpcar
 
While True
wait 0
if 3@ == 1
then
Actor.PutAt($Player_Actor, 0, 0, -10000)
wait 3500
Actor.PutAt($Player_Actor, 0@, 1@, 2@)
wait 500
Actor.PutAt($Player_Actor, 0@, 1@, 2@)
wait 1000
02EB: restore_camera_with_jumpcut
0af8: "{A8DDDF}[TP] {A6EA12}Вы телепортированы." -1
3@ = 0 
    end
end

Потому что это такая активация

 

[DataIN]

Помогите , все исправил меню создалось норм , но теперь не могу его закрыть вроде сделал все правльено но при нажатии Closed не закрывается
Вот код:
:set_dialog_pos - скопировал с другого скрипта позиция диалога , как я понял

{$CLEO .cs}
thread "MICHELIN"
 
const
DIALOG_STYLE_MSGBOX = 0
DIALOG_STYLE_INPUT = 1
DIALOG_STYLE_LIST = 2
DIALOG_STYLE_PASSWORD = 3
end
 
 
0000: NOP
 
repeat
wait 0
until Samp.Available()
 
0B34: samp register_client_command "mbot" to_label @PER
 
 
 
 
while true
wait 0
    if  5@ == 1  // переменная 5 ровна 1
    then
        0B80: dialog 2@ = create "Бот завод."
        0AB1: call_scm_func @set_dialog_pos 5 2@ 0 0 250 300
        0B82: dialog 2@ add_button id 0 text "Start" pos_XY 15 245 size 100 25
        0B82: dialog 2@ add_button id 1 text "Closed" pos_XY 135 245 size 100 25
        0B8D: samp set_cursor_mode 2
        while 0B87: dialog 2@ is_visible
        wait  0
        end
    end
end
if 7@ == 1
then
    0B87:  dialog 2@ set_visible false
 
    0B8D: samp set_cursor_mode 0
    5@ = 0
    end
 
     
     
     
       
 
 
 
:PER
if 5@ == 0
then
5@ = 1 // присваием переменное 5 еденицу
end
Samp.CmdRet()
 
:set_dialog_pos // [dialog id] [смещение от центра x] [смещение от центра y] [size x] [size y]
0B5A: get_screen_resolution 5@ 6@
0016: 5@ /= 2
0016: 6@ /= 2
0A91: 7@ = 3@ / 2 // int
0A91: 8@ = 4@ / 2 // int
0062: 5@ -= 7@ // (int)
005A: 5@ += 1@ // (int)
0062: 6@ -= 8@ // (int)
005A: 6@ += 2@ // (int)
0B84: dialog 0@ set_pos_XY 5@ 6@ size 3@ 4@
0AB2: ret 0

 

[fonarik]

Помогите , все исправил меню создалось норм , но теперь не могу его закрыть вроде сделал все правльено но при нажатии Closed не закрывается
Вот код:
:set_dialog_pos - скопировал с другого скрипта позиция диалога , как я понял

{$CLEO .cs}
thread "MICHELIN"
 
const
DIALOG_STYLE_MSGBOX = 0
DIALOG_STYLE_INPUT = 1
DIALOG_STYLE_LIST = 2
DIALOG_STYLE_PASSWORD = 3
end
 
 
0000: NOP
 
repeat
wait 0
until Samp.Available()
 
0B34: samp register_client_command "mbot" to_label @PER
 
 
 
 
while true
wait 0
    if  5@ == 1  // переменная 5 ровна 1
    then
        0B80: dialog 2@ = create "Бот завод."
        0AB1: call_scm_func @set_dialog_pos 5 2@ 0 0 250 300
        0B82: dialog 2@ add_button id 0 text "Start" pos_XY 15 245 size 100 25
        0B82: dialog 2@ add_button id 1 text "Closed" pos_XY 135 245 size 100 25
        0B8D: samp set_cursor_mode 2
        while 0B87: dialog 2@ is_visible
        wait  0
        end
    end
end
if 7@ == 1
then
    0B87:  dialog 2@ set_visible false
 
    0B8D: samp set_cursor_mode 0
    5@ = 0
    end
 
   
   
   
     
 
 
 
:PER
if 5@ == 0
then
5@ = 1 // присваием переменное 5 еденицу
end
Samp.CmdRet()
 
:set_dialog_pos // [dialog id] [смещение от центра x] [смещение от центра y] [size x] [size y]
0B5A: get_screen_resolution 5@ 6@
0016: 5@ /= 2
0016: 6@ /= 2
0A91: 7@ = 3@ / 2 // int
0A91: 8@ = 4@ / 2 // int
0062: 5@ -= 7@ // (int)
005A: 5@ += 1@ // (int)
0062: 6@ -= 8@ // (int)
005A: 6@ += 2@ // (int)
0B84: dialog 0@ set_pos_XY 5@ 6@ size 3@ 4@
0AB2: ret 0

не лучше было так сделать?
:PER
if 5@ == 0
then
5@ = 1
0B87: dialog 2@ set_visible true
else
5@ = 0
0B87: dialog 2@ set_visible false
end
Samp.CmdRet()

 

[itsLegend]

Помогите , все исправил меню создалось норм , но теперь не могу его закрыть вроде сделал все правльено но при нажатии Closed не закрывается
Вот код:
:set_dialog_pos - скопировал с другого скрипта позиция диалога , как я понял

Создать только одну кнопку недостаточно.
Нужно привязать к ней исполняемый код.
http://blasthack.net/wiki/tutorials:dxtu_dialogs

 

[luckyFOX]

Подключается инклуд файла SF в котором хранится список констант.

Ничего не понял, приведите пример.

 

[Dark_Knight]

После указывания формата клео.

{$I SF}

 

[Thomas_Johnson]

У всех краш? Пытался реализовать в скрипте, а тут краш и не записывает в ини начиная со строк

{$CLEO}
0000:
while true
wait 0
if and
8AAB:  file_exists "CLEO\xyu.ini"
key_down 49
then
0AF5: write_string "xyu" to_ini_file "CLEO\xyu.ini" section "xyu" key "xyu"
end
end

 

[StefanWW]

У всех краш? Пытался реализовать в скрипте, а тут краш и не записывает в ини начиная со строк

{$CLEO}
0000:
while true
wait 0
if and
8AAB:  file_exists "CLEO\xyu.ini"
key_down 49
then
0AF5: write_string "xyu" to_ini_file "CLEO\xyu.ini" section "xyu" key "xyu"
end
end

xyeta error you.

{$CLEO}
0000:
repeat
wait 0
until samp.Available()

while true
wait 0
    if and
    0AAB:   file_exists "CLEO\xyu.ini"
    key_down 49
//    8AAB:  file_exists "CLEO\xyu.ini"         ßñåí õóé áóäåò êðàøèòü -_- Òû õóéíþ êàêóþ ñäåëàë. 8aab = not file exist , a 0aab = file exist
    then
        0AF5: write_string "xyu" to_ini_file "CLEO\xyu.ini" section "xyu" key "xyu"
    end
end

 

[Thomas_Johnson]

xyeta error you.

{$CLEO}
0000:
repeat
wait 0
until samp.Available()

while true
wait 0
    if and
    0AAB:   file_exists "CLEO\xyu.ini"
    key_down 49
//    8AAB:  file_exists "CLEO\xyu.ini"         ßñåí õóé áóäåò êðàøèòü -_- Òû õóéíþ êàêóþ ñäåëàë. 8aab = not file exist , a 0aab = file exist
    then
        0AF5: write_string "xyu" to_ini_file "CLEO\xyu.ini" section "xyu" key "xyu"
    end
end

Ты нормальный? Если файла нет и в него записывается что-то - он создается, так задумано, во вторых, так же крашит у меня

 

[StefanWW]

Ты нормальный? Если файла нет и в него записывается что-то - он создается, так задумано, во вторых, так же крашит у меня

Либо с сф пробуй, либо удаляй другие клео и не еби мозги, т.к. код рабочий и построен правильно.
лол.

{$CLEO}
0000:
repeat
wait 0
until samp.Available()

while true
wait 0
    if and
    key_down 49
    8AAB: "CLEO\xyu.ini"
    then
        0AF5: write_string "xyu" to_ini_file "CLEO\xyu.ini" section "xyu" key "xyu"
    end
end

 

[Sergey_Gray]

Как сделать так, чтобы скрипт работал на определённых серверах (в скрипте заданы IP) ?

 

[Thomas_Johnson]

Как сделать так, чтобы скрипт работал на определённых серверах (в скрипте заданы IP) ?

Можно просканировать название сервера на наличие словосочетаний.

 

[Sergey_Gray]

Можно просканировать название сервера на наличие словосочетаний.

я имею ввиду то, чтобы скрипт работал по IP сервера(ов) заданного(ых) в скрипте

 

[Dark_Knight]

я имею ввиду то, чтобы скрипт работал по IP сервера(ов) заданного(ых) в скрипте

Получаешь ип и сравниваешь его с серверами.

 

[Sergey_Gray]

Получаешь ип и сравниваешь его с серверами.

Как это в скрипте будет выглядеть?