Roger fully ported. George quest act 1 finishable (Reward: Sailor Hat)

George quest act 2 is not.

4 files changed, 194 insertions, 153 deletions

diff --git a/npc/00000SAVE/018-1_paperboy__see.george.txt b/npc/00000SAVE/018-1_paperboy__see.george.txt
deleted file mode 100644
index 4ebda8ee9..000000000
--- a/npc/00000SAVE/018-1_paperboy__see.george.txt
+++ /dev/null
@@ -1,152 +0,0 @@
-
-018-1,76,85,0	script	Roger	NPC130,{
-    mes "[Roger]";
-    mes "\"Paper! Paper! Get your copy of The Land of Fire Gazette here!\"";
-    mes "\"Read about the travels of other adventures and the NPCs that helped them.\"";
-    next;
-    mes "Hello " + strcharinfo(0) + ", may I interest you in a copy of the Gazette?\"";
-    menu
-        "Yes, please", L_GetRead,
-        "No, Thank You, kid.", L_TooBad,
-        "Do you have anything else to read?", L_ExtraRead;
-
-L_GetRead:
-    mes "[Roger]";
-    mes "\"Let me see.....\"";
-    next;
-    if (GEORGE_Quest == 5)
-        goto L_LOF_NEWS;
-    mes "\"Oh yes, here you go, that will be 1 GP.\"";
-    if (Zeny < 1)
-        goto L_Poor;
-    Zeny = (Zeny-1);
-    mes "\"[You are handed the Land of Fire Gazette, You look at the headline...]\"";
-    mes "\"[but it is written in Mananese, a language you know nothing about.]\"";
-    next;
-    mes "\"[You toss the paper in the trash.]\""; 
-    goto L_close;
-
-L_TooBad:
-    mes "[Roger]";
-    mes "\"Too bad, There is some really good news this week. Things like how to go to Candor for only 200GP.\"";
-    mes "\"And a special coupon section to get rare items for little or no money!\"";
-    menu
-        "I changed my mind, I think I would like a copy!", L_GetRead,
-        "That's ok, kid...I can't read anyways", L_TooBadTwo;
-
-L_TooBadTwo:
-    mes "[Roger]";
-    mes "\"Too bad, you're really missing out!\"";
-    goto L_close;
-    
-L_ExtraRead:
-    mes "[Roger]";
-    mes "\"Now that you ask....\"";
-    next;
-    if (PB_Quest == 1)
-        goto L_MadMag;
-    mes "\"I might be able to get you a rare copy of the Maritime Almanac Scroll. A yearly publication for seafaring men.\"";
-    mes "\"It is very hard to come by, however, my father has a copy he might sell to you for the right price.\"";
-    menu
-        "I will trade you this Dagger and Sailor's Hat for it.", L_BadOffer1,
-        "I will pay you 5,000 GP in pure gold for it!", L_BadOffer2,
-        "I can give you a rare...(cough, cough).. Mouboo Figurine for it.", L_Success,
-        "I have no interest in things such as that.", L_close;
-    
-L_Success:
-    if (PB_Quest == 1)
-        goto L_HaveScroll;
-    if (countitem("MoubooFigurine") < 1)
-        goto L_NoMouboo;
-    if (countitem("SailorHat") == 0)
-        goto L_StatNone;
-    mes "[Roger]";
-    mes "\"This is great! My collection of rare figurines is now complete.\"";
-    mes "\"I asked my father and he agreed to trade it to you, so here is the last copy of the Maritime Almanac Scroll.\"";
-    getinventorylist;
-    if (@inventorylist_count == 100)
-        goto L_TooMany;
-    delitem "MoubooFigurine", 1;
-    getitem "ScrollOfPaper", 1;
-    PB_Quest = 1;
-    goto L_close;
-    
-L_BadOffer1:
-    mes "[Roger]";
-    mes "\"Wow a Dagger and a Sailor's Hat!\"";
-    next;
-    mes "Although I really want the Sailor's Hat, but daggers are dangerous for kids to play with.\"";
-    mes "Besides that, do I look like a warrior to you? Why would you give a kid a sharp dagger?\"";
-    goto L_close;
-    
-L_BadOffer2:
-    mes "[Roger]";
-    mes "\"5000 GP? That sure is a lot of gold...\"";
-    mes "\"but I was hoping for something more valuable. No Thanks.\"";
-    goto L_close;
-    
-L_NoMouboo:
-    mes "[Roger]";
-    mes "\"You said you would trade a real Mouboo Figurine, but now I see you don't have one. Come back when you do.\"";
-    goto L_close;
-
-L_StatNone:
-    mes "\"You might have the Mouboo Figurine, but I don't trust everyone.\"";
-    if(GEORGE_Quest >= 3)
-        goto L_ShowHat;
-    mes "\"My friend George is much older than I am, go see him and if he trusts you, so will I.\"";
-    if (GEORGE_Quest < 2)
-        GEORGE_Quest = 1;
-    goto L_close;
-    
-L_ShowHat:
-    mes "\"I see you have met my good friend George, and you gave him some items that he needed...\"";
-    mes "";
-    mes "\"Didn't he give you anything?\"";
-    next;
-    mes "\"If you could show me what he gave you, I might trust you.\"";
-    goto L_close;
-    
-L_MadMag:
-    mes "[Roger]";
-    mes "\"I have my favorite book of all times, Moby Dick.\"";
-    mes "Let me read some of it to you....\"";
-    next;
-    mes "[Roger begins to read]";
-    mes "\"Towards thee I roll, thou all-destroying but unconquering whale; to the last I grapple with thee; from hell’s heart I stab at thee; for hate’s sake I spit my last breath at thee. Sink all coffins and all hearses to one common pool! And since neither can be mine, let me then tow to pieces, while still chasing thee, though tied to thee, thou damned whale! Thus, I give up the spear!\"";
-    next;
-    mes "[Roger]";
-    mes "\"I don't really understand it either, but it's not for sale. Maybe you could come back later so I can read more of it to you.\"";
-    mes "\"Have a nice day.\"";
-    goto L_close;
-
-L_TooMany:
-    mes "[Roger]";
-    mes "\"Your backpack is full.  I'll wait until you have some room.\"";
-    goto L_close;
-    
-L_Poor:
-    mes "[Roger]";
-    mes "\"You don't seem to have enough gold, not even 1 GP...you should go kill some red slimes in the mine.\"";
-    goto L_close;
-    
-L_LOF_NEWS:
-    mes "[Roger]";
-    mes "\"Well I see that you have completed the George Quest.\"";
-    mes "\"I am actually surprised you clicked me again. Well then, here's the Land of Fire News...\"";
-    next;
-    mes "\"As you may know, LOF is currently running a modified version of The Mana World game. The admins and developers are working on a new game to offer a new experience for players.\"";
-    mes "\"Currently there are new maps being developed and new NPCs. The project is involving only a small group of members, but would welcome anyone who knows how to assist in development.\"";
-    next;
-    mes "\"Graphical development sure could use some help. We have Map devs, but could use more. Someone with skill to make new NPC or Monster graphics would be a great help. The graphics use XML files, so those would have to be developed along with the images.\"";
-    mes "\"If you believe that you may able to help, please contact an admin or developer, or post on the forum. Suggestions are welcomed as well, so speak up.\"";
-    goto L_close;
-
-L_HaveScroll:
-    mes "[Roger]";
-    mes "\"Looks like I already gave you the Maritime Almanac Scroll. You need to go see George again. I am unable to get another copy for you.\"";
-    goto L_close;
-
-L_close: 
-    close;
-}
diff --git a/npc/017-1/_import.txt b/npc/017-1/_import.txt
index cab934e03..f7a9cb93b 100644
--- a/npc/017-1/_import.txt
+++ b/npc/017-1/_import.txt
@@ -6,6 +6,7 @@
 "npc/017-1/mapflags.txt",
 "npc/017-1/misc.txt",
 "npc/017-1/nowhere_man.txt",
+"npc/017-1/roger.txt",
 "npc/017-1/signs.txt",
 "npc/017-1/soul-menhir.txt",
 "npc/017-1/wateranimation.txt",
diff --git a/npc/017-1/roger.txt b/npc/017-1/roger.txt
new file mode 100644
index 000000000..536ded1d8
--- /dev/null
+++ b/npc/017-1/roger.txt
@@ -0,0 +1,177 @@
+// TMW2/LoF scripts.
+// Authors:
+//    TMW-LoF Team
+//    Jesusalva
+// Description:
+//    Part of George quest.
+//    PS. (96,120) save these coordinates
+
+017-1,68,87,0	script	Roger	NPC_JOURNALMAN,{
+    .@q=getq(LoFQuest_George);
+    mesn;
+    mesq l("Paper! Paper! Get your copy of The Land of Fire Gazette here!");
+    next;
+    mesn;
+    mesq l("Hello @@, may I interest you in a copy of the Gazette? It's only 1 GP!", strcharinfo(0));
+    next;
+    menu
+        l("Yes, please."), L_GetRead,
+        l("No, thank you, kid."), L_TooBad,
+        l("Do you have anything else to read?"), L_ExtraRead;
+
+L_GetRead:
+    mesn;
+    mesq l("Let me see.....");
+    next;
+    if (.@q == 5)
+        goto L_LOF_NEWS;
+    mesq l("Oh yes, here you go, that will be 1 GP.");
+    if (Zeny < 1)
+        goto L_Poor;
+    Zeny = (Zeny-1);
+    mesc l("You are handed the Land of Fire Gazette. You look at the headline...");
+    mesc l("...but it is written in Mananese, a language you know nothing about.");
+    next;
+    mesc l("You toss the paper in the trash.");
+    close;
+
+L_TooBad:
+    mesn;
+    mesq l("Too bad, There is some really good news this week. Things like how to go to Candor for only 200GP.");
+    mesq l("And a special coupon section to get rare items for little or no money!");
+    next;
+    menu
+        l("I changed my mind, I think I would like a copy!"), L_GetRead,
+        l("That's ok, kid... I can't read, anyway."), L_TooBadTwo;
+
+L_TooBadTwo:
+    mesn;
+    mesq l("Too bad, you're really missing out!");
+    close;
+
+L_ExtraRead:
+    mesn;
+    mesq l("Now that you ask....");
+    next;
+    if (.@q == 5)
+        goto L_MadMag;
+    mesn;
+    mesq l("I might be able to get you a rare copy of the Maritime Almanac Scroll. A yearly publication for seafaring men.");
+    mesq l("It is very hard to come by, however, my father has a copy he might sell to you for the right price.");
+    menu
+        l("I will trade you a Dagger and Sailor's Hat for it."), L_BadOffer1,
+        l("I will pay you 5,000 GP in pure gold for it!"), L_BadOffer2,
+        l("I can give you a rare...(cough, cough).. Mouboo Figurine for it."), L_Success,
+        l("I have no interest in things such as that."), L_close;
+
+L_Success:
+    .@q2=getq2(LoFQuest_George);
+    if (.@q2 == 1)
+        goto L_HaveScroll;
+    if (countitem(MoubooFigurine) < 1)
+        goto L_NoMouboo;
+    if (countitem(SailorHat) == 0)
+        goto L_StatNone;
+    mesn;
+    mesq l("This is great! My collection of rare figurines is now complete.");
+    next;
+    mesn;
+    mesq l("I asked my father and he agreed to trade it to you, so here is the last copy of the Maritime Almanac Scroll.");
+    /*
+    //TODO: Add the ScrollOfPaper or the AlmanacScroll to finish this quest
+    inventoryplace FireScroll, 1;
+    delitem MoubooFigurine, 1;
+    getitem FireScroll, 1;
+    setq2 LoFQuest_George, 1;
+    */
+    close;
+
+L_BadOffer1:
+    mesn;
+    mesq l("Wow, a Dagger and a Sailor's Hat!");
+    next;
+    mesn;
+    mesq l("Although I really want the Sailor's Hat, but daggers are dangerous for kids to play with.");
+    mesq l("Besides that, do I look like a warrior to you? Why would you give a kid a sharp dagger?");
+    close;
+
+L_BadOffer2:
+    mesn;
+    mesq l("5000 GP? That sure is a lot of gold...");
+    mesq l("but I was hoping for something more valuable. No, thanks.");
+    close;
+
+L_NoMouboo:
+    mesn;
+    mesq l("You said you would trade a real Mouboo Figurine, but now I see you don't have one. Come back when you do.");
+    close;
+
+L_StatNone:
+    mesq l("You might have the Mouboo Figurine, but I don't trust everyone.");
+    if(.@q >= 3)
+        goto L_ShowHat;
+    mesq l("My friend George is much older than I am, go see him and if he trusts you, so will I.");
+    if (.@q < 2)
+        setq LoFQuest_George, 1;
+    close;
+
+L_ShowHat:
+    mesn;
+    mesq l("I heard you have met my good friend George, and you gave him some items that he needed...");
+    next;
+    mesn;
+    mesq l("Didn't he give you anything?");
+    next;
+    mesn;
+    mesq l("If you could show me what he gave you, I might trust you.");
+    close;
+
+L_MadMag:
+    mesn;
+    mesq l("I have my favorite book of all times, Moby Dick. Let me read some of it to you....");
+    next;
+    mesc l("Roger begins to read.");
+    mesn;
+    mesq l("Towards thee I roll, thou all-destroying but unconquering whale; to the last I grapple with thee; from hell’s heart I stab at thee; for hate’s sake I spit my last breath at thee. Sink all coffins and all hearses to one common pool! And since neither can be mine, let me then tow to pieces, while still chasing thee, though tied to thee, thou damned whale! Thus, I give up the spear!"); // SORRY TRANSLATORS
+    next;
+    mesn;
+    mesq l("I don't really understand it either, but it's not for sale. Maybe you could come back later so I can read more of it to you.");
+    next;
+    mesn;
+    mesq l("Have a nice day!");
+    close;
+
+L_Poor:
+    mesn;
+    mesq l("You don't seem to have enough gold, not even 1 GP...you should really let go of some useless stuff on your inventory.");
+    close;
+
+L_LOF_NEWS:
+    mesn;
+    mesc l("Well I see that you have completed the George Quest!");
+    mesc l("I am actually surprised you clicked me again. Well then, here's the Land of Fire News...");
+    next;
+    mesc l("As you may know, LOF ran on a modified version of The Mana World game, before being merged on TMW2: Moubootaur Legends.");
+    mesc l("However, LoF admins and developers are working on a new game to offer a new experience for players.");
+    next;
+    mesc l("The project is involving only a small group of members, but would welcome anyone who knows how to assist in development.");
+    mesc l("You can always come to #devel on our Discord, or drop by #landoffire on IRC.");
+    next;
+    mesc l("You can also visit our website. And if you want to assist on this server (TMW2: ML), you're welcome too!");
+    mesc l("Oh, and about the Candor travel for 200 GP... Which would be a rare for little or no gold... Well, that's just an attention grabber.");
+    next;
+    mesc l("BUT you can reduce the travel price to everywhere, to as low as 250 GP, by completing QUESTS!");
+    mesc l("And some from the Grand Hunter Quests give you @@, which can be traded with the travelers for rares! Good luck!", getitemlink(StrangeCoin));
+    close;
+
+L_HaveScroll:
+    mesn;
+    mesq l("Looks like I already gave you the Maritime Almanac Scroll. You need to go see George again. I am unable to get another copy for you.");
+    close;
+
+OnInit:
+    .sex=G_MALE;
+    .distance=5;
+    end;
+}
+
diff --git a/npc/018-1/george.txt b/npc/018-1/george.txt
index 120361c27..6223b2b93 100644
--- a/npc/018-1/george.txt
+++ b/npc/018-1/george.txt
@@ -3,7 +3,13 @@
 //    TMW-LoF Team
 //    Jesusalva
 // Description:
-//    Old pirate with quests. BaseLevel is handled by Paperboy aka. Roger
+//    Old pirate with quests.
+// LOFQuest_George
+//  1 - Roger assigned the task
+//  2 - First task accepted
+//  3 - First task complete
+//  4 - Second task accepted
+//  5 - Second task complete
 
 018-1,26,36,0	script	George	NPC_GEORGE,{
     .@q=getequipid(EQI_HEAD_TOP);
@@ -60,12 +66,16 @@ L_Explain:
 
 // Requests
 L_RequestOne:
+    if (BaseLevel < 40)
+        goto L_Weak;
     mesn l("George the Pirate");
     mesq l("Roger, eh? Aye, I do need help. If you bring me 30 @@, 50 @@, and 30 @@, maybe I can give you a reward.", getitemlink(Beer), getitemlink(EmptyBottle), getitemlink(CasinoCoins));
     setq LoFQuest_George, 2;
     close;
 
 L_RequestTwo:
+    if (BaseLevel < 60)
+        goto L_Weak;
     mesn l("George the Pirate");
     mes "\"Arrr matey! My captain asked me to have you get him some items. Please bring us 50 zombie nachos and 50 lady fingers, my captain likes to snack on those during our long voyages. Oh, and something to read too!\"";
     setq LoFQuest_George, 4;
@@ -131,6 +141,11 @@ L_ProgressTwo:
     goto L_Close;
 
 // Fallbacks
+L_Weak:
+    mesn l("George the Pirate");
+    mesq l("Arr, you are not experienced enough to help me yet!");
+    close;
+
 L_NotEnough:
     mesn l("George the Pirate");
     mesq l("Arrr! You did not bring me everything I asked for!");