Initial revision

1 files changed, 81 insertions, 0 deletions

diff --git a/npc/tulimshar/sandra.txt b/npc/tulimshar/sandra.txt
new file mode 100644
index 00000000..6a19ffa7
--- /dev/null
+++ b/npc/tulimshar/sandra.txt
@@ -0,0 +1,81 @@
+new_3-1.gat,72,61,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 "Excelent!";
+	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;
+}