Melina's beer, and her awesome logic

1 files changed, 60 insertions, 0 deletions

diff --git a/npc/012-2/melina.txt b/npc/012-2/melina.txt
new file mode 100644
index 000000000..7690283cc
--- /dev/null
+++ b/npc/012-2/melina.txt
@@ -0,0 +1,60 @@
+// TMW-2 Script
+// Author:
+//    Jesusalva
+// Description:
+//    Sells beer
+// Variables:
+//    $HELENA_ST
+//      Controls stock and beer prices
+
+012-2,54,43,0	script	Melina	NPC_FEMALE,{
+
+hello;
+shop .name$;
+close;
+
+OnTimer1000:
+    domovestep;
+
+OnInit:
+    .@npcId = getnpcid(0, .name$);
+    setunitdata(.@npcId, UDT_HEADTOP, NPCEyes);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, );
+    setunitdata(.@npcId, UDT_HEADBOTTOM, CottonSkirt);
+    setunitdata(.@npcId, UDT_WEAPON, AssassinBoots);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 20);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 4);
+
+    tradertype(NST_MARKET);
+    if ($HELENA_ST < 700)
+        sellitem Beer, 500-($HELENA_ST/2), ($HELENA_ST/3)+1;
+    else
+        sellitem Beer, 150, ($HELENA_ST/3)+1;
+
+    initpath "move", 54, 43,
+             "dir", DOWN, 0,
+             "wait", 60, 0,
+             "move", 43, 43,
+             "dir", DOWN, 0,
+             "wait", 60, 0,
+             "move", 48, 45,
+             "dir", DOWN, 0,
+             "wait", 60, 0,
+             "move", 58, 42,
+             "dir", DOWN, 0,
+             "wait", 60, 0,
+             "move", 35, 43,
+             "dir", DOWN, 0,
+             "wait", 30, 0;
+    initialmove;
+    initnpctimer;
+
+    .sex = G_FEMALE;
+    .distance = 5;
+    end;
+
+OnClock2358:
+    restoreshopitem Beer, 500-($HELENA_ST/2), ($HELENA_ST/3)+1;
+    end;
+
+}