Diryn: Cost for teleport halved for players below level 45,

use of variables instead of hard coded numbers,
adapted to new scripting guidelines

1 files changed, 90 insertions, 62 deletions

diff --git a/world/map/npc/008-1/diryn.txt b/world/map/npc/008-1/diryn.txt
index c5ab21a4..d4d3698e 100644
--- a/world/map/npc/008-1/diryn.txt
+++ b/world/map/npc/008-1/diryn.txt
@@ -1,84 +1,112 @@
 //This is a teleportation (warp) NPC.  Its purpose is to offer expensive, fast trips throughout the world.
+// Author: Wombat
+// cost depending on level and adapted to new srcipting guidelines: Jenalya
 
-008-1.gat,81,82,0	script	Diryn the Traveler	103,{
-	mes "[Diryn]";
-    	mes "\"Greetings.  I am Diryn the Traveler, Assistant Councilor of Tulimshar and teleporter extraordinaire.  Tulimshar is expanding our influence throughout the world, so I was sent here to aid all who are willing and able to take on the threats to our interests.\"";
-	next;
-	mes "\"The monsters of the world have grown out of control, harming people, trade and travel.  Needless to say, Tulimshar is not happy with this problem.  Our solution: Rally those powerful enough to combat the monster threat and send them to hot spots to challenge the monster threat head on.  However, teleportation to these areas is not only extremely dangerous, but also highly expensive.   Do you think you got what it takes?\"";
-	menu
-		"I sure do!", L_Diryn_Yes,
-		"No thank you", L_Diryn_No;
-	close;
+008-1.gat,81,82,0|script|Diryn the Traveler|103,{
+    if (BaseLevel < 45) goto L_LowerCost;
+    set @cost_druidtree, 1500;
+    set @cost_graveyard, 1500;
+    set @cost_magichouse, 1000;
+    set @cost_terranitecave, 1500;
+    set @cost_tulimshar, 1000;
+    set @cost_nivalis, 1000;
+
+L_Start:
+    mes "[Diryn]";
+    mes "\"Greetings.  I am Diryn the Traveler, Assistant Councilor of Tulimshar and teleporter extraordinaire.  Tulimshar is expanding our influence throughout the world, so I was sent here to aid all who are willing and able to take on the threats to our interests.\"";
+    next;
+    mes "\"The monsters of the world have grown out of control, harming people, trade and travel.  Needless to say, Tulimshar is not happy with this problem.  Our solution: Rally those powerful enough to combat the monster threat and send them to hot spots to challenge the monster threat head on.  However, teleportation to these areas is not only extremely dangerous, but also highly expensive.   Do you think you got what it takes?\"";
+    menu
+        "I sure do!", L_Diryn_Yes,
+        "No thank you", L_Diryn_No;
+    goto L_Clearvars;
 
 L_Diryn_Yes:
-	mes "[Diryn]";
-	mes "\"Excellent.  I can send you to many places, but again, the fees are large. Where shall I send you?\"";
-	menu
-		"Druid Tree (1500 GP)", L_Diryn_Druid_Tree,
-		"Graveyard (1500 GP)", L_Diryn_Graveyard,
-		"Magic House (1000 GP)", L_Diryn_Magic_House,
-		"Terranite Cave (1500 GP)", L_Diryn_Terranite,
-		"Tulimshar Town Square (1000 GP)", L_Diryn_Tulimshar,
-		"Nivalis (1000 GP)", L_Diryn_Nivalis,
-		"Not Interested", L_Diryn_No;
-	close;
+    mes "[Diryn]";
+    mes "\"Excellent.  I can send you to many places, but again, the fees are large. Where shall I send you?\"";
+    menu
+        "Druid Tree (" + @cost_druidtree + " GP)", L_Diryn_Druid_Tree,
+        "Graveyard (" + @cost_graveyard + " GP)", L_Diryn_Graveyard,
+        "Magic House (" + @cost_magichouse + " GP)", L_Diryn_Magic_House,
+        "Terranite Cave (" + @cost_terranitecave + " GP)", L_Diryn_Terranite,
+        "Tulimshar Town Square (" + @cost_tulimshar + " GP)", L_Diryn_Tulimshar,
+        "Nivalis (" + @cost_nivalis + " GP)", L_Diryn_Nivalis,
+        "Not Interested", L_Diryn_No;
+    goto L_Clearvars;
 
 L_Diryn_Druid_Tree:
-	if (zeny < 1500) goto L_NoMoney;
-	mes "[Diryn]";
-	mes "\"Be fearless!\"";
-	set zeny, zeny-1500;
-	warp "005-1.gat",73,36;
-	close;
+    if (zeny < @cost_druidtree) goto L_NoMoney;
+    mes "[Diryn]";
+    mes "\"Be fearless!\"";
+    set zeny, zeny - @cost_druidtree;
+    warp "005-1.gat",73,36;
+    goto L_Clearvars;
 
 L_Diryn_Graveyard:
-	if (zeny < 1500) goto L_NoMoney;
-	mes "[Diryn]";
-	mes "\"Be fearless!\"";
-	set zeny, zeny-1500;
-    	warp "027-1.gat",70,85;
-    	close;
+    if (zeny < @cost_graveyard) goto L_NoMoney;
+    mes "[Diryn]";
+    mes "\"Be fearless!\"";
+    set zeny, zeny - @cost_graveyard;
+    warp "027-1.gat",70,85;
+    goto L_Clearvars;
 
 L_Diryn_Magic_House:
-	if (zeny < 1000) goto L_NoMoney;
-	mes "[Diryn]";
-	mes "\"Be fearless!\"";
-	set zeny, zeny-1000;
-	warp "013-1.gat",45,92;
-	close;
+    if (zeny < @cost_magichouse) goto L_NoMoney;
+    mes "[Diryn]";
+    mes "\"Be fearless!\"";
+    set zeny, zeny - @cost_magichouse;
+    warp "013-1.gat",45,92;
+    goto L_Clearvars;
 
 L_Diryn_Terranite:
-	if (zeny < 1500) goto L_NoMoney;
-	mes "[Diryn]";
-	mes "\"Be fearless!\"";
-	set zeny, zeny-1500;
-	warp "012-3.gat",445,65;
-	close;
+    if (zeny < @cost_terranitecave) goto L_NoMoney;
+    mes "[Diryn]";
+    mes "\"Be fearless!\"";
+    set zeny, zeny - @cost_terranitecave;
+    warp "012-3.gat",445,65;
+    goto L_Clearvars;
 
 L_Diryn_Tulimshar:
-	if (zeny < 1000) goto L_NoMoney;
-	mes "[Diryn]";
-	mes "\"Be fearless!\"";
-	set zeny, zeny-1000;
-	warp "001-1.gat",44,70;
-	close;
+    if (zeny < @cost_tulimshar) goto L_NoMoney;
+    mes "[Diryn]";
+    mes "\"Be fearless!\"";
+    set zeny, zeny - @cost_tulimshar;
+    warp "001-1.gat",44,70;
+    goto L_Clearvars;
 
 L_Diryn_Nivalis:
-	if (zeny < 1000) goto L_NoMoney;
-	mes "[Diryn]";
-	mes "\"Be fearless!\"";
-	set zeny, zeny-1000;
-	warp "020-1.gat",71,100;
-	close;
+    if (zeny < @cost_nivalis) goto L_NoMoney;
+    mes "[Diryn]";
+    mes "\"Be fearless!\"";
+    set zeny, zeny - @cost_nivalis;
+    warp "020-1.gat",71,100;
+    goto L_Clearvars;
 
 L_Diryn_No:
-	mes "[Diryn]";
-	mes "\"Perhaps some day you will have the courage to help us.  Enjoy your stay here in Hurnscald.\"";
-	close;
+    mes "[Diryn]";
+    mes "\"Perhaps some day you will have the courage to help us.  Enjoy your stay here in Hurnscald.\"";
+    goto L_Clearvars;
 
 L_NoMoney:
-	mes "[Diryn]";
-	mes "\"Sorry, you don't have enough.  Maybe next time.\"";
-	close;
+    mes "[Diryn]";
+    mes "\"Sorry, you don't have enough.  Maybe next time.\"";
+    goto L_Clearvars;
+
+L_LowerCost:
+    set @cost_druidtree, 750;
+    set @cost_graveyard, 750;
+    set @cost_magichouse, 500;
+    set @cost_terranitecave, 750;
+    set @cost_tulimshar, 500;
+    set @cost_nivalis, 500;
+    goto L_Start;
 
+L_Clearvars:
+    set @cost_druidtree, 0;
+    set @cost_graveyard, 0;
+    set @cost_magichouse, 0;
+    set @cost_terranitecave, 0;
+    set @cost_tulimshar, 0;
+    set @cost_nivalis, 0;
+    close;
 }