#include <define.h>

//#define NAME                    SCRIPT_

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



procedure start;
#include <push.h>
procedure pre_dialogue;
procedure do_dialogue;
procedure checkarea;
procedure jerem00;
procedure jerem00a;
procedure jerem01;
procedure jerem02;
procedure jerem02a;
procedure jerem02b;
procedure jerem03;
procedure jerem03a;
procedure jerem04;
procedure jerem05;
procedure jerem05a;
procedure jerem06;
procedure jerem07;
procedure jerem08;
procedure jerem08a;
procedure jerem08b;
procedure jerem09;
procedure jerem09a;
procedure jerem10;
procedure jerem11;
procedure jerem12;
procedure jerem13;
procedure jerem14;
procedure jerem14a;
procedure jerem15;
procedure jerem17;
procedure jerem18;
procedure jerem18a;
procedure jerem19;
procedure jerem19a;
procedure jerem20;
procedure jerem20a;
procedure jerem21;
procedure jerem21a;
procedure jerem22;
procedure jerem23;
procedure jerem24;
procedure jerem25;
procedure jerem26;
procedure jerem27;
procedure jerem28;
procedure jerem29;
procedure jeremend;
procedure jeremcbt;
procedure jeremret;

variable HOSTILE;
variable only_once := 1;
variable Weapons;
variable DISGUISED;
variable again;
variable area;
variable here;
variable moving := 1;
variable my_hex;
variable home_tile;

procedure jerem16;


procedure start
begin
	if (local_var(0) == 0) then begin
		set_local_var(0, 1);
		set_local_var(1, 0);
		set_local_var(2, 0);
		set_local_var(3, 7);
		set_local_var(4, 12098);
	end
	if (only_once) then begin
		only_once := 0;
		home_tile := 12098;
		critter_add_trait(self_obj, TRAIT_OBJECT, OBJECT_TEAM_NUM, 34);
		critter_add_trait(self_obj, TRAIT_OBJECT, OBJECT_AI_PACKET, AI_CHILDREN_TRUE);
		if (global_var(GVAR_MASTER_FILLER_6) == 1) then begin
			set_obj_visibility(self_obj, 1);
			moving := 0;
		end
		else begin
			if (global_var(GVAR_MASTER_FILLER_5) == 1) then begin
				set_obj_visibility(self_obj, 1);
				moving := 0;
				add_timer_event(self_obj, game_ticks(300), 1);
			end
		end
	end
	else begin
		if (global_var(GVAR_MASTER_FILLER_6) != 1) then begin
			if (script_action == talk_proc) then begin
				call pre_dialogue;
			end
			else begin
				if (script_action == timed_event_proc) then begin
					if (fixed_param == 1) then begin
						moving := 1;
						set_global_var(GVAR_MASTER_FILLER_5, 0);
						if (local_var(1) == 0) then begin
							move_to(self_obj, home_tile, 0);
							set_local_var(3, 7);
							set_local_var(4, 12098);
							set_obj_visibility(self_obj, 0);
						end
					end
					else begin
						if (fixed_param == 2) then begin
							set_local_var(2, 2);
						end
						else begin
							if (fixed_param == 3) then begin
								moving := 1;
								set_local_var(4, 19685);
								set_local_var(3, 4);
								set_local_var(1, 0);
								animate_move_obj_to_tile(self_obj, local_var(4), ANIMATE_WALK);
							end
						end
					end
				end
				else begin
					if (script_action == pickup_proc) then begin
						HOSTILE := 1;
					end
				end
			end
			if (script_action == critter_proc) then begin
				set_map_var(1, 0);
				if (tile_distance_objs(dude_obj, self_obj) < 8) then begin
					set_map_var(1, 1);
				end
				if (HOSTILE) then begin
					HOSTILE := 0;
					attack_complex(dude_obj, 0, 1, 0, 0, 30000, 0, 0);
				end
				if (moving) then begin
					my_hex := tile_num(self_obj);
					if (my_hex == local_var(4)) then begin
						if (local_var(1)) then begin
							set_local_var(3, local_var(3) + 1);
						end
						else begin
							set_local_var(3, local_var(3) - 1);
						end
						if (local_var(3) > 7) then begin
							moving := 0;
							set_local_var(1, 0);
							set_local_var(3, 6);
							set_obj_visibility(self_obj, 1);
							set_global_var(GVAR_MASTER_FILLER_5, 1);
							move_to(self_obj, 7000, 0);
							add_timer_event(self_obj, game_ticks(300), 1);
						end
						else begin
							if (local_var(3) < 0) then begin
								moving := 0;
								set_local_var(1, 1);
								set_local_var(3, 1);
								add_timer_event(self_obj, game_ticks(300), 1);
							end
							else begin
								if ((local_var(3) == 5) and (local_var(1) == 0)) then begin
									moving := 0;
									add_timer_event(self_obj, game_ticks(60), 3);
								end
							end
						end
						if (local_var(3) == 0) then begin
							set_local_var(4, 20936);
						end
						else begin
							if (local_var(3) == 1) then begin
								set_local_var(4, 25336);
							end
							else begin
								if (local_var(3) == 2) then begin
									set_local_var(4, 25721);
								end
								else begin
									if (local_var(3) == 3) then begin
										set_local_var(4, 27915);
									end
									else begin
										if (local_var(3) == 4) then begin
											set_local_var(4, 26094);
										end
										else begin
											if (local_var(3) == 5) then begin
												set_local_var(4, 19685);
											end
											else begin
												if (local_var(3) == 6) then begin
													if (local_var(1) == 0) then begin
														set_local_var(4, 12889);
													end
													else begin
														set_local_var(4, 14689);
													end
												end
												else begin
													if (local_var(3) == 7) then begin
														set_local_var(4, 12098);
													end
												end
											end
										end
									end
								end
							end
						end
					end
					else begin
						animate_move_obj_to_tile(self_obj, local_var(4), ANIMATE_WALK);
					end
					if (obj_can_see_obj(self_obj, dude_obj)) then begin
						DISGUISED := 0;
						if (obj_pid(critter_inven_obj(dude_obj, 0)) == 113) then begin
							if (metarule(16, 0) > 1) then begin
								DISGUISED := 0;
							end
							else begin
								DISGUISED := 1;
							end
						end
						if ((DISGUISED == 0) and (again < 2)) then begin
							if (tile_distance_objs(self_obj, dude_obj) < 6) then begin
								if (local_var(2) < 1) then begin
									set_local_var(2, 1);
									add_timer_event(self_obj, game_ticks(15), 2);
									dialogue_system_enter;
								end
								else begin
									if (local_var(2) > 1) then begin
										call jerem29;
									end
								end
							end
						end
					end
				end
			end
			else begin
				if ((script_action == look_at_proc) or (script_action == description_proc)) then begin
					script_overrides;
					display_msg(message_str(SCRIPT_JEREM, 100));
				end
				else begin
					if (script_action == destroy_proc) then begin
						set_global_var(GVAR_MASTER_FILLER_6, 1);
						if (source_obj == dude_obj) then begin
							if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
								set_global_var(GVAR_BERSERKER_REPUTATION, 1);
								set_global_var(GVAR_CHAMPION_REPUTATION, 0);
							end
							if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_BAD_MONSTER) > (3 * global_var(GVAR_GOOD_MONSTER))) or (global_var(GVAR_CHAMPION_REPUTATION) == 1))) then begin
								set_global_var(GVAR_CHAMPION_REPUTATION, 1);
								set_global_var(GVAR_BERSERKER_REPUTATION, 0);
							end
							set_global_var(GVAR_BAD_MONSTER, global_var(GVAR_BAD_MONSTER) + 1);
							if ((global_var(GVAR_BAD_MONSTER) % 6) == 0) then begin
								set_global_var(GVAR_PLAYER_REPUTATION, global_var(GVAR_PLAYER_REPUTATION) + 1);
							end
						end
					end
				end
			end
		end
	end
end

procedure pre_dialogue
begin
	again := again + 1;
	if (obj_pid(critter_inven_obj(dude_obj, 0)) == 113) then begin
		if (metarule(16, 0) > 1) then begin
			DISGUISED := 0;
		end
		else begin
			DISGUISED := 1;
		end
	end
	if ((DISGUISED == 0) and (again > 1)) then begin
		call jerem29;
	end
	else begin
		again := again - 1;
		call do_dialogue;
	end
end

procedure do_dialogue
begin
	call checkarea;
	start_gdialog(SCRIPT_JEREM, self_obj, 4, -1, -1);
	gsay_start;
	again := again + 1;
	if (obj_pid(critter_inven_obj(dude_obj, 0)) == 113) then begin
		if (metarule(16, 0) > 1) then begin
			DISGUISED := 0;
		end
		else begin
			DISGUISED := 1;
		end
		if (again == 1) then begin
			call jerem00;
		end
		else begin
			if (again > 2) then begin
				call jerem26;
			end
			else begin
				if ((again == 2) and (global_var(GVAR_MASTER_FILLER_4) == 1)) then begin
					call jerem23;
				end
				else begin
					call jerem00;
				end
			end
		end
	end
	else begin
		if (area == 50) then begin
			if (again > 1) then begin
				call jerem28;
			end
			else begin
				call jerem13;
			end
		end
		else begin
			if (area == 2) then begin
				if (again > 1) then begin
					call jerem28;
				end
				else begin
					call jerem19;
				end
			end
			else begin
				if (area == 1) then begin
					if (again > 1) then begin
						call jerem28;
					end
					else begin
						call jerem20;
					end
				end
			end
		end
	end
	gsay_end;
	end_dialogue;
end

procedure checkarea
begin
	here := tile_num(dude_obj);
	area := 2;
	if (tile_distance(here, 13475) < 15) then begin
		area := 1;
	end
	else begin
		if (tile_distance(here, 13296) < 15) then begin
			area := 1;
		end
		else begin
			if (tile_distance(here, 16089) < 15) then begin
				area := 1;
			end
			else begin
				if (tile_distance(here, 25726) < 15) then begin
					area := 50;
				end
				else begin
					if (tile_distance(here, 27322) < 15) then begin
						area := 50;
					end
					else begin
						if (tile_distance(here, 25737) < 15) then begin
							area := 50;
						end
						else begin
							if (tile_distance(here, 22136) < 15) then begin
								area := 50;
							end
						end
					end
				end
			end
		end
	end
end

procedure jerem00
begin
	if (dude_is_male) then begin
		gsay_reply(SCRIPT_JEREM, 102);
	end
	else begin
		gsay_reply(SCRIPT_JEREM, 192);
	end
	giq_option(-3, SCRIPT_JEREM, 103, jerem01, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 104, jerem00a, NEUTRAL_REACTION);
end

procedure jerem00a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -5))) then begin
		call jerem03;
	end
	else begin
		call jerem02;
	end
end

procedure jerem01
begin
	gsay_message(SCRIPT_JEREM, 105, NEUTRAL_REACTION);
end

procedure jerem02
begin
	gsay_reply(SCRIPT_JEREM, 106);
	giq_option(7, SCRIPT_JEREM, 107, jerem02a, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 108, jerem04, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 109, jerem04, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 110, jerem02b, NEUTRAL_REACTION);
	end
end

procedure jerem02a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem05;
	end
	else begin
		call jerem07;
	end
end

procedure jerem02b
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem05;
	end
	else begin
		call jerem06;
	end
end

procedure jerem03
begin
	gsay_reply(SCRIPT_JEREM, 111);
	giq_option(4, SCRIPT_JEREM, 112, jerem03a, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 113, jerem07, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 114, jeremend, NEUTRAL_REACTION);
end

procedure jerem03a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem08;
	end
	else begin
		call jerem09;
	end
end

procedure jerem04
begin
	gsay_message(SCRIPT_JEREM, 115, NEUTRAL_REACTION);
end

procedure jerem05
begin
	gsay_reply(SCRIPT_JEREM, 116);
	giq_option(4, SCRIPT_JEREM, 117, jerem03, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 118, jerem05a, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 119, jeremcbt, BAD_REACTION);
	end
end

procedure jerem05a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem08;
	end
	else begin
		call jerem12;
	end
end

procedure jerem06
begin
	gsay_message(SCRIPT_JEREM, 120, BAD_REACTION);
	call jeremcbt;
end

procedure jerem07
begin
	gsay_reply(SCRIPT_JEREM, 121);
	giq_option(4, SCRIPT_JEREM, 122, jerem06, BAD_REACTION);
	giq_option(-4, SCRIPT_JEREM, 103, jerem01, NEUTRAL_REACTION);
	giq_option(7, SCRIPT_JEREM, 124, jerem10, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 125, jeremcbt, BAD_REACTION);
	end
end

procedure jerem08
begin
	gsay_reply(SCRIPT_JEREM, 126);
	call jerem09a;
end

procedure jerem08a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem11;
	end
	else begin
		call jerem12;
	end
end

procedure jerem08b
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem11;
	end
	else begin
		call jerem06;
	end
end

procedure jerem09
begin
	gsay_reply(SCRIPT_JEREM, 190);
	call jerem09a;
end

procedure jerem09a
begin
	giq_option(4, SCRIPT_JEREM, 127, jerem08a, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 128, jerem12, BAD_REACTION);
	giq_option(8, SCRIPT_JEREM, 129, jerem11, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 130, jerem08b, NEUTRAL_REACTION);
	end
end

procedure jerem10
begin
	gsay_reply(SCRIPT_JEREM, 131);
	giq_option(4, SCRIPT_JEREM, 127, jerem08a, NEUTRAL_REACTION);
	giq_option(8, SCRIPT_JEREM, 133, jerem11, NEUTRAL_REACTION);
end

procedure jerem11
begin
	gsay_message(SCRIPT_JEREM, 134, NEUTRAL_REACTION);
	set_global_var(GVAR_MASTER_FILLER_4, 1);
end

procedure jerem12
begin
	gsay_message(SCRIPT_JEREM, 135, BAD_REACTION);
	call jeremcbt;
end

procedure jerem13
begin
	gsay_reply(SCRIPT_JEREM, 136);
	call jerem19a;
end

procedure jerem14
begin
	gsay_reply(SCRIPT_JEREM, 141);
	giq_option(4, SCRIPT_JEREM, 142, jeremret, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 143, jerem14a, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 144, jeremcbt, BAD_REACTION);
	end
end

procedure jerem14a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem17;
	end
	else begin
		call jerem18;
	end
end

procedure jerem15
begin
	gsay_message(SCRIPT_JEREM, 145, BAD_REACTION);
	call jeremcbt;
end

procedure jerem17
begin
	gsay_reply(SCRIPT_JEREM, 150);
	call jerem18a;
end

procedure jerem18
begin
	gsay_reply(SCRIPT_JEREM, 156);
	call jerem18a;
end

procedure jerem18a
begin
	giq_option(4, SCRIPT_JEREM, 151, jeremret, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 152, jerem12, BAD_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 153, jeremcbt, BAD_REACTION);
	end
end

procedure jerem19
begin
	gsay_reply(SCRIPT_JEREM, 154);
	call jerem19a;
end

procedure jerem19a
begin
	giq_option(4, SCRIPT_JEREM, 137, jerem14, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 138, jerem15, BAD_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 139, jeremcbt, BAD_REACTION);
	end
	giq_option(-3, SCRIPT_JEREM, 140, jerem16, NEUTRAL_REACTION);
end

procedure jerem20
begin
	gsay_reply(SCRIPT_JEREM, 157);
	giq_option(-3, SCRIPT_JEREM, 158, jerem01, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 159, jerem12, BAD_REACTION);
	giq_option(4, SCRIPT_JEREM, 160, jerem15, BAD_REACTION);
	giq_option(7, SCRIPT_JEREM, 161, jerem20a, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 162, jeremcbt, BAD_REACTION);
	end
end

procedure jerem20a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem21;
	end
	else begin
		call jerem12;
	end
end

procedure jerem21
begin
	gsay_reply(SCRIPT_JEREM, 163);
	giq_option(4, SCRIPT_JEREM, 164, jerem12, BAD_REACTION);
	giq_option(4, SCRIPT_JEREM, 165, jerem12, BAD_REACTION);
	giq_option(4, SCRIPT_JEREM, 166, jerem21a, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 167, jeremcbt, BAD_REACTION);
	end
end

procedure jerem21a
begin
	if (is_success(roll_vs_skill(dude_obj, 14, -10))) then begin
		call jerem22;
	end
	else begin
		call jerem12;
	end
end

procedure jerem22
begin
	gsay_reply(SCRIPT_JEREM, 168);
	giq_option(4, SCRIPT_JEREM, 169, jeremret, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 170, jerem12, BAD_REACTION);
	giq_option(4, SCRIPT_JEREM, 171, jerem18, NEUTRAL_REACTION);
end

procedure jerem23
begin
	if (dude_is_male) then begin
		gsay_reply(SCRIPT_JEREM, 172);
	end
	else begin
		gsay_reply(SCRIPT_JEREM, 173);
	end
	giq_option(4, SCRIPT_JEREM, 174, jerem24, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 175, jeremend, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 176, jeremend, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 177, jeremcbt, BAD_REACTION);
end

procedure jerem24
begin
	gsay_reply(SCRIPT_JEREM, 178);
	giq_option(4, SCRIPT_JEREM, 179, jeremend, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 180, jerem26, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 181, jerem25, NEUTRAL_REACTION);
end

procedure jerem25
begin
	gsay_reply(SCRIPT_JEREM, 182);
	giq_option(4, SCRIPT_JEREM, 183, jeremend, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 184, jerem26, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 185, jerem26, NEUTRAL_REACTION);
	end
end

procedure jerem26
begin
	gsay_message(SCRIPT_JEREM, 187, BAD_REACTION);
	call jeremcbt;
end

procedure jerem27
begin
	if (dude_is_male) then begin
		gsay_reply(SCRIPT_JEREM, 172);
	end
	else begin
		gsay_reply(SCRIPT_JEREM, 173);
	end
	giq_option(4, SCRIPT_JEREM, 174, jerem28, BAD_REACTION);
	giq_option(4, SCRIPT_JEREM, 175, jeremend, NEUTRAL_REACTION);
	giq_option(4, SCRIPT_JEREM, 176, jeremend, NEUTRAL_REACTION);
	if (((global_var(GVAR_BAD_MONSTER) + global_var(GVAR_GOOD_MONSTER)) >= 25) and ((global_var(GVAR_GOOD_MONSTER) > (2 * global_var(GVAR_BAD_MONSTER))) or (global_var(GVAR_BERSERKER_REPUTATION) == 1))) then begin
		giq_option(4, SCRIPT_JEREM, 177, jeremcbt, BAD_REACTION);
	end
end

procedure jerem28
begin
	gsay_message(SCRIPT_JEREM, 188, BAD_REACTION);
	call jeremcbt;
end

procedure jerem29
begin
	float_msg(self_obj, message_str(SCRIPT_JEREM, 189), FLOAT_MSG_RED);
	call jeremcbt;
end

procedure jeremend
begin
end

procedure jeremcbt
begin
	HOSTILE := 1;
end

procedure jeremret
begin
	game_time_advance(game_ticks(120));
	load_map(17, 2);
end

procedure jerem16
begin
	gsay_reply(SCRIPT_JEREM, 146);
	giq_option(-3, SCRIPT_JEREM, 147, jeremret, NEUTRAL_REACTION);
	giq_option(-3, SCRIPT_JEREM, 148, jerem19, NEUTRAL_REACTION);
	giq_option(-3, SCRIPT_JEREM, 149, jeremcbt, BAD_REACTION);
end