News Van.sc

// This is a shit script, use it at your own risk!

SCRIPT_START
{
    NOP
    LVAR_INT sc_player , sc_car ,sc_char 
    LVAR_FLOAT distance, x , y ,z ,x2 , y2 ,z2,mindis
    mindis = 400.0
    GET_PLAYER_CHAR 0 sc_player

    main:
    REQUEST_MODEL NEWSVAN
    LOAD_ALL_MODELS_NOW
    wait 0
    IF IS_WANTED_LEVEL_GREATER 0 2
        PRINT_FORMATTED_NOW "SCRIPT_RAN" 1000 
        GET_CHAR_COORDINATES sc_player x y z  
        wait 10000
            CREATE_CAR NEWSVAN x y -1.00 sc_car
            CREATE_RANDOM_CHAR_AS_DRIVER sc_car sc_char
            WHILE IS_WANTED_LEVEL_GREATER 0 2
                wait 0
                GET_CHAR_COORDINATES sc_player x y z
                GET_CAR_COORDINATES sc_car x2 y2 z2
                GET_DISTANCE_BETWEEN_COORDS_2D x y x2 y2 distance
                TASK_CAR_DRIVE_TO_COORD sc_char sc_car x y z  50.0 0 0 0   

                IF IS_FLOAT_LVAR_GREATER_THAN_FLOAT_LVAR distance mindis
                    DELETE_CAR sc_car
                    MARK_MODEL_AS_NO_LONGER_NEEDED NEWSVAN 
                    GOTO end
                ENDIF

                IF NOT IS_CHAR_IN_CAR sc_char sc_car
                    WAIT 2000
                    REMOVE_CHAR_ELEGANTLY sc_char
                    GOTO end
                ENDIF

                 IF IS_CAR_DEAD sc_car
                    PRINT_FORMATTED_NOW "MODEL_RELEASED" 1000 
                    GOTO end
                ENDIF  
            ENDWHILE
        TASK_CAR_DRIVE_WANDER sc_char sc_car 20.0 2
        MARK_MODEL_AS_NO_LONGER_NEEDED NEWSVAN
    ENDIF

    end:
    MARK_MODEL_AS_NO_LONGER_NEEDED NEWSVAN
    GOTO main

}
SCRIPT_END