This is test server event patch

1 files changed, 42 insertions, 61 deletions

diff --git a/npc/002-3/nard.txt b/npc/002-3/nard.txt
index aaec6ce3d..d543f3d46 100644
--- a/npc/002-3/nard.txt
+++ b/npc/002-3/nard.txt
@@ -75,8 +75,6 @@ L_Checker:
     next;
     mesn;
     mesq l("The Alliance can help you in finding out about who you are, why you are here, or from where you came from. So, about the tasks I want completed.");
-    LOCATION$ = "Candor";
-    setq ShipQuests_Julia, 3;
     next;
     .@price=1200;
     mesc b(l(".:: Main Quest 1-3 ::.")), 3;
@@ -85,61 +83,48 @@ L_Checker:
     msObjective(getq(CandorQuest_Barrel) >= 4, l("* Ask Zegas, the mayoress, if she needs help."));
     msObjective(Zeny >= .@price, l("* Collect @@/@@ GP", Zeny, .@price));
 
-L_Referral:
-    // Referral program
-    if (#REFERRAL_PROG == 0 && $REFERRAL_ENABLED) {
-        next;
-        clear;
-        showavatar NPC_LOF_RICH;
-        mesc l("But before, a message from our developers!"), 3;
-        next;
-        mesn l("TMW2 Staff");
-        mesc l("Hello, and welcome to TMW2: Moubootaur Legends!"), 3;
-        next;
-        mesn l("TMW2 Staff");
-        mesc l("Did you came here by someone advise? If yes, write their name down here!"), 3;
-        next;
-        mesc l("If this is not the case, just click on \"Send\"."), 3;
-        .@ref$="";
-        do
-        {
-            input .@ref$;
-            //debugmes "Player invite: "+.@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;
+L_FirstLogin:
+    next;
+    clear;
+    showavatar NPC_LOF_RICH;
+    mesc l("But before, a message from our developers!"), 3;
+    next;
+    mesn l("TMW2 Staff");
+    mesc l("First of all: Thank you for playing during this event."), 1;
+    mesc l("You may now choose your bonus."), 1;
+    mesc b(l("IT CANNOT BE CHANGED LATER")), 1;
+    next;
+    do {
+        select
+            l("I'm just skipping dialogs, sorry"),
+            l("HP +75% (not recommended)"),
+            l("EXP +50%"),
+            l("DMG +50%");
+        mes "";
+        if (@menu != 1) {
+            getitembound(PlushMouboo, 1, 4);
+            delinventorylist(); // Needed, because we'll rely on rfind()
+            getinventorylist();
+            .@index=array_rfind(@inventorylist_id, PlushMouboo);
+            switch (@menu) {
+                case 2:
+                    .@vartp=VAR_MAXHPPERCENT; .@bonus=75; break;
+                case 3:
+                    .@vartp=IOPT_EXPGAIN; .@bonus=50; break;
+                case 4:
+                    .@vartp=VAR_ATKPERCENT; .@bonus=50; break;
+                default:
+                    Exception("Invalid menu entry: "+@menu, RB_SPEECH|RB_DEBUGMES|RB_PLEASEREPORT); .@vartp=any(VAR_ATKPERCENT, IOPT_EXPGAIN); .@bonus=50; break;
             }
-        } while (.@ref$ == "");
-    showavatar NPC_NARD;
-    }
-
+            setitemoptionbyindex(.@index, 0, .@vartp, .@bonus);
+        }
+    } while (@menu == 1);
+    Zeny+=50000;
+    getitem TimeFlask, 1;
+    getitem FatesPotion, 30;
+    getitem ReturnPotion, 100;
+    LOCATION$ = "Candor";
+    setq ShipQuests_Julia, 3;
     close;
 
 
@@ -173,18 +158,14 @@ L_NotYet:
     mes "";
     select
         rif(Zeny >= .@price, l("I've brought the money you've asked for.")),
-        rif(#REFERRAL_PROG == 0 && $REFERRAL_ENABLED && BaseLevel <= 10,
-            l("I forgot to say earlier, but indeed, I was invited by someone!")),
         l("Captain, why have you brought me to a deserted boring island?!"),
         l("I don't want to help your \"friends\", bring me to somewhere useful!"),
         l("Please excuse me, captain.");
 
     mes "";
     if (@menu == 2)
-        goto L_Referral;
-    if (@menu == 3)
         goto L_CandorIsland;
-    if (@menu == 4)
+    if (@menu == 3)
         goto L_NeedHelp;
 
     mesn;