Branch data for eAthena

1 files changed, 81 insertions, 0 deletions

diff --git a/npc/new_3-1-tulimshar/sandra.txt b/npc/new_3-1-tulimshar/sandra.txt
new file mode 100644
index 00000000..4922bd60
--- /dev/null
+++ b/npc/new_3-1-tulimshar/sandra.txt
@@ -0,0 +1,81 @@
+new_3-1.gat,110,71,0	script	Sandra	114,{
+	if(Scorp == 2) goto done;
+	if(Scorp == 1) goto reas;
+	set @TEMP,rand(3);
+	if(@TEMP == 1) goto L_1;
+	if(@TEMP == 2) goto L_2;
+	if(@TEMP == 3) goto L_3;
+	if(@TEMP == 0) goto L_4;
+L_1:
+	mes "[Sandra]";
+	mes "\"In the outskirts of Tulimshar, there wanders a red scorpion. I need a favor, please help me.\"";
+	next;
+	goto red;
+L_2:
+	mes "[Sandra]";
+	mes "\"When you venture in the outskirts of Tulimshar, you can spot a red scorpion. Will you help me kill one?\"";
+	next;
+	goto red;
+L_3:
+	mes "[Sandra]";
+	mes "\"The red scorpion stinger carries many properties used in potions.\"";
+	next;
+	goto red;
+L_4:
+	mes "[Sandra]";
+	mes "\"You look sturdy enough, will you help me get something?\"";
+	next;
+	goto red;
+red:
+	menu "Yes",L_kl,"No",L_N;
+L_kl:
+	if(@TEMP == 1) goto K_1;
+	if(@TEMP == 2) goto K_2;
+	if(@TEMP == 3) goto K_3;
+	if(@TEMP == 0) goto K_1;
+K_1:
+	mes "[Sandra]";
+	mes "\"I need you to slaughter the red scorpion found outside of Tulimshar and bring me 5 [Red Stingers].\"";
+	next;
+	goto set1;
+K_2:
+	mes "[Sandra]";
+	mes "\"I heard a while ago that the stinger of a red scorpion can be used for medical purposes. I need you to help me get 5 [Red Stingers].\"";
+	next;
+	goto set1;
+K_3:
+	mes "[Sandra]";
+	mes "\"Bring me 5 [Red Stingers] and i will reward you greatly.\"";
+	next;
+	goto set1;
+set1:
+	set Scorp,1;
+	mes "[Sandra]";
+	mes "\"Please bring me them!\"";
+	close;
+reas:
+	if(countitem(517) >= 5) goto have;
+	mes "[Sandra]";
+	mes "\"Please hurry and bring me 5 [Red Stingers].\"";
+	close;
+have:
+	mes "[Sandra]";
+	mes "\"Excellent!";
+	mes "You brought me 5 [Red Stingers]!\"";
+	delitem 517,5;
+	next;
+	mes "[Sandra]";
+	mes "\"Here you go, your reward!\"";
+	mes "+Got Bow";
+	mes "+Got Arrows 100";
+	getitem 1200,1;
+	getitem 1199,100;
+	set Scorp,2;
+	close;
+done:
+	mes "[Sandra]";
+	mes "\"Thank you for all your help!\"";
+	close;
+L_N:
+	close;
+}