SannyBuilder.com Forums

{$CLEO}

:TestObject
if and
    0AB0:  key_pressed 0x2D // Insert
    0AB0:  key_pressed 0x55 // U
then
    04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 1.5 -0.5
    Model.Load(1792)
    3@ = Object.Init(1792, 0@, 1@, 2@)
    Model.Destroy(1792)
    08E9: set_object 3@ liftable 1
    gosub @FreezeClock      // ??? 
else
    gosub @ToggleRiotsOn    // ???
end
0A93: end_custom_thread

Еще есть опкод отключающий любую клавишу:

07CC: set_player $PLAYER_CHAR button_15 0

Почитай хелп, там кое-что есть.

Убери проверку if 00E1:   player 0 pressed_key 4 then … end.

Это было сделано для быстроты и кроме того у тебя в скрипте это есть,  неужели сам прикрутить не смог.

{$CLEO}

const
    iconX   = 12@
    iconY   = 13@
    iconZ   = 14@
    hIcon   = 15@
    hPanel  = 16@
    rowId   = 17@
    i       = 18@
    tmp     = 19@
end

var
    0@:     Array 12 of Integer
    20@:    Array 12 of Integer
end

iconX = 2132.0
iconY = -1149.3
iconZ = 24.2
02A7: hIcon = create_icon_marker_and_sphere 57 at iconX iconY iconZ

0@ = 4300
1@ = 6100
2@ = 4200
3@ = 6200
4@ = 6500
5@ = 5100
6@ = 4900
7@ = 500
8@ = 5300
9@ = 7400
10@ = 5300
11@ = 8000

20@ = #PRIMO
21@ = #REGINA
22@ = #BULLET
23@ = #BURRITO
24@ = #ESPERANT
25@ = #GREENWOO
26@ = #TAHOMA
27@ = #NEBULA
28@ = #PICADOR
29@ = #SABRE
30@ = #TORNADO
31@ = #BUCCANEE

while true
    wait 0
    if
        Player.Defined($PLAYER_CHAR)
    then
        if
            0102:   actor $PLAYER_ACTOR in_sphere iconX iconY iconZ radius 1.2 1.2 3.0 sphere 0 stopped_on_foot 
        then
            Player.CanMove($PLAYER_CHAR) = False
            gosub @PanelCreate
            gosub @PanelProc
            gosub @PanelDestroy
            Player.CanMove($PLAYER_CHAR) = True
            Actor.PutAt($PLAYER_ACTOR, 2132.0303, -1146.5492, 24.581)
            Actor.Angle($PLAYER_ACTOR) = 4.7
        end
    end
end

:PanelCreate
03E6: remove_text_box 
08D4: hPanel = create_panel_with_title 'DEALCAR' position 29.0 165.0 width 60.0 columns 2 interactive 1 background 1 alignment 1
08D6: set_panel hPanel column 0 alignment 1
09DB: set_panel hPanel column 0 width 140
08DB: set_panel hPanel column 0 header 'DUMMY' data 'PRIMO' 'REGINA' 'BULLET' 'BURRITO' 'ESPERAN' 'GREENWO' 'TAHOMA' 'NEBULA' 'PICADOR' 'SABRE' 'TORNADO' 'BUCCANE'
08D6: set_panel hPanel column 1 alignment 2
08DB: set_panel hPanel column 1 header 'COST' data 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'
for i = 0 to 11
    08EE: set_panel hPanel column 1 row i text_1number GXT 'DOLLAR' number 0@[i]  // $~1~
end
090E: set_panel hPanel active_row 0
return

:PanelProc
while true
    wait 0
    if
        00E1:   player 0 pressed_key 15
    then
        Break
    end
    if
        00E1:   player 0 pressed_key 16
    then
        08D7: rowId = panel hPanel active_row
        0085: tmp = 0@[rowId] // (int) 
        if
            not Player.Money($PLAYER_CHAR) > tmp 
        then
            00BC: show_text_highpriority GXT 'IE07' time 5000 flag 1  // ~r~You don't have enough cash!     
        else
            tmp *= -1
            Player.Money($PLAYER_CHAR) += tmp
            gosub @SpawnCar
            Break
        end         
    end 
end
return

:PanelDestroy
03E6: remove_text_box
08DA: remove_panel hPanel 
return

:SpawnCar
03BF: set_player $PLAYER_CHAR ignored_by_everyone 1
0169: set_fade_color_RGB 0 0 0
fade 0 1500
while fading
    wait 0
end
Model.Load(20@[rowId])
while not Model.Available(20@[rowId])
    wait 0
end
0395: clear_area 1 at 2123.8 -1140.3 26.5 radius 2.0 
tmp = Car.Create(20@[rowId], 2123.8, -1140.3, 26.5)
Car.Angle(tmp) = 351.0
Camera.SetPosition(2127.2, -1149.4, 26.2, 0, 0, 0)
Camera.PointAt(2123.8, -1140.3, 26.5, 2)
wait 2000
fade 1 1500
while fading
    wait 0
end
wait 1000
Camera.Restore_WithJumpCut
Camera.SetBehindPlayer
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
Car.RemoveReferences(tmp)
Model.Destroy(20@[rowId])
wait 1000
return

2jayrocc:
У меня (CLEO 3 Library v3.0.846, SCMLog v1.0.5) все работает.  Проверь, может у тебя нет файла scmlog.ini или переименуй scmlog.cleo в scmlog.asi и скопируй в папку с gta_sa.exe.

Да. Если значение равно 0 то актер может плавать, если 1, то пойдет ко дну

А что неплохая мысль, я за.

Смотри хелп.

0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to 1@
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
0AB7: get_vehicle $CAR number_of_gears_to 10@
0AB8: get_vehicle $CAR current_gear_to 11@
0AB9: get_mp3 $hMP3 state_to 7@

При загрузки сохранения виснет. Установленные плагины и скрипты: GxtHook.cleo, showsavescreen.cs, dbmu_cleo.cs. Игра сохранена с помощью showsavescreen.cs.

2Seemann:
Залей sa_compact на паблик.

На 100%

В простых потоках от 0@ до 33@, для миссий от 0@ до 1023@.

А координаты точно правильные? 207.6017 -98.2868 1005.2578. Это вообще где такое место.

Скорее всего да. Почти все что было предложено уже есть, только надо найти альтернативу StringGrid'у, а то он какой-то глючный.

У меня есть еще предложение использовать вместо StringGrid Memo как обычный текстовый редактор. Что скажешь?