Refactor how PC Login events will be handled.

Malindou is now responsible for those.
Daily login fancy GUI - can be disabled with @ucp

2 files changed, 26 insertions, 21 deletions

diff --git a/npc/commands/motd.txt b/npc/commands/motd.txt
index d63a3771a..aad93fc5e 100644
--- a/npc/commands/motd.txt
+++ b/npc/commands/motd.txt
@@ -166,22 +166,6 @@ OnCall:
     closedialog;
     end;
 
-OnPCLoginEvent:
-    // Handle events
-    if ($@GM_EVENT)
-        dispbottom l("An event is happening at Aeros! Hurry up!");
-    if ($EVENT$ != "")
-        dispbottom l("It's @@ (day)!", $EVENT$);
-
-    // Handle MOTD
-    if (!$MOTD_Disabled)
-        displayMOTD;
-    if (debug)
-        dispbottom "##7<<##B @@help://test-server|" + col(l("Click here for instructions on how to use the test server."),6) + "@@ ##7>>";
-
-    daily_login_bonus_handler();
-    end;
-
 OnClock0003:
     // Reset TMW2 Login Bonus on February and April
     if (!$@TMW2_357GDQST) {
@@ -202,3 +186,22 @@ OnInit:
     .dsize = getarraysize($@Debug_Messages$);
     bindatcmd "motd", "@motd::OnCall", 99, 99, 1;
 }
+
+
+
+
+function	script	MOTDHandler	{
+    // Handle events
+    if ($@GM_EVENT)
+        dispbottom l("An event is happening at Aeros! Hurry up!");
+    if ($EVENT$ != "")
+        dispbottom l("It's @@ (day)!", $EVENT$);
+
+    // Handle MOTD
+    if (!$MOTD_Disabled)
+        displayMOTD;
+    if (debug)
+        dispbottom "##7<<##B @@help://test-server|" + col(l("Click here for instructions on how to use the test server."),6) + "@@ ##7>>";
+    return;
+}
+
diff --git a/npc/commands/scheduled-broadcasts.txt b/npc/commands/scheduled-broadcasts.txt
index 4503c7b23..1801663a7 100644
--- a/npc/commands/scheduled-broadcasts.txt
+++ b/npc/commands/scheduled-broadcasts.txt
@@ -1,3 +1,4 @@
+// Evol Script
 // Authors: Gumi
 function	script	StoneBoard	{
 
@@ -213,13 +214,14 @@ OnCall:
     closedialog;
     end;
 
-OnPCLoginEvent:
+OnInit:
+    bindatcmd "sched", "@sched::OnCall", 80, 99, 1;
+}
+
+function	script	StoneBoardRead	{
     if ($@SCHED_Opt[0] && $@SCHED_Msg$ != "")
     {
         announce $@SCHED_Msg$, bc_self;
     }
-    end;
-
-OnInit:
-    bindatcmd "sched", "@sched::OnCall", 80, 99, 1;
+    return;
 }