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

1 files changed, 50 insertions, 7 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;