FalloutNow!

Code: Select all

//       Baum Test Script          


#include "..\headers\define.h"

#define NAME                    SCRIPT_TREE

#include "..\headers\command.h"

procedure start;
procedure use_obj_on_p_proc;


procedure start begin
end


procedure use_obj_on_p_proc begin
variable Tree;
variable Wood;
      
      
      if ((obj_pid(obj_being_used_with) == PID_FIRST_TREE)
         or (obj_pid(obj_being_used_with) == PID_SECOND_TREE)
         or (obj_pid(obj_being_used_with) == PID_THIRD_TREE)) then begin
            gfade_out(5);           

            Tree:=create_object(PID_TEMPLE_SKULL_POLE,tile_num(obj_being_used_with),elevation(obj_being_used_with));
            destroy_object(obj_being_used_with);
            game_time_advance( 30 * ONE_GAME_MINUTE );
            set_global_var(GVAR_TREE_DOWN, (global_var(GVAR_TREE_DOWN) + 1 ) );            
            
            Wood:=create_object(PID_14MM_PISTOL,0,0);
            add_obj_to_inven(dude_obj,Wood);

            gfade_in(5);            

         if (global_var(GVAR_TREE_DOWN) >= 3) then begin
            give_exp_points(100);
            play_sfx("saloon");
            set_global_var( GVAR_TREE_DOWN,0 );
         end
    end
end