From 5362f0739c124be81a8724a8759e20ef4d07e1aa Mon Sep 17 00:00:00 2001
From: coffee <coffee@coffee-EP45-UD3L.(none)>
Date: Sat, 3 Sep 2011 10:03:13 -0300
Subject: Reviews the way the script checks for a rid attached.

---
 world/map/npc/025-3/barriers.txt | 182 +++++++++++----------------------------
 1 file changed, 51 insertions(+), 131 deletions(-)

(limited to 'world/map/npc/025-3/barriers.txt')

diff --git a/world/map/npc/025-3/barriers.txt b/world/map/npc/025-3/barriers.txt
index 28148ab0..7c13d7c0 100644
--- a/world/map/npc/025-3/barriers.txt
+++ b/world/map/npc/025-3/barriers.txt
@@ -41,11 +41,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave1 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave1fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave1fighter$));
+    if (attachrid(getcharid(3,$@cave1fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 26, 63, 60, 97) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave1fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE1)
@@ -56,7 +55,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave1fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave1start) < 60)
         set $@cave1start, $@cave1start + 60;
@@ -82,10 +80,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 78, 129;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -93,25 +87,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave1fighter$));
     warp "025-3.gat", 78, 129;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave1fighter$));
     warp "025-3.gat", 78, 129;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave1fighter$));
+    if (attachrid(getcharid(3,$@cave1fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 78, 129;
     callsub S_Cleaning;
     end;
@@ -164,11 +156,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave2 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave2fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave2fighter$));
+    if (attachrid(getcharid(3,$@cave2fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 97, 62, 126, 96) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave2fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE2)
@@ -179,7 +170,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave2fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave2start) < 60)
         set $@cave2start, $@cave2start + 60;
@@ -205,10 +195,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 53, 109;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -216,25 +202,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave2fighter$));
     warp "025-3.gat", 53, 109;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave2fighter$));
     warp "025-3.gat", 53, 109;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave2fighter$));
+    if (attachrid(getcharid(3,$@cave2fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 53, 109;
     callsub S_Cleaning;
     end;
@@ -286,11 +270,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave3 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave3fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave3fighter$));
+    if (attachrid(getcharid(3,$@cave3fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 150, 84, 177, 117) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (cavefights & BATTLE_CAVE3)
         goto L_Win;
     if (PC_DIE_COUNTER > $@cave3fighterdeaths)
@@ -301,7 +284,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave3fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave3start) < 60)
         set $@cave3start, $@cave3start + 60;
@@ -327,10 +309,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 71, 85;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -338,25 +316,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave3fighter$));
     warp "025-3.gat", 71, 85;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave3fighter$));
     warp "025-3.gat", 71, 85;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave3fighter$));
+    if (attachrid(getcharid(3,$@cave3fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 71, 85;
     callsub S_Cleaning;
     end;
@@ -408,11 +384,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave4 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave4fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave4fighter$));
+    if (attachrid(getcharid(3,$@cave4fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 28, 124, 57, 156) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave4fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE4)
@@ -423,7 +398,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave4fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave4start) < 60)
         set $@cave4start, $@cave4start + 60;
@@ -449,10 +423,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 80, 85;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -460,25 +430,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave4fighter$));
     warp "025-3.gat", 80, 85;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave4fighter$));
     warp "025-3.gat", 80, 85;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave4fighter$));
+    if (attachrid(getcharid(3,$@cave4fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 80, 85;
     callsub S_Cleaning;
     end;
@@ -530,11 +498,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave5 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave5fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave5fighter$));
+    if (attachrid(getcharid(3,$@cave5fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 91, 131, 124, 160) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave5fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE5)
@@ -545,7 +512,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave5fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave5start) < 60)
         set $@cave5start, $@cave5start + 60;
@@ -571,10 +537,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 71, 32;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -582,25 +544,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave5fighter$));
     warp "025-3.gat", 71, 32;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave5fighter$));
     warp "025-3.gat", 71, 32;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave5fighter$));
+    if (attachrid(getcharid(3,$@cave5fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 71, 32;
     callsub S_Cleaning;
     end;
@@ -652,11 +612,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave6 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave6fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave6fighter$));
+    if (attachrid(getcharid(3,$@cave6fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 153, 143, 178, 174) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave6fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE6)
@@ -667,7 +626,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave6fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave6start) < 60)
         set $@cave6start, $@cave6start + 60;
@@ -693,10 +651,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 128, 37;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -704,25 +658,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave6fighter$));
     warp "025-3.gat", 128, 37;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave6fighter$));
     warp "025-3.gat", 128, 37;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave6fighter$));
+    if (attachrid(getcharid(3,$@cave6fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 128, 37;
     callsub S_Cleaning;
     end;
@@ -774,11 +726,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave7 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave7fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave7fighter$));
+    if (attachrid(getcharid(3,$@cave7fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 27, 185, 61, 219) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave7fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE7)
@@ -789,7 +740,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave7fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave7start) < 60)
         set $@cave7start, $@cave7start + 60;
@@ -815,10 +765,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 70, 59;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -826,25 +772,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave7fighter$));
     warp "025-3.gat", 70, 59;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave7fighter$));
     warp "025-3.gat", 70, 59;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave7fighter$));
+    if (attachrid(getcharid(3,$@cave7fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 70, 59;
     callsub S_Cleaning;
     end;
@@ -896,11 +840,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave8 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave8fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave8fighter$));
+    if (attachrid(getcharid(3,$@cave8fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 90, 193, 119, 216) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave8fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE8)
@@ -911,7 +854,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave8fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave8start) < 60)
         set $@cave8start, $@cave8start + 60;
@@ -937,10 +879,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 138, 94;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -948,25 +886,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave8fighter$));
     warp "025-3.gat", 138, 94;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave8fighter$));
     warp "025-3.gat", 138, 94;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave8fighter$));
+    if (attachrid(getcharid(3,$@cave8fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 138, 94;
     callsub S_Cleaning;
     end;
@@ -1019,11 +955,10 @@ L_Block:
 OnTimer5000:
     if ($@battlecave9 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave9fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave9fighter$));
+    if (attachrid(getcharid(3,$@cave9fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 144, 192, 173, 226) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave9fighterdeaths)
         goto L_CleaningDead;
     if (cavefights & BATTLE_CAVE9)
@@ -1034,7 +969,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave9fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave9start) < 60)
         set $@cave9start, $@cave9start + 60;
@@ -1060,10 +994,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-3.gat", 138, 158;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run away!";
@@ -1071,25 +1001,23 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave9fighter$));
     warp "025-3.gat", 138, 158;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave9fighter$));
     warp "025-3.gat", 138, 158;
     message strcharinfo(0), "You were not strong enough to eliminate this power source.";
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave9fighter$));
+    if (attachrid(getcharid(3,$@cave9fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 138, 158;
     callsub S_Cleaning;
     end;
@@ -1162,11 +1090,10 @@ L_AlreadyHelped:
 OnTimer5000:
     if ($@battlecave10 == 0)
         goto L_AlreadyClean;
-    if (isloggedin(getcharid(3,$@cave10fighter$))==0)
-        goto L_CleaningNorid;
-    attachrid(getcharid(3,$@cave10fighter$));
+    if (attachrid(getcharid(3,$@cave10fighter$))==0)
+        goto OnNoRid;
     if (getareausers("025-4.gat", 142, 24, 172, 48) < 1)
-        goto L_Ranaway;
+        goto OnNoRid;
     if (PC_DIE_COUNTER > $@cave10fighterdeaths)
         goto L_CleaningDead;
     if (Rossy_Quest == 16)
@@ -1177,7 +1104,6 @@ OnTimer5000:
     end;
 
 L_Win:
-    attachrid(getcharid(3,$@cave10fighter$));
     message strcharinfo(0), "It is getting harder to breathe inside this cave... You feel like you are almost passing out.";
     if ((gettimetick(2) - $@cave10start) < 60)
         set $@cave10start, $@cave10start + 60;
@@ -1204,10 +1130,6 @@ S_Cleaning:
     setnpctimer 0;
     return;
 
-L_Ranaway:
-    callsub S_Cleaning;
-    end;
-
 L_BadAir:
     warp "025-4.gat", 93, 33;
     message strcharinfo(0), "You can't stand the foul air inside the cave and run as fast as you can to save Julia!";
@@ -1215,14 +1137,12 @@ L_BadAir:
     end;
 
 L_Cleaning:
-    attachrid(getcharid(3,$@cave10fighter$));
     warp "025-3.gat", 77, 168;
     message strcharinfo(0), "You took too much time to eliminate this source of energy... If you stay one more second in this cave you won't be able to breathe....";
     callsub S_Cleaning;
     end;
 
 L_CleaningDead:
-    attachrid(getcharid(3,$@cave10fighter$));
     warp "025-3.gat", 77, 168;
     if ($@wave_cave10 < 5)
         message strcharinfo(0), "You were not strong enough to eliminate this power source.";
@@ -1231,18 +1151,18 @@ L_CleaningDead:
     callsub S_Cleaning;
     end;
 
-L_CleaningNorid:
+OnNoRid:
     callsub S_Cleaning;
     end;
 
 OnGetout:
-    attachrid(getcharid(3,$@cave10fighter$));
+    if (attachrid(getcharid(3,$@cave10fighter$)) == 0) goto OnNoRid;
     warp "025-3.gat", 77, 168;
     callsub S_Cleaning;
     end;
 
 OnWin:
-    attachrid(getcharid(3,$@cave10fighter$));
+    if (attachrid(getcharid(3,$@cave10fighter$)) == 0) goto OnNoRid;
     warp "025-4.gat", 93, 33;
     callsub S_Cleaning;
     end;
-- 
cgit v1.2.3-60-g2f50