#include <define.h>

//#define NAME                    SCRIPT_

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



procedure start;
#include <push.h>
procedure look_at_p_proc;
procedure skills;

variable use_skill;
variable temp;


procedure start
begin
	if (script_action == look_at_proc) then begin
		call look_at_p_proc;
	end
	else begin
		if (script_action == use_skill_on_proc) then begin
			use_skill := action_being_used;
			script_overrides;
			call skills;
		end
		else begin
			if (script_action == use_proc) then begin
				display_msg(message_str(SCRIPT_TERM, 201));
			end
		end
	end
end

procedure look_at_p_proc
begin
	script_overrides;
	display_msg(message_str(SCRIPT_TERM, 200));
end

procedure skills
begin
	if (use_skill == 12) then begin
		display_msg(message_str(SCRIPT_TERM, 203));
		if (global_var(GVAR_THE_VATS) != 1) then begin
			set_global_var(GVAR_THE_VATS, 1);
			temp := 1250;
			display_msg(message_str(SCRIPT_TERM, 204) + temp + message_str(SCRIPT_TERM, 205));
			give_exp_points(temp);
		end
	end
	else begin
		if (use_skill == 13) then begin
			display_msg(message_str(SCRIPT_TERM, 202));
		end
	end
end