Brazilian Modding Studio
Olá, seja bem vindo à Comunidade BMS!

Para se registrar no fórum, siga os passos:

1 - Clique em "Registrar-se" aqui em baixo;
2 - Aceite os termos de serviço;
3 - Escolha um nome de usuário e senha;
4 - Realize o login no fórum clicando em "Conectar-se".

Compartilhe
Convidado
Convidado
em Dom 31 Dez 2017, 14:41
DL http://uploadas.com/cjlramp8tt3m/Carl_Saving_New_Year.zip.html


Descrição do mod : As gangs de San Andreas se uniram para acabar com o ano novo, eles roubaram todas as casas de fogos de artifício em San Andreas e estão revendendo pelo dobro do preço, agora cabe ao Cj distribuir fogos de artifício criados pelo Emmet por um precinho camarada.

Isso é uma edição no mod de eleição.

O que mudou:
Textos editados.
Música trocada por "hoje a festa é sua".
Panfleto trocado por fogos de artifício.
Efeito de voto trocado por ''feliz ano novo"

Aí está o script

Spoiler:

Código:
{$cleo}
if 0@ == 1
then
    goto @Script2
end

0A92: create_custom_thread "Natal (Junior_Djjr).cs" 1

0ADF: add_dynamic_GXT_entry 'ELEICAO' text "Entregas"  
0ADF: add_dynamic_GXT_entry 'ELEICA2' text "Para vencer sšo estimados 150 entregas"
0ADF: add_dynamic_GXT_entry 'ELEICA5' text "~y~VocŸ venceu!"  
0ADF: add_dynamic_GXT_entry 'ELEICA6' text "~r~VocŸ perdeu!"

while true
    wait 0      
    actor.Driving($player_actor)
    jf continue
    
    00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 1494.1014 -1739.916 13.5469 radius 150.0 150.0 150.0
    jf continue
    
    if 0103:   actor $PLAYER_ACTOR in_sphere 1494.1014 -1739.916 13.5469 radius 4.0 4.0 6.0 sphere 1 stopped_in_car
    jf continue
    
    if $ONMISSION <> 0
    then
        0ACD: show_text_highpriority "~r~VocŸ est˜ dentro de uma missšo, nšo pode comeœar uma entrega agora." time 4000
        continue
    end
    
    0AB4: 5@ = var 344
    if 5@ == true
    then
        while true
            wait 0
            0ACD: show_text_highpriority "Aparentemente vocŸ j˜ venceu. Press Y para resetar e iniciar as entregas, ou N para cancelar." time 1000
            if key_pressed 89
            then
                0AB4: 0@ = var 345
                0AB4: 1@ = var 346                                    
                                                                    
                0215: destroy_pickup 0@    
                014C: set_parked_car_generator 1@ cars_to_generate_to 0
                0998: add_respect -1000

                0AB3: var 344 = 0
                0AB3: var 345 = 0
                0AB3: var 346 = 0
                break
            end  
            if key_pressed 78
            then
                break
            end
        end      
        if key_pressed 78
        then
            continue
        end
    end
    
    0@ = actor.CurrentCar($player_actor)
    
    if and                                                
    28@ = audiostream.Load("cleo\propaganda\voto.mp3")
    29@ = audiostream.Load3D("cleo\propaganda\propaganda.mp3")
    30@ = audiostream.Load3D("cleo\propaganda\propaganda.mp3")
    31@ = audiostream.Load3D("cleo\propaganda\propaganda.mp3")
    then    
        0AB1: call_scm_func @MarkCar 1 0@                    
                                    
        04ED: load_animation "GANGS"
        04ED: load_animation "DEALER"
        04ED: load_animation "RIOT"
        #GUN_VIBE1.Load()
        038B: load_requested_models
                                    
        audiostream.LinkToCar(29@,0@)
        audiostream.LinkToCar(30@,0@)
        audiostream.LinkToCar(31@,0@)
        audiostream.Volume(28@) = 0.25
        audiostream.Volume(28@) = 1.0
        audiostream.Volume(29@) = 1.0
        audiostream.Volume(31@) = 1.0    
        audiostream.Loop(28@,false)    
        audiostream.Loop(29@,true)    
        audiostream.Loop(30@,true)    
        audiostream.Loop(31@,true)  
        wait 200
        
        0AB1: call_scm_func @Tutorial 0
        fade 0 500
        wait 700
        
        041E: set_radio_station 11

        audiostream.PerformAction(29@,PLAY)
        audiostream.PerformAction(30@,PLAY)
        audiostream.PerformAction(31@,PLAY)
        15@ = true
        
        00BA: show_text_styled GXT "ELEICA2" time 2000 style 1
        
        $1924 = 0
        04F7: status_text $1924 type 0 line 1 GXT 'ELEICAO' // global_variable
        $7234 = 900000 // 15 min - //720000 // 12 min -
        014E: start_timer_at $7234 count_in_direction 1 // global_variable
        01B2: give_actor $player_actor weapon 12 ammo 1
        01B9: set_actor $player_actor armed_weapon_to 0
        
        0AB1: call_scm_func @InitLocations 0
            
        0615: define_AS_pack_begin 26@  
        0639: AS_actor -1 rotate_to_actor $player_actor
        0812: AS_actor -1 perform_animation "RIOT_CHANT" IFP "RIOT" framedelta 4.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1    
        0616: define_AS_pack_end 26@
        
        fade 1 1000
        while true
            wait 0    
            if 056E:   car 0@ defined
            jf break
            if 8119:   not car 0@ wrecked
            jf break
            if $7234 <= 0
            then
                0ACD: show_text_highpriority "Acabou o tempo!" time 2000
                
                gosub @Release
                wait 2000
                
                0ACD: show_text_highpriority "Contabilizando entregas..." time 5000
                wait 5000
                
                0209: 1@ = random_int_in_ranges 130 160
                if 07D6:   1@ == $1924
                then 1@-- //sem empates, please
                end
                
                if 001F:   1@ > $1924
                then      
                    00BA: show_text_styled GXT "ELEICA6" time 3000 style 1
                    0AD1: show_formatted_text_highpriority "~r~VocŸ fez ~y~%d ~r~entregas e seu advers˜rio fez ~y~%d" time 4000 $1924 1@
                else
                    00BA: show_text_styled GXT "ELEICA5" time 3000 style 1
                    0AD1: show_formatted_text_highpriority "~s~VocŸ fez ~y~%d ~s~entregas e seu advers˜rio fez ~y~%d" time 4000 $1924 1@
                    wait 4000
                    fade 0 500
                    wait 600
                        
                    car.PutAt(0@,1477.7776 -1710.3075 14.0469)
                    if actor.Driving($player_actor)
                    then
                        0362: remove_actor $player_actor from_car_and_place_at 1473.9824 -1724.812 13.5469
                        actor.Angle($player_actor) = 180.0
                    else
                        actor.PutAt($player_actor,1473.9824, -1724.812, 13.5469)  
                        actor.Angle($player_actor) = 180.0
                    end    
                    
                    wait 1000
                    fade 1 1000
                    
                    05C1: AS_actor $player_actor speak_from_audio_table 100
                    
                    0109: player 0 money += 1000000
    
                    0394: play_music 1
                    04A6: 1@ = create_asset_money_pickup_at 1481.2184 -1750.2111 15.4453 money 50000 50000
                    
                    014B: 2@ = init_car_generator #STRETCH color 0 0 force_spawn 1 alarm 0 door_lock 0 min_delay 0 max_delay 10000 at 1472.1842 -1743.9802 13.5469 angle 90.0
                    014C: set_parked_car_generator 2@ cars_to_generate_to 101
                    0A17: set_parked_car_generator 2@ to_player_owned 1
                    
                    0998: add_respect 1000
                                      
                    0AB3: var 344 = 1
                    0AB3: var 345 = 1@
                    0AB3: var 346 = 2@  
                            
                    015F: set_camera_position 1455.3448 -1728.2424 17.7935 rotation 0.0 0.0 0.0
                    0160: set_camera_point_at 1471.9158 -1748.8621 16.8162 switchstyle 2
                    
                    0ACD: show_text_highpriority "VocŸ salvou o fim de ano! VocŸ recebeu respeito, $1.000.000 e uma limousine." time 7000
                    
                    wait 7000
                    
                    0ACD: show_text_highpriority "VocŸ tambžm tem um guarda-costas que vocŸ pode chamar quando quiser como um membro de gangue." time 7000
                    
                    wait 7000    
                    
                    015F: set_camera_position 1484.7443 -1746.5042 16.9181 rotation 0.0 0.0 0.0
                    0160: set_camera_point_at 1481.2184 -1750.2111 15.4453 switchstyle 2
                                                  
                    0ACD: show_text_highpriority "Seu objetivo ž fazer nada alžm de receber propina." time 4000
                    
                    wait 4000
                    0ACD: show_text_highpriority "Mod criado por Junior_Djjr~n~www.MixMods.com.br" time 4000
                    wait 2000
                end  
                
                camera.Restore()
                0AB1: call_scm_func @UnmarkCar 1 0@
                
                wait 1000
                break
            end      
            
            if and
            key_pressed 9
            key_pressed 85
            then
                if 15@ == true
                then
                    audiostream.PerformAction(29@,STOP)
                    audiostream.PerformAction(30@,STOP)
                    audiostream.PerformAction(31@,STOP)
                    15@ = false
                else  
                    audiostream.PerformAction(29@,PLAY)
                    audiostream.PerformAction(30@,PLAY)
                    audiostream.PerformAction(31@,PLAY)
                    15@ = true
                end  
                while true  
                    wait 0
                    if or
                    not key_pressed 9
                    not key_pressed 85
                    then break
                    end
                end  
            end
            
            if 856E:   not car 0@ defined
            then
                gosub @Release
                wait 1000
                0ACD: show_text_highpriority "Sumiu! O carro de entregas desapareceu por algum motivo. Algum outro mod pode ter feito isso." time 6000
                wait 6000
                break
            end  
            if 0119:   car 0@ wrecked
            then
                gosub @Release
                wait 1000
                0ACD: show_text_highpriority "VocŸ perdeu o carro de entregas!" time 4000
                wait 4000
                break
            end
            if and
            key_pressed 9
            key_pressed 78
            then
                gosub @Release
                wait 1000
                0ACD: show_text_highpriority "~r~Entregas cancelada." time 4000
                wait 4000
                break
            end
            if 0117:   player 0 wasted
            then  
                gosub @Release
                wait 1000
                0ACD: show_text_highpriority "~r~Entregas cancelada." time 4000
                wait 4000
                break
            end
            
            
            0154:   actor $PLAYER_ACTOR in_zone 'LA'
            jf continue
                                                
            01EB: set_traffic_density_multiplier_to 0.8
            03DE: set_pedestrians_density_multiplier_to 2.0
            
            gosub @CheckLocations
            
            0AB1: call_scm_func @ProcessRemoveStoredPeds 0
            0AB1: call_scm_func @ProcessRemoveStoredPeds_Confirmed 0
            
            if 15@ == true
            then
                car.StorePos(0@,1@,2@,3@)
                if 0AE1: 10@ = random_actor_near_point 1@ 2@ 3@ in_radius 15.0 find_next 0 pass_deads 1
                then
                    repeat
                        if 0AB1: call_scm_func @CheckNotStored 1 10@
                        then
                            089F: get_actor 10@ pedtype_to 12@
                            if and //gang
                            12@ >= 7
                            12@ <= 15
                            then continue
                            end
                            
                            02E3: 11@ = car 0@ speed
                            if 11@ > 10.0
                            then    
                                if 11@ > 50.0
                                then  
                                    if 11@ > 80.0
                                    then 11@ = 50
                                    else 11@ = 30
                                    end
                                else 11@ = 14
                                end
                            else 11@ = 6
                            end  
                            if actor.driving(10@)
                            then
                                11@ *= 2
                                0209: 11@ = random_int_in_ranges 0 11@
                            else
                                0209: 11@ = random_int_in_ranges 0 11@
                            end
                            if 11@ == 2
                            then
                                :SetVote
                                if 0AB1: call_scm_func @CheckNotStored_Confirmed 1 10@
                                then
                                    0AB1: call_scm_func @VoteUp 2 Count 1 Sound 28@
                                    
                                    05C0: AS_actor 10@ look_at_car 0@ 5000 ms
                                    
                                    if not actor.driving(10@)
                                    then                                            
                                        0618: assign_actor 10@ to_AS_pack 26@
                                    end
                                end
                            end
                        end
                    until 8AE1: 10@ = random_actor_near_point 1@ 2@ 3@ in_radius 15.0 find_next 1 pass_deads 1
                end
            end
            
            if key_pressed 89
            then    
                0AB5: store_actor $player_actor closest_vehicle_to 11@ closest_ped_to 10@
                if 056D:   actor 10@ defined
                then  
                    if and
                    8118:   not actor 10@ dead
                    not actor.driving(10@)
                    0105:   actor $player_actor near_actor 10@ radius 4.0 4.0 2.0 sphere 0 on_foot
                    then    
                        089F: get_actor 10@ pedtype_to 12@
                        if and //gang
                        12@ >= 7
                        12@ <= 15
                        then
                        else
                            if 010F:   player 0 wanted_level > 0
                            then
                                if 12@ == 6 //cop
                                then continue
                                end
                            end
                            if 0AB1: call_scm_func @CheckNotStored_Confirmed 1 10@
                            then  
                                0615: define_AS_pack_begin 20@  
                                0639: AS_actor -1 rotate_to_actor $player_actor
                                05BF: AS_actor -1 look_at_actor $player_actor 10000 ms  
                                05B9: AS_actor -1 stay_idle 5000 ms    
                                0616: define_AS_pack_end 20@
                                0618: assign_actor 10@ to_AS_pack 20@
                                061B: remove_references_to_AS_pack 20@
                                        
                                wait 1000
                                
                                4@ = actor.Angle(10@)
                                4@ += 180.0            
                                              
                                04C4: store_coords_to 1@ 2@ 3@ from_actor 10@ with_offset 0.0 1.0 0.0  
                                                          
                                01B9: set_actor $player_actor armed_weapon_to 12
                                        
                                0615: define_AS_pack_begin 21@
                                0804: AS_actor -1 walk_to 1@ 2@ 3@ angle 4@ radius 0.5 animation "NULL" IFP_file "NULL" rate 4.0 LA 0 LX 0 LY 0 LF 0 LT -1
                                0639: AS_actor -1 rotate_to_actor 10@  
                                0812: AS_actor -1 perform_animation "shop_pay" IFP "DEALER" framedelta 4.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1
                                0616: define_AS_pack_end 21@  
                                0618: assign_actor $player_actor to_AS_pack 21@  
                                061B: remove_references_to_AS_pack 21@
                                
                                32@ = 0
                                22@ = false
                                while true
                                    wait 0
                                    if 056D:   actor 10@ defined
                                    jf break
                                    if 32@ < 5000
                                    jf break
                                    
                                    if 0611:   actor $player_actor performing_animation "shop_pay"
                                    then                        
                                        01B2: give_actor 10@ weapon 12 ammo 1
                                        01B9: set_actor 10@ armed_weapon_to 0
                                        
                                        0687: clear_actor 10@ task  
                                        0615: define_AS_pack_begin 20@  
                                        05C1: AS_actor -1 speak_from_audio_table 170  
                                        05B9: AS_actor -1 stay_idle 3000 ms    
                                        0812: AS_actor -1 perform_animation "DEALER_DEAL" IFP "GANGS" framedelta 4.0 loopA 0 lockX 0 lockY 0 lockF 0 time -1  
                                        0616: define_AS_pack_end 20@
                                        0618: assign_actor 10@ to_AS_pack 20@
                                        061B: remove_references_to_AS_pack 20@
                                        32@ = 0
                                        while 32@ < 3300
                                            wait 0
                                            if 00E1:   player 0 pressed_key 15
                                            then
                                                0687: clear_actor 10@ task
                                                0687: clear_actor $player_actor task
                                                break
                                            end
                                        end  
                                        if 32@ > 3300
                                        then            
                                            05C1: AS_actor $player_actor speak_from_audio_table 137  
                                            01B9: set_actor 10@ armed_weapon_to 12
                                            0AB1: call_scm_func @VoteUp 2 Count 1 Sound 28@
                                        end
                                        break
                                    end
                                end
                                if 32@ >= 5000
                                then
                                    0687: clear_actor $player_actor task
                                end
                                player.CanMove(0,true)
                            else
                                0ACD: show_text_highpriority "~r~Esta pessoa e comunista! sem presentes" time 1000
                            end
                        end
                    end
                end
            end
        end
    else  
        0ACD: show_text_highpriority "Mªsica nšo encontrada.~n~Insira um .mp3 com nome 'propaganda' na pasta 'cleo\propaganda\'" time 5000
    end
end


:Release
0151: remove_status_text $1924
014F: stop_timer $7234
0555: remove_weapon 12 from_actor $player_actor                      
01EB: set_traffic_density_multiplier_to 1.0
03DE: set_pedestrians_density_multiplier_to 1.0
audiostream.Release(28@)                      
audiostream.Release(29@)
audiostream.Release(30@)
audiostream.Release(31@)      
04EF: release_animation "GANGS"
04EF: release_animation "DEALER"
04EF: release_animation "RIOT"  
#GUN_VIBE1.destroy()      
061B: remove_references_to_AS_pack 26@
return


:VoteUp
005E: $1924 += 0@
audiostream.PerformAction(1@,PLAY)
0AB2: ret 0

:InitLocations
0AC6: 12@ = label @Locations offset
0A8C: write_memory 12@ size 20 value 0 virtual_protect 0  
0AB2: ret 0

:CheckLocations          
0AC6: 12@ = label @Locations offset
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0

if and
13@ == false //igreja jefferson
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2255.6187 -1333.1746 23.9815 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2255.6187 -1333.1746 23.9815 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then          
        player.CanMove(0,false)
        fade 0 1000
        wait 2000                        
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 5 12
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ comprou polvora e conseguiu~y~ %d ~s~entregas!" time 3500 11@
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end
    
12@ += 1 //igreja sul
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0

if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 1720.08 -1739.9866 13.5469 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 1720.08 -1739.9866 13.5469 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000                                  
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 5 12
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ se converteu os malcriados e conseguiu~y~ %d ~s~entregas!" time 3500 11@  
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)  
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end
    
12@ += 1 //igreja norte
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0

if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2193.5024 -1000.4955 62.6255 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2193.5024 -1000.4955 62.6255 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000                      
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 4 9
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ comprou polvora e conseguiu~y~ %d ~s~entregas!" time 3500 11@    
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)  
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end  
end
    
12@ += 1 //velorio
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 945.7974 -1103.3402 24.2753 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 945.7974 -1103.3402 24.2753 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000            
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 0 2
            if 0@ == 1 //violencia
            then  
                0209: 11@ = random_int_in_ranges 5 15  
                0AD1: show_formatted_text_highpriority "~s~O falecido morreu, Mas vocŸ fez~y~ %d ~s~entregas!" time 5000 11@  
            else
                if 0@ == 2 //saªde
                then
                    0209: 11@ = random_int_in_ranges 7 20  
                    0AD1: show_formatted_text_highpriority "~s~O falecido morreu, Mas vocŸ fez~y~ %d ~s~entregas!" time 5000 11@
                else    
                    0209: 11@ = random_int_in_ranges 5 15  
                    0AD1: show_formatted_text_highpriority "~s~VocŸ invadiu um velorio, confortou a fam¢lia e fez~y~ %d ~s~entregas!" time 4000 11@
                end  
            end
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //burger norte
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 1196.9779 -919.351 43.1392 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 1196.9779 -919.351 43.1392 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000            
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then            
            0209: 11@ = random_int_in_ranges 3 7  
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ pagou o lanche das pessoas e fez~y~ %d ~s~entregas!" time 3500 11@
            0109: player 0 money += -500
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end    

12@ += 1 //burger oeste
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 811.3951 -1613.9287 13.5469 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 811.3951 -1613.9287 13.5469 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000          
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then      
            0209: 11@ = random_int_in_ranges 3 7  
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ pagou o lanche das pessoas e fez~y~ %d ~s~entregas!" time 3500 11@
            0109: player 0 money += -500
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //cluckin oeste
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 926.244 -1355.3871 13.3785 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 926.244 -1355.3871 13.3785 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000            
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then                
            0209: 11@ = random_int_in_ranges 4 8
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ pagou o frango das pessoas e fez~y~ %d ~s~entregas!" time 3500 11@
            0109: player 0 money += -500  
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //pizza
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2104.9927 -1808.5481 13.5547 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2104.9927 -1808.5481 13.5547 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000            
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then            
            0209: 11@ = random_int_in_ranges 5 9  
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ pagou a pizza das pessoas e fez~y~ %d ~s~entregas!" time 3500 11@
            0109: player 0 money += -500  
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end    

12@ += 1 //cluckin sudeste
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2395.5256 -1898.5981 13.5469 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2395.5256 -1898.5981 13.5469 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000    
        0209: 11@ = random_int_in_ranges 0 30  
        if 11@ <> 10
        then                          
            0209: 11@ = random_int_in_ranges 5 9
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ pagou o frango das pessoas e fez~y~ %d ~s~entregas!" time 3500 11@
            0109: player 0 money += -500    
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //cluckin leste
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2420.4756 -1507.25 24.0 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2420.4756 -1507.25 24.0 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000                  
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 5 9
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ pagou o frango das pessoas e fez~y~ %d ~s~entregas!" time 3500 11@
            0109: player 0 money += -500
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //hospital
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2034.274 -1405.4901 17.2326 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2034.274 -1405.4901 17.2326 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000  
        0209: 11@ = random_int_in_ranges 10 25
        0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
        0AD1: show_formatted_text_highpriority "~s~VocŸ desejou feliz ano novo e conseguiu~y~ %d ~s~entregas!" time 3500 11@
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //strip
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2424.4355 -1221.9348 25.3791 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2424.4355 -1221.9348 25.3791 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000                  
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 2 6
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ comeu uma stripper mentalmente e fez~y~ %d ~s~entregas!" time 5000 11@
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //bar
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2309.7974 -1649.9578 14.4322 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2309.7974 -1649.9578 14.4322 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000      
        0209: 11@ = random_int_in_ranges 3 7
        0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
        0AD1: show_formatted_text_highpriority "~s~VocŸ  desejou feliz ano novo e fez~y~ %d ~s~entregas!" time 5000 11@
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end


12@ += 1 //ammu
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2398.1692 -1980.3204 13.5469 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 2398.1692 -1980.3204 13.5469 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000    
        0209: 11@ = random_int_in_ranges 2 6
        0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
        0AD1: show_formatted_text_highpriority "~s~VocŸ peidou e fez~y~ %d ~s~entregas!" time 4000 11@
        0109: player 0 money += -500
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end

12@ += 1 //unity station
0A8D: 13@ = read_memory 12@ size 1 virtual_protect 0
 
if and
13@ == false
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 1770.5612 -1940.5797 13.566 radius 150.0 150.0 150.0
then
    if 0102:   actor $PLAYER_ACTOR in_sphere 1770.5612 -1940.5797 13.566 radius 1.2 1.2 3.0 sphere 1 stopped_on_foot
    then    
        player.CanMove(0,false)
        fade 0 1000
        wait 2000                        
        0209: 11@ = random_int_in_ranges 0 30
        if 11@ <> 10
        then
            0209: 11@ = random_int_in_ranges 7 15
            0AB1: call_scm_func @VoteUp 2 Count 11@ Sound 28@
            0AD1: show_formatted_text_highpriority "~s~VocŸ peiou em vag¨es lotados e fez~y~ %d ~s~entregas!" time 5000 11@
            0109: player 0 money += -500
        else    
            0ACD: show_text_highpriority "~r~O plano nšo deu certo! Te expulsaram!" time 2500
        end
        player.CanMove(0,true)
        0A8C: write_memory 12@ size 1 value true virtual_protect 0
        fade 1 700
    end
end
return


:Tutorial
0ADF: add_dynamic_GXT_entry "_ELEI_1" text "~y~Que as entregas comecem!"
0ADF: add_dynamic_GXT_entry "_ELEI_2" text "~s~Seu objetivo ž conseguir o maior nªmero de entregas poss¢veis! Para isso existem v˜rias maneiras:"

0ADF: add_dynamic_GXT_entry "_ELEI_3" text "~s~Use seu ve¢culo tocando o a musica de fim de ano."
0ADF: add_dynamic_GXT_entry "_ELEI_4" text "~s~€ pž, faœa uma abordagem direta apertando a tecla ~y~Y~s~ pr¦ximo a um pedestre para entregar os fogos de artificio"
0ADF: add_dynamic_GXT_entry "_ELEI_5" text "~s~Em LS h˜ 20 locais com marcas vermelhas no chšo onde vocŸ pode entregar fogo a um grupo de pessoas. Encontre!"
0ADF: add_dynamic_GXT_entry "_ELEI_6" text "~s~A princ¢pio, vocŸ j˜ ja deu fogos aos membros da Grove. As outras gangues sšo inimigas, entšo nšo perca tempo com eles!"
0ADF: add_dynamic_GXT_entry "_ELEI_7" text "~s~Pressione ~y~TAB+N~s~ a qualquer momento para sair da missšo. Use ~y~TAB+U~s~ dentro do carro para ligar/desligar o jingle"

0ADF: add_dynamic_GXT_entry "_ELEI_8" text "~s~Pressione ~y~Y~s~ para continuar."

32@ = 0
while true
    wait 0
    038E: draw_box_position 300.0 185.0 size 280.0 230.0 RGBA 0 0 0 200

    gosub @TextSetup                      
    033E: set_draw_text_position 170.0 80.0 GXT '_ELEI_1'
    gosub @TextSetup                        
    033E: set_draw_text_position 170.0 100.0 GXT '_ELEI_2'
    gosub @TextSetup                        
    033E: set_draw_text_position 170.0 140.0 GXT '_ELEI_3'
    gosub @TextSetup                        
    033E: set_draw_text_position 170.0 160.0 GXT '_ELEI_4'
    gosub @TextSetup                        
    033E: set_draw_text_position 170.0 190.0 GXT '_ELEI_5'  
    gosub @TextSetup                        
    033E: set_draw_text_position 170.0 220.0 GXT '_ELEI_6'  
    gosub @TextSetup                        
    033E: set_draw_text_position 170.0 250.0 GXT '_ELEI_7'
    
    20@ = 7000
    0062: 20@ -= 32@
    if 20@ <= 0
    then
        gosub @TextSetup    
        033E: set_draw_text_position 170.0 280.0 GXT '_ELEI_8'
        if key_pressed 89
        then break
        end    
    else    
        0093: 20@ = int 20@ to_float
        20@ /= 1000.0          
        0092: 20@ = float 20@ to_int  
        0AD3: 10@v = format "%i" 20@
        0ADF: add_dynamic_GXT_entry '_ELEI_0' text 10@v  
        gosub @TextSetup
        033E: set_draw_text_position 170.0 280.0 GXT '_ELEI_0'
    end
    
    03F0: enable_text_draw 0
end
03F0: enable_text_draw 0
while key_pressed 89
    wait 0
end                                  
0AE0: remove_dynamic_GXT_entry '_ELEI_0'
0AE0: remove_dynamic_GXT_entry '_ELEI_1'  
0AE0: remove_dynamic_GXT_entry '_ELEI_2'  
0AE0: remove_dynamic_GXT_entry '_ELEI_3'
0AE0: remove_dynamic_GXT_entry '_ELEI_4'
0AE0: remove_dynamic_GXT_entry '_ELEI_5'
0AE0: remove_dynamic_GXT_entry '_ELEI_6'
0AE0: remove_dynamic_GXT_entry '_ELEI_7'
0AE0: remove_dynamic_GXT_entry '_ELEI_8'
0AB2: ret 0


:MarkCar
0A97: 26@ = car 0@ struct
0A8E: 27@ = 26@ + 0x4A6 // m_wExtendedRemovalRange
0A8C: write_memory 27@ size 2 value 100 vp 0

0A8E: 27@ = 26@ + 0x4A4 // m_bVehicleCreatedBy
0A8D: 28@ = read_memory 27@ size 1 vp 0
0A8C: write_memory 27@ size 1 value 2 vp 0
0AC6: 27@ = label @VehicleCreatedBy_Backup offset
0A8C: write_memory 27@ size 1 value 28@ vp 0
0AB2: ret 0

:UnmarkCar
0A97: 26@ = car 0@ struct
0A8E: 27@ = 26@ + 0x4A4 // m_bVehicleCreatedBy
0AC6: 29@ = label @VehicleCreatedBy_Backup offset
0A8D: 28@ = read_memory 29@ size 1 vp 0
0A8C: write_memory 27@ size 1 value 28@ vp 0
0AB2: ret 0

:VehicleCreatedBy_Backup
hex
00
end


:Locations
hex
00
00
00
00  
00
00  
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
end


:TextSetup
0349: set_text_draw_font 1
033F: set_text_draw_letter_size 0.24 0.85
0343: set_text_draw_linewidth 430.0
081C: draw_text_outline 1 RGBA 0 0 0 180
return


:ProcessRemoveStoredPeds
0AC6: 2@ = label @Memory offset
for 1@ = 0 to 256 step 4
    0A8E: 3@ = 2@ + 1@
    0A8D: 4@ = read_memory 3@ size 4 vp 0
    if 4@ > 0
    then  
        if 856D:   not actor 4@ defined
        then
            0A8C: write_memory 3@ size 4 value -1 virtual_protect 0
        end                                                          
    end
end
0AB2: ret 0

:ProcessRemoveStoredPeds_Confirmed
0AC6: 2@ = label @Memory_Confirmed offset
for 1@ = 0 to 128 step 4
    0A8E: 3@ = 2@ + 1@
    0A8D: 4@ = read_memory 3@ size 4 vp 0
    if 4@ > 0
    then  
        if 856D:   not actor 4@ defined
        then
            0A8C: write_memory 3@ size 4 value -1 virtual_protect 0
        else
            if 0118:   actor 4@ dead
            then
                $1924 -= 1  
                0A8C: write_memory 3@ size 4 value -1 virtual_protect 0
            end
        end                                                        
    end
end
0AB2: ret 0


:CheckNotStored
0AC6: 2@ = label @Memory offset
for 1@ = 0 to 256 step 4
    0A8E: 3@ = 2@ + 1@
    0A8D: 4@ = read_memory 3@ size 4 vp 0
    if 003B:   4@ == 0@
    then        
        break
    else
        if 4@ == -1
        then
            0A8C: write_memory 3@ size 4 value 0@ virtual_protect 0
            0485:  return_true
            0AB2: ret 0
        end
    end
end
059A:  return_false
0AB2: ret 0  

:CheckNotStored_Confirmed
0AC6: 2@ = label @Memory_Confirmed offset
for 1@ = 0 to 128 step 4
    0A8E: 3@ = 2@ + 1@
    0A8D: 4@ = read_memory 3@ size 4 vp 0
    if 003B:   4@ == 0@
    then        
        break
    else
        if 4@ == -1
        then
            0A8C: write_memory 3@ size 4 value 0@ virtual_protect 0
            0485:  return_true
            0AB2: ret 0
        end
    end
end
059A:  return_false
0AB2: ret 0


:Memory
hex
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
end

:Memory_Confirmed
hex
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
FF FF FF FF
end


//---------------
:Script2
while true
    wait 0
    0AB4: 5@ = var 344
    if 5@ == true
    then
        if 00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 1470.011 -1749.9362 15.4453 radius 150.0 150.0 150.0
        then  
            if 1@ == false
            then
                #WMOMIB.Load()  
                #M4.Load()
                load_requested_models
                actor.Create(0@,gang2,#WMOMIB,1470.011,-1749.9362,15.4453)
                #WMOMIB.Destroy()
                01B2: give_actor 0@ weapon 31 ammo 9999  
                #M4.Destroy()
                02AB: set_actor 0@ immunities BP 1 FP 1 EP 1 CP 1 MP 1
                081A: set_actor 0@ weapon_skill_to 2
                02E2: set_actor 0@ weapon_accuracy_to 100
                07DD: set_actor 0@ attack_rate 70
                1@ = true
            end
        else
            if 1@ == true
            then
                if 8104:   not actor $PLAYER_ACTOR near_actor 0@ radius 100.0 100.0 100.0 sphere 0
                then
                    actor.DestroyWithFade(0@)
                    1@ = false
                end
            end
        end
    end
end


Última edição por CrazyBitch em Dom 31 Dez 2017, 15:48, editado 1 vez(es)
Convidado
Convidado
em Dom 31 Dez 2017, 15:46
Código:
http://uploadas.com/cjlramp8tt3m/Carl_Saving_New_Year.zip.html

Aí está o mod.
Lembrando que fiz tudo isso pelo celular, não posso testar o mod.

Agradecimentos ao Fábio por compilar o script
Convidado
Convidado
em Dom 31 Dez 2017, 15:55
Hue faz uma imagem pro mod, coloca o rosto do Cj no lugar do rosto da Katy Perry.
Eu até faria, mas não sei editar pelo celular


É do clipe fireworks
avatar
Scripter CLEO - Avançado
Scripter CLEO - Avançado
Título : Censurando since 2011
Mensagens : 22701
Reputação : 727
Desde : 03/05/2012
Idade : 23
Localização : Ibitinga - SP
Link : www.MixMods.com.br
Ver perfil do usuáriohttp://MixMods.com.br
em Dom 31 Dez 2017, 16:30

:Genial:

______________________________
BMS agora em nova plataforma:
Forum.MixMods.com.br
avatar
Produtor de vídeos - Avançado
Produtor de vídeos - Avançado
Mensagens : 17152
Reputação : 162
Desde : 03/06/2012
Ver perfil do usuáriohttp://playgamemods.blogspot.com.br/
em Ter 02 Jan 2018, 14:40
eu não faria melhor Not Bad

______________________________
http://playgamemods.blogspot.com.br/




"Usaremos o idiota útil na linha de frente. Incitaremos o ódio entre as classes. Destruiremos sua base moral, a família e a espiritualidade. Comerão as migalhas que caírem de nossas mesas. O Estado será deus. Nossa minoria organizada irá sempre derrotar a maioria desorganizada" (Vladmir Lenin 1870 - 1924)

"Os fascistas do futuro chamarão a si mesmos de antifascistas." (Winston Churchill)

“Toda verdade passa por três estágios. Primeiro, ela é ridicularizada. Segundo, ela é violentamente resistida. Terceiro, ela é aceita como sendo autoevidente” (Arthur Schopenhauer, 1788-1860)"

“Se pudesse ser demonstrada a existência de qualquer órgão complexo que não poderia ter sido formado por numerosas, sucessivas e ligeiras modificações, minha teoria desmoronaria por completo.” (Charles Darwin, 1872)
avatar
Programador - Avançado
Programador - Avançado
Mensagens : 10179
Reputação : 265
Desde : 08/11/2012
Ver perfil do usuário
em Ter 02 Jan 2018, 14:52
essa katy é uma gostosa
Conteúdo patrocinado
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum