Популярные страницы сайта: скачать GTA: San Andreas на Андроид, iPhone, iPad, ПК, читы и коды.

Перейти к содержимому


Фото

Обсуждение и публикация Cleo-скриптов


  • Авторизуйтесь для ответа в теме
2893 ответов в этой теме

#2881 Dimoman_93

Dimoman_93

    Авторитет

  • Activists
  • PipPipPipPipPip
  • 543 сообщений
  • Регистрация 13.03.2013

Отправлено 09 Март 2019 - 12:32

ID вертолета поменял? Модлоадер у меня стоит. Фла, там где скрипты тестю, нету. Но с ним тоже не должно быть проблем. Так как просто вертолет будет на добавочной id. Мое мнение. И еще данный скрипт меняет лишь параметры handling'a у FIRETRUK (у моделей firela и firetruk).

 ЗЫ. Никто не подскажет сайт похожий на http://gtascript.ru. Список опкодов был нормально раскидан по разделам и плюс обозначения для каждого опкода, но похоже сайт закрылся.

Бред какой-то, но все равно не работает, хотя параметры меняются. Чистая GTA SA не помогает. Работает, только если вручную поменять настройки.

Ладно фиг с ним, наверное это опять очередная недоработка обкуренных лгбтшников из R*.


Сообщение изменено: Dimoman_93 (09 Март 2019 - 12:33)


#2882 Constantines

Constantines

    Киллер

  • Members
  • PipPipPip
  • 111 сообщений
  • Регистрация 29.05.2017
  • Страна:

Отправлено 10 Март 2019 - 08:57

     Значит надо додумать скрипт, чтобы настройки менялись у той машины которая прицеплена к магниту. Но у меня и этот работает)) На днях наткнулся на скрипт от DenSpb, где дают звезду за проезд на красный, но подумал как то не совсем логично. В жизни вас в розыск никто подавать за такое не будет. И вот для тех, кому некуда девать бабло в игре, чуток изменил код, и теперь за проезд на красный с вас будут снимать 490$ (именно такой ценник за данное нарушение в сша нашел на просторах интернета), как бы автофиксация нарушений.

штраф 490$
//Проехал на красный - плати штраф 490$ (клео-скрипт для гта са, автор: DenSPB, доработка: L_S)
{$CLEO}
var
    17@ : Integer
    18@ : Integer
    6@ : Integer
    8@ : Integer
    29@ : Integer
    30@ : Integer
    25@ : Integer
end
const
    Player_WAS_in_front_of_red_traffic_light = 17@
    Traffic_light_type = 18@                             //   1 or 2
    Type_of_red_traffic_light = 6@                      // 0,1,2,3         0 - both not red       3 - both red
    Player_IS_in_front_of_red_traffic_light = 8@
    Traffic_light_model = 25@
end
19@ = 30000.0
20@ = 30000.0
//---------------------------------------------------------------------------------------------------- 
while true
    wait 0
    if
        player.Defined($PLAYER_CHAR)
    then
        if and
            actor.Driving($PLAYER_ACTOR)
            84A7:   not actor $PLAYER_ACTOR driving_boat 
            84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
        then
            if or
                89AE: not actor $PLAYER_ACTOR driving_train 
                actor.DrivingVehicleType($PLAYER_ACTOR, #TRAM)
            then
                03C0: 28@ = actor $PLAYER_ACTOR car 
                if
                    8ABD: not vehicle 28@ siren_on
                then
                    //--------------------------------------------------------------------------Определяем ближайший светофор
                    actor.StorePos($PLAYER_ACTOR 0@ 1@ 2@)
                    0509: 14@ = distance_between_XY 0@ 1@ and_XY 19@ 20@
                    if
                        gosub @GET_RANDOM_OBJECT
                    then
                        23@ = 0
                        0085: Traffic_light_model = 31@ // (int)           
                        0087: 19@ = 12@ // (float)
                        0087: 20@ = 13@ // (float)
                        0087: 27@ = 26@ // (float)
                        27@ += 1.0
                        0509: 14@ = distance_between_XY 0@ 1@ and_XY 19@ 20@
                        0176: 24@ = object 9@ Z_angle
                        02F6: 10@ = cosine 24@ // (float)  синус
                        02F7: 22@ = sine 24@ // (float)  косинус
                        0073: 10@ /= 22@ // (float)    тангенс
                        //----------------------------------Определяем тип светофора
                        if and
                            24@ >= 60.0
                            24@ <= 150.0
                        then
                            Traffic_light_type = 2
                        else
                            if and
                                24@ >= 240.0
                                24@ <= 330.0
                            then
                                Traffic_light_type = 2
                            else
                                Traffic_light_type = 1
                            end
                        end         
                    end
                    //-----------------------------------------------------------------Производим проверки от незаслуженных звезд 
                    actor.StorePos($player_actor 0@ 1@ 2@)
                    if and          
                        14@ < 30.0  // если ближайший светофор достаточно близко
                        06BD: no_obstacles_between 0@ 1@ 2@ and 19@ 20@ 27@ solid 1 car 0 actor 0 object 0 particle 0
                        // и нет препятствий между светофором и игроком 
                    then   // иначе интереса светофор не представляют
                    else
                        23@ = 0
                        continue
                    end
                    //------------------------Определяем позицию игрока относительно светофора
                    0087: 22@ = 0@ // (float)
                    0063: 22@ -= 19@ // (float) 
                    006B: 22@ *= 10@ // (float)
                    005B: 22@ += 20@ // (float)
                    if or
                        24@ < 90.0
                        24@ > 270.0
                    then
                        if
                            0025:   22@ > 1@ // (float)    Y_act < tg_Z_tl*(X_act-X_tl)+Y_tl
                        then
                            Player_IS_in_front_of_red_traffic_light = True    
                        else
                            Player_IS_in_front_of_red_traffic_light = False
                        end
                    else
                        if
                            24@ == 90.0
                        then
                            if
                                0025:   0@ > 19@ // (float)    X_act > X_tl
                            then
                                Player_IS_in_front_of_red_traffic_light = True 
                            else
                                Player_IS_in_front_of_red_traffic_light = False
                            end
                        else
                            if
                                24@ == 270.0
                            then
                                if
                                    0025:   19@ > 0@ // (float)    X_act < X_tl
                                then
                                    Player_IS_in_front_of_red_traffic_light = True 
                                else
                                    Player_IS_in_front_of_red_traffic_light = False
                                end
                            else   //  Z > 90  AND Z < 270
                                if
                                    0025:   1@ > 22@ // (float)    Y_act > tg_Z_tl*(X_act-X_tl)+Y_tl
                                then
                                    Player_IS_in_front_of_red_traffic_light = True    
                                else
                                    Player_IS_in_front_of_red_traffic_light = False
                                end
                            end
                        end
                    end    
                    //------------------------------------------------------------------------
                    if
                        23@ == 0
                    then 
                        if or      // Список светофоров, запрещённых к пересечению только спереди (при красном сигнале)
                            Traffic_light_model == 3855
                            Traffic_light_model == 1315
                            Traffic_light_model == 1352
                            Traffic_light_model == 1350
                            Traffic_light_model == 1351
                            Traffic_light_model == 3516
                        then
                            if
                                Player_IS_in_front_of_red_traffic_light == True
                            then
                                23@ = 1
                            end
                        else
                            if or   // Список светофоров, запрещённых к пересечению и спереди, и сзади
                                Traffic_light_model == 1283
                                Traffic_light_model == 1284
                            then                                
                                23@ = 1
                            end
                        end
                    else
                        if
                            23@ == 2
                        then
                            if
                                Player_IS_in_front_of_red_traffic_light <> Player_WAS_in_front_of_red_traffic_light 
                            then
                                23@ = 3
                            end
                        end    
                    end
                    Player_WAS_in_front_of_red_traffic_light = Player_IS_in_front_of_red_traffic_light   
                    //---------------------------Определяем текущие цвета светофоров типов 1 и 2
                    0AA7: call_function 0x49D3A0 num_params 0 pop 0 29@   // Направление 2 (запад-восток)
                    0AA7: call_function 0x49D350 num_params 0 pop 0 30@   // Направление 1 (север-юг)
                    for 16@ = 8 to 31
                        08C3: clear 29@ bit 16@
                        08C3: clear 30@ bit 16@
                    end  // значения функций: 0 - зелёный, 1 - желтый, 2 - красный
                    if
                        30@ == 2
                    then
                        if
                            29@ == 2
                        then
                            Type_of_red_traffic_light = 3 // both are red
                        else
                            Type_of_red_traffic_light = 1
                        end
                    else
                        if
                            29@ == 2
                        then
                            Type_of_red_traffic_light = 2
                        else
                            Type_of_red_traffic_light = 0
                        end            
                    end    
                    //--------------------------------------------------------------------------
                    if or
                        Type_of_red_traffic_light == 3
                        Type_of_red_traffic_light == Traffic_light_type
                    then
                        if
                            23@ == 1
                        then
                            23@ = 2
                        else
                            if
                                23@ == 3
                            then
                                if
                                    player.Defined($PLAYER_CHAR)
                                then
                                    Player.Money($PLAYER_CHAR) += -490                                                                                                                   
                                end                                   
                                23@ = 0
                            end
                        end    
                    else
                        23@ = 0
                    end        // type == type
                else
                    23@ = 0 
                end // siren on
            else
                23@ = 0
            end
        else
            23@ = 0
        end
    else
        23@ = 0
    end // player defined
end // while main
//-----------------------------------------------------------------------------------------

:GET_RANDOM_OBJECT
if
    0AE3: 9@ = random_object_near_point 0@ 1@ 2@ in_radius 30.0 find_next 0
then
    repeat
        0984: 31@ = object 9@ model
        if and
            31@ <> 3855  //   GAY_TRAFFIC_LIGHT      +
            31@ <> 1315  //   TRAFFICLIGHT1          +
            31@ <> 1352  //   CJ_TRAFFIC_LIGHT3      +
            31@ <> 1350  //   CJ_TRAFFIC_LIGHT4      +
            31@ <> 1351  //   CJ_TRAFFIC_LIGHT5      +
            31@ <> 3516  //      VGSSTRIPTLIGHTS1    +
            31@ <> 1283  //       MTRAFFIC1          +
        then
            if
                31@ <> 1284   //      MTRAFFIC2      +
            then
                31@ = 0
            end
        end
        if
            31@ <> 0
        then
            object.StorePos(9@ 12@ 13@ 26@)
            0509: 14@ = distance_between_XY 0@ 1@ and_XY 19@ 20@ 
            0509: 3@ = distance_between_XY 0@ 1@ and_XY 12@ 13@        
            if
                0025:   14@ > 3@ // (float)     
            then
                0485: return_true
                return
            end
        end
    until 8AE3: 9@ = random_object_near_point 0@ 1@ 2@ in_radius 30.0 find_next 1
end
8485: return_false
return 



#2883 Constantines

Constantines

    Киллер

  • Members
  • PipPipPip
  • 111 сообщений
  • Регистрация 29.05.2017
  • Страна:

Отправлено 23 Март 2019 - 16:19

     Доброго времени суток.Кто-нибудь пользовался Game Handling Editor v1.0 от Chel555. Чет он у меня нихрена значения не вбивает и не меняет. Даже с выбором id транспорта проблемы. Когда удаляю 400, то сразу вылет. Выбор сидя из транспорта работает. Как выставить в lower limit "-0.2" вообще не понятно. Т.к. минус сразу убирается, при редактировании и запятую тоже выставить не получается.

     Разобрался. Забыл отредактировать. В общем "минус" можно приписать после того написал число, а чтобы перейти за запятую там есть кнопка "/10". Не все изменения меняются сразу. Иногда приходится респавнить авто. Но зато хандлинг намного удобнее настраивать, чем постоянно выходить из игры.


Сообщение изменено: Constantines (23 Март 2019 - 20:00)


#2884 Constantines

Constantines

    Киллер

  • Members
  • PipPipPip
  • 111 сообщений
  • Регистрация 29.05.2017
  • Страна:

Отправлено 25 Март 2019 - 21:42

Хм... а никто не хочет сделать дино-стенд, на подобие NFS U2?



#2885 Funky

Funky

    Наемник

  • Members
  • Pip
  • 39 сообщений
  • Регистрация 04.01.2018
  • Страна:

Отправлено 26 Март 2019 - 13:35

Хм... а никто не хочет сделать дино-стенд, на подобие NFS U2?

А в чем его прикол для сан андреаса и что им там проверять? На кой он там нужен? В андере он там не просто так сделан, а что бы проверить характеристики после настроек и сравнивать до и после. Что с ним делать в СА - не понятно мне. 


Сообщение изменено: Funky (26 Март 2019 - 13:36)


#2886 Constantines

Constantines

    Киллер

  • Members
  • PipPipPip
  • 111 сообщений
  • Регистрация 29.05.2017
  • Страна:

Отправлено 27 Март 2019 - 09:53

А в чем его прикол для сан андреаса и что им там проверять? На кой он там нужен? В андере он там не просто так сделан, а что бы проверить характеристики после настроек и сравнивать до и после. Что с ним делать в СА - не понятно мне. 

Настраивать хандлинг автомобилей. 

По поводу вертолета с магнитом, нашел опкод, с которым не надо будет работь с игровой памятью. 

088B: set_car 1@ form_drag_multiplier_to 0.1 (Установить машине 1@ притяжение: значением 0.1 чем меньше притяжение, тем легче ее будет поднять вертолету) 


Сообщение изменено: Constantines (27 Март 2019 - 09:56)


#2887 Constantines

Constantines

    Киллер

  • Members
  • PipPipPip
  • 111 сообщений
  • Регистрация 29.05.2017
  • Страна:

Отправлено 14 Апрель 2019 - 10:04

     Всем привет, если есть кто живой. Нужна помощь. А то чет и так и этак. но не выходит нихрена. Есть код, записывающий текущую скорость авто в файл:

Код
{$CLEO .cs}
0000:
:100kmh
wait 1000
if and
056D:   actor $PLAYER_ACTOR defined 
Actor.Driving($PLAYER_ACTOR)
jf @100kmh
0811: 3@ = actor $PLAYER_ACTOR used_car
02E3: 1@ = car 3@ speed
1@ *= 3.6
0092: 2@ = float 1@ to_integer

if
2@ > 100
then
0AF1: write_int 2@ to_ini_file "cleo\test.ini" section "SPEED" key "curent"
end
jump @100kmh 

 

     Есть код таймера (отдельно уже нету). По отдельности они работают. Сам по себе таймер (секундомер) и чет типа спидометра (при чем пишет реальную скорость, в отличие от многих спидометров, думаю потом даже какой нибудь подправить). Но когда совмещаю оба кода, что-то не клеится, то вылетает игра, после посадки авто, то таймер на работает.

Последнее совмещение
{$CLEO .cs}
0000:
:100KMH2
wait 1000
if and
056D:   actor $PLAYER_ACTOR defined 
Actor.Driving($PLAYER_ACTOR)
jf @100KMH2
0811: 3@ = actor $PLAYER_ACTOR used_car
02E3: 1@ = car 3@ speed
1@ *= 3.6
0092: 2@ = float 1@ to_integer
 
:100KMH2_2
wait 0
if 00E1:   player 0 pressed_key 1 // Move forvard
jf @100KMH2
 
:100KMH3
while true
     
    0A8F: 0@ = 0 + 32@ // int
     
    03F0: enable_text_draw 1
    045A: draw_text_1number 200.0 200.0 GXT 'NUMBER' number 0@  // ~1~

   if 
   0@ == 1740
   then continue
   0AF1: write_int 2@ to_ini_file "cleo\test.ini" section "SPEED" key "curent"
   else jump @100KMH2
end
end 

 

    Суть скрипта в том, чтобы он записал ту скорость автомобиля, которую он достиг с момента нажатия на педаль газа и  прохождения 1740 мс. Т.е. чтобы таймер всегда ввел отсчет с 0 и начинал работу после нажатия клавиши, отвечающую за разгон автомобиля, и прерывался в двух случаях:

1) когда вышеупомянутая клавиша отпущена;

2) когда прошло 1740 мс.

   Или наоборот, чтобы в файл записывалось время в мс, которое прошло со старта автомобиля до достижения скорости в 100 км/ч. В обоих вариантах можно сделать не только для одного промежутка времени или скорости, а для двух, трех. Например, для скорости 200 и 300 км/ч (подойдет для всех) или для времени 5340 и 14970 (в моем случае). В общем буду рад любой помощи. Спасибо за внимание.

ЗЫ. Не знаю кому пригодиться данный скрипт, но мне нужен для конкретной настройки ускорения транспорта. 


Сообщение изменено: Constantines (14 Апрель 2019 - 10:06)


#2888 kenking

kenking

    Скриптер

  • Modmakers
  • PipPipPipPipPipPip
  • 2 005 сообщений
  • Регистрация 19.02.2009
  • Страна:

Отправлено 14 Апрель 2019 - 12:41

Или наоборот, чтобы в файл записывалось время в мс, которое прошло со старта автомобиля до достижения скорости в 100 км/ч.

Зачем записывать в файл? Можно просто вывести на экран, примерно так:

{$CLEO .cs}
0000:

while true 
wait 0
    if 
      Player.Defined($PLAYER_CHAR)
    then
        if
          Actor.Driving($PLAYER_ACTOR)
        then
            03C0: 31@ = actor $PLAYER_ACTOR car
            if
              01C1: car 31@ stopped
            then
                if
                  00E1: key_pressed 0 16
                then
                    32@ = 0
                    1@ = 0
                    while 00E1: key_pressed 0 16
                       if
                         not Car.Wrecked(31@)
                       jf break
                       if 
                         00DB: actor $PLAYER_ACTOR in_car 31@
                       jf break
                       02E3: 0@ = car 31@ speed
                       0@ *= 3.6
                       0092: 0@ = float 0@ to_integer
                       if
                         0@ == 100
                       then 
                           1@ = 1 
                           break
                       end    
                       03F0: enable_text_draw 1
                       045A: draw_text_1number 5.0 5.0 GXT 'NUMBER' number 0@  
                       wait 0
                    end
                    if
                      1@ == 1
                    then  
                        01E3: show_text_1number_styled GXT 'NUMBER' number 32@ time 5000 style 4   
                    end
                end
            end
        end  
    end
end    


#2889 liaz6212

liaz6212

    Камазоид

  • Helpful
  • PipPipPipPipPipPip
  • 2 491 сообщений
  • Регистрация 29.10.2009
  • Страна:

Отправлено 31 Май 2019 - 23:30

Меня пробил склероз.

 

Чем можно заставить пей и спрей перекрашивать авто, которые обычно в покраску не хотят брать? Типа автобуса.


GTA III Soviet Cars Pack 

GCU forum
YouTube

SA 90's Сar Pack

Модест Матвеевич представлялся мне сейчас совсем в особом свете. Я был убежден, что стоило бы Модесту Матвеевичу появиться здесь и заорать на упыря: "Вы это прекратите, товарищ Выбегалло!" - как упырь немедленно бы прекратил.  

Стругацкие «Понедельник начинается в субботу»

 

What can we say about this guy. The ancient Romans had a word for it: asshole.

The Sopranos


#2890 spartaque12

spartaque12

    Авторитет

  • Activists
  • PipPipPipPipPip
  • 526 сообщений
  • Регистрация 05.05.2012
  • Страна:

Отправлено 01 Июнь 2019 - 00:46

Меня пробил склероз.

 

Чем можно заставить пей и спрей перекрашивать авто, которые обычно в покраску не хотят брать? Типа автобуса.

трейнером :D зачем эти покрасочные нужны))


  • Roma-K нравится это

#2891 liaz6212

liaz6212

    Камазоид

  • Helpful
  • PipPipPipPipPipPip
  • 2 491 сообщений
  • Регистрация 29.10.2009
  • Страна:

Отправлено 01 Июнь 2019 - 01:23

Ссыльку. 


GTA III Soviet Cars Pack 

GCU forum
YouTube

SA 90's Сar Pack

Модест Матвеевич представлялся мне сейчас совсем в особом свете. Я был убежден, что стоило бы Модесту Матвеевичу появиться здесь и заорать на упыря: "Вы это прекратите, товарищ Выбегалло!" - как упырь немедленно бы прекратил.  

Стругацкие «Понедельник начинается в субботу»

 

What can we say about this guy. The ancient Romans had a word for it: asshole.

The Sopranos


#2892 spartaque12

spartaque12

    Авторитет

  • Activists
  • PipPipPipPipPip
  • 526 сообщений
  • Регистрация 05.05.2012
  • Страна:

Отправлено 01 Июнь 2019 - 06:59

https://gtaforums.co...rainermod-menu/



#2893 Dimoman_93

Dimoman_93

    Авторитет

  • Activists
  • PipPipPipPipPip
  • 543 сообщений
  • Регистрация 13.03.2013

Отправлено 09 Июль 2019 - 07:43

kenking, можешь обновить свой скрипт "парковщик 3.0"? Я написал скриптик для выбора координат присоединения к Packer и записи этих координат в ini. Нужно, чтобы твой скрипт научился считывать координаты присоединения для разных машин из этого ini. Параметры дорожного просвета тоже изменяются...

Результаты работы скрипта в ini
test.jpg

 


Сообщение изменено: Dimoman_93 (09 Июль 2019 - 07:49)


#2894 kenking

kenking

    Скриптер

  • Modmakers
  • PipPipPipPipPipPip
  • 2 005 сообщений
  • Регистрация 19.02.2009
  • Страна:

Отправлено Вчера, 08:33

Обещать не буду, возможно.






1 посетителей читают эту тему

0 пользователей, 1 гостей, 0 скрытых