summaryrefslogtreecommitdiff
path: root/npc/002-3_Desert_mines
diff options
context:
space:
mode:
authorWombat <hpwombat@yahoo.com>2010-08-18 21:02:01 -0400
committerWombat <hpwombat@yahoo.com>2010-08-18 21:02:01 -0400
commit0b9235d0865509feb9ef97aa197204293cee0b1f (patch)
tree719ddcf0441486774d0b827fb5a36e7e0a5b7ec8 /npc/002-3_Desert_mines
parent75dfdd443d6dbe9bd556debeb1c50d3000d95967 (diff)
downloadserverdata-0b9235d0865509feb9ef97aa197204293cee0b1f.tar.gz
serverdata-0b9235d0865509feb9ef97aa197204293cee0b1f.tar.bz2
serverdata-0b9235d0865509feb9ef97aa197204293cee0b1f.tar.xz
serverdata-0b9235d0865509feb9ef97aa197204293cee0b1f.zip
Low Level Tulimshar Release
News, Small Fixes, Tulimshar Related Quests, Sandstorm Mob Changes Expensive Hurnscald Warp NPC
Diffstat (limited to 'npc/002-3_Desert_mines')
-rw-r--r--npc/002-3_Desert_mines/_import.txt7
-rw-r--r--npc/002-3_Desert_mines/_mobs.txt50
-rw-r--r--npc/002-3_Desert_mines/mine_triggerone.txt52
-rw-r--r--npc/002-3_Desert_mines/mine_triggerthree.txt51
-rw-r--r--npc/002-3_Desert_mines/mine_triggertwo.txt53
-rw-r--r--npc/002-3_Desert_mines/miners.txt25
-rw-r--r--npc/002-3_Desert_mines/naem.txt129
-rw-r--r--npc/002-3_Desert_mines/nathan.txt109
-rw-r--r--npc/002-3_Desert_mines/underground_palace_barrier.txt14
9 files changed, 434 insertions, 56 deletions
diff --git a/npc/002-3_Desert_mines/_import.txt b/npc/002-3_Desert_mines/_import.txt
index acb84bb4..e7b0d52d 100644
--- a/npc/002-3_Desert_mines/_import.txt
+++ b/npc/002-3_Desert_mines/_import.txt
@@ -1,4 +1,9 @@
map: 002-3.gat
npc: npc/002-3_Desert_mines/_mobs.txt
npc: npc/002-3_Desert_mines/_warps.txt
-npc: npc/002-3_Desert_mines/miners.txt
+npc: npc/002-3_Desert_mines/mine_triggerone.txt
+npc: npc/002-3_Desert_mines/mine_triggerthree.txt
+npc: npc/002-3_Desert_mines/mine_triggertwo.txt
+npc: npc/002-3_Desert_mines/naem.txt
+npc: npc/002-3_Desert_mines/nathan.txt
+npc: npc/002-3_Desert_mines/underground_palace_barrier.txt
diff --git a/npc/002-3_Desert_mines/_mobs.txt b/npc/002-3_Desert_mines/_mobs.txt
index d348ac8f..d2509e8a 100644
--- a/npc/002-3_Desert_mines/_mobs.txt
+++ b/npc/002-3_Desert_mines/_mobs.txt
@@ -1,44 +1,34 @@
// 002-3 Desert mines mobs
-002-3.gat,45,38,30,19 monster Yellow Slime 1007,5,100000,30000,Mob002-3::On1007
-002-3.gat,91,41,17,20 monster Snake 1010,3,100000,30000,Mob002-3::On1010
-002-3.gat,71,35,25,17 monster Red Slime 1008,4,100000,30000,Mob002-3::On1008
-002-3.gat,69,100,8,5 monster Spider 1012,2,100000,30000,Mob002-3::On1012
-002-3.gat,68,57,26,24 monster Black Scorpion 1009,5,100000,30000,Mob002-3::On1009
-002-3.gat,45,61,11,28 monster Red Slime 1008,5,100000,30000,Mob002-3::On1008
-002-3.gat,38,76,15,22 monster Black Scorpion 1009,4,100000,30000,Mob002-3::On1009
-002-3.gat,58,78,6,17 monster Red Slime 1008,2,100000,30000,Mob002-3::On1008
-002-3.gat,89,68,11,32 monster Black Scorpion 1009,4,100000,30000,Mob002-3::On1009
-002-3.gat,83,93,19,17 monster Red Slime 1008,4,100000,30000,Mob002-3::On1008
-002-3.gat,72,77,21,14 monster Red Slime 1008,3,100000,30000,Mob002-3::On1008
-002-3.gat,67,91,11,12 monster Black Scorpion 1009,2,100000,30000,Mob002-3::On1009
-002-3.gat,58,95,6,13 monster Snake 1010,2,100000,30000,Mob002-3::On1010
-002-3.gat,63,100,2,5 monster Black Scorpion 1009,1,100000,30000,Mob002-3::On1009
+002-3.gat,39,37,14,10 monster Cave Maggot 1056,5,100000,30000,Mob002-3::On1056
+002-3.gat,91,41,17,20 monster Ice Goblin 1058,3,100000,30000,Mob002-3::On1058
+002-3.gat,71,35,25,17 monster Cave Maggot 1056,4,100000,30000,Mob002-3::On1056
+002-3.gat,69,100,8,5 monster Ice Goblin 1058,2,100000,30000,Mob002-3::On1058
+002-3.gat,68,57,26,24 monster Angry Scorpion 1057,5,100000,30000,Mob002-3::On1057
+002-3.gat,48,57,3,14 monster Angry Scorpion 1057,5,100000,30000,Mob002-3::On1057
+002-3.gat,38,76,15,22 monster Angry Scorpion 1057,4,100000,30000,Mob002-3::On1057
+002-3.gat,58,78,6,17 monster Cave Maggot 1056,4,100000,30000,Mob002-3::On1056
+002-3.gat,89,68,11,32 monster Angry Scorpion 1057,4,100000,30000,Mob002-3::On1057
+002-3.gat,84,93,19,17 monster Cave Maggot 1056,4,100000,30000,Mob002-3::On1056
+002-3.gat,72,77,21,14 monster Ice Goblin 1058,3,100000,30000,Mob002-3::On1058
+002-3.gat,67,91,11,12 monster Angry Scorpion 1057,4,100000,30000,Mob002-3::On1057
+002-3.gat,58,95,6,13 monster Cave Maggot 1056,4,100000,30000,Mob002-3::On1056
+002-3.gat,63,100,2,5 monster Angry Scorpion 1057,3,100000,30000,Mob002-3::On1057
002-3.gat,0,0,0 script Mob002-3 -1,{
-On1007:
- set @mobID, 1007;
+On1056:
+ set @mobID, 1056;
callfunc "MobPoints";
break;
-On1008:
- set @mobID, 1008;
+On1057:
+ set @mobID, 1057;
callfunc "MobPoints";
break;
-On1009:
- set @mobID, 1009;
- callfunc "MobPoints";
- break;
-
-On1010:
- set @mobID, 1010;
- callfunc "MobPoints";
- break;
-
-On1012:
- set @mobID, 1012;
+On1058:
+ set @mobID, 1058;
callfunc "MobPoints";
break;
diff --git a/npc/002-3_Desert_mines/mine_triggerone.txt b/npc/002-3_Desert_mines/mine_triggerone.txt
new file mode 100644
index 00000000..604e2aa9
--- /dev/null
+++ b/npc/002-3_Desert_mines/mine_triggerone.txt
@@ -0,0 +1,52 @@
+//Sandstorm mine trigger 1 Trigger 002-3 35,43 (127)
+
+002-3.gat,30,47,0 script Button 127,0,0,{
+
+ if (TMW_Quest == 36) goto L_Trigger_Wrong_1;
+ if (TMW_Quest == 35) goto L_Trigger_Wrong_1;
+ if (TMW_Quest == 34) goto L_Trigger_1;
+
+ mes "A large button on the ground. A key hole appears on the button.";
+ close;
+
+L_Trigger_Wrong_1:
+ mes "A large button on the ground. A key hole appears on the button.";
+ menu
+ "Put key in, turn right.", L_Right_Wrong_1,
+ "Put key in, turn left.", L_Left_Wrong_1,
+ "Do nothing.", L_Nothing_1;
+ close;
+
+L_Right_Wrong_1:
+ set TMW_Quest, 34;
+ mes "You turn the key right.";
+ close;
+
+L_Left_Wrong_1:
+ set TMW_Quest, 34;
+ mes "You turn the key left.";
+ close;
+
+L_Trigger_1:
+ mes "A large button on the ground. A key hole appears on the button.";
+ menu
+ "Put key in, turn right.", L_Right_1,
+ "Put key in, turn left.", L_Left_1,
+ "Do nothing.", L_Nothing_1;
+ close;
+
+L_Right_1:
+ set TMW_Quest, 35;
+ mes "You turn the key right, the sound of clicking is heard throughout the mine.";
+ close;
+
+L_Left_1:
+ set TMW_Quest, 34;
+ mes "You turn the key left.";
+ close;
+
+L_Nothing_1:
+ mes "You leave the button alone";
+ close;
+
+}
diff --git a/npc/002-3_Desert_mines/mine_triggerthree.txt b/npc/002-3_Desert_mines/mine_triggerthree.txt
new file mode 100644
index 00000000..c5596e8f
--- /dev/null
+++ b/npc/002-3_Desert_mines/mine_triggerthree.txt
@@ -0,0 +1,51 @@
+//Sandstorm mine trigger 3 Trigger 002-3 98,42 (127)
+
+002-3.gat,91,99,0 script Button 127,0,0,{
+
+ if (TMW_Quest == 36) goto L_Trigger_Wrong_3;
+ if (TMW_Quest == 35) goto L_Trigger_3;
+ if (TMW_Quest == 34) goto L_Trigger_Wrong_3;
+
+ mes "A large button on the ground. A key hole appears on the button.";
+ close;
+
+L_Trigger_Wrong_3:
+ mes "A large button on the ground. A key hole appears on the button.";
+ menu
+ "Put key in, turn right.", L_Right_Wrong_3,
+ "Put key in, turn left.", L_Left_Wrong_3,
+ "Do nothing.", L_Nothing_3;
+ close;
+
+L_Right_Wrong_3:
+ set TMW_Quest, 34;
+ mes "You turn the key right.";
+ close;
+
+L_Left_Wrong_3:
+ set TMW_Quest, 34;
+ mes "You turn the key left*.";
+ close;
+
+L_Trigger_3:
+ mes "A large button on the ground. A key hole appears on the button.";
+ menu
+ "Put key in, turn right.", L_Right_3,
+ "Put key in, turn left.", L_Left_3,
+ "Do nothing.", L_Nothing_3;
+ close;
+
+L_Right_3:
+ set TMW_Quest, 34;
+ mes "You turn the key right.";
+ close;
+
+L_Left_3:
+ set TMW_Quest, 36;
+ mes "You turn the key left, the sound of clicking is heard throughout the mine.";
+ close;
+
+L_Nothing_3:
+ mes "You leave the button alone";
+ close;
+}
diff --git a/npc/002-3_Desert_mines/mine_triggertwo.txt b/npc/002-3_Desert_mines/mine_triggertwo.txt
new file mode 100644
index 00000000..ff1ff654
--- /dev/null
+++ b/npc/002-3_Desert_mines/mine_triggertwo.txt
@@ -0,0 +1,53 @@
+//Sandstorm mine trigger
+
+002-3.gat,100,37,0 script Button 127,0,0,{
+
+ if (TMW_Quest == 36) goto L_Trigger_2;
+ if (TMW_Quest == 35) goto L_Trigger_Wrong_2;
+ if (TMW_Quest == 34) goto L_Trigger_Wrong_2;
+
+ mes "A large button on the ground. A key hole appears on the button.";
+ close;
+
+L_Trigger_Wrong_2:
+ mes "A large button on the ground. A key hole appears on the button.";
+ menu
+ "Put key in, turn right.", L_Right_Wrong_2,
+ "Put key in, turn left.", L_Left_Wrong_2,
+ "Do nothing.", L_Nothing_2;
+ close;
+
+L_Right_Wrong_2:
+ set TMW_Quest, 34;
+ mes "You turn the key right.";
+ close;
+
+L_Left_Wrong_2:
+ set TMW_Quest, 34;
+ mes "You turn the key left";
+ close;
+
+L_Trigger_2:
+ mes "A large button on the ground. A key hole appears on the button.";
+ menu
+ "Put key in, turn right.", L_Right_2,
+ "Put key in, turn left.", L_Left_2,
+ "Do nothing.", L_Nothing_2;
+ close;
+
+L_Right_2:
+ set TMW_Quest, 34;
+ mes "You turn the key right.";
+ close;
+
+L_Left_2:
+ set TMW_Quest, 37;
+ set Open_Underground_Palace_Barrier, 1;
+ mes "You turn the key left, the sound of clicking is heard throughout the mine. A loud thump is heard.";
+ close;
+
+L_Nothing_2:
+ mes "You leave the button alone.";
+ close;
+
+}
diff --git a/npc/002-3_Desert_mines/miners.txt b/npc/002-3_Desert_mines/miners.txt
deleted file mode 100644
index 8f69c47d..00000000
--- a/npc/002-3_Desert_mines/miners.txt
+++ /dev/null
@@ -1,25 +0,0 @@
-//
-
-002-3.gat,35,35,6 script Nathan 109,{
- mes "[Nathan the Miner]";
-
- if (getskilllv(SKILL_MAGIC))
- goto L_message;
-
- mes "\"It's very dangerous in here.";
- mes "We had a big earthquake here";
- mes "just recently, too... so be";
- mes "careful!\"";
- close;
-
-L_message:
- mes "\"We found a good way to carry our ores out of here safely: one of us always runs ahead shouting '" + getspellinvocation("aggravate") + "'. Somehow this seems to distract the monsters.\"";
- close;
-}
-
-002-3.gat,85,97,6 script Naem 109,{
- mes "[Naem the Miner]";
- mes "\"We discovered an underground palace.";
- mes "You can get there using the passage on the left.\"";
- close;
-}
diff --git a/npc/002-3_Desert_mines/naem.txt b/npc/002-3_Desert_mines/naem.txt
new file mode 100644
index 00000000..74d8465f
--- /dev/null
+++ b/npc/002-3_Desert_mines/naem.txt
@@ -0,0 +1,129 @@
+//
+
+002-3.gat,85,97,6 script Naem 109,{
+
+ if (Naem_Quest_Done == 1) goto L_Naem_Complete;
+ if (Open_Underground_Palace_Barrier == 1) goto L_Naem_Gloves;
+ if (TMW_Quest == 34) goto L_Naem_Code;
+ if (TMW_Quest == 33) goto L_Naem_Lt;
+ if (TMW_Quest == 32) goto L_Naem_Memory;
+ if (TMW_Quest > 29) && (TMW_Quest < 31)goto L_Naem_Great;
+ if (TMW_Quest == 29) goto L_Naem_Waits_3;
+ if (TMW_Quest == 28) goto L_Naem_Help_3;
+ if (TMW_Quest == 27) goto L_Naem_Waits_2;
+ if (TMW_Quest == 26) goto L_Naem_Help_2;
+ if (TMW_Quest == 25) goto L_Naem_Waits_1;
+ if (TMW_Quest == 24) goto L_Naem_Help_1;
+ if (TMW_Quest == 22) goto L_Naem_Cool;
+ if (TMW_Quest == 21) goto L_Naem_Okay;
+
+ mes "[Naem]";
+ mes "\"Just mining away. Lots of work to do.\"";
+ close;
+
+L_Naem_Okay:
+ set TMW_Quest, 22;
+ mes "[Naem]";
+ mes "\"Oh hello there. Nickos wanted you to check on me? Yeah, I'm okay.\"";
+ close;
+
+L_Naem_Cool:
+ mes "[Naem]";
+ mes "\"Yeah, I'm cool. Just mining away.\"";
+ close;
+
+L_Naem_Help_1:
+ set TMW_Quest, 25;
+ mes "[Naem]";
+ mes "\"Oh, you are here to help move my bags? Cool, I've got a few ready to go. Go ahead and take this one.\"";
+ next;
+ mes "Naem hands you a bag of ore";
+ next;
+ mes "\"After you deliver that one to Nathan, come on back, I've got a couple more ready to go.\"";
+ close;
+
+L_Naem_Waits_1:
+ mes "[Naem]";
+ mes "\"After you deliver that bag of ore to Nathan, come on back, I've got a couple more ready to go.\"";
+ close;
+
+L_Naem_Help_2:
+ set TMW_Quest, 27;
+ mes "[Naem]";
+ mes "Naem Gives you a bag of ore.";
+ next;
+ mes "\"Just one more after this one and we'll be caught up.\"";
+ close;
+
+L_Naem_Waits_2:
+ mes "[Naem]";
+ mes "\"Just one more bag of ore after the one you got and we'll be caught up.\"";
+ close;
+
+L_Naem_Help_3:
+ set TMW_Quest, 29;
+ mes "[Naem]";
+ mes "Hands a bag of ore to you.";
+ next;
+ mes "\"Last one!\"";
+ close;
+
+L_Naem_Waits_3:
+ mes "[Naem]";
+ mes "\"You got my last sack. Just give it to Nathan and we'll be caught up.\"";
+ close;
+
+L_Naem_Great:
+ mes "[Naem]";
+ mes "\"Hi ho! It's off to work I go! I work everyday for meager pay, a miner's life for me.\"";
+ close;
+
+L_Naem_Memory:
+ mes "[Naem]";
+ mes "\"Oh, my head! Some rocks fell on me and bonked me pretty good. I'm still a little sore.\"";
+ menu
+ "Don't you got a key so I can go to the underground palace?", L_Naem_Palace_No,
+ "You should be more careful.", L_Naem_Duh;
+ close;
+
+L_Naem_Duh:
+ mes "[Naem]";
+ mes "\"I guess I should...\"";
+ close;
+
+L_Naem_Palace_No:
+ set TMW_Quest, 33;
+ mes "[Naem]";
+ mes "\"Oh no! I lost the key! Don't fear though, talk to Lieutenant Dausen about getting the spare key.\"";
+ close;
+
+L_Naem_Lt:
+ mes "[Naem]";
+ mes "\"I hurt my head pretty bad. I also lost my key. If you want to get into the underground palace, you'll have to talk to Lieutenant Dausen about getting the spare.\"";
+ close;
+
+L_Naem_Code:
+ mes "[Naem]";
+ mes "\"Oh you got the key. That is good. All I remember about the code is you have to put the key into the buttons around the mine in a certain order and turn them in a certain order and it will unlock the underground palace. Good luck.\"";
+ close;
+
+L_Naem_Gloves:
+ getinventorylist;
+ if (@inventorylist_count == 100) goto L_Nathan_TooMany;
+ set Naem_Quest_Done, 1;
+ getitem "MinerGloves", 1;
+ mes "[Naem]";
+ mes "\"Hey, good job on getting that together. Take these gloves, they might prove useful in the underground palace.\"";
+ close;
+
+L_Naem_TooMany:
+ mes "[Naem]";
+ mes "\"You have too many items for me to give you a reward.\"";
+ close;
+
+L_Naem_Complete:
+ mes "[Naem]";
+ mes "\"A miner's life for me!\"";
+ close;
+
+}
diff --git a/npc/002-3_Desert_mines/nathan.txt b/npc/002-3_Desert_mines/nathan.txt
new file mode 100644
index 00000000..a9f9c377
--- /dev/null
+++ b/npc/002-3_Desert_mines/nathan.txt
@@ -0,0 +1,109 @@
+//
+
+002-3.gat,35,35,6 script Nathan 109,{
+
+ if (getskilllv(SKILL_MAGIC)) goto L_message;
+ if (TMW_Quest >= 32) goto L_Nathan_Complete;
+ if (TMW_Quest == 31) goto L_Nathan_UGQ_Naem;
+ if (TMW_Quest == 30) goto L_Nathan_Help_Cool;
+ if (TMW_Quest == 29) goto L_Nathan_Help_Done;
+ if (TMW_Quest == 28) goto L_Nathan_Waits_3;
+ if (TMW_Quest == 27) goto L_Nathan_Help_3;
+ if (TMW_Quest == 26) goto L_Nathan_Waits_2;
+ if (TMW_Quest == 25) goto L_Nathan_Help_2;
+ if (TMW_Quest == 24) goto L_Nathan_Waits_1;
+ if (TMW_Quest == 23) goto L_Nathan_Help_1;
+ if (TMW_Quest == 21) goto L_Nathan_Cool;
+ if (TMW_Quest == 20) goto L_Nathan_Okay;
+
+
+ mes "[Nathan the Miner]";
+ mes "\"It's very dangerous in here. We had a big earthquake here just recently, too... so be careful!\"";
+ close;
+
+L_message:
+ mes "\"We found a good way to carry our ores out of here safely: one of us always runs ahead shouting '" + getspellinvocation("aggravate") + "'. Somehow this seems to distract the monsters.\"";
+ close;
+
+L_Nathan_Okay:
+ set TMW_Quest, 21;
+ mes "[Nathan]";
+ mes "\"Hey! Just mining away down here. Nickos, was worried? Nothing down here we can't handle, but try to be safe down here. The monsters can be rather aggressive. You might want to check on Naem to make sure he's okay. You can find him on the southeast corner of the mine.\"";
+ close;
+
+L_Nathan_Cool:
+ mes "[Nathan]";
+ mes "\"Hey, be careful down here, the monsters can be rather aggressive. You might want to check on Naem. He's at the southeast corner of the mine.\"";
+ close;
+
+L_Nathan_Help_1:
+ set TMW_Quest, 24;
+ mes "[Nathan]";
+ mes "\"Oh hey again. Nickos told you we need some help down here? Yeah, Naem could use some help moving his bags of ore to me. He's got a lot of work built up. Just go talk to him and he'll give you the bags. You might have to make a few trips, but I'll make it worth your troubles.\"";
+ close;
+
+L_Nathan_Waits_1:
+ mes "[Nathan]";
+ mes "\"Naem could use some help moving his bags of ore to me. He's got a lot of work built up. Just go talk to him and he'll give you the bags. You might have to make a few trips, but I'll make it worth your troubles.\"";
+ close;
+
+L_Nathan_Help_2:
+ set TMW_Quest, 26;
+ mes "[Nathan]";
+ mes "You give the bag of ore to Nathan";
+ next;
+ mes "\"Ah, thank you. Just a couple more and we'll be caught up.\"";
+ close;
+
+L_Nathan_Waits_2:
+ mes "[Nathan]";
+ mes "\"Just a couple more and we'll be caught up.\"";
+ close;
+
+L_Nathan_Help_3:
+ set TMW_Quest, 28;
+ mes "[Nathan]";
+ mes "You hand the bag of ore to Nathan";
+ next;
+ mes "\"Just one more bag and you'll be done.\"";
+ close;
+
+L_Nathan_Waits_3:
+ mes "[Nathan]";
+ mes "\"Just get one more bag of ore from Naem and bring it to me and you'll be done.\"";
+ close;
+
+L_Nathan_Help_Done:
+ getinventorylist;
+ if (@inventorylist_count == 100) goto L_Nathan_TooMany;
+ set TMW_Quest, 30;
+ getitem "MinersHat", 1;
+ mes "[Nathan]";
+ mes "You hand the bag of ore to Nathan";
+ next;
+ mes "\"Ah, that should be it. Thank you for your help. Here, take this miner's hat. You're a real miner now!\"";
+ next;
+ mes "\"I noticed a problem with these angry scorpions down here, they seem to make things much more difficult. Maybe you could tell Nickos about it?\"";
+ close;
+
+L_Nathan_TooMany:
+ mes "[Nathan]";
+ mes "\"You have too many items for me to give you a reward.\"";
+ close;
+
+L_Nathan_Help_Cool:
+ mes "[Nathan]";
+ mes "\"Be safe down here, it's dangerous. Mining is a dangerous job, but somebody's got to do it.\"";
+ close;
+
+L_Nathan_UGQ_Naem:
+ mes "[Nathan]";
+ mes "\"Thanks for thinning down the angry scorpion numbers. It has made mining a little easier down here. Oh, Nickos has given you permission to check out the underground palace? Talk to Naem, he's got the key and the code.\"";
+ close;
+
+L_Nathan_Complete:
+ mes "[Nathan]";
+ mes "\"Mining is a dangerous job, but somebody's got to do it.\"";
+ close;
+
+}
diff --git a/npc/002-3_Desert_mines/underground_palace_barrier.txt b/npc/002-3_Desert_mines/underground_palace_barrier.txt
new file mode 100644
index 00000000..34eeaf57
--- /dev/null
+++ b/npc/002-3_Desert_mines/underground_palace_barrier.txt
@@ -0,0 +1,14 @@
+//underground palace barrier
+
+002-3.gat,68,98,0 script #UGP_Barrier 127,0,0,{
+
+ if (TMW_Quest >= 37) goto L_Underground_Palace_Barrier_Open;
+ message strcharinfo(0), "Some force seems to block your entrance.";
+ end;
+
+
+L_Underground_Palace_Barrier_Open:
+ warp "002-4.gat",34,98;
+ end;
+
+}