Quantcast

Jump to content

» «
Photo

gift for my fans, car spawner

No replies to this topic
Sanmodder
  • Sanmodder

    Fan script

  • Members
  • Joined: 11 Sep 2017
  • Poland

#1

Posted A week ago Edited by Sanmodder, A week ago.

car spawner
1 press 6
2 press left or right to change the vehicle identification
3 press the spaces, then you will enter the vehicle
4 press enter to close the panel
advantages
stable
fast
rate this script and make the guard spawner

-----------------------------------------------------------------

1 naciśnij 6
2 naciśnij lewo lub prawo to zmienisz identyfikacje pojazdu
3 naciśnij spacje, to wejdziesz do pojazdu
4 naciśnij enter to zamkniesz panel
zalety
stabilny
szybki
oceń ten skrypt a zrobię guard spawner

30629188_165210780971971_154752562098653

30652671_165210777638638_289166239757694

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: nop
0ADF: add_dynamic_GXT_entry "menu" text "car spawner"
0ADF: add_dynamic_GXT_entry "items3x" text "car id ~y~~h~<~s~~1~~y~~h~>"
[email protected] = 400
:start
repeat
repeat 
wait 0
until if Player.Defined(0)
until if 0ab0: 54
Player.CanMove(0) = False

:loop 
while true
    03F0: enable_text_draw 0 
    wait 0
    0ADB: [email protected] = car_model [email protected] name
    038E: draw_box_position 89.0 103.0 size 140.0 77.0 RGBA 255 255 255 150
    038E: draw_box_position 89.0 103.0 size 138.0 76.0 RGBA 0 0 0 255
    033F: set_text_draw_letter_size 0.4 0.9 
    0340: set_text_draw_RGBA 255 180 180 255 
    0349: set_text_draw_font 3
    033E: set_draw_text_position 46.0 75.0 GXT "menu"  
    033F: set_text_draw_letter_size 0.3 0.9 
    0340: set_text_draw_RGBA 180 180 180 255 
    0349: set_text_draw_font 3 
    033E: set_draw_text_position 23.0 89.0 GXT [email protected]  
    033F: set_text_draw_letter_size 0.3 0.9 
    0340: set_text_draw_RGBA 180 180 180 255 
    0349: set_text_draw_font 3 
    045A: draw_text_1number 23.0 107.0 GXT "items3x" number [email protected]  
    if 00E1:    player 0 pressed_key 15                                          
    then
        03F0: enable_text_draw 0 
        Player.CanMove(0) = True
        jump @start  
    end                                                                     
    0494: get_joystick 0 direction_offset_to [email protected] [email protected] [email protected] [email protected]
    if [email protected] > 0                           
    then
        if not [email protected] >= 610               
        then                           
            wait 50                    
            [email protected]++                       
        end                            
    end
    if 0 > [email protected]                           
    then
        if [email protected] > 400               
        then                           
            wait 50                    
            [email protected]                       
        end                            
    end
    if  
        00E1:   player 0 pressed_key 16
    then
        if 081E:   model [email protected] boat 
        then                                                                                                      
            if and 
                84A7:   not actor $PLAYER_ACTOR driving_boat
                84AD:   not actor $PLAYER_ACTOR in_water                                                           
            then                                                                                                  
                0ACd: show_text_box "~r~~h~error you must be in the water" time 100                               
                jump @loop
            end                                                                                        
        end
        if 0449:   actor $PLAYER_ACTOR in_a_car                                                                   
        then [email protected] = actor.CurrentCar($PLAYER_ACTOR)
            if and
            02BF:   car [email protected] sunk 
            881F:   not model [email protected] plane                                                                      
            8820:   not model [email protected] heli
            881E:   not model [email protected] boat
            then
                jump @loop
            end
        end
        if 0449:   actor $PLAYER_ACTOR in_a_car                                                                   
        then [email protected] = actor.CurrentCar($PLAYER_ACTOR)                                                                
            if 01F3:   car [email protected] in_air                                                                             
            then                                                                                                  
                if and                                                                                            
                  881F:   not model [email protected] plane                                                                      
                  8820:   not model [email protected] heli
                  84A7:   not actor $PLAYER_ACTOR driving_boat                                                                       
                then
                    jump @loop                                                                                    
                end                                                                                               
            end                                                                                                   
        end                                                                                                       
        if or                                                                                                     
            0820:   model [email protected] heli                                                                                 
            081F:   model [email protected] plane                                                                                
        then                                                                                                      
            [email protected] = 400.0 //hight/heli/plane
            Actor.StorePos($PLAYER_ACTOR, [email protected], [email protected], [email protected])                                                           
            0087: [email protected] = [email protected] // (float)                                                                            
            005B: [email protected] += [email protected] // (float)                          
        else
            Actor.StorePos($PLAYER_ACTOR, [email protected], [email protected], [email protected])           
        end                                                                                                       
        if and                                                                                                    
           881F:   not model [email protected] plane                                                                             
           8820:   not model [email protected] heli                                                                              
           0818:   actor $PLAYER_ACTOR in_air                                                                     
        then
            jump @loop                                                                                            
        end                                                                                                       
        if 87DE:   not model [email protected] exists // versionB                                                                
        then 0ACd: show_text_box "~r~~h~error not model exists" time 100                                          
            goto @loop                                                                                            
        end                                                                                                       
        Model.Load([email protected])                                                                                            
        038B: load_requested_models                                                                               
        if not Model.Available([email protected])                                                                                                                                                  
        then  0ACd: show_text_box "~r~~h~error not model Available" time 100                                      
            goto @loop                                                                                                    
        end                                                                                                       
        if and                                                                                                    
            [email protected] >= 400                                                                                             
            not [email protected] > 610                                                                                          
        then                                                                                                      
            if 0449:   actor $PLAYER_ACTOR in_a_car                                                                                             
            then                                                                                                  
                Actor.StorePos($PLAYER_ACTOR, [email protected], [email protected], [email protected])                                                       
                0362: remove_actor $PLAYER_ACTOR from_car_and_place_at [email protected] [email protected] [email protected]                                 
            end
            [email protected] = actor.Angle($PLAYER_ACTOR)                                                                                                   
            if 056E:   car [email protected] defined                                                                            
            then  car.Destroy([email protected])                                                                                
            end                                                                                                   
            [email protected] = Car.Create([email protected], [email protected], [email protected], [email protected])
            car.Angle([email protected]) = [email protected]                                                                   
            036A: put_actor $PLAYER_ACTOR in_car [email protected]                                                              
        end                                                                                                       
    end                                                                                                          
end




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users