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

D

DoneUp

Новичок
28
0
DoneUp написал(а):
PHP: 
{$CLEO .cs}
0000:
wait 1750
:DONE
wait 0
0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 1@ closest_ped_to 0@
if and
056D: actor 0@ defined
key_down 114
key_down 16
jf @DONE
0B2B: samp 1@ = get_player_id_by_actor_handle 0@
print "%d рядом" 1@
wait 500
 
goto @DONE
как сделать чтобы он писал %d рядом только тех, кто вбит в .ini?
Нажмите для раскрытия...
 
А

АндрейЧотак

Известный
80
10
Почему доходит до выключение нопа, и сразу же в начало цикла идёт

Код: 
while true
wait 0
if 12@ == 1
then
wait 500
0B2D: write_samp_memory offset 0x41E0 value 0xC3 size 1
wait 0
0AB1: call @StoreClosestMarkerPos 0 28@ 29@ 30@
wait 0
0AB1: call_scm_func @playersynccoord 3 28@ 29@ 30@
wait 0
if 0611: actor $PLAYER_ACTOR performing_animation "crry_prtial"
then
0B2D: write_samp_memory offset 0x41E0 value 0x6A size 1
wait 7000
0AB1: call_scm_func @playersynccoord 3 593.24 854.59 -51.50
wait 5
0AB1: call_scm_func @playersynccoord 3 579.99 866.42 43.11
wait 1500
end
end
end
 
P

PoccoJI

Новичок
135
10
Код: 
while true
wait 0
if 20@ == 1
then
0B3D: raknet 6@ = new_bit_stream
0B40: raknet bit_stream 6@ write 5@ type 3 size 4
0B8A: raknet send_rpc 136 bit_stream 6@
0B3F: raknet reset_bit_stream 6@
end
 
:sc
0B35: samp 21@ = get_last_command_params
if 0AD4: 22@ = scan_string 21@ format "%d" 5@
then
20@ = 1
end
0B43:
вообщем моргает экран при заходе на сервер. скрипт должен спавнить кары
 
hnnssy

hnnssy

Известный
Друг
2,684
2,748
PoccoJI написал(а):
Код: 
while true
wait 0
if 20@ == 1
then
0B3D: raknet 6@ = new_bit_stream
0B40: raknet bit_stream 6@ write 5@ type 3 size 4
0B8A: raknet send_rpc 136 bit_stream 6@
0B3F: raknet reset_bit_stream 6@
end
 
:sc
0B35: samp 21@ = get_last_command_params
if 0AD4: 22@ = scan_string 21@ format "%d" 5@
then
20@ = 1
end
0B43:
вообщем моргает экран при заходе на сервер. скрипт должен спавнить кары
Нажмите для раскрытия...
Код: 
while true
wait 0
if 20@ == 1
then
0B3D: raknet 6@ = new_bit_stream
0B40: raknet bit_stream 6@ write 5@ type 3 size 4
0B8A: raknet send_rpc 136 bit_stream 6@
0B3F: raknet reset_bit_stream 6@
20@ = 0
end
end
 
:sc
0B35: samp 21@ = get_last_command_params
if 0AD4: 22@ = scan_string 21@ format "%d" 5@
then
20@ = 1
end
0B43:
 
T

TheMonstercat

Известный
75
11
Hey why this wont work? only Blue goes from 0 to 255

Код: 
{$CLEO .cs}
0000:
 
0AA8: call_function_method 0x6A0050 0xC1B340 num_params 1 pop 0 'CRED000' 0@
0AA5: call 0x718600 2 pop 2 0@ "CRED000 IS NOW THIS TEXT!"
 
REPEAT
    WAIT 0
UNTIL 0AFA:  SAMP_IS_READY
 
CONST
    R = 1@
    G = 2@
    B = 3@
END
 
WHILE TRUE
    WAIT 0
FOR B = 0 TO 255
wait 0
    FOR R = 255 DOWNTO 0
    wait 0 
        FOR G = 0 TO 255
        wait 0   
            FOR B = 255 DOWNTO 0
            wait 0       
                FOR R = 0 TO 255
                wait 0
                    FOR G = 255 DOWNTO 0
                    wait 0
                    0AB1: @RESTART 1 WITH_KEY 88
                    03F0: enable_text_draw 1
                    0342: set_text_draw_centered 1
                    03E0: draw_text_behind_textures 0
                    033F: set_text_draw_letter_size width 0.22 height 1.00
                    081C: draw_text_outline 1 RGBA 0 0 0 255
                    0340: set_text_draw_RGBA 1@ 2@ 3@ 255
                    045A: draw_text_1number 100.0 100.0 GXT 'CRED000' number 0
                    END
                END
            END 
        END                   
    END                   
END
 
A

alfazlo

Потрачен
128
36
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
TheMonstercat написал(а):
Hey why this wont work? only Blue goes from 0 to 255

Код: 
{$CLEO .cs}
0000:
 
0AA8: call_function_method 0x6A0050 0xC1B340 num_params 1 pop 0 'CRED000' 0@
0AA5: call 0x718600 2 pop 2 0@ "CRED000 IS NOW THIS TEXT!"
 
REPEAT
    WAIT 0
UNTIL 0AFA:  SAMP_IS_READY
 
CONST
    R = 1@
    G = 2@
    B = 3@
END
 
WHILE TRUE
    WAIT 0
FOR B = 0 TO 255
wait 0
    FOR R = 255 DOWNTO 0
    wait 0
        FOR G = 0 TO 255
        wait 0
            FOR B = 255 DOWNTO 0
            wait 0   
                FOR R = 0 TO 255
                wait 0
                    FOR G = 255 DOWNTO 0
                    wait 0
                    0AB1: @RESTART 1 WITH_KEY 88
                    03F0: enable_text_draw 1
                    0342: set_text_draw_centered 1
                    03E0: draw_text_behind_textures 0
                    033F: set_text_draw_letter_size width 0.22 height 1.00
                    081C: draw_text_outline 1 RGBA 0 0 0 255
                    0340: set_text_draw_RGBA 1@ 2@ 3@ 255
                    045A: draw_text_1number 100.0 100.0 GXT 'CRED000' number 0
                    END
                END
            END
        END               
    END               
END
Нажмите для раскрытия...

WHILE TRUE
not END это во первых.
во вторых в разных циклах используется одна и та же переменная, они перезаписываются по ходу опускания внутрь циклов.
 
A

alfazlo

Потрачен
128
36
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Избранный написал(а):
почему не работает скрипт?
хотел возвести двойку в 3 степень из переменной, а в итоге пишет 0,0000
Код: 
:N
wait 0
if
0ab0: 53
jf @N
0@ = 3.0
0C09: math 1@ = power 2 0@ // (float)
0AF8: samp add_message_to_chat "%f" color 0xFFFF00 1@
wait 500
jump @N
Нажмите для раскрытия...

не 2 а 2.0
 
M

mb2014

Новичок
1
0
Через что писать CLEO скрипты ? Я новичек, только учусь.
Заранее спасибо.!
 
F

fonarik

Известный
206
3
Как получить данные с сайта через клео?Дайте пример работы,потому что не получается работать с dll
 
hnnssy

hnnssy

Известный
Друг
2,684
2,748
TheMonstercat написал(а):
Hey why this wont work? only Blue goes from 0 to 255

Код: 
{$CLEO .cs}
0000:
 
0AA8: call_function_method 0x6A0050 0xC1B340 num_params 1 pop 0 'CRED000' 0@
0AA5: call 0x718600 2 pop 2 0@ "CRED000 IS NOW THIS TEXT!"
 
REPEAT
    WAIT 0
UNTIL 0AFA:  SAMP_IS_READY
 
CONST
    R = 1@
    G = 2@
    B = 3@
END
 
WHILE TRUE
    WAIT 0
FOR B = 0 TO 255
wait 0
    FOR R = 255 DOWNTO 0
    wait 0
        FOR G = 0 TO 255
        wait 0 
            FOR B = 255 DOWNTO 0
            wait 0     
                FOR R = 0 TO 255
                wait 0
                    FOR G = 255 DOWNTO 0
                    wait 0
                    0AB1: @RESTART 1 WITH_KEY 88
                    03F0: enable_text_draw 1
                    0342: set_text_draw_centered 1
                    03E0: draw_text_behind_textures 0
                    033F: set_text_draw_letter_size width 0.22 height 1.00
                    081C: draw_text_outline 1 RGBA 0 0 0 255
                    0340: set_text_draw_RGBA 1@ 2@ 3@ 255
                    045A: draw_text_1number 100.0 100.0 GXT 'CRED000' number 0
                    END
                END
            END
        END                 
    END                 
END
Нажмите для раскрытия...
Try this code.
P.S it's shit
Код: 
{$CLEO .cs}
0000:
 
0AA8: call_function_method 0x6A0050 0xC1B340 num_params 1 pop 0 'CRED000' 0@
0AA5: call 0x718600 2 pop 2 0@ "CRED000 IS NOW THIS TEXT!"
 
REPEAT
    WAIT 0
UNTIL 0AFA:  SAMP_IS_READY
 
CONST
    R = 1@
    G = 2@
    B = 3@
END
 
WHILE TRUE
    WAIT 0
FOR B = 0 TO 255
wait 0
    FOR R = 255 DOWNTO 0
    wait 0
        FOR G = 0 TO 255
        wait 0 
            FOR B = 255 DOWNTO 0
            wait 0     
                FOR R = 0 TO 255
                wait 0
                    FOR G = 255 DOWNTO 0
                    wait 0
                    0AB1: @RESTART 1 WITH_KEY 88
                    03F0: enable_text_draw 1
                    0342: set_text_draw_centered 1
                    03E0: draw_text_behind_textures 0
                    033F: set_text_draw_letter_size width 0.22 height 1.00
                    081C: draw_text_outline 1 RGBA 0 0 0 255
                    0340: set_text_draw_RGBA 1@ 2@ 3@ 255
                    045A: draw_text_1number 100.0 100.0 GXT 'CRED000' number 0
                    END
                END
            END
        END                 
    END                 
END
END
 
M

Monst_er

Новичок
3
0
Привет! Подскажите, почему этот скрипт не работает, просто зависает при вводе комманды /reconnect
Код: 
{$CLEO .cs}
 
//-------------MAIN---------------
29@ = SAMP.Base()
 
:Reconnect1
wait 400
  SAMP.Available
else_jump @Reconnect1
0B34: samp register_client_command "reconnect" to_label @Reconnect2
 
:Reconnect3
wait 150
jump @Reconnect4
 
:Reconnect4
wait 150
jump @Reconnect3
 
:Reconnect2
wait 0
0B28: samp disconnect_with_reason 0
wait 1000
0B27: samp set_gamestate 3
jump @Reconnect3
И как исправить? Заранее спасибо!
 
O

Opcode.eXe

Известный
84
112
@MONSTERCAT:

You cant make a smooth color transmission like that in Sanny Builder...
To make a smooth color transmission u have to do it step by step ( color by color) in for loop.
I made it for you:


Код: 
{$CLEO .cs}
0000:
 
CONST
    R = 1@
    G = 2@
    B = 3@
END
 
 
 
WHILE TRUE
    WAIT 0
    R = 255
    G = 0
    B = 0
    FOR B = 0 TO 255
        WAIT 0 
        GOSUB @DRAW 
    END
    B = 255
 
    FOR R = 255 DOWNTO 0
        WAIT 0   
        GOSUB @DRAW
    END
    R = 0
 
    FOR G = 0 TO 255
        WAIT 0 
        GOSUB @DRAW 
    END   
    G = 255
   
    FOR B = 255 DOWNTO 0
        WAIT 0 
        GOSUB @DRAW 
    END 
    B = 0
    FOR R = 0 TO 255
        WAIT 0
        GOSUB @DRAW 
    END 
    R = 255 
    FOR G = 255 DOWNTO 0
        WAIT 0 
        GOSUB @DRAW 
    END   
    G = 0   
END
 
 
:DRAW
03F0: enable_text_draw 1
0342: set_text_draw_centered 1
03E0: draw_text_behind_textures 0
033F: set_text_draw_letter_size width 0.22 height 1.00
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA R G B 255
045A: draw_text_1number 100.0 100.0 GXT 'CRED000' number 0
RETURN
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. YarikVL
    [Перезапуск] Интервью с ARMOR
      • Bug
      • Нравится
      • Ха-ха
    Ответы
    21
    Просмотры
    2K
    Общение
    ARMOR
    ARMOR
  2. G
    • Закрыта
    [CLEO] Счётчик убийств/смертей.
      • Нравится
    Ответы
    15
    Просмотры
    20K
    Другое
    Забавный Бандит
    З
  3. iTz_WEEZY
    • Закрыта
    Помогите сделать [Авто Викторина]
    Ответы
    6
    Просмотры
    2K
    Архив
    iTz_WEEZY
    iTz_WEEZY
  4. PanSeek
    Интервью с DarkP1xel
      • Нравится
      • Влюблен
      • Злость
    Ответы
    54
    Просмотры
    8K
    Общение
    GrishaMazzlov
    GrishaMazzlov
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    2K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу