Convert scheduler and event engine to use string messages.

OpenMeridian · Apr 18, 2015 · 9166c01 · 9166c01
1 parent 51f4bf4
commit 9166c01
Show file tree

Hide file tree

Showing 6 changed files with 512 additions and 449 deletions.
diff --git a/kod/util/gameevent.kod b/kod/util/gameevent.kod
@@ -7,7 +7,7 @@
 % Meridian is a registered trademark.
 
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 GameEvent is UtilityFunctions
 
 constants:
@@ -23,7 +23,7 @@ classvars:
 
    vrStartMessage = event_start_msg
    vrEndMessage = event_end_msg
-   
+
    vbAnnounce = FALSE
 
 properties:
@@ -34,7 +34,7 @@ messages:
    {
       return;
    }
-   
+
    Delete()
    {
       return;
@@ -44,33 +44,32 @@ messages:
    {
       return;
    }
-   
+
    NewMinute()
    {
       return;
    }
-   
+
    NewHour()
    {
-
       return;
    }
-   
+
    NewDay()
    {
       return;
    }
-   
+
    NewMonth()
    {
       return;
    }
-   
+
    NewYear()
    {
       return;
    }
-   
+
    StartEvent()
    {
       if vbAnnounce
@@ -87,17 +86,16 @@ messages:
       {
          Send(SYS,@SystemBroadcast,#type=SAY_MESSAGE,#string=vrEndMessage);
       }
-      
-      Send(Send(SYS,@GetEventEngine),@EventEnd,#oEvent=self);
-   
+
+      Send(Send(SYS,@GetEventEngine),@EventEnd,#parm1=self);
+
       return;
    }
-   
+
    AdvanceEvent()
    {
       return;
    }
-
-end
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
+end
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/kod/util/gameevent/invasion.kod b/kod/util/gameevent/invasion.kod
@@ -32,7 +32,7 @@ messages:
    {
       propagate;
    }
-   
+
    Delete()
    {
       propagate;
@@ -50,4 +50,3 @@ messages:
 
 end
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
diff --git a/kod/util/gameevent/invasion/orcinvasion.kod b/kod/util/gameevent/invasion/orcinvasion.kod
@@ -18,7 +18,7 @@ resources:
 
    OrcInvasion_start_msg = \
       "The orc invasion has begun."
-      
+
    OrcInvasion_end_msg = \
       "The orc invasion has ended."
 
@@ -42,7 +42,7 @@ messages:
    {
       propagate;
    }
-   
+
    StartEvent()
    {
       propagate;
@@ -55,4 +55,3 @@ messages:
 
 end
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-