summaryrefslogtreecommitdiff
path: root/npc/functions/soul_menhir.txt
blob: f807b7fb18bf4496fefa352c76b1be0c67225004 (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
function	script	SoulMenhir	{
	mes "[Soul Menhir]";
	mes "(A mystical aura surrounds this stone. You feel mysteriously attracted to it. Something tells you to touch it. What do you do?)";
	next;

	menu
		"Touch it", -,
		"Leave it alone", return;

	if (Menhir_Activated == 1) goto L_Shortversion;

	mes "[Soul Menhir]";
	mes "(You touch the mysteriouse stone. Somehow it feels warm and cold at the same time.)";
	next;

	mes "[Soul Menhir]";
	mes "(Suddenly a strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone.)";
	next;

	mes "[Soul Menhir]";
	mes "(As suddenly as the feeling started it stops. The strange attraction is away from one moment to the next and the menhir feels like just an ordinary stone.)";
	next;

	set Menhir_Activated, 1;
	goto L_Save;

L_Shortversion:
	mes "[Soul Menhir]";	
	mes "(A strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone. as suddenly as the feeling started it stops.)";
	next;

L_Save:
	savepoint @map$, @x, @y;
}