CLEO Взрыв by walkman v1.2

Данный мод добавляет в игру возможность заминировать любое транспортное средство, а также заложить взрывчатку мину!

VZRYV.cs

{$VERSION 3.1.1000}
{$CLEO .cs}

//-------------MAIN---------------
0A95: enable_thread_saving
0000: NOP
7@ = 0

:VZRYV_11
$VZRYV_FOR_WALKMANMOD = 15000
thread 'VZRYV'
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @VZRYV_1687
if
4@ == 0
jf @VZRYV_115
0AB3: var 0 = 0
Model.Load(1654)
038B: load_requested_models

:VZRYV_81
wait 0
if
Model.Available(1654)
jf @VZRYV_108
jump @VZRYV_122

:VZRYV_108
jump @VZRYV_81

:VZRYV_115
jump @VZRYV_1312

:VZRYV_122
5@ = Pickup.Create(1654, 3, 1248.552, -1257.224, 13.1255)
11@ = Pickup.Create(1654, 3, -2068.746, 308.5996, 41.9922)
12@ = Pickup.Create(1654, 3, 2375.738, 1957.444, 6.0156)
13@ = Pickup.Create(1654, 3, 588.6006, 875.4591, -42.4973)
14@ = Pickup.Create(1654, 3, 2474.955, -1631.885, 13.4026)
Model.Destroy(1654)

:VZRYV_252
wait 0
if or
Pickup.Picked_up(5@)
Pickup.Picked_up(11@)
Pickup.Picked_up(12@)
Pickup.Picked_up(13@)
Pickup.Picked_up(14@)
jf @VZRYV_326
018C: play_sound 1185 at 0.0 0.0 0.0
015D: set_gamespeed 0.0
jump @VZRYV_333

:VZRYV_326
jump @VZRYV_252

:VZRYV_333
Pickup.Destroy(5@)
Pickup.Destroy(11@)
Pickup.Destroy(12@)
Pickup.Destroy(13@)
Pickup.Destroy(14@)
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
Player.CanMove($PLAYER_CHAR) = False
03E6: remove_text_box
00BE: text_clear_all
0881: set_player $PLAYER_CHAR able_to_shoot_weapons 0
03BF: set_player $PLAYER_CHAR ignored_by_everyone 1
01F7: set_player $PLAYER_CHAR ignored_by_cops 1
08F8: display_stat_update_box 0
09B9: show_entered_car_name 0
09BA: show_entered_zone_name 0
0826: enable_hud 0
0581: enable_radar 0
0924: enable_screen_darkness 1 with_value -1
03F0: enable_text_draw 1
wait 0
03E0: draw_text_behind_textures 0
0349: set_text_draw_font 1
16@ = 255
15@ = 0

:VZRYV_462
wait 0
15@ += 1
if
15@ > 1
jf @VZRYV_505
15@ = 0
16@ += -1

:VZRYV_505
if
not 16@ >= 20
jf @VZRYV_530
jump @VZRYV_1176

:VZRYV_530
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 1300.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 80.0 GXT 'REAL_8'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 100.0 GXT 'REAL_9'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 160.0 GXT 'REAL_10'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 180.0 GXT 'REAL_12'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 200.0 GXT 'REAL_13'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 220.0 GXT 'REAL_11'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 240.0 GXT 'REAL_14'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 600.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 260.0 GXT 'REAL_15'
033F: set_text_draw_letter_size 0.8 1.8
0340: set_text_draw_RGBA 255 255 255 16@
0342: set_text_draw_centered 1
0343: set_text_draw_linewidth 1700.0
060D: draw_text_shadow 0 rgba 0 0 0 255
033E: set_draw_text_position 320.0 290.0 GXT 'REAL_16'
jump @VZRYV_462

:VZRYV_1176
018C: play_sound 1184 at 0.0 0.0 0.0
015D: set_gamespeed 1.0
0924: enable_screen_darkness 0 with_value -1
08F8: display_stat_update_box 1
09B9: show_entered_car_name 1
09BA: show_entered_zone_name 1
0826: enable_hud 1
0581: enable_radar 1
0881: set_player $PLAYER_CHAR able_to_shoot_weapons 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
01F7: set_player $PLAYER_CHAR ignored_by_cops 0
03F0: enable_text_draw 0
0349: set_text_draw_font 0
0925: restore_camera_to_user_defined
Camera.Restore
02A3: enable_widescreen 0
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
Player.CanMove($PLAYER_CHAR) = True
03E5: show_text_box 'REAL_5'
4@ = 1
0AB3: var 0 = 1

:VZRYV_1312
if
Actor.Driving($PLAYER_ACTOR)
jf @VZRYV_1727
if
0AB0: key_pressed 17
jf @VZRYV_1663
wait 1500
0@ = Actor.CurrentCar($PLAYER_ACTOR)

:VZRYV_1356
wait 0
if and
Player.Defined($PLAYER_CHAR)
056E: car 0@ defined
jf @VZRYV_1675
if
0AB0: key_pressed 17
jf @VZRYV_1403
jump @VZRYV_1458

:VZRYV_1403
014E: start_timer_at $VZRYV_FOR_WALKMANMOD count_in_direction 1 // global_variable
03C3: set_timer_to $VZRYV_FOR_WALKMANMOD type 1 GXT 'BUY_4' // global_variable
if
$VZRYV_FOR_WALKMANMOD == 0
jf @VZRYV_1451
jump @VZRYV_1458

:VZRYV_1451
jump @VZRYV_1356

:VZRYV_1458
014F: stop_timer $VZRYV_FOR_WALKMANMOD
Car.StorePos(0@, 1@, 2@, 3@)
020C: create_explosion_with_radius 1 at 1@ 2@ 3@
0948: create_explosion_at 1@ 2@ 3@ type 1 camera_shake 999
0948: create_explosion_at 1@ 2@ 3@ type 7 camera_shake 999
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 999
0948: create_explosion_at 1@ 2@ 3@ type 10 camera_shake 999
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
if
7@ == 0
jf @VZRYV_1663
0209: 6@ = random_int_in_ranges 0 15
if or
6@ == 5
6@ == 15
jf @VZRYV_1663
03E5: show_text_box 'REAL_6'
0A8C: write_memory 9867637 size 1 value 1 virtual_protect 0
0A8C: write_memory 9867584 size 1 value 1 virtual_protect 0
7@ = 1

:VZRYV_1663
Car.RemoveReferences(0@)
jump @VZRYV_11

:VZRYV_1675
014F: stop_timer $VZRYV_FOR_WALKMANMOD
jump @VZRYV_11

:VZRYV_1687
0A8C: write_memory 9867637 size 1 value 0 virtual_protect 1
0A8C: write_memory 9867584 size 1 value 0 virtual_protect 1
7@ = 0
jump @VZRYV_1663

:VZRYV_1727
if
0AB0: key_pressed 17
jf @VZRYV_2626
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
Player.CanMove($PLAYER_CHAR) = False
03E6: remove_text_box
00BE: text_clear_all
0881: set_player $PLAYER_CHAR able_to_shoot_weapons 0
03BF: set_player $PLAYER_CHAR ignored_by_everyone 1
01F7: set_player $PLAYER_CHAR ignored_by_cops 1
08F8: display_stat_update_box 0
09B9: show_entered_car_name 0
09BA: show_entered_zone_name 0
0826: enable_hud 0
0581: enable_radar 0
Model.Load(1654)
038B: load_requested_models

:VZRYV_1816
wait 0
if
Model.Available(1654)
jf @VZRYV_1816
9@ = Object.Create(1654, 0.0, 0.0, 0.0)
070A: AS_actor $PLAYER_ACTOR attach_to_object 9@ offset 0.0 0.0 0.0 on_bone 5 16 perform_animation "NULL" IFP_file "NULL" time -1

:VZRYV_1900
if
84EE: not animation "BOMBER" loaded
jf @VZRYV_1942
04ED: load_animation "BOMBER"
wait 0
jump @VZRYV_1900

:VZRYV_1942
0615: define_AS_pack_begin 8@
0812: AS_actor -1 perform_animation "BOM_PLANT_IN" IFP "BOMBER" framedelta 4.0 loopA 0 lockX 0 lockY 0 lockF 1 time -1 // versionB
0812: AS_actor -1 perform_animation "BOM_PLANT_LOOP" IFP "BOMBER" framedelta 4.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1 // versionB
0618: assign_actor $PLAYER_ACTOR to_AS_pack 8@
061B: remove_references_to_AS_pack 8@
wait 300

:VZRYV_2049
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @VZRYV_2131
if
not Actor.Animation($PLAYER_ACTOR) == "BOM_PLANT_IN"
jf @VZRYV_2049
if
not Actor.Animation($PLAYER_ACTOR) == "BOM_PLANT_LOOP"
jf @VZRYV_2049

:VZRYV_2131
08F8: display_stat_update_box 1
09B9: show_entered_car_name 1
09BA: show_entered_zone_name 1
0826: enable_hud 1
0581: enable_radar 1
0881: set_player $PLAYER_CHAR able_to_shoot_weapons 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
01F7: set_player $PLAYER_CHAR ignored_by_cops 0
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
Player.CanMove($PLAYER_CHAR) = True
Object.Destroy(9@)
04EF: release_animation "BOMBER"
0687: clear_actor $PLAYER_ACTOR task
04C4: store_coords_to 10@ 11@ 12@ from_actor $PLAYER_ACTOR with_offset 0.0 0.34 -1.3
9@ = Object.Create(1654, 10@, 11@, 12@)
Object.SetImmunities(9@, 1, 1, 1, 1, 1)

:VZRYV_2275
014E: start_timer_at $VZRYV_FOR_WALKMANMOD count_in_direction 1 // global_variable
03C3: set_timer_to $VZRYV_FOR_WALKMANMOD type 1 GXT 'BUY_4' // global_variable
if
$VZRYV_FOR_WALKMANMOD == 0
jf @VZRYV_2323
jump @VZRYV_2330

:VZRYV_2323
jump @VZRYV_2562

:VZRYV_2330
014F: stop_timer $VZRYV_FOR_WALKMANMOD
Object.StorePos(9@, 1@, 2@, 3@)
020C: create_explosion_with_radius 1 at 1@ 2@ 3@
0948: create_explosion_at 1@ 2@ 3@ type 1 camera_shake 999
0948: create_explosion_at 1@ 2@ 3@ type 7 camera_shake 999
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 999
0948: create_explosion_at 1@ 2@ 3@ type 10 camera_shake 999
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
Model.Destroy(1654)
Object.Destroy(9@)
Object.RemoveReferences(9@)
if
7@ == 0
jf @VZRYV_2550
0209: 6@ = random_int_in_ranges 0 15
if or
6@ == 5
6@ == 15
jf @VZRYV_2550
03E5: show_text_box 'REAL_6'
0A8C: write_memory 9867637 size 1 value 1 virtual_protect 0
0A8C: write_memory 9867584 size 1 value 1 virtual_protect 0
7@ = 1

:VZRYV_2550
wait 1500
jump @VZRYV_11

:VZRYV_2562
wait 0
if and
Player.Defined($PLAYER_CHAR)
03CA: object 9@ exists
jf @VZRYV_2609
if
0AB0: key_pressed 17
jf @VZRYV_2275
jump @VZRYV_2330

:VZRYV_2609
Object.RemoveReferences(9@)
014F: stop_timer $VZRYV_FOR_WALKMANMOD
jump @VZRYV_11

:VZRYV_2626
jump @VZRYV_11


MINA.cs

{$VERSION 3.1.1000}
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
19@ = 0

:MINA_9
thread 'MINA'
20@ = 0
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @MINA_635
if
19@ == 0
jf @MINA_151
if and
0AAB: file_exists "CLEOVZRYV_BY_WALKMAN.CS"
0AAB: file_exists "CLEOANIM.S"
jf @MINA_144
19@ = 1
03E5: show_text_box 'REAL_18'
jump @MINA_151

:MINA_144
jump @MINA_716

:MINA_151
if and
not Actor.Driving($PLAYER_ACTOR)
0AB0: key_pressed 9
0AB0: key_pressed 32
jf @MINA_635
0AB4: 0@ = var 0
if
0@ == 1
jf @MINA_635

:MINA_200
0A92: create_custom_thread "ANIM.S"
wait 300

:MINA_216
wait 0
0AB4: 23@ = var 1
if
Player.Defined($PLAYER_CHAR)
jf @MINA_858
if
23@ == 1
jf @MINA_216
if
20@ == 0
jf @MINA_729
04C4: store_coords_to 3@ 4@ 5@ from_actor $PLAYER_ACTOR with_offset 0.0 0.34 -1.3
1@ = Object.Create(1654, 3@, 4@, 5@)
Object.SetImmunities(1@, 1, 1, 1, 1, 1)
wait 5000
03E5: show_text_box 'REAL_17'

:MINA_356
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @MINA_613
if
03CA: object 1@ exists
jf @MINA_618
Object.StorePos(1@, 16@, 17@, 18@)
if
00EC: actor $PLAYER_ACTOR sphere 0 near_point 16@ 17@ radius 80.0 80.0
jf @MINA_642
0A3E: unknown_get_actor_in_sphere 16@ 17@ 18@ radius 1.9 1.9 1.9 handle_as 15@
053E: 12@ = get_random_car_with_model -1 in_rectangle_cornerA 6@ 7@ cornerB 9@ 10@
if or
not 12@ == -1
not 15@ == -1
jf @MINA_953
Car.RemoveReferences(12@)
Actor.RemoveReferences(15@)

:MINA_523
020C: create_explosion_with_radius 1 at 16@ 17@ 18@
0948: create_explosion_at 16@ 17@ 18@ type 1 camera_shake 999
0948: create_explosion_at 16@ 17@ 18@ type 7 camera_shake 999
0948: create_explosion_at 16@ 17@ 18@ type 6 camera_shake 999
0948: create_explosion_at 16@ 17@ 18@ type 10 camera_shake 999
0565: create_soundless_explosion_at 16@ 17@ 18@ type 6

:MINA_613
Object.Destroy(1@)

:MINA_618
Model.Destroy(1654)
Object.RemoveReferences(1@)
jump @MINA_635

:MINA_635
jump @MINA_9

:MINA_642
0209: 22@ = random_int_in_ranges 0 10
if or
22@ == 5
22@ == 10
jf @MINA_683
jump @MINA_833

:MINA_683
03E5: show_text_box 'REAL_19'

:MINA_694
Model.Destroy(1654)
Object.RemoveReferences(1@)
Object.Destroy(1@)
jump @MINA_635

:MINA_716
03E5: show_text_box 'REAL_22'
0A93: end_custom_thread

:MINA_729
0209: 21@ = random_int_in_ranges 0 10
if or
21@ == 3
21@ == 6
21@ == 9
jf @MINA_777
jump @MINA_810

:MINA_777
03E5: show_text_box 'REAL_20'
Model.Destroy(1654)
Object.RemoveReferences(1@)
Object.Destroy(1@)
jump @MINA_9

:MINA_810
03E5: show_text_box 'REAL_21'
wait 700
jump @MINA_523

:MINA_833
03E5: show_text_box 'REAL_23'
Player.SetMinWantedLevel($PLAYER_CHAR, 3)
jump @MINA_694

:MINA_858
08F8: display_stat_update_box 1
09B9: show_entered_car_name 1
09BA: show_entered_zone_name 1
0826: enable_hud 1
0581: enable_radar 1
0881: set_player $PLAYER_CHAR able_to_shoot_weapons 1
03BF: set_player $PLAYER_CHAR ignored_by_everyone 0
01F7: set_player $PLAYER_CHAR ignored_by_cops 0
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
Player.CanMove($PLAYER_CHAR) = True
Object.Destroy(1@)
04EF: release_animation "BOMBER"
0687: clear_actor $PLAYER_ACTOR task
wait 1000
jump @MINA_9

:MINA_953
if and
00EC: actor $PLAYER_ACTOR sphere 0 near_point 16@ 17@ radius 1.5 1.5
0AB0: key_pressed 9
0AB0: key_pressed 32
jf @MINA_356
20@ = 1
Object.Destroy(1@)
jump @MINA_200



Просмотров: 1353
5.11.2015, 09:07 -

Категория: Grand Theft Auto: San Andreas » Скрипты для Grand Theft Auto: San Andreas » CLEO скрипты для Grand Theft Auto: San Andreas

Коментарии к CLEO Взрыв by walkman v1.2: