Friend Referall Prototype

1 files changed, 27 insertions, 1 deletions

diff --git a/npc/functions/clientversion.txt b/npc/functions/clientversion.txt
index 043777d08..5fce72e2d 100644
--- a/npc/functions/clientversion.txt
+++ b/npc/functions/clientversion.txt
@@ -9,8 +9,34 @@
 
 function	script	checkclientversion	{
     // Skip any update for newcomers
-    if (isin("000-0", 0, 0, 40, 40))
+    if (isin("000-0", 0, 0, 40, 40)) {
         UPDATE=gettimetick(2);
+        // if $EVENT$ is REFFER:
+        if (#REFERRAL_PROG$ == "") {
+            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;
+            input .@ref$;
+            mes "";
+            if (.@ref$) {
+                #REFERRAL_PROG$=strip(.@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("I see. Well, welcome to the game! If you have any doubt, shout on #world for help!"), 3;
+                next;
+            }
+            if (ClientVersion >= 24) return;
+        }
+    }
 
     // Update handler (use `date +%s` for this)
     // Current UPDATE value: Qui Jun  7 08:10:55 -03 2018