Refeer is handled by Nard now, and must be enabled via @event

3 files changed, 54 insertions, 56 deletions

diff --git a/npc/002-4/nard.txt b/npc/002-4/nard.txt
index 50cc60cb3..4b296021a 100644
--- a/npc/002-4/nard.txt
+++ b/npc/002-4/nard.txt
@@ -17,6 +17,56 @@
 L_Checker:
     if (.@narrator) goto L_Travel;
     if (LOCATION$ != "") goto L_NotYet;
+        // if $EVENT$ is REFEER:
+    if ($EVENT$ == "Reefer") {
+        if (#REFERRAL_PROG == 0) {
+            mesn l("TMW2 Staff");
+            mesc l("Hello, and welcome to TMW2: Moubootaur Legends!"), 3;
+            mesc l("(Click next button to advance dialogs)"),9;
+            next;
+            mesn l("TMW2 Staff");
+            mesc l("Did you came here by someone advise? If yes, write their name here!"), 3;
+            mesc l("If this is not the case, just click on \"Send\"."), 3;
+            .@ref$="";
+            do
+            {
+                input .@ref$;
+                debugmes "Hercules is bugged: "+.@ref$;
+                mes "";
+                if (.@ref$ != "") {
+                    .@ref=gf_accid(strip(.@ref$));
+                    if (.@ref > 0) {
+                        if (.@ref == getcharid(3)) {
+                            mesn l("TMW2 Staff");
+                            mesc l("Hahah, silly, that's yourself!"), 3;
+                            mesc l("Try again!"), 3;
+                            next;
+                            .@ref$="";
+                        } else {
+                            #REFERRAL_PROG=.@ref;
+                            getitembound FriendGift, 1, 1;
+                            mesn l("TMW2 Staff");
+                            mesc l("Well, welcome to the game! If you have any doubt, shout on #world for help!"), 3;
+                            mesc l("Your friend also sent you a gift - open it when you get level 5!"), 3;
+                            next;
+                        }
+                    } else {
+                        mesn l("TMW2 Staff");
+                        mesc l("Oops, there is nobody known as @@ on this game.", .@ref$), 3;
+                        mesc l("Could you try again? There could be a typo!"), 3;
+                        next;
+                        .@ref$="";
+                    }
+                } else {
+                    .@ref$="None";
+                    mesn l("TMW2 Staff");
+                    mesc l("I see. Well, welcome to the game! If you have any doubt, shout on #world for help!"), 3;
+                    next;
+                }
+            } while (.@ref$ == "");
+            if (ClientVersion >= 24) close;
+        }
+    }
 
     mesn;
     mesq l("Hello.");
@@ -25,13 +75,6 @@ L_Checker:
     next;
     mesq lg("I am pleased to see that you have woken up and are active. Elmo came here to tell me this good news!");
     next;
-
-    //setcamnpc "Elmo";
-    //mesn "Elmo";
-    //mesq l("Oh... Err, yes I did, or, well, good day to you!");
-    //next;
-    //restorecam;
-
     mesn;
     mesq l("Hehehe, he is a bit nervous, please forgive him, it is not everyday we have a new member in the crew!");
     next;
diff --git a/npc/commands/event.txt b/npc/commands/event.txt
index f8641f83b..1cec087b4 100644
--- a/npc/commands/event.txt
+++ b/npc/commands/event.txt
@@ -81,7 +81,8 @@ function	script	GlobalEventMenu	{
         menu
             l("Disable event"), -,
             l("Enable Easter"), -,
-            l("Enable Worker's Day"), -;
+            l("Enable Worker's Day"), -,
+            l("Enable Refeer Program"), -;
 
         switch (@menu) {
             case 1: set $EVENT$, ""; logmes "Disabled events.", LOGMES_ATCOMMAND;
@@ -95,6 +96,8 @@ function	script	GlobalEventMenu	{
                 debugmes "Snakes are now dropping Pearls.";
                */
                 break;
+            case 4: $EVENT$="Refeer"; logmes "Enabled REFEER event.", LOGMES_ATCOMMAND;
+                break;
         }
 
         return;
diff --git a/npc/functions/clientversion.txt b/npc/functions/clientversion.txt
index 5069e61ad..2821ad836 100644
--- a/npc/functions/clientversion.txt
+++ b/npc/functions/clientversion.txt
@@ -11,54 +11,6 @@ function	script	checkclientversion	{
     // Skip any update for newcomers
     if (isin("000-0", 0, 0, 40, 40)) {
         UPDATE=gettimetick(2);
-        // if $EVENT$ is REFFER:
-        if (#REFERRAL_PROG == 0) {
-            mesn l("TMW2 Staff");
-            mesc l("Hello, and welcome to TMW2: Moubootaur Legends!"), 3;
-            mesc l("(Click next button to advance dialogs)"),9;
-            next;
-            mesn l("TMW2 Staff");
-            mesc l("Did you came here by someone advise? If yes, write their name here!"), 3;
-            mesc l("If this is not the case, just click on \"Send\"."), 3;
-            .@ref$="";
-            do
-            {
-                input .@ref$;
-                debugmes "Hercules is bugged: "+.@ref$;
-                mes "";
-                if (.@ref$ != "") {
-                    .@ref=gf_accid(strip(.@ref$));
-                    if (.@ref > 0) {
-                        if (.@ref == getcharid(3)) {
-                            mesn l("TMW2 Staff");
-                            mesc l("Hahah, silly, that's yourself!"), 3;
-                            mesc l("Try again!"), 3;
-                            next;
-                            .@ref$="";
-                        } else {
-                            #REFERRAL_PROG=.@ref;
-                            getitembound FriendGift, 1, 1;
-                            mesn l("TMW2 Staff");
-                            mesc l("Well, welcome to the game! If you have any doubt, shout on #world for help!"), 3;
-                            mesc l("Your friend also sent you a gift - open it when you get level 5!"), 3;
-                            next;
-                        }
-                    } else {
-                        mesn l("TMW2 Staff");
-                        mesc l("Oops, there is nobody known as @@ on this game.", .@ref$), 3;
-                        mesc l("Could you try again? There could be a typo!"), 3;
-                        next;
-                        .@ref$="";
-                    }
-                } else {
-                    .@ref$="None";
-                    mesn l("TMW2 Staff");
-                    mesc l("I see. Well, welcome to the game! If you have any doubt, shout on #world for help!"), 3;
-                    next;
-                }
-            } while (.@ref$ == "");
-            if (ClientVersion >= 24) close;
-        }
     }
 
     // Update handler (use `date +%s` for this)