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

[Skillfull]

неизвестная команда "until 8oe1: 0 6"

 

[Thomas_Johnson]

неизвестная команда "until 8oe1: 0 6"

Вместо о(буква "О") вставь 0(ноль)

 

[Skillfull]

Не, теперь когда я включаю, все скользят, но клео не деактивируется

 

[Skillfull]

Как сделать что-бы всем кастеты давались?

 

[Skillfull]

Т.е он активируется, если долго прицел держать, но не деактивируется, а можешь сделать так что-бы всем давал кастет, и работало так:Держишь, работает, отпустил, неработает, за это я могу заплатить тебе до 60 рублей на qiwi, skype ylaunch

 

[Skillfull]

И что-бы работало на всех, (всем давались кастеты)

 

[Stas07]

Помогите сделать gosub поиска гоночных check pointow с выходными координатами 1@ 2@ 3@

 

[itsLegend]

Помогите сделать gosub поиска гоночных check pointow с выходными координатами 1@ 2@ 3@

Ня(это функция, а не gosub! ) :) :

:SearchCP
// 0AB1: @SearchCP 0 0@ 1@ 2@ 3@
var
    0@ : float
    1@ : float
    2@ : float
    3@ : int
    4@ : int
    5@ : int
    6@ : int
end
 
3@ = -1
4@ = 0
 
4@ += 0xC7F158
0A8E: 5@ = 4@ + 4
0A8D: 6@ = read_memory 5@ size 4 virtual_protect 0
 
if
    6@ <> 0
then
    0A8E: 5@ = 4@ + 16
    0A8D: 0@ = read_memory 5@ size 4 virtual_protect 0 // X
 
    0A8E: 5@ = 4@ + 20
    0A8D: 1@ = read_memory 5@ size 4 virtual_protect 0 // Y
 
    0A8E: 5@ = 4@ + 24
    0A8D: 2@ = read_memory 5@ size 4 virtual_protect 0 // Z
 
    0A8D: 3@ = read_memory 4@ size 1 virtual_protect 0 // Type
    {
        0 - Цилиндр со стрелкой
        1 - Цилиндр с финальным флажком
        2 - Цилиндр
        3 - Кольцо
        4 - Кольцо
        5 - Кольцо
        6 - Кольцо
        7 - Кольцо
        8 - Кольцо
    }
end
0AB2: ret 4 0@ 1@ 2@ 3@

Пример: 0AB1: @SearchCP 0 0@ 1@ 2@ 3@
0@ - X
1@ - Y
2@ - Z
3@ - Тип

Думаю разберешься. :)

 

[Stas07]

{$CLEO .cs}
if not 0@ = SAMP.Base()
then
end_thread
end

repeat
wait 400
until 0afa: struct

var
0@ : float
1@ : float
2@ : float
3@ : int
4@ : int
5@ : int
6@ : int
end

:1
wait 0
if and
Player.Defined($PLAYER_CHAR)
Actor.Driving($PLAYER_ACTOR)
84A7: not actor $PLAYER_ACTOR driving_boat
84C8: not actor $PLAYER_ACTOR driving_flying_vehicle
0ADC: test_cheat "1"
jf @1
9@ = Actor.Car($PLAYER_ACTOR)
if
Car.Defined(9@)
jf @1

:2
wait 0
018C: play_sound 1058 at 0.0 0.0 0.0
0AB1: @SearchCP 0 0@ 1@ 2@ 3@
02CE: 2@ = ground_z_at 1@ 2@ 2@
Car.SetDriverBehaviour(9@, Nowhere)
00AE: set_car 9@ traffic_behaviour_to 2
0423: set_car 9@ improved_handling_to 2.0 // (float)
03AB: unknown_car 0@ flag 1
Car.DriveTo(9@, 0@, 1@, 2@)
Car.SetMaxSpeed(9@, 50)
jump @1

///////--------------------gosub-------------
:SearchCP
wait 0
3@ = -1
4@ = 0

4@ += 0xC7F158
0A8E: 5@ = 4@ + 4
0A8D: 6@ = read_memory 5@ size 4 virtual_protect 0

if
6@ <> 0
then
0A8E: 5@ = 4@ + 16
0A8D: 0@ = read_memory 5@ size 4 virtual_protect 0 // X

0A8E: 5@ = 4@ + 20
0A8D: 1@ = read_memory 5@ size 4 virtual_protect 0 // Y

0A8E: 5@ = 4@ + 24
0A8D: 2@ = read_memory 5@ size 4 virtual_protect 0 // Z

0A8D: 3@ = read_memory 4@ size 1 virtual_protect 0 // Type
{
0 - ??????? ?? ????????
1 - ??????? ? ????????? ???????
2 - ???????
3 - ??????
4 - ??????
5 - ??????
6 - ??????
7 - ??????
8 - ??????
}
end
0AB2: ret 4 0@ 1@ 2@ 3@
где ошибка?

 

[itsLegend]

Ну во первых:

var
0@ : float
1@ : float
2@ : float
3@ : int
4@ : int
5@ : int
6@ : int
end

В саму функцию, как я указывал выше, и их потом можно будет использовать в коде.
Эта функция, так сказать, там "временные" переменные

Во вторых:

02CE: 2@ = ground_z_at 1@ 2@ 2@

исправь на (я так думаю :) )

02CE: 2@ = ground_z_at 1@ 2@ 999.0

В третьих:
Что именно не так?
Ошибки? Или не туда едет?

 

[Stas07]

вообще не едет.Стоит и всё.

 

[hnnssy]

В чём ошибка? Звука нет.

{$CLEO .cs}
{$Include includes\RakNetDefines.txt}
 
thread "text"
0662: "text"
 
 
var
0@:int
1@:int
end
 
// GetSampBase
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
 
while not SAMP.Available()
    wait 100
end
 
//Сообщение при входе на сервер
0AF8: samp add_message_to_chat "колокольчик" color COLOR_RED
 
 
 
 
 
while true
    wait 0
if
0AD2: 29@ = player $PLAYER_CHAR targeted_actor
    then
    0@ = Actor.Health(29@)
    wait 0
    1@ = Actor.Health(29@)
        if
        0@ > 1@
            then
            018C: play_sound 1141 at 0.0 0.0 0.0
            end
        end
end

 

[itsLegend]

В чём ошибка? Звука нет.

{$CLEO .cs}
{$Include includes\RakNetDefines.txt}
 
thread "text"
0662: "text"
 
 
var
0@:int
1@:int
end
 
// GetSampBase
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
 
while not SAMP.Available()
    wait 100
end
 
//Сообщение при входе на сервер
0AF8: samp add_message_to_chat "колокольчик" color COLOR_RED
 
 
 
 
 
while true
    wait 0
if
0AD2: 29@ = player $PLAYER_CHAR targeted_actor
    then
    0@ = Actor.Health(29@)
    wait 0
    1@ = Actor.Health(29@)
        if
        0@ > 1@
            then
            018C: play_sound 1141 at 0.0 0.0 0.0
            end
        end
end

Потому что, 0@ = 1@, она никак не больше и не меньше.

 

[hnnssy]

Потому что, 0@ = 1@, она никак не больше и не меньше.

Есть скрипт с забрызгиванием экрана кровью при потере хп. Там так же сравнивается 0@ и 1@.

 

[itsLegend]

Есть скрипт с забрызгиванием экрана кровью при потере хп. Там так же сравнивается 0@ и 1@.

Тогда ставь вместо > это >=