Merge remote-tracking branch 'livio/livio/sorenquestp0'

1 files changed, 126 insertions, 0 deletions

diff --git a/npc/009-2-0/soren.txt b/npc/009-2-0/soren.txt
new file mode 100644
index 00000000..b970ef87
--- /dev/null
+++ b/npc/009-2-0/soren.txt
@@ -0,0 +1,126 @@
+// Evil script.
+// Author:
+//	Livio
+// Description:
+// Undead Soren quest: https://gitlab.com/evol/evol-all/-/issues/73
+
+009-2-0,31,34,0	script	Soren	NPC_GALIMATIA,{
+	function QuestPart0;
+/*	function QuestPart1;
+	function QuestPart2;
+	function QuestPart3;
+	function QuestPart4;
+	function QuestPart5;
+	function QuestPart6;
+*/
+	function advanceQuest {
+		setq(ArgaesQuest_Soren, getq(ArgaesQuest_Soren) + 1);
+		return;
+	}
+
+// DEBUG--------------
+
+	select(
+		l("Go on"),
+		l("Set Quest status 0"),
+		l("Set Quest status 1")
+	);
+	mesn;
+	if(@menu!=1) setq(ArgaesQuest_Soren, @menu-2); // @menu starts from 1, quest progress from 0
+
+// -------------------
+
+	switch(getq(ArgaesQuest_Soren)) {
+		case 0: QuestPart0(); break;
+/*		case 1: QuestPart1(); break;
+		case 2: QuestPart2(); break;
+		case 3: QuestPart3(); break;
+		case 4: QuestPart4(); break;
+		case 5: QuestPart5(); break;
+		case 6: QuestPart6(); break;
+		case 7: galimatiaQuestDaily(); break; //*/
+		default:
+			mesq l("[Invalid quest status: %d, check script]", getq(ArgaesQuest_Soren));
+	}
+	close;
+
+/*
+Player meets undead Soren in one of the houses in southeast swamp town. Soren does not believe he is dead, so he asks for evidence and points the player to his good friends Krukan, Rhaza and Terogan.
+*/
+function QuestPart0 {
+	/*
+	select( l("Dammit! What's that stench?"));
+	speech l("Huh?");
+	select(	l("It comes from here!"));
+	speech l("Are you sure that you haven't stepped on some Mouboo's manure before getting here and dirtying my home?");
+	select( l("No way! That's the stench of a rotting corpse."));
+	speech l("A rotting corpse? Right here?");
+	select( l("Dammit another time! That comes from you!!!"));
+	speech l("What? Listen...");
+	speech l("I don't know who you are but I can't stand someone that comes here and offends me like that.");
+	select( l("Ain't insulting nobody. You really have something wrong. You look like turning undead to me.")	);
+	speech l("Me, dead? I'm not dead!");
+	next;
+	speech l("None told me such a thing in this lovely town. Why don't you ask them if they think that I'm dead?");
+	select( l("Sure. I have nothing to do all day."));
+	speech l("Ask Krukan, Razha and Terogan.");
+	select(	l("Ah, yes! I know them: they are always performing in Dimond's Cove."));
+	*/
+	speech l("What?!? Are you serious???");
+	select(	l("I bet that not even a foot wants to touch you right now."));
+	speech l("Enough! Get out of my home, now!!!");
+	next;
+	specialeffect(69, AREA, "Soren"); // I don't want to ruin you the surprise
+	close;
+	advanceQuest();
+}
+
+OnInit:
+	.bodytype = BODYTYPE_2;
+	.distance = 4;
+	end;
+}
+
+/*
+009-2-0,31,34,0	script	#Soren_inst	NPC_HIDDEN,{
+
+OnInstanceInit:
+	npctalk("Hello "+strcharinfo(PC_NAME)+", how are you?");
+//	areamonster("Soren", 26, 29, 38, 38, strmobinfo(1, Croc), Croc, 1, "");
+	monster("009-2-0", 32, 35, strmobinfo(1, BlueRose), BlueRose, 1, "Soren::OnKill");
+
+	.bodytype = BODYTYPE_2;
+	.distance = 4;
+	end;
+
+OnKill:
+	npctalk("Noo!!! My fucking flower!");
+	monster("009-2-0", 32, 35, strmobinfo(1, RedRose), RedRose, 1, "");
+	end;
+}
+*/
+
+/*
+ // HurnscaldQuests_Rossy
+		// (MAIN QUEST, CAVE CONTROL, INSTANCE CONTROL)
+		.@inst=getq3(HurnscaldQuests_Rossy);
+		.@mapn$="ross@"+getcharid(0);
+		// NOTE: .@inst >= 0 skipped now that inst=0 refers to La Marine
+		if (isinstance(.@inst) && instanceowner(.@inst) == getcharid(3))
+		{
+			// Renew instance for 15 minutes
+			instance_set_timeout(900, 900, .@inst);
+		} else {
+		.@inst = instance_create("ROSSY "+getcharid(0), getcharid(3), IOT_CHAR);
+			instance_attachmap("008-3-0", .@inst, false, .@mapn$);
+			// Instance lasts 15 minutes
+		instance_set_timeout(900, 900, .@inst);
+		instance_init(.@inst);
+			setq3 HurnscaldQuests_Rossy, .@inst;
+				// Reset quest progress
+			setq2 HurnscaldQuests_Rossy, 0;
+		}
+		// Warp to instanced map
+		warp .@mapn$, 129, 112;
+
+*/
\ No newline at end of file