Вопросы по созданию КЛЕО-скриптов

Den_spb

Дата: Суббота, 30.10.2010, 13:13 | Сообщение # 346

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Quote (CodeName_47)

Мне не то надо было! Скрипт работает так он все время включен а когда нажимаешь клавишу Shift тачка подпрыгивает мне надо было чтоб когда нажмешь JUMP тачка сразу не улетала а просто включался скрипт и потом уже когда тока Shift жмешь чтобы подпрыгивала!

В следующий раз старайся точнее описывать суть вопроса. Добавил проверку на нажатие клавиши:

Code

{$CLEO}
0AF2: 2@ = get_float_from_ini_file "CLEO\VEHICLEJUMP.INI" section "PARAMETERS" key "MINHEIGHT" //IF and SET
0AF2: 3@ = get_float_from_ini_file "CLEO\VEHICLEJUMP.INI" section "PARAMETERS" key "SPEEDUP" //IF and SET
0AF0: 4@ = get_int_from_ini_file "CLEO\VEHICLEJUMP.INI" section "PARAMETERS" key "PAUSETIME" //IF and SET
while true
        wait 0
        if
            not player.Defined($player_char)
        then
            continue
        end
        if
            0ADC: test_cheat "JUMP"
        then
            if
                5@ == 0
            then
                5@ = 1
            end
            if
                5@ == 2
            then
                5@ = 0
            end
        else
            if
                5@ == 1
            then
                5@ = 2
            end
        end
        if and
            5@ <> 0
            Actor.Driving($PLAYER_ACTOR)
            0025:   32@ > 4@ // (float)
            0AB0:  key_pressed 16
        then
            32@ = 0
            03C0: 0@ = actor $PLAYER_ACTOR car
            0087: 1@ = 2@ // (float)
            005B: 1@ += 3@ // (float)
            07D5: set_car 0@ velocity_in_direction_XYZ 0.0 0.0 1@ rotation_velocitiesXY 0.0 0.0 unk 0.0
        end
end

CodeName_47

Дата: Суббота, 30.10.2010, 14:44 | Сообщение # 347

Группа: Пользователи

Сообщений: 10

Статус: Offline

спасибо все работает!!! smile

а у тебя есть хороший учебник по клео 3 и 4?! если есть скинь пожалуйсто!!

Den_spb

Дата: Суббота, 30.10.2010, 15:04 | Сообщение # 348

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Лучше справки Санни Билдера ничего нет (вызывается кнопкой Ф12). К клео4 также прилагается справка с описанием новых опкодов, но они предназначены в основном для опытных пользователей.

CodeName_47

Дата: Суббота, 30.10.2010, 15:16 | Сообщение # 349

Группа: Пользователи

Сообщений: 10

Статус: Offline

А у меня в сани билдере нет чото Клео 4 help

Den_spb

Дата: Суббота, 30.10.2010, 15:18 | Сообщение # 350

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Файл со справкой к КЛЕО4 находится в папке GTA_San_Andreas

CodeName_47

Дата: Суббота, 30.10.2010, 17:21 | Сообщение # 351

Группа: Пользователи

Сообщений: 10

Статус: Offline

Ок все ясно СПС!!!

Добавлено (30.10.2010, 17:21)
---------------------------------------------
Как в этом скрипте переназначить клавишу на 0AB0:
Пробовал просто изменить не получается, а по другому как я не знаю

//-------------MAIN---------------
0000: NOP

:NONAME_2
wait 0
if
00E1: player 0 pressed_key 4
jf @NONAME_2
Object.RemoveReferences(9@)
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
3@ = 4.0
gosub @NONAME_208
if
not 9@ == -1
jf @NONAME_2
08E9: set_object 9@ liftable 1
07C9: AS_actor $PLAYER_ACTOR walk_to_object 9@ then_lift_and_hold_in_hands
jump @NONAME_2
16@ = 305868
17@ = -613
20@ = 1988
jump @NONAME_236
16@ = 305869
17@ = -570
18@ = -1
20@ = 2584
Player.Defined($PLAYER_CHAR)
jf @NONAME_236
Actor.Driving($PLAYER_ACTOR)
jf @NONAME_236
03C0: 18@ = actor $PLAYER_ACTOR car
jump @NONAME_236

:NONAME_208
16@ = 305871
17@ = -656
20@ = 412

:NONAME_236
0085: 4@ = 16@ // (int)
008B: 4@ = &0(4@,1i) // (int)
0085: 19@ = 4@ // (int)
19@ -= 10787160
19@ /= 4
008B: 19@ = &0(19@,1i) // (int)
4@ -= 10787168
4@ /= 4
008B: 4@ = &0(4@,1i) // (int)
9@ = -1
0085: 11@ = 4@ // (int)
10@ = 0

:NONAME_344
4@ += 20
gosub @NONAME_879
0085: 4@ = 5@ // (int)
not 4@ == 0
jf @NONAME_690
4@ += 48
gosub @NONAME_879
0085: 12@ = 5@ // (int)
4@ += 4
gosub @NONAME_879
0085: 13@ = 5@ // (int)
4@ += 4
gosub @NONAME_879
0085: 14@ = 5@ // (int)
050A: 15@ = distance_between_XYZ 0@ 1@ 2@ and_XYZ 12@ 13@ 14@
0025: 3@ > 15@ // (float)
jf @NONAME_690
0085: 9@ = 10@ // (int)
0085: 4@ = 16@ // (int)
008B: 4@ = &0(4@,1i) // (int)
4@ += 4
gosub @NONAME_879
0085: 4@ = 5@ // (int)
005A: 4@ += 9@ // (int)
gosub @NONAME_730
9@ *= 256
005A: 9@ += 5@ // (int)
jump 17@
Car.Defined(9@)
jf @NONAME_668
if or
003B: 18@ == 9@ // (int)
Car.Wrecked(9@)
jf @NONAME_682
jump @NONAME_668
Actor.Defined(9@)
jf @NONAME_668
if or
003C: $PLAYER_ACTOR == 9@ // (int)
Actor.Dead(9@)
jf @NONAME_682
jump @NONAME_668
not Object.Exists(9@)
jf @NONAME_682

:NONAME_668
9@ = -1
jump @NONAME_690

:NONAME_682
0085: 3@ = 15@ // (int)

:NONAME_690
005A: 11@ += 20@ // (int)
0085: 4@ = 11@ // (int)
10@ += 1
002D: 10@ >= 19@ // (int)
jf @NONAME_344
return

:NONAME_730
0085: 6@ = 4@ // (int)
0085: 8@ = 4@ // (int)
4@ /= 4
4@ *= 4
0062: 8@ -= 4@ // (int)
8@ *= 8
4@ -= 10787168
4@ /= 4
008B: 7@ = &0(4@,1i) // (int)
0085: 4@ = 6@ // (int)
5@ = 0
6@ = 0

:NONAME_826
08B9: test 7@ bit 8@
jf @NONAME_849
08BF: set 5@ bit 6@

:NONAME_849
6@ += 1
8@ += 1
6@ == 8
jf @NONAME_826
return

:NONAME_879
0085: 6@ = 4@ // (int)
4@ -= 10787168
4@ /= 4
008B: 5@ = &0(4@,1i) // (int)
0085: 4@ = 6@ // (int)
return

Сообщение отредактировал CodeName_47 - Суббота, 30.10.2010, 17:22

Den_spb

Дата: Суббота, 30.10.2010, 17:54 | Сообщение # 352

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Quote (CodeName_47)

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

Что на что ты менял?

CodeName_47

Дата: Суббота, 30.10.2010, 17:56 | Сообщение # 353

Группа: Пользователи

Сообщений: 10

Статус: Offline

я строчку 00E1: player 0 pressed_key 4 заменил строкой 0AB0: key_pressed 69 больше ничего

Den_spb

Дата: Суббота, 30.10.2010, 18:03 | Сообщение # 354

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Если скрипт работал в старом варианте, то должен работать и в новом варианте (замена правильная - код будет проверять нажатие кнопки E).

CodeName_47

Дата: Суббота, 30.10.2010, 18:29 | Сообщение # 355

Группа: Пользователи

Сообщений: 10

Статус: Offline

Неа не работает, проверь я хз это!
еще одному скриптеру кинул этот скрипт он сделал у него тоже не работает!!! игра вылетает

Сообщение отредактировал CodeName_47 - Суббота, 30.10.2010, 18:30

[ED]Andr

Дата: Суббота, 30.10.2010, 22:13 | Сообщение # 356

Группа: Пользователи

Сообщений: 12

Статус: Offline

Наверно данный скрипт довольно старый,den,там используется чтение памяти через массивы,может быть это связано и изза этого не работает?Я проверял 0AB0,потом проверял другой проверкой

Code

0@ = 304536
if
&0(0@,1i) = 0x00FF0000
jf @label

Всёравно вылетает.

Den_spb

Дата: Суббота, 30.10.2010, 23:32 | Сообщение # 357

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Quote (CodeName_47)

Неа не работает, проверь я хз это! еще одному скриптеру кинул этот скрипт он сделал у него тоже не работает!!! игра вылетает

Вообще у скрипта довольно странная структура, отсутствуют даже проверки на существование. Что касается вылета, то он происходит после выполнения команды jump 17@ (посмотрел в scmlog).

Quote (|ED|Andr)

там используется чтение памяти через массивы

Это не имеет значения - любой способ чтения памяти должен работать.

CodeName_47

Дата: Пятница, 05.11.2010, 12:34 | Сообщение # 358

Группа: Пользователи

Сообщений: 10

Статус: Offline

066A: 5@ = attach_particle "FIRE_BIKE" to_actor 4@ with_offset 0.0 0.0 0.0 rotation 0.0 0.0 0.0 flag 1

что означает flag 1 в этой строчке и можно ли его менять?

Den_spb

Дата: Пятница, 05.11.2010, 15:16 | Сообщение # 359

Создатель сайта

Группа: Администраторы

Сообщений: 1595

Статус: Offline

Quote (CodeName_47)

что означает flag 1 в этой строчке и можно ли его менять?

В справке имеются описания к другим подобным опкодам (066B, 066D), в которых сказано следующее: "1 - этот параметр, стоящий в самом конце команды,всегда в игре равен 1, так его и оставляйте".
Чтобы выяснить назначение неизвестного параметра, можно написать небольшой тестовый скрипт, использующий интересующий опкод с различными значениями этого параметра.

ТЭВЗ_FECL

Дата: Воскресенье, 07.11.2010, 09:22 | Сообщение # 360

Группа: Модераторы

Сообщений: 36

Статус: Offline

ВОт написал скрипт, но происходит следующее:
1.Баллоны создаются автоматически (их сотни)!!!
2.Баллоны висят в воздухе (если в них выстрелить то они падают)
3.Баллоны не взрываются
Den помоги плиз....
Ничего не пойму