Improvements to debugging objects

Minor improvements to debug objects, npcs and gitems. now using pointers instead of makin a copy of  making a copy of each.
Will possibly prevent crashes.

Author: Torwent

osr/rsgrounditem.simba

@@ -962,14 +962,14 @@ end;
 
 
 var
-  DebugRSGroundItemArray: TRSGroundItemArray;
+  DebugGroundItemArray: array of PRSGroundItem;
 
 procedure TSRL.Debug(Bitmap: TMufasaBitmap); override;
 var
-  DebugRSGroundItem: TRSGroundItem;
+  DebugGroundItem: PRSGroundItem;
 begin
   inherited;
 
-  for DebugRSGroundItem in DebugRSGroundItemArray do
-    DebugRSGroundItem.Draw(Bitmap);
+  for DebugGroundItem in DebugGroundItemArray do
+    DebugGroundItem^.Draw(Bitmap);
 end;

osr/rsnpc.simba

@@ -949,14 +949,14 @@ end;
 
 
 var
-  DebugRSNPCArray: TRSNPCArray;
+  DebugNPCArray: array of PRSNPC;
 
 procedure TSRL.Debug(Bitmap: TMufasaBitmap); override;
 var
-  DebugRSNPC: TRSNPC;
+  DebugNPC: PRSNPC;
 begin
   inherited;
 
-  for DebugRSNPC in DebugRSNPCArray do
-    DebugRSNPC.Draw(Bitmap);
+  for DebugNPC in DebugNPCArray do
+    DebugNPC^.Draw(Bitmap);
 end;

osr/rsobject.simba

@@ -601,14 +601,14 @@ begin
 end;
 
 var
-  DebugRSObjectArray: array of PRSObject;
+  DebugObjectArray: array of PRSObject;
 
 procedure TSRL.Debug(Bitmap: TMufasaBitmap); override;
 var
-  DebugRSObject: PRSObject;
+  DebugObject: PRSObject;
 begin
   inherited;
 
-  for DebugRSObject in DebugRSObjectArray do
-    DebugRSObject^.Draw(Bitmap);
+  for DebugObject in DebugObjectArray do
+    DebugObject^.Draw(Bitmap);
 end;