Implemented the Einbroch polution script.

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@8384 54d463be-8e91-2dee-dedb-b68131a5f0ec

npc/Changelog.txt

@@ -36,6 +36,7 @@ Playtester
 Date		Added
 ======
 08/20
+	* Implemented the Einbroch polution script. [MasterOfMuppets]
 	* Implemented the official 2005 headgear quests. [MasterOfMuppets]
 08/19
 	* Uncommented Homunculus shop for Homunculus in Trunk [Evera]

npc/cities/einbroch.txt

@@ -25,6 +25,7 @@
 //= 1.1	Split quests into quests/cities_einbroch.txt [Evera]
 //= 1.2 Split more quests into above file [Evera]
 //= 1.3 Added (finally) the Garrison quest npc [erKURITA]
+//= 1.4 Implemented the polution script. [MasterOfMuppets]
 //============================================================
 
 
@@ -146,18 +147,48 @@ einbroch.gat,176,172,5	script	Khemko	855,{
 	set @Tower_Name$,"Khemko";
 	callfunc "Ein_Tower";
 	end;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Khemko";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 	
 einbroch.gat,218,198,5	script	Mark	855,{
 	set @Tower_Name$,"Mark";
 	callfunc "Ein_Tower";
 	end;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Mark";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 	
 einbroch.gat,174,228,5	script	Oberu	855,{
 	set @Tower_Name$,"Oberu";
 	callfunc "Ein_Tower";
 	end;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Oberu";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 	
 einbroch.gat,175,196,5	script	Morei	854,{
@@ -195,6 +226,16 @@ s_Goback:
 	if(@towerwarp == 1)warp "einbroch.gat",178,172;
 	if(@towerwarp == 3)warp "einbroch.gat",172,228;
 	end;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Morei";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 	
 einbroch.gat,208,208,3	script	Kesunboss	850,{
@@ -227,6 +268,17 @@ einbroch.gat,208,208,3	script	Kesunboss	850,{
 	mes "here if you wish to marvel in its";
 	mes "beauty and elegance.";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Kesunboss";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
+
 }
 
 einbroch.gat,232,255,5	script	Khowropher	847,{
@@ -253,6 +305,17 @@ einbroch.gat,232,255,5	script	Khowropher	847,{
 	mes "fate to suffer from this fould air";
 	mes "until the day I die.^6A6A6A*Sigh...*";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Khowropher";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
+
 }
 
 einbroch.gat,259,327,5	script	Leslie	846,{
@@ -276,6 +339,16 @@ einbroch.gat,259,327,5	script	Leslie	846,{
 	mes "pricks! But they sell stuff";
 	mes "here I can't buy back home...";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Leslie";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 
 einbroch.gat,232,272,3	script	Train Station Staff#01::EinbrochTrain	852,{
@@ -332,6 +405,15 @@ s_Enviroment:
 	mes "the Einbroch Smog Alert, you";
 	mes "should find shelter immediately!";
 	close;
+
+OnHide:
+	specialeffect 16;
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 	
 einbroch.gat,252,301,3	duplicate(EinbrochTrain)	Train Station Staff#02	852
@@ -357,6 +439,16 @@ einbroch.gat,228,121,5	script	Little Toby	855,{
 	mes "going?! Dont leave";
 	mes "me, I'm all alone...!";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Little Toby";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 	
 einbroch.gat,229,149,3	script	Sleik	854,{
@@ -375,6 +467,16 @@ einbroch.gat,229,149,3	script	Sleik	854,{
 	mes "still, I guess having our own";
 	mes "Train Station is a good thing";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Sleik";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 
 einbroch.gat,236,191,3	script	Tan	855,{
@@ -399,6 +501,16 @@ einbroch.gat,236,191,3	script	Tan	855,{
 	mes "If you'll be here a while,";
 	mes "you should carry one with you.";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Tan";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 
 ein_in01.gat,31,217,3	script	Cendadt	851,{
@@ -432,6 +544,7 @@ ein_in01.gat,31,217,3	script	Cendadt	851,{
 	mes "before I get";
 	mes "in trouble...";
 	close;
+
 }
 
 ein_in01.gat,36,204,3	script	Rombell	851,{
@@ -459,6 +572,7 @@ ein_in01.gat,36,204,3	script	Rombell	851,{
 	mes "worse. How can we";
 	mes "solve this problem?";
 	close;
+
 }
 
 ein_in01.gat,49,202,3	script	Dorf	851,{
@@ -483,6 +597,7 @@ ein_in01.gat,49,202,3	script	Dorf	851,{
 	mes "thing keeps working the";
 	mes "way I want it to!";
 	close;
+
 }
 
 ein_in01.gat,48,220,3	script	Lowe	851,{
@@ -514,6 +629,7 @@ ein_in01.gat,48,220,3	script	Lowe	851,{
 	mes "of reaction's an old";
 	mes "habit for me, adventurer.";
 	close;
+
 }
 
 ein_in01.gat,43,253,4	script	Canphotii	852,{
@@ -539,6 +655,7 @@ ein_in01.gat,43,253,4	script	Canphotii	852,{
 	mes "in! This requires extreme";
 	mes "disciplinary action!";
 	close;
+
 }
 
 ein_in01.gat,68,209,4	script	Khashurantze	852,{
@@ -763,6 +880,16 @@ einbroch.gat,188,72,3	script	Keneshiotz	855,{
 	mes "know that money makes";
 	mes "the world go 'round?";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Keneshiotz";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 
 ein_in01.gat,206,224,2	script	Hotel Employee	855,{

npc/quests/quests_ein.txt

@@ -14,6 +14,7 @@
 //= 1.1 Added more quests [Evera]
 //= 1.2 Added quest bits from Einbech and renamed file to
 //=	quests_ein.txt [Evera]
+//= 1.3 Implemented the polution quest. [MasterOfMuppets]
 //============================================================ 
 
 //============================================================
@@ -730,6 +731,16 @@ einbroch.gat,51,56,6	script	Laboratory Soldier#01	852,{
 	mes "Please leave";
 	mes "immediately";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Laboratory Soldier#01";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 einbroch.gat,51,47,6	script	Laboratory Soldier#02	852,{
 	mes "[Laboratory Soldier]";
@@ -737,6 +748,16 @@ einbroch.gat,51,47,6	script	Laboratory Soldier#02	852,{
 	mes "Please leave";
 	mes "immediately";
 	close;
+
+OnHide:
+	specialeffect 16;
+	disablenpc "Laboratory Soldier#02";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 ein_in01.gat,254,35,1	script	Scientist	749,{
 	mes "[Scientist]";
@@ -2715,13 +2736,231 @@ s_Giveclothes:
 
 }
 
+//============================================================
+//=========================================== Einbroch Polution
+//============================================================
+
+einbroch.gat,1,1,0	script	#PolutionNPC	-1,{
+OnPolution:
+
+	donpcevent "Liotzburg::OnHide";
+	donpcevent "Morei::OnHide";
+	donpcevent "Mark::OnHide";
+	donpcevent "Khemko::OnHide";
+	donpcevent "Oberu::OnHide";
+	donpcevent "Khowroper::OnHide";
+	donpcevent "Kesunboss::OnHide";
+	donpcevent "Train Station Staff#01::OnHide";
+	donpcevent "Train Station Staff#02::OnHide";
+	donpcevent "Leslie::OnHide";
+	donpcevent "Little Toby::OnHide";
+	donpcevent "Tan::OnHide";
+	donpcevent "Keneshiotz::OnHide";
+	donpcevent "Sleik::OnHide";
+	donpcevent "Uwe Kleine::OnHide";
+	donpcevent "Laboratory Soldier#01::OnHide";
+	donpcevent "Laboratory Soldier#02::OnHide";
+	disablenpc "Paddler";
+	disablenpc "Head Gear Dealer";
+
+	mapannounce "einbroch.gat","This is a state of emercency! Harmful smog is reaching high levels of saturation. Residents of Einbroch must find shelter immediately.",bc_map;
+	monster "einbroch.gat",82,332,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",99,328,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",122,317,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",138,319,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",147,312,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",159,316,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",173,315,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",161,311,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",147,296,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",168,282,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",175,271,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",146,274,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",160,272,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",155,256,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",179,262,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",192,248,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",212,255,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",230,250,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",246,251,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",262,254,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",253,240,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",202,245,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",181,251,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",172,238,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",146,242,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",186,226,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",173,239,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",124,248,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",120,234,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",98,234,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",101,219,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",89,208,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",96,191,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",76,194,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",60,196,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",45,194,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",34,201,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",40,184,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",64,173,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",96,173,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",41,155,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",46,131,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",46,108,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",38,93,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",55,86,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",81,81,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",107,82,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",107,104,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",123,73,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",132,87,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",125,63,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",142,64,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",150,52,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",157,37,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",179,39,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",197,46,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",217,67,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",246,54,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",228,110,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",250,118,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",273,127,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",288,138,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",281,160,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",281,192,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",291,201,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",283,218,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",268,216,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",273,196,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk"; 
+	monster "einbroch.gat",262,164,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",241,180,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",216,205,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",209,198,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",224,177,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",227,163,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",208,166,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",132,87,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",149,119,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",119,36,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",84,155,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
+	monster "einbroch.gat",82,107,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
+	initnpctimer;
+	end;
+
+OnMobChk:
+	if(mobcount("einbroch.gat","#PolutionNPC::OnMobChk"))end;
+
+OnTimer600000:
+	killmonster "einbroch.gat","#PolutionNPC::OnMobChk";
+	mapannounce "einbroch.gat","Emergency status is now cancelled. Air pollution levels are now within the safety zone.",bc_map;
+	enablenpc "Liotzburg";
+	donpcevent "Liotzburg::OnUnHide";
+	enablenpc "Morei";
+	donpcevent "Morei::OnUnHide";
+	enablenpc "Mark";
+	donpcevent "Mark::OnUnHide";
+	enablenpc "Khemko";
+	donpcevent "Khemko::OnUnHide";
+	enablenpc "Oberu";
+	donpcevent "Oberu::OnUnHide";
+	enablenpc "Khowroper";
+	donpcevent "Khowroper::OnUnHide";
+	enablenpc "Kesunboss";
+	donpcevent "Kesunboss::OnUnHide";
+	enablenpc "Train Station Staff#01";
+	donpcevent "Train Station Staff#01::OnUnHide";
+	enablenpc "Train Station Staff#02";
+	donpcevent "Train Station Staff#02::OnUnHide";
+	enablenpc "Leslie";
+	donpcevent "Leslie::OnUnHide";
+	enablenpc "Little Toby";
+	donpcevent "Little Toby::OnUnHide";
+	enablenpc "Tan";
+	donpcevent "Tan::OnUnHide";
+	enablenpc "Keneshiotz";
+	donpcevent "Keneshiotz::OnUnHide";
+	enablenpc "Sleik";
+	donpcevent "Sleik::OnUnHide";
+	enablenpc "Uwe Kleine";
+	donpcevent "Uwe Kleine::OnUnHide";
+	enablenpc "Laboratory Soldier#01";
+	donpcevent "Laboratory Soldier#01::OnUnHide";
+	enablenpc "Laboratory Soldier#02";
+	donpcevent "Laboratory Soldier#02::OnUnHide";
+	enablenpc "Paddler";
+	enablenpc "Head Gear Dealer";
+	set $EinPolution,0;
+	end;
+
+}
+
+sec_in02.gat,127,86,3	script	Einbroch Polution	851,{
+
+	if(getgmlevel() > 79)
+	{
+	mes "[Einbroch Polution Variable Management]";
+	mes "$EinPolution is currently: " + $EinPolution + ".";
+	mes "What would you like to do?";
+	next;
+	menu "Reset $EinPolution to 0",s_0,"Input My Own Value",s_Input,"Cancel.",-;
+
+	close;
+
+s_0:
+	mes "[Einbroch Polution Variable Management]";
+	mes "$EinPolution has been reset to 0.";
+	close;
+
+s_Input:
+	mes "[Einbroch Polution Variable Management]";
+	mes "Insert a number you want $EinFactory";
+	mes "to be replaced with. Type '0' to cancel.";
+	input @temppol;
+	if(@temppol < 0)goto s_Error;
+	if(@temppol == 0)close;
+	set $EinPolution,@temppol;
+	mes "[Einbroch Polution Variable Management]";
+	mes "$EinPolution has been set to: " + $EinPolution + ".";
+	close;
+
+	}
+	else
+	{
+	mes "[Einbroch Polution Variable Management]";
+	mes "Sorry you don't have authorization";
+	mes "to use this NPC.";
+	close;
+	}
+
+}
+
 //============================================================
 //=========================================== Einbroch Factory
 //====================================================== Quest
+
 einbroch.gat,132,84,3	script	Liotzburg	853,{
 
-if(EinFactory > 13)goto s_Budget2;
-if(EinFactory == 13)goto s_Budget;
+	if($EinPolution > 9)
+	{
+	mes "[Liotzburg]";
+	mes "What's going on?!";
+	mes "Who's responsible?!";
+	mes "God, I can't believe";
+	mes "this is happening!";
+	mes "^333333*Cough Cough!*^000000";
+	next;
+	mes "[Liotzburg]";
+	mes "I need to get out of here!";
+	mes "You! D-do something and";
+	mes "fix this! I gotta hide and find";
+	mes "someplace safe!";
+	close2;
+	donpcevent "#PolutionNPC::OnPolution";
+	end;
+	}
+
+	if(EinFactory > 13)goto s_Budget2;
+	if(EinFactory == 13)goto s_Budget;
 	mes "[Liotzburg]";
 	mes "I'm the plant";
 	mes "superintendant of this";
@@ -2777,9 +3016,50 @@ s_Budget2:
 	next;
 	goto s_Budget;
 
+OnHide:
+	specialeffect 16;
+	disablenpc "Liotzburg";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }
 
 ein_in01.gat,67,243,3	script	Zelmeto	851,{
+
+	if($EinPolution > 9)
+	{
+	mes "[Zelmeto]";
+	mes "We've got a big problem";
+	mes "here! I appreciate that you've";
+	mes "been gathering the materials,";
+	mes "but the machines have been";
+	mes "broken for too long!";
+	next;
+	mes "[Zelmeto]";
+	mes "Right when I tried to";
+	mes "fix it, a huge shortout";
+	mes "occurred. Our town is";
+	mes "probably filled with";
+	mes "toxic fog right now!";
+	next;
+	mes "[Zelmeto]";
+	mes "I'll try my best to fix";
+	mes "this, but we really should";
+	mes "have allocated some funds";
+	mes "to fix this machine earlier!";
+	next;
+	mes "[Zelmeto]";
+	mes "The most important";
+	mes "thing is that you get";
+	mes "out of here and find";
+	mes "shelter! Right now!";
+	close2;
+	warp "einbroch.gat",131,83;
+	end;
+	}
 	
 	if(EinFactory > 0)goto s_Switches;
 	mes "[Zelmeto]";
@@ -3314,6 +3594,7 @@ s_Switches:
 		delitem 7317,10;
 		delitem 7319,10;
 		set EinFactory,16;
+		set $EinPolution,$EinPolution+1;
 		if (BaseLevel < 41) set BaseExp,BaseExp+615;
 		if ((BaseLevel >= 41) && (BaseLevel < 51)) set BaseExp,BaseExp+3075;
 		if ((BaseLevel >= 51) && (BaseLevel < 61)) set BaseExp,BaseExp+6604;
@@ -3872,4 +4153,13 @@ s_Cooking:
 	next;
 	goto s_Menu3;
 
+OnHide:
+	specialeffect 16;
+	disablenpc "Uwe Kleine";
+	end;
+
+OnUnhide:
+	misceffect 215;
+	end;
+
 }