summaryrefslogtreecommitdiff
path: root/npc/001-2-9/janus.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/001-2-9/janus.txt')
-rw-r--r--npc/001-2-9/janus.txt170
1 files changed, 170 insertions, 0 deletions
diff --git a/npc/001-2-9/janus.txt b/npc/001-2-9/janus.txt
new file mode 100644
index 000000000..a652a7c5e
--- /dev/null
+++ b/npc/001-2-9/janus.txt
@@ -0,0 +1,170 @@
+// Evol scripts.
+// Author:
+// Reid
+// Description:
+// Party NPC
+// Variable:
+// General_Janus
+// Values:
+// 0 Default.
+// 1 Basic information given.
+// 2 Party creation enabled.
+// 3 Guild certificate given.
+
+001-2-9,30,28,0 script Janus NPC_JANUS,{
+
+ function create_party {
+ .@party_price = 1000;
+
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Creating a party has some advantages, it's a pretty good choice!"),
+ l("I remember when I created my first party, we were amazed to share some experience with a small group of adventurer..."),
+ l("Oh! And our party chat was really entertaining, I do highly recommend you to share this fun as well."),
+ lg("The cost to create a party is @@ E, are you interested?",
+ "The cost to create a party is @@ E, are you interested?", .@party_price);
+
+ if (askyesno() == 1)
+ {
+ if (Zeny < .@party_price)
+ {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("You don't have enough money, bring @@ E.", .@party_price);
+ }
+ else
+ {
+ Zeny = Zeny - .@party_price;
+ setq General_Janus, 2;
+ skill NV_BASIC, 7, 0;
+
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("Awesome, come back if you ever want to create a larger group!");
+ }
+ }
+ }
+
+ function create_guild {
+ .@guild_price = 35000;
+
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Oh oh... I see, your party became so big that you want to create an even larger structure?"),
+ l("Or do you want to keep your friendships and adventures in different groups?"),
+ l("Anyway, the guild creation is perfect for both!"),
+ l("You can keep your current party as it is, while leading or being part of a guild in order to talk and share different items with all of its members!"),
+ l("The @@ is a one time item, you can use it as many times as you want, but you can only have one!", getitemlink(GuildCertification)),
+ lg("The cost to create a guild is @@ E, are you interested?",
+ "The cost to create a guild is @@ E, are you interested?", .@guild_price);
+
+ if (askyesno() == 1)
+ {
+ if (Zeny < .@guild_price)
+ {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("You don't have enough money, bring @@ E.", .@guild_price);
+ }
+ else
+ {
+ inventoryplace GuildCertification, 1;
+ Zeny = Zeny - .@guild_price;
+ setq General_Janus, 3;
+ getitem GuildCertification, 1;
+
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("Enjoy the fraternity and excitement of your future guild!");
+ }
+ }
+ }
+
+ function explain_service {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("You are on the human resource wing of the Town Hall."),
+ l("We offer party and guild certifications and we can also teach you how to use some basic communication skills."),
+ l("Do you know how to speak with people around you?");
+
+ if (askyesno() == 2)
+ {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("You lack some very basic skills...");
+
+ if (compareandsetq(General_Janus, 0, 1))
+ {
+ speech S_LAST_NEXT | S_NO_NPC_NAME,
+ l("This book contains everything you should know about it, take it!");
+
+ inventoryplace CommunicationTheory, 1;
+ getitem CommunicationTheory, 1;
+ }
+ else
+ {
+ speech S_LAST_NEXT | S_NO_NPC_NAME,
+ l("You can read the book that I gave you earlier at the library if you lost it.");
+ }
+ }
+ else
+ {
+ if (compareandsetq(General_Janus, 0, 1))
+ {
+ speech S_LAST_NEXT | S_NO_NPC_NAME,
+ l("Anyway."),
+ l("This book contains everything you should know about it, take it!");
+
+ inventoryplace CommunicationTheory, 1;
+ getitem CommunicationTheory, 1;
+ }
+
+ }
+
+ return;
+ }
+
+ function janus_is_not_ianus {
+ speech S_FIRST_BLANK_LINE,
+ l("Janus!");
+ emotion E_UPSET;
+ next;
+
+ speech S_LAST_NEXT | S_NO_NPC_NAME,
+ l("Ianus is from the Legion of Aemil, don't compare me to this brigand.");
+
+ return;
+ }
+
+ speech S_LAST_NEXT,
+ lg("Welcome miss.", "Good day sir.");
+
+ do
+ {
+ // Beta users by-pass check.
+ if (getskilllv(NV_BASIC) > 6 && getq(General_Janus) == 1)
+ {
+ setq General_Janus, 2;
+ }
+
+ select
+ rif(getq(General_Janus) == 1, l("I would like to create a party.")),
+ rif(getq(General_Janus) == 2, l("I would like to create a guild.")),
+ l("What service do you offer?"),
+ l("Your name is Ianus or Janus?"),
+ menuaction(l("Quit"));
+
+ switch (@menu)
+ {
+ case 1:
+ create_party;
+ break;
+ case 2:
+ create_guild;
+ break;
+ case 3:
+ explain_service;
+ break;
+ case 4:
+ janus_is_not_ianus;
+ break;
+ }
+ } while (@menu != 5);
+
+ closedialog;
+ goodbye;
+ close;
+
+OnInit:
+ .sex = G_MALE;
+ .distance = 3;
+ end;
+}