diff options
author | Reid <reidyaro@gmail.com> | 2012-04-24 04:08:25 +0200 |
---|---|---|
committer | Reid <reidyaro@gmail.com> | 2012-04-24 04:08:25 +0200 |
commit | e550e9cb2c130d39dddcc5ca95ba4779f213a5e4 (patch) | |
tree | f4e3f7fe1938013d3e038d15c9500f084a9a21e2 /npc/000-2-1 | |
parent | e78d424e74050bcc15d121829423baaf50b13996 (diff) | |
download | serverdata-e550e9cb2c130d39dddcc5ca95ba4779f213a5e4.tar.gz serverdata-e550e9cb2c130d39dddcc5ca95ba4779f213a5e4.tar.bz2 serverdata-e550e9cb2c130d39dddcc5ca95ba4779f213a5e4.tar.xz serverdata-e550e9cb2c130d39dddcc5ca95ba4779f213a5e4.zip |
Update old scripts with new template.
Diffstat (limited to 'npc/000-2-1')
-rw-r--r-- | npc/000-2-1/alige.txt | 125 | ||||
-rw-r--r-- | npc/000-2-1/arpan.txt | 97 | ||||
-rw-r--r-- | npc/000-2-1/devis.txt | 18 | ||||
-rw-r--r-- | npc/000-2-1/knife.txt | 6 | ||||
-rw-r--r-- | npc/000-2-1/peter.txt | 58 | ||||
-rw-r--r-- | npc/000-2-1/ronan.txt | 18 |
6 files changed, 218 insertions, 104 deletions
diff --git a/npc/000-2-1/alige.txt b/npc/000-2-1/alige.txt index 02d001d5..a56fc593 100644 --- a/npc/000-2-1/alige.txt +++ b/npc/000-2-1/alige.txt @@ -14,41 +14,47 @@ // 0 first talking (before food) // 1 already talked - 000-2-1.gat,33,32,0,1 script AligeTrigger 0,1,1,{ - OnTouch: - if (geta2(ShipQuests, ShipQuests_Alige) > 0) close; - doevent "Alige::OnFirstEncounter"; - close; - OnTouchFirst: - setnpcdir "Alige", 2; - stopnpctimer; - initnpctimer; - // OnTouch will not be called otherwise when OnTouchFirst got called - goto OnTouch; - OnUnTouchAll: - setnpcdir "Alige", 4; - stopnpctimer; - initnpctimer; - close; - OnTimer190: - if (getnpcdir ("Alige") == 2) setnpcdir "Alige", 6; - if (getnpcdir ("Alige") == 4) setnpcdir "Alige", 8; - stopnpctimer; - end; +OnTouch: + if (geta2(ShipQuests, ShipQuests_Alige) > 0) close; + doevent "Alige::OnFirstEncounter"; + + close; + +OnTouchFirst: // OnTouch will not be called otherwise when OnTouchFirst got called + setnpcdir "Alige", 2; + stopnpctimer; + initnpctimer; + + goto OnTouch; + +OnUnTouchAll: + setnpcdir "Alige", 4; + stopnpctimer; + initnpctimer; + + close; + +OnTimer190: + if (getnpcdir ("Alige") == 2) setnpcdir "Alige", 6; + if (getnpcdir ("Alige") == 4) setnpcdir "Alige", 8; + stopnpctimer; + + end; + } 000-2-1.gat,33,31,0,1 script Alige 301,{ - set @q, geta2(ShipQuests, ShipQuests_Alige); - if (@q == 2) goto l_AskForFood; - goto OnFirstEncounter; + set @q, geta2(ShipQuests, ShipQuests_Alige); + if (@q == 2) goto l_AskForFood; + + goto OnFirstEncounter; - OnFirstEncounter: +OnFirstEncounter: seta2 ShipQuests, ShipQuests_Alige, 1; - l_Talk: mesn "Hidden person"; mesq l("Hey, psst! You're not a sailor, right?"); next; @@ -57,12 +63,14 @@ lg("I am, who are you?"), -, lg("I'm not."), l_NeedHelp; - mes " "; - mesq "Hidden person doesn't answer"; + mes ""; + mesn "Narrator"; + mes col(l("Hidden person doesn't answer."), 9); + close; - l_NeedHelp: - mes " "; +l_NeedHelp: + mes ""; mesn "Hidden person"; mesq l("Good, good! ") + " " + l("Could you help me please? ") + " " + l("I beg you, please, pleeeease..."); next; @@ -71,18 +79,17 @@ l("Why not... but, who are you?") + " " + l("And what kind of help do you need?"), l_CanHelp; l("Sorry but I have no time for this."), -; - mes " "; + mes ""; mesn "Hidden person"; mesq lg("Damn you! You better not tell anyone that you've seen me!"); + close; - l_CanHelp: - mes " "; +l_CanHelp: + mes ""; mesn; mesq l("I'm called Alige, and I've been hiding here for few weeks.") + l("All that I had to eat were these berries... Berries... Berries...") + l("I'm losing my mind, I need something else to eat!"); next; - - mesn; mesq l("Can you bring me something which isn't a vegetable?") + l("And please, no berries. No more!"); next; @@ -92,52 +99,48 @@ l_ExplainHiding: - mes " "; + mes ""; mesn; mesq l("No, I can't, I just wanted to travel across the seas for fun.") + " " + l("In this cave, you see, I have lots of fun."); next; - - mesn; mesq l("Err, seriously, I just wanted to get to Artis, and I haven't got the money to pay for the ferry!"); next; - - mesn; mesq l("Please, don't tell people that you've seen me, I don't want to be thrown to sea as food for sharks or decapitated, not again!"); - next; if (geta2(ShipQuests, ShipQuests_Alige) == 2) goto l_AskForFood; goto l_Accept; - l_AboutReward: - mes " "; +l_AboutReward: + mes ""; mesn; mesq l("I'll share my berries with you, if you help me."); next; - l_Accept: +l_Accept: menu l("Ok, I'll help you."), l_Accepted, l("What is Artis?"), l_Artis, l("I think I should report you to the crew members."), l_DamnYou; - l_Artis: - mes " "; +l_Artis: + mes ""; mesn; mesq l("It's a commercial port of Andorra, it's weird that you don't know about it, it's one of the most famous cities throughout the world... But hey oh, returning to the topic! I'm hungry!"); next; + if (@q == 2) goto l_AskForFood; goto l_Accept; - l_Accepted: +l_Accepted: seta2 ShipQuests, ShipQuests_Alige, 2; + mes " "; mesn; mesq lg("Perfect, which food did you get for me today?"); next; - goto l_GiveFood; - l_GiveFood: +l_GiveFood: menu rif(countitem(501, 1), l(getitemname("Acorn"))), 0, rif(countitem(502, 1), l(getitemname("Bread"))), 502, @@ -158,7 +161,7 @@ if (@id == 2) goto l_NoMore; // In case of Piberries. // Continue if the food is correct. - l_GiveReward: +l_GiveReward: if (countitem(@id) < 1) close; delitem @id, 1; @@ -169,25 +172,28 @@ getitem "Piberries", rand(1,3); close; - l_NoReward: +l_NoReward: + mes " "; mesn; mesq l("I don't want this, give me something else."); + goto l_GiveFood; - l_NoMore: +l_NoMore: mes " "; mesn; mesq l("Arrr, don't give me more berries! I don't want them, stupid berries, stupid ... stupid ... stupid!"); - next; + close; - l_Poison: +l_Poison: mes " "; mesn; mesq l("Don't try to poison me! I know what that does!"); + goto l_GiveFood; - l_AskForFood: +l_AskForFood: mesn; mesq l("Do you have anything for me today?"); next; @@ -199,21 +205,22 @@ l("What is Artis?"), l_Artis, l("I think I should report you to the crew members."), l_DamnYou; - l_Food: +l_Food: mes " "; mesn; mesq l("There is some flying yellow plush around you, they're called pious. Getting a roasted leg of one of them would be perfect."); next; - mesn; mesq l("I'd like to catch one of them, but they are flying away when I try."); next; - mesn; mesq l("As you can walk around, it'll be an easy task for you. Impale me one of them!!"); + close; - l_DamnYou: +l_DamnYou: mes " "; mesn; mesq lg("Damn you! You better not tell anyone that you've seen me!"); + close; + } diff --git a/npc/000-2-1/arpan.txt b/npc/000-2-1/arpan.txt index 455f1380..d7f7d893 100644 --- a/npc/000-2-1/arpan.txt +++ b/npc/000-2-1/arpan.txt @@ -15,13 +15,17 @@ 000-2-1.gat,39,36,0,1 script LeftDoorCheck 0,0,0,{ set @q, geta2(ShipQuests, ShipQuests_Arpan); if (@q == 0) doevent "Magic Arpan::OnTalk"; + close; + } 000-2-1.gat,44,36,0,1 script RightDoorCheck 0,0,0,{ set @q, geta2(ShipQuests, ShipQuests_Arpan); if (@q == 0) doevent "Magic Arpan::OnTalk"; + close; + } 000-2-1.gat,37,32,0,1 script LeftBarrierCheck 0,0,2,{ @@ -29,19 +33,24 @@ if (@q > 2) close; if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto l_EquipDone; if (@q == 1) goto l_GetCloth; + doevent "Magic Arpan::OnClothNotTaken"; warp "000-2-1.gat", 39, 32; doevent "Magic Arpan::OnEquip"; + close; l_GetCloth: warp "000-2-1.gat", 39, 32; doevent "Magic Arpan::OnClothNotTaken"; + close; l_EquipDone: seta2 ShipQuests, ShipQuests_Arpan, 3; + close; + } 000-2-1.gat,46,32,0,1 script RightBarrierCheck 0,0,2,{ @@ -49,34 +58,43 @@ l_EquipDone: if (@q > 2) close; if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto l_EquipDone; if (@q == 1) goto l_GetCloth; + doevent "Magic Arpan::OnClothNotTaken"; warp "000-2-1.gat", 45, 32; doevent "Magic Arpan::OnEquip"; + close; l_GetCloth: warp "000-2-1.gat", 45, 32; doevent "Magic Arpan::OnClothNotTaken"; + close; l_EquipDone: seta2 ShipQuests, ShipQuests_Arpan, 3; + close; + } 000-2-1.gat,41,37,0 script Box 999,{ mesn "Narrator"; + set @q, geta2(ShipQuests, ShipQuests_Arpan); if (@q == 1) goto l_Give; if (@q > 1) goto l_Empty; + mes col(l("This box is locked"), 9); close; l_Give: - mes l("You see some items in the box. Take them out?"); + mes col(l("You see some items in the box. Take them out?"), 9); + menu l("Yes."), -, l("No."), l_Close; + seta2 ShipQuests, ShipQuests_Arpan, 2; getitem "Wornshirt", 1; getitem "Wornshort", 1; @@ -85,48 +103,60 @@ l_Close: close; l_Empty: - mes l("This box is locked."); + mes col(l("This box is locked."), 9); + close; + } 000-2-1.gat,39,33,0,1 script Magic Arpan 307,{ + OnTalk: set @q, geta2(ShipQuests, ShipQuests_Arpan); + mesn; + if (@q > 0) goto l_Menu; - mes lg("Yeye, you are really lucky to be alive. You are in good enough shape for walking, do you remember what happened?"); + + mesq lg("Yeye, you are really lucky to be alive. You are in good enough shape for walking, do you remember what happened?"); seta2 ShipQuests, ShipQuests_Arpan, 1; + menu lg("I only remember I was rescued by you."), l_Story, lg("I can't remember anything."), l_OhWell; - close; OnClothNotTaken: mesn; - mes lg("Yeye, you still did not get your clothes!"); + mesq lg("Yeye, you still did not get your clothes!"); + close; OnEquip: mesn "Narrator"; mes col(lg("Open your inventory (F3 key), select the clothes one by one and equip them."), 9); + close; l_OhWell: - mes lg("Oh well, we rescued you when you were yaying adrift in the sea."); + mes ""; + mesq lg("Oh well, we rescued you when you were yaying adrift in the sea."); l_Story: - mes lg("You were yaying sleeping for quite some days there, our shipkeeper, Julia, was here with you, she did her best to fix your injuries during this time."); + mes ""; + mesq lg("You were yaying sleeping for quite some days there, our shipkeeper, Julia, was here with you, she did her best to fix your injuries during this time."); next; - mes lg("Yaya, you should go see her! She will be happy to see you."); + mesq lg("Yaya, you should go see her! She will be happy to see you."); next; - mes lg("Also, we took your yayed clothes, as they were... Yeyeye... In bad condition, go check the box around your bed, there is some new ones inside."); + mesq lg("Also, we took your yayed clothes, as they were... Yeyeye... In bad condition, go check the box around your bed, there is some new ones inside."); setcamnpc "Box"; next; restorecam; + l_Menu: - mes l("What yeye could I do for you today?"); + mesq l("What yeye could I do for you today?"); set @equipped, getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200; + menu lg("Could you tell me where I am?"), l_Where, lg("Where can I find Julia?"), l_Julia, @@ -137,44 +167,59 @@ l_Menu: close; l_Where: + mes ""; mesn; - mes lg("You are on our ship, we are actually yeyending our long merchant traveling adventure to the city of Artis."); + mesq lg("You are on our ship, we are actually yeyending our long merchant traveling adventure to the city of Artis."); next; - mes lg("We will be yaying there in a few days, so we will drop you off there. You will see, citizens are polite and you can still ask for help in the warrior guild. They can help find a job for you or maybe help you find out what happened to you out at sea!"); + mesq lg("We will be yaying there in a few days, so we will drop you off there. You will see, citizens are polite and you can still ask for help in the warrior guild. They can help find a job for you or maybe help you find out what happened to you out at sea!"); next; + goto l_Menu; -l_WhereOldClothes: +l_Julia: + mes ""; mesn; - mes lg("We tried to clean them but the sea water mostly killed them. It's why we gave you these cloths, they are not very good but it's all that we got."); + mesq g(l("She is on the upper level, yeye can't miss her. She is the only girl in this crew, oh well, except for you now yeyeye!"), + l("She is on the upper level, yeye can't miss her. She is the only girl in this crew.")); next; - mes lg("Oh, now that I remember, we also find some money on your pockets, here they are!"); - seta ShipQuests, ShipQuests_ArpanMoney, 1; - set zeny, zeny+25; + mesq lg("You can go to your right to go to the upper level."); next; + goto l_Menu; -l_Julia: - mes g(l("She is on the upper level, yeye can't miss her. She is the only girl in this crew, oh well, except for you now yeyeye!"), - l("She is on the upper level, yeye can't miss her. She is the only girl in this crew.")); - next; - mes lg("You can go to your right to go to the upper level."); +l_Who: + mes ""; + mesn; + mesq l("Sorry! I forgot to introduce myself. My name is Arpan, but other sailors call me Magic Arpan because I know one or two yaing magic spells."); next; + goto l_Menu; -l_Who: - mes l("Sorry! I forgot to introduce myself. My name is Arpan, but other sailors call me Magic Arpan because I know one or two yaing magic spells."); +l_WhereOldClothes: + mes ""; + mesn; + mesq lg("We tried to clean them but the sea water mostly killed them. It's why we gave you these cloths, they are not very good but it's all that we got."); + next; + mes lg("Oh, now that I remember, we also find some money on your pockets, here they are!"); + seta ShipQuests, ShipQuests_ArpanMoney, 1; + set zeny, zeny+25; next; + goto l_Menu; l_WhatCloth: - mes lg("Oh yeyeye, as they are not eatable, you can try to equip them!"); + mes ""; + mesn; + mesq lg("Oh yeyeye, as they are not eatable, you can try to equip them!"); next; + mesn "Narrator"; mes col(lg("Open your inventory (F3 key), select the clothes one by one and equip them."), 9); next; + goto l_Menu; l_Quit: close; -} + +}
\ No newline at end of file diff --git a/npc/000-2-1/devis.txt b/npc/000-2-1/devis.txt index c0a85e27..742f7585 100644 --- a/npc/000-2-1/devis.txt +++ b/npc/000-2-1/devis.txt @@ -4,14 +4,20 @@ // Reid 000-2-1.gat,22,38,0,1 script Devis 310,{ - mesn; - set @q, rand(2); - if (@q == 0) goto l_Zzz; - goto l_Grm; - l_Zzz: + mesn; + set @q, rand(2); + if (@q == 0) goto l_Zzz; + + goto l_Grm; + +l_Zzz: mes l("Zzzzzzzzzz"); + close; - l_Grm: + +l_Grm: mes l("Ggrmm grmmm..."); + close; + } diff --git a/npc/000-2-1/knife.txt b/npc/000-2-1/knife.txt index c34345d8..2c850ca8 100644 --- a/npc/000-2-1/knife.txt +++ b/npc/000-2-1/knife.txt @@ -12,11 +12,13 @@ 000-2-1.gat,40,24,0,2 script #name 100,{ set @q, geta(ShipQuests, ShipQuests_Knife); if (@q) close; - mesn "Knifes on the table"; - mes l("There are some knifes on the table, do you want to take one?"); + + mesn "Narrator"; + mes col(l("There are some knifes on the table, do you want to take one?"), 9); menu l("Yes."), l_Give, l("No."), -; + close; l_Give: diff --git a/npc/000-2-1/peter.txt b/npc/000-2-1/peter.txt index 3baf6aea..31d53730 100644 --- a/npc/000-2-1/peter.txt +++ b/npc/000-2-1/peter.txt @@ -41,28 +41,35 @@ OnTouch: if (@q < 1) goto L_Task; if (@q == 1 || @q == 2) goto L_Rfail; if (@q == 3 || @q == 4) goto L_Rwin; - doevent "Peter::OnStartOutside"; + doevent "Peter::OnReturnWin"; + close; L_Stop: doevent "Peter::OnStop"; + close; L_Occupied: doevent "Peter::OnDontneedHelp"; + close; L_Task: doevent "Peter::OnGiveTask"; + close; L_Rfail: doevent "Peter::OnReturnFail"; + close; L_Rwin: doevent "Peter::OnReturnWin"; + close; + } 000-2-1.gat,60,35,0,1 script Peter 303,{ @@ -78,72 +85,100 @@ L_Rwin: OnGiveTask: mesn; mesq g(l("Hey, girl!"), - l("Hey, man!")); + l("Hey, man!")); next; mesn; mesq l("I need somebody who can clean the bottom of the ship of these Ratto, can you help me?"); + next; + menu l("Yeah, but what reward will I get?"), L_BonusTask, l("Why not, I need to train anyway."), L_Task, l("No, they are way too dangerous for me!"), -; + + mes ""; + mesn; mesq l("Ok, ok. Come back if you change your mind."); + goto L_Close; L_TalkToJulia: mesn; mesq l("Hey, you should go see Julia to be registered on the ship board."); + goto L_Close; OnTooWeak: mesn; mesq lg("I need help for cleaning the wedge of the ship, but you aren't strong enough to help me."); + goto L_Close; OnStop: + warp "000-2-1",61,36; + mesn; mesq l("You can't go there!"); - warp "000-2-1",61,36; + close; OnReturnFail: mesn; mesq l("I see it is not easy to get rid of those rattos. Do you want to try again?"); + next; + menu l("Yeah, but I would like to make sure I get a reward."), L_BonusTask, l("Why not, I need to train anyway."), L_Task, l("No, they are way too dangerous for me!"), -; + + mes ""; + mesn; mesq l("Ok, ok. Come back if you change your mind."); + goto L_Close; OnReturnWin: mesn; mesq l("Thanks again for helping me. But those rattos are a permanent problem and your help is always welcome. The only problem is that I can give you a reward only one time."); + if (@q == 3 || @q == 4) + menu l("Did you say reward? I want it!"), L_BonusTask, l("I am not worried about rewards. I just want to help."), L_Task, l("Sorry, I am not in the mood for another fight with those rattos."), -; if (@q == 5) + menu l("No problem, I can help you anyway."), L_Task, l("Sorry, I am not in the mood for another fight with those rattos."), -; + mes ""; + mesn; mesq l("Ok, ok. Come back if you change your mind."); + close; L_BonusTask: + mes ""; mesn; mesq l("I will give you @@gp.", 500); + next; + menu - lg("Okay, I'm ready to work!"), -, - l("What? This reward is too small!"), L_Close; + lg("Okay, I'm ready to work!"), -, + l("What? This reward is too small!"), L_Close; + if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; if (@q == 0) seta4 ShipQuests, ShipQuests_Peter, 2; if (@q == 3) seta4 ShipQuests, ShipQuests_Peter, 4; + goto L_Start; L_Task: + mes ""; if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; if (@q == 0) seta4 ShipQuests, ShipQuests_Peter, 1; goto L_Start; @@ -159,6 +194,7 @@ OnStartOutside: initnpctimer; warp "000-2-2.gat", 48, 28; doevent "RattosControl::OnSpawn"; + goto L_Close; OnTimer5000: @@ -169,6 +205,7 @@ OnTimer5000: if ($@RAT_SAILOR_CONTROL[1] && $@RAT_SAILOR_CONTROL[2] && $@RAT_SAILOR_CONTROL[3] && $@RAT_SAILOR_CONTROL[4]) goto L_Done; if (getmapusers("000-2-2.gat") == 0) goto L_CleaningEnd; goto L_CheckRattos; + end; L_CheckRattos: @@ -181,18 +218,22 @@ L_CheckRattos: if ($@RAT_SAILOR_CONTROL[7] > 40) doevent "RattosControl::OnRatto3Respawn"; if ($@RAT_SAILOR_CONTROL[8] > 40) doevent "RattosControl::OnRatto4Respawn"; setnpctimer 0; + end; OnDontneedHelp: mesn; mesq l("I don't need your help right now, come back later."); + next; mesq l("@@ is helping me.", $@RAT_SAILOR_HELPER$); + goto L_Close; L_Timeout: mesn; mesq l("Hey! Be careful. You can't stay in this basement for so long, you are going to get sick. Come outside and take a break, maybe you can try again later."); warp "000-2-1", 61, 36; + goto L_CleaningClose; L_Logoff: @@ -201,12 +242,14 @@ L_Logoff: L_Dead: // Warps the dead body outside, so it does not interfere with the getmapusers check. if (getmapusers("000-2-2.gat") > 0) warp "000-2-1", 61, 36; + goto L_CleaningEnd; L_Done: warp "000-2-1", 61, 36; set @q, geta4(ShipQuests, ShipQuests_Peter); if (@q == 2 || @q == 4) goto L_Reward; + goto L_Thanks; L_CleaningEnd: @@ -218,6 +261,7 @@ L_CleaningEnd: killmonster "000-2-2.gat", "RattosControl::OnRatto2Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto3Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto4Death"; + end; L_CleaningClose: @@ -229,6 +273,7 @@ L_CleaningClose: killmonster "000-2-2.gat", "RattosControl::OnRatto2Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto3Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto4Death"; + close; L_Reward: @@ -237,6 +282,7 @@ L_Reward: getexp 100, 0; set zeny, zeny + 500; seta4 ShipQuests, ShipQuests_Peter, 5; + goto L_CleaningClose; L_Thanks: @@ -244,11 +290,13 @@ L_Thanks: mesq l("Thanks for helping me!"); set @q, geta4(ShipQuests, ShipQuests_Peter); if (@q == 1) seta4 ShipQuests, ShipQuests_Peter, 3; + goto L_CleaningClose; L_Close: set @q, 0; set @q_julia, 0; + close; } diff --git a/npc/000-2-1/ronan.txt b/npc/000-2-1/ronan.txt index dc95b350..73028538 100644 --- a/npc/000-2-1/ronan.txt +++ b/npc/000-2-1/ronan.txt @@ -3,14 +3,20 @@ // Vasily_Makarov 000-2-1.gat,43,38,0,1 script Ronan 302,{ - mesn; - set @q, rand(2); - if (@q == 0) goto l_Zzz; - goto l_Snoring; - l_Zzz: + mesn; + set @q, rand(2); + if (@q == 0) goto l_Zzz; + + goto l_Snoring; + +l_Zzz: mesq l("Zzzzzzzzzz"); + close; - l_Snoring: + +l_Snoring: mesq l("Rrrr pchhhh..."); + close; + } |