/* 
	Script name: 	TOXCMP.ssl
        Location:	Toxic Caves Secret Base
        Description:	Computers that come on when power does.

        Created:	4th July 2004
	 By:		ColJack.
        Updated:	


*/

/* Include Files */

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

#define NAME                    SCRIPT_TOXCMP

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

procedure start;
procedure map_update_p_proc;

procedure start begin
end

procedure map_update_p_proc begin
   variable Item;

   if (global_var(GVAR_TOXIC_POWER) == 1) then begin
       if (obj_pid(self_obj) == PID_V15_EW_MON_BROKE) then begin
           item:=create_object(PID_V15_EW_MON_WORK,tile_num(self_obj),elevation(self_obj));
       end
       else if (obj_pid(self_obj) == PID_V15_NS_MON_BROKE) then begin
           item:=create_object(PID_V15_NS_MON_WORK,tile_num(self_obj),elevation(self_obj));
       end
       else if (obj_pid(self_obj) == PID_V15_EW_COMP_BROKE) then begin
           item:=create_object(PID_V15_EW_COMP_WORK,tile_num(self_obj),elevation(self_obj));
       end
       else if (obj_pid(self_obj) == PID_V15_NS_COMP_BROKE) then begin
           item:=create_object(PID_V15_NS_COMP_WORK,tile_num(self_obj),elevation(self_obj));
       end 
   end
end