#include <define.h>

//#define NAME                    SCRIPT_

#include <command.h>
//#include <ModReact.h>



procedure start;
#include <push.h>
procedure description_p_proc;
procedure use_p_proc;

import variable field_change;


procedure start
begin
	if (script_action == description_proc) then begin
		call description_p_proc;
	end
	else begin
		if (script_action == use_proc) then begin
			call use_p_proc;
		end
	end
end

procedure description_p_proc
begin
	script_overrides;
	display_msg(message_str(SCRIPT_FORCCOMP, 100));
end

procedure use_p_proc
begin
	if (not(global_var(GVAR_FORCE_FIELDS_OFF))) then begin
		script_overrides;
		display_msg(message_str(SCRIPT_FORCCOMP, 101));
		set_global_var(GVAR_WATER_CHIP_5, 0);
		set_global_var(GVAR_VATS_ALERT, 2);
		set_global_var(GVAR_FORCE_FIELDS_OFF, 1);
		field_change := "off";
		if (map_var(2) != 0) then begin
			use_obj(map_var(2));
		end
		use_obj(map_var(3));
	end
end