#1 27-07-2008 21:37

Mad Driver
From: Moscow
Registered: 21-07-2008
Posts: 2
Website

Покупка Авто-Салона "Ottos Autos"

Здорова! Я недавно сделал скрипт, который даёт возможность купить автосалон "Ottos Autos" При покупке на крыше появится seasparrow, а в самом здании 4 авто, огнемёт с 9999 патронами, пикап сохранения и денег! grin Но SannyBuilder неможет скомпилировать в cleo формат! cry Посмотрите пожалуйста, что не так? Вот скрипт:

{$CLEO .cs}

//-------------MAIN---------------

:OTTOS
model.Load(#SEASPAR)
model.Load(#FLAME)
model.Load(#BUFFALO)
model.Load(#NEBULA)
model.Load(#MERIT)
model.Load(#EUROS)
model.Load(#PICKUPSAVE)
038B: load_requested_models

:OTTOS_1
wait 100
if 6
model.Available(#SEASPAR)
model.Available(#FLAME)
model.Available(#BUFFALO)
model.Available(#NEBULA)
model.Available(#MERIT)
model.Available(#EUROS)
model.Available(#PICKUPSAVE)
jf @OTTOS_1
jump @OTTOS_2

:OTTOS_2
wait 100
if 5
model.Available(#SEASPAR)
model.Available(#FLAME)
model.Available(#BUFFALO)
model.Available(#NEBULA)
model.Available(#MERIT)
model.Available(#EUROS)
model.Available(#PICKUPSAVE)
jf @OTTOS_2
0518: 1@ = create_available_asset_pickup 'PROP_3' at -1637.218 1201.7833 7.2079 price 250000 // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
2@ = Marker.CreateIconWithoutSphere(31, -1637.218 1201.7833 7.2079)

:OTTOS_3
wait 0
if
Pickup.Picked_up(1@)
jf @OTTOS_3
fade 0 400
marker.Disable(2@)
2@ = Marker.CreateIconWithoutSphere(9, -1637.218 1201.7833 7.2079)
5@ = Marker.CreateIconWithoutSphere(35, -1637.218 1201.7833 7.2079)
0213: 10@ = create_pickup #PICKUPSAVE type 3 at -1669.4203 1204.3993 7.2546
014B: $_SEASPAR = init_parked_car_generator #SEASPAR -1 -1 1 alarm 0 door_lock 0 0 10000 at -1664.1903 1216.1267 32.4043 angle 202.2651
014C: set_parked_car_generator $_SEASPAR cars_to_generate_to 101
09E2: $_BUFFALO = init_parked_car_generator_w_numberplate #BUFFALO 3 3 1 alarm 0 door_lock 0 0 10000 plate "MADRIVER" at -1664.83 1205.89 20.95 angle 313.1
014C: set_parked_car_generator $_BUFFALO cars_to_generate_to 101
09E2: $_NEBULA = init_parked_car_generator_w_numberplate #NEBULA color 1 1 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1650.47 1206.96 20.95 angle 56.5 
014C: set_parked_car_generator $_NEBULA cars_to_generate_to 101
09E2: $_MERIT = init_parked_car_generator_w_numberplate #MERIT color 0 0 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1663.91 1222.65 20.95 angle 200.1 
014C: set_parked_car_generator $_MERIT cars_to_generate_to 101
09E2: $_EUROS = init_parked_car_generator_w_numberplate #EUROS color 0 0 1 alarm 0 door_lock 0 0 10000 plate "KILLER" at -1678.62 1209.76 13.47 angle 222.9 
014C: set_parked_car_generator $_EUROS cars_to_generate_to 101
032B: $_FLAME = create_weapon_pickup #FLAME 15 ammo 9999 at -1658.3413 1207.4832 7.25 
fade 1 400

:OTTOS_3_1
0394: play_music 2
00BA: text_styled 'ASS_ACQ' 4000 ms 6 // Asset acquired!
02A3: toggle_widescreen 1
Camera.SetPosition(-1654.9 1205.896 9.7709, 0.0, 0.0, 0.0)
Camera.PointAt(-1614.6892 1251.5153 7.0469, 131.3366)
wait 4000
04A6: 3@ = create_asset_money_pickup_at -1653.0076 1206.9279 7.25 money 25000 25000
01E5: text_1number_highpriority 'ASS_LUV' 10000 6000 ms 1
Camera.SetPosition(-1654.9 1205.896 9.7709, 0.0, 0.0, 0.0)
Camera.PointAt(-1614.6892 1251.5153 7.0469, 131.3366)
wait 2000
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
02A3: toggle_widescreen 0

:OTTOS_4
wait 0
if 2
Player.Defined($PLAYER_CHAR)
$ONMISSION == 0 // integer values
Pickup.Picked_up(10@)
jf @OTTOS_3_1
Pickup.Destroy(10@)
fade 0 600
wait 600
Player.CanMove($PLAYER_CHAR) = false
wait 100
00A1: put_actor $PLAYER_ACTOR at -1645.4777 1204.8865 7.25
0173: set_actor $PLAYER_ACTOR z_angle_to 64.885990.0
0223: set_actor $PLAYER_ACTOR health_to 176
Actor.Armour($PLAYER_ACTOR) = 100
Player.CanMove($PLAYER_CHAR) = true
wait 200
03D8: show_save_screen
jump @OTTOS_5

:OTTOS_5
wait 0
if 0
03D9: save_done
jf @OTTOS_5
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
fade 1 600
wait 1500
0213: 10@ = create_pickup #PICKUPSAVE type 3 at -1669.4203 1204.3993 7.2546
jump @OTTOS_4

:OTTOS_6
wait 0
Pickup.Destroy(10@)
if 0
0038: $ONMISSION == 0 ;; integer values
jf @OTTOS_6
end_thread

Offline

#2 28-07-2008 00:39

3Doomer
From: КаZан
Registered: 14-05-2008
Posts: 659
Website

Re: Покупка Авто-Салона "Ottos Autos"

{$VERSION 3.1.0027}
{$CLEO .cs}

0000: NOP 
thread 'OTBAIPR' 
wait 1000 

:OTTOS
model.Load(#SEASPAR) 
model.Load(#FLAME)
model.Load(#BUFFALO)
model.Load(#NEBULA)
model.Load(#MERIT)
model.Load(#EUROS)
model.Load(#PICKUPSAVE)
038B: load_requested_models

:OTTOS_1
wait 100
if 6                   [color=#fd4801]/////////////////////////////////6 --> and[/color]
model.Available(#SEASPAR)
model.Available(#FLAME)
model.Available(#BUFFALO)
model.Available(#NEBULA)
model.Available(#MERIT)
model.Available(#EUROS)
model.Available(#PICKUPSAVE)
jf @OTTOS_1
jump @OTTOS_2       [color=#fd4801]/////////////////////////////////убрать это[/color]

:OTTOS_2
wait 100
if 5                            [color=#fd4801]/////////////////////////////////почему 5??? ставь and[/color]
model.Available(#SEASPAR)
model.Available(#FLAME)
model.Available(#BUFFALO)
model.Available(#NEBULA)
model.Available(#MERIT)
model.Available(#EUROS)
model.Available(#PICKUPSAVE) 
jf @OTTOS_2
0518: 1@ = create_available_asset_pickup 'PROP_3' at -1637.218 1201.7833 7.2079 price 250000 // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
2@ = Marker.CreateIconWithoutSphere(31, -1637.218 1201.7833 7.2079)

:OTTOS_3
wait 0
if
Pickup.Picked_up(1@)
jf @OTTOS_3
fade 0 400
marker.Disable(2@)
2@ = Marker.CreateIconWithoutSphere(9, -1637.218 1201.7833 7.2079) 
5@ = Marker.CreateIconWithoutSphere(35, -1637.218 1201.7833 7.2079)
0213: 10@ = create_pickup #PICKUPSAVE type 3 at -1669.4203 1204.3993 7.2546
014B: $_SEASPAR = init_parked_car_generator #SEASPAR -1 -1 1 alarm 0 door_lock 0 0 10000 at -1664.1903 1216.1267 32.4043 angle 202.2651
014C: set_parked_car_generator $_SEASPAR cars_to_generate_to 101
09E2: $_BUFFALO = init_parked_car_generator_w_numberplate #BUFFALO 3 3 1 alarm 0 door_lock 0 0 10000 plate "MADRIVER" at -1664.83 1205.89 20.95 angle 313.1 
014C: set_parked_car_generator $_BUFFALO cars_to_generate_to 101
09E2: $_NEBULA = init_parked_car_generator_w_numberplate #NEBULA color 1 1 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1650.47 1206.96 20.95 angle 56.5  
014C: set_parked_car_generator $_NEBULA cars_to_generate_to 101
09E2: $_MERIT = init_parked_car_generator_w_numberplate #MERIT color 0 0 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1663.91 1222.65 20.95 angle 200.1  
014C: set_parked_car_generator $_MERIT cars_to_generate_to 101
09E2: $_EUROS = init_parked_car_generator_w_numberplate #EUROS color 0 0 1 alarm 0 door_lock 0 0 10000 plate "KILLER" at -1678.62 1209.76 13.47 angle 222.9  
014C: set_parked_car_generator $_EUROS cars_to_generate_to 101
032B: $_FLAME = create_weapon_pickup #FLAME 15 ammo 9999 at -1658.3413 1207.4832 7.25  
fade 1 400

:OTTOS_3_1
0394: play_music 2 
00BA: text_styled 'ASS_ACQ' 4000 ms 6 // Asset acquired!
02A3: toggle_widescreen 1 
Camera.SetPosition(-1654.9 1205.896 9.7709, 0.0, 0.0, 0.0)
Camera.PointAt(-1614.6892 1251.5153 7.0469, 131.3366)
wait 4000
04A6: 3@ = create_asset_money_pickup_at -1653.0076 1206.9279 7.25 money 25000 25000
01E5: text_1number_highpriority 'ASS_LUV' 10000 6000 ms 1
Camera.SetPosition(-1654.9 1205.896 9.7709, 0.0, 0.0, 0.0)
Camera.PointAt(-1614.6892 1251.5153 7.0469, 131.3366)
wait 2000
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
02A3: toggle_widescreen 0

:OTTOS_4
wait 0
if 2
Player.Defined($PLAYER_CHAR)
$ONMISSION == 0 // integer values
Pickup.Picked_up(10@)
jf @OTTOS_3_1
Pickup.Destroy(10@)
fade 0 600
wait 600
Player.CanMove($PLAYER_CHAR) = false
wait 100
00A1: put_actor $PLAYER_ACTOR at -1645.4777 1204.8865 7.25
0173: set_actor $PLAYER_ACTOR z_angle_to 64.885990.0
0223: set_actor $PLAYER_ACTOR health_to 176 
Actor.Armour($PLAYER_ACTOR) = 100
Player.CanMove($PLAYER_CHAR) = true
wait 200
03D8: show_save_screen
jump @OTTOS_5

:OTTOS_5
wait 0
if 0
03D9: save_done
jf @OTTOS_5
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
fade 1 600
wait 1500
0213: 10@ = create_pickup #PICKUPSAVE type 3 at -1669.4203 1204.3993 7.2546
jump @OTTOS_4

:OTTOS_6
wait 0 
Pickup.Destroy(10@)
if 0 
0038: $ONMISSION == 0 ;; integer values 
jf @OTTOS_6
end_thread   [color=#fd4801]/////////////////////////////////убери, не позорь КЛЕО     ставь  0A93:[/color]

Это мелкие поправки, если честно я только глазом смотрел)))

Last edited by 3Doomer (28-07-2008 00:41)


GIMS developer

Offline

#3 28-07-2008 04:45

Alexander
Registered: 19-08-2006
Posts: 184
Website

Re: Покупка Авто-Салона "Ottos Autos"

зачем jump'ы левые ? зачем по несколько раз подряд модели проверять ? еще убери глобальные переменные

Offline

#4 28-07-2008 14:23

3Doomer
From: КаZан
Registered: 14-05-2008
Posts: 659
Website

Re: Покупка Авто-Салона "Ottos Autos"

Alexander wrote:

зачем jump'ы левые ? зачем по несколько раз подряд модели проверять ? еще убери глобальные переменные

crazy

{$VERSION 3.1.0027}
{$CLEO .cs}

0000: NOP 
thread 'OTBAIPR' 
wait 1000 

:def
wait 100
if
0256:   player $PLAYER_CHAR defined 
jf @def

model.Load(#SEASPAR) 
model.Load(#FLAME)
model.Load(#BUFFALO)
model.Load(#NEBULA)
model.Load(#MERIT)
model.Load(#EUROS)
model.Load(#PICKUPSAVE)

:OTTOS_1
wait 100
if and
model.Available(#SEASPAR)
model.Available(#FLAME)
model.Available(#BUFFALO)
model.Available(#NEBULA)
model.Available(#MERIT)
model.Available(#EUROS)
model.Available(#PICKUPSAVE)
jf @OTTOS_1

0518: 1@ = create_available_asset_pickup 'PROP_3' at -1637.218 1201.7833 7.2079 price 250000 // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
2@ = Marker.CreateIconWithoutSphere(31, -1637.218 1201.7833 7.2079)

:OTTOS_3
wait 10
if
Pickup.Picked_up(1@)
jf @OTTOS_3
fade 0 400
marker.Disable(2@)
2@ = Marker.CreateIconWithoutSphere(9, -1637.218 1201.7833 7.2079) 
5@ = Marker.CreateIconWithoutSphere(35, -1637.218 1201.7833 7.2079)
0213: 10@ = create_pickup #PICKUPSAVE type 3 at -1669.4203 1204.3993 7.2546
014B: 21@ = init_parked_car_generator #SEASPAR -1 -1 1 alarm 0 door_lock 0 0 10000 at -1664.1903 1216.1267 32.4043 angle 202.2651
014C: set_parked_car_generator 21@ cars_to_generate_to 101
09E2: 22@ = init_parked_car_generator_w_numberplate #BUFFALO 3 3 1 alarm 0 door_lock 0 0 10000 plate "MADRIVER" at -1664.83 1205.89 20.95 angle 313.1 
014C: set_parked_car_generator 22@ cars_to_generate_to 101
09E2: 23@ = init_parked_car_generator_w_numberplate #NEBULA color 1 1 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1650.47 1206.96 20.95 angle 56.5  
014C: set_parked_car_generator 23@ cars_to_generate_to 101
09E2: 24@ = init_parked_car_generator_w_numberplate #MERIT color 0 0 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1663.91 1222.65 20.95 angle 200.1  
014C: set_parked_car_generator 24@ cars_to_generate_to 101
09E2: 25@ = init_parked_car_generator_w_numberplate #EUROS color 0 0 1 alarm 0 door_lock 0 0 10000 plate "KILLER" at -1678.62 1209.76 13.47 angle 222.9  
014C: set_parked_car_generator 25@ cars_to_generate_to 101
032B: 26@ = create_weapon_pickup #FLAME 15 ammo 9999 at -1658.3413 1207.4832 7.25  
fade 1 400

:OTTOS_3_1
0394: play_music 2 
00BA: text_styled 'ASS_ACQ' 4000 ms 6 // Asset acquired!
02A3: toggle_widescreen 1 
Camera.SetPosition(-1654.9 1205.896 9.7709, 0.0, 0.0, 0.0)
Camera.PointAt(-1614.6892 1251.5153 7.0469, 131.3366)
wait 4000
04A6: 3@ = create_asset_money_pickup_at -1653.0076 1206.9279 7.25 money 25000 25000
01E5: text_1number_highpriority 'ASS_LUV' 10000 6000 ms 1
Camera.SetPosition(-1654.9 1205.896 9.7709, 0.0, 0.0, 0.0)
Camera.PointAt(-1614.6892 1251.5153 7.0469, 131.3366)
wait 2000
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
02A3: toggle_widescreen 0

:OTTOS_4
wait 0
if and
Player.Defined($PLAYER_CHAR)
$ONMISSION == 0 // integer values
Pickup.Picked_up(10@)
jf @OTTOS_3_1
Pickup.Destroy(10@)
fade 0 600
wait 600
Player.CanMove($PLAYER_CHAR) = false
wait 100
00A1: put_actor $PLAYER_ACTOR at -1645.4777 1204.8865 7.25
0173: set_actor $PLAYER_ACTOR z_angle_to 64.885990.0
0223: set_actor $PLAYER_ACTOR health_to 176 
Actor.Armour($PLAYER_ACTOR) = 100
Player.CanMove($PLAYER_CHAR) = true
wait 200
03D8: show_save_screen
jump @OTTOS_5

:OTTOS_5
wait 0
if 0
03D9: save_done
jf @OTTOS_5
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
fade 1 600
wait 1500
0213: 10@ = create_pickup #PICKUPSAVE type 3 at -1669.4203 1204.3993 7.2546
jump @OTTOS_4

:OTTOS_6
wait 0 
Pickup.Destroy(10@)
if 0 
0038: $ONMISSION == 0 ;; integer values 
jf @OTTOS_6

Если честно в игре не проверял, с САном траблы


GIMS developer

Offline

#5 17-06-2009 17:44

grand
Registered: 10-06-2008
Posts: 38

Re: Покупка Авто-Салона "Ottos Autos"

to 3Doomer Не знаю, например у меня тот код не работал
to Mad Driver Вот 100% работающий, сам проверял. (Немного изменил принцип: вместо Sea Sparrow простой Sparrow, добавил еще ZR-350, изменил количество единиц в огнемете)

// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .cs}

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

:OTTOS_AUTOS_2
thread 'OTTOS_AUTOS' 
wait 100 
0A95: enable_thread_saving 
if 
   Player.Defined($PLAYER_CHAR)
jf @OTTOS_AUTOS_2 
0518: 1@ = create_available_asset_pickup 'PROP_3' at -1637.218 1201.783 7.2079 price 250000  // Press ~k~~PED_ANSWER_PHONE~ to buy this property.
2@ = Marker.CreateIconWithoutSphere(31, -1637.218, 1201.783, 7.2079)
Model.Load(#SEASPAR)
Model.Load(#BUFFALO)
Model.Load(#NEBULA)
Model.Load(#MERIT)
Model.Load(#EUROS)
Model.Load(#ZR350)
Model.Load(1277)
038B: load_requested_models 

:OTTOS_AUTOS_136
wait 100 
if and
   Model.Available(#SEASPAR)
   Model.Available(#BUFFALO)
   Model.Available(#NEBULA)
   Model.Available(#MERIT)
   Model.Available(#EUROS)
   Model.Available(#ZR350)
   Model.Available(1277)
jf @OTTOS_AUTOS_136 

:OTTOS_AUTOS_186
wait 0 
if 
   Pickup.Picked_up(1@)
jf @OTTOS_AUTOS_186 
fade 0 400 
Marker.Disable(2@)
5@ = Marker.CreateIconWithoutSphere(35, -1637.218, 1201.783, 7.2079)
17@ = Pickup.Create(1277, 3, -1669.42, 1204.399, 7.2546)
014B: 21@ = init_parked_car_generator #SPARROW color -1 -1 1 alarm 0 door_lock 0 0 10000 at -1664.19 1216.127 32.4043 angle 202.2651 
014C: set_parked_car_generator 21@ cars_to_generate_to 101 
09E2: 22@ = parked_car_generator_w_numberplate #BUFFALO 3 3 1 alarm 0 door_lock 0 0 10000 plate "MADRIVER" at -1664.83 1205.89 20.95 angle 313.1 
014C: set_parked_car_generator 22@ cars_to_generate_to 101 
09E2: 23@ = parked_car_generator_w_numberplate #NEBULA 1 1 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1650.47 1206.96 20.95 angle 56.5 
014C: set_parked_car_generator 23@ cars_to_generate_to 101 
09E2: 24@ = parked_car_generator_w_numberplate #MERIT 0 0 1 alarm 0 door_lock 0 0 10000 plate "MBAUTOS" at -1663.91 1222.65 20.95 angle 200.1 
014C: set_parked_car_generator 24@ cars_to_generate_to 101 
09E2: 25@ = parked_car_generator_w_numberplate #EUROS 0 0 1 alarm 0 door_lock 0 0 10000 plate "KILLER" at -1678.62 1209.76 13.47 angle 222.9 
014C: set_parked_car_generator 25@ cars_to_generate_to 101 
014B: 10@ = init_parked_car_generator #ZR350 color 1 1 1 alarm 0 door_lock 0 0 10000 at -1656.693 1217.001 13.2654 angle 225.8211 
014C: set_parked_car_generator 10@ cars_to_generate_to 101 
032B: 26@ = create_weapon_pickup #FLAME group 15 ammo 1500 at -1658.341 1207.483 7.25 
Model.Destroy(#FLAME)
fade 1 400 
0394: play_music 2 
00BA: show_text_styled GXT 'ASS_ACQ' time 4000 style 6  // Asset acquired!
02A3: enable_widescreen 1 
Player.CanMove($PLAYER_CHAR) = False
Camera.SetPosition(-1626.806, 1252.746, 19.3017, 0.0, 0.0, 0.0)
Camera.PointAt(-1657.924, 1218.722, 16.333, 2)
wait 4000 
04A6: 3@ = create_asset_money_pickup_at -1653.008 1206.928 7.25 money 25000 25000 
01E5: show_text_1number_highpriority GXT 'ASS_LUV' number 25000 time 6000 flag 1  // This property will now generate revenue up to a maximum of $~1~. Make sure you collect it regularly!
Camera.SetPosition(-1651.557, 1209.234, 7.25, 0.0, 0.0, 0.0)
Camera.PointAt(-1653.008, 1206.928, 7.25, 2)
wait 6000 
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
Player.CanMove($PLAYER_CHAR) = True
02A3: enable_widescreen 0 

:OTTOS_AUTOS_844
wait 0 
if and
   Player.Defined($PLAYER_CHAR)
  $ONMISSION == 0 
   Pickup.Picked_up(17@)
jf @OTTOS_AUTOS_844 
Player.CanMove($PLAYER_CHAR) = False
03D8: show_save_screen 

:OTTOS_AUTOS_885
if 
83D9:   not save_done 
jf @OTTOS_AUTOS_909 
wait 0 
jump @OTTOS_AUTOS_885 

:OTTOS_AUTOS_909
Pickup.Destroy(17@)
17@ = Pickup.Create(1277, 3, -1669.42, 1204.399, 7.2546)
0395: clear_area 1 at -1645.478 1204.886 7.25 radius 1.0 
Actor.PutAt($PLAYER_ACTOR, -1645.478, 1204.886, 7.15)
Actor.Angle($PLAYER_ACTOR) = 64.88599
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
Player.CanMove($PLAYER_CHAR) = True
wait 0 
fade 1 1000 
jump @OTTOS_AUTOS_844

Может в "Модификации" выложить?

Offline

#6 21-06-2009 11:20

KOLLEGA
Registered: 10-01-2009
Posts: 52

Re: Покупка Авто-Салона "Ottos Autos"

А зачем загружать модели? парковки ж этого не требуют


Поправьте меня если я ошибаюсь
только вежливо :)

Offline

Board footer

Powered by FluxBB