gel.world: Work on server and client worlds.

4-high/gel/source/remote/gel-remote-world.ads

@@ -20,7 +20,7 @@ package gel.remote.World
 --
 is
    pragma remote_Types;
-   pragma suppress (Container_Checks);     -- Suppress expensive tamper checks.
+   --  pragma suppress (Container_Checks);     -- Suppress expensive tamper checks.
 
    type Item is  limited interface
              and lace.Subject .item
@@ -180,6 +180,9 @@ is
 
 
 
+   ------------------------------
+   --- Sprite add and rid events.
+   --
 
    type sprite_added_Event is new lace.Event.item with
       record
@@ -187,6 +190,12 @@ is
       end record;
 
 
+   type sprite_ridded_Event is new lace.Event.item with
+      record
+         Sprite : gel.sprite_Id;
+      end record;
+
+
 
    --------------
    --  Test/Debug