Fix any remaining broken warps and some more translatable strings.

Close serverdata#32

1 files changed, 18 insertions, 14 deletions

diff --git a/npc/013-2/notes.txt b/npc/013-2/notes.txt
index 5fba597b..0692cb6e 100644
--- a/npc/013-2/notes.txt
+++ b/npc/013-2/notes.txt
@@ -42,9 +42,9 @@
     next;
     mes "You think: \"Huh?\"";
     next;
-    mes "The spell fulfills its inevitable purpose...";
+    mes l("The spell fulfills its inevitable purpose...");
     next;
-    @dest = rand(BaseLevel);
+    @dest = rand2(BaseLevel);
     if (@dest < 10)
         goto L_PlaceOne;
     if ((@dest >= 10) && (@dest <= 50))
@@ -65,16 +65,17 @@ L_PlaceThree:
 
 L_close:
     @dest = 0;
+    closeclientdialog;
     close;
 }
 
 013-2,27,24,0	script	Spell#wiz2	NPC400,{
     mes "You read: \"You must not fear, for it is the mind-killer. That and sharp pointy things.\"";
     next;
-    mes "You feel the floor disappear below your feet...";
+    mes l("You feel the floor disappear below your feet...");
     next;
     callfunc "MiriamCheat";
-    @dest = rand(BaseLevel);
+    @dest = rand2(BaseLevel);
     if (@dest < 10)
         goto L_PlaceOne;
     if ((@dest >= 10) && (@dest <= 50))
@@ -101,9 +102,9 @@ L_close:
 013-2,25,27,0	script	Spell#wiz3	NPC400,{
     mes "You read: \"Snow-white flakes and eminent frost - I'll go there, whatever the cost!\"";
     next;
-    mes "You feel yourself getting lighter...";
+    mesq l("You feel yourself getting lighter...");
     next;
-    @dest = rand(BaseLevel);
+    @dest = rand2(BaseLevel);
     if (@dest < 10)
         goto L_FriendlyPlace;
     if ((@dest >= 10) && (@dest <= 50))
@@ -124,15 +125,16 @@ L_Cave:
 
 L_close:
     @dest = 0;
+    closeclientdialog;
     close;
 }
 
 013-2,27,27,0	script	Spell#wiz4	NPC400,{
     mes "You read: \"People and cosiness, lively and fun - that's where I've gone!\"";
     next;
-    mes "The world around you slowly dissolves...";
+    mes l("The world around you slowly dissolves...");
     next;
-    @dest = rand(BaseLevel);
+    @dest = rand2(BaseLevel);
     if (@dest < 10)
         goto L_PlaceOne;
     if ((@dest >= 10) && (@dest <= 50))
@@ -144,7 +146,7 @@ L_PlaceOne:
     goto L_close;
 
 L_PlaceTwo:
-    warp "001-2",30,29;
+    warp "001-2",104,40;
     goto L_close;
 
 L_PlaceThree:
@@ -153,15 +155,16 @@ L_PlaceThree:
 
 L_close:
     @dest = 0;
+    closeclientdialog;
     close;
 }
 
 013-2,26,28,0	script	Spell#wiz5	NPC400,{
     mes "You read: \"Darkness and legs, eight of them each - I'd rather not go there, but now it's too late...\"";
     next;
-    mes "For a moment everything turns black...";
+    mes l("For a moment everything turns black...");
     next;
-    @dest = rand(BaseLevel);
+    @dest = rand2(BaseLevel);
     if (@dest < 10)
         goto L_PlaceOne;
     if ((@dest >= 10) && (@dest <= 50))
@@ -173,7 +176,7 @@ L_PlaceOne:
     goto L_close;
 
 L_PlaceTwo:
-    warp "013-3",134,54;
+    warp "013-3",122,91;
     goto L_close;
 
 L_PlaceThree:
@@ -182,6 +185,7 @@ L_PlaceThree:
 
 L_close:
     @dest = 0;
+    closeclientdialog;
     close;
 }
 
@@ -197,8 +201,8 @@ L_close:
 013-2,28,29,0	script	Spell#wiz7	NPC400,{
     mes "You read: \"Cotton, steel, leather and wool - have I ever seen a greater fool?\"";
     next;
-    mes "You suddenly feel naked; you ARE naked!";
+    mes l("You suddenly feel naked; you ARE naked!");
     next;
-    nude;
+    nude();
     close;
 }