summaryrefslogtreecommitdiff
path: root/npc/009-2-0/soren.txt
blob: b970ef879422941f7d48dd1ccd01f1fe1edd98bf (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
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;

*/