From 63c1aa7f6ec9363ee7f7c80d16d53240479d6eb8 Mon Sep 17 00:00:00 2001 From: seeds Date: Sat, 29 May 2021 22:14:02 +0000 Subject: Piou isles basic NPCs --- npc/006-2-1/camilot.txt | 54 +++++++++++++++++++++++++++++ npc/006-2-1/chirp.txt | 15 +++++++++ npc/006-2-1/jenny.txt | 41 ++++++++++++++++++++++ npc/006-2-1/lune.txt | 90 +++++++++++++++++++++++++++++++++++++++++++++++++ npc/006-2-1/plum.txt | 24 +++++++++++++ 5 files changed, 224 insertions(+) create mode 100644 npc/006-2-1/camilot.txt create mode 100644 npc/006-2-1/chirp.txt create mode 100644 npc/006-2-1/jenny.txt create mode 100644 npc/006-2-1/lune.txt create mode 100644 npc/006-2-1/plum.txt diff --git a/npc/006-2-1/camilot.txt b/npc/006-2-1/camilot.txt new file mode 100644 index 000000000..8cd6b3c07 --- /dev/null +++ b/npc/006-2-1/camilot.txt @@ -0,0 +1,54 @@ +// TMW2 scripts. +// Authors: +// Saulc +// Jesusalva +// Reid +// Travolta +// +Seeds +// Description: +// Camilot is the barber. + +006-2-1,85,67,0 script Camilot NPC_PIOU_BARBER,{ + mesn; + mesq l("Hi! I'm Camilot, a piou specialist in humanoid hairstyles. Do you want a hair cut?"); + + do + { + select + l("What is my current hairstyle and hair color?"), + l("I'd like to get a different style."), + l("Can you do something with my color?"), + l("I'm allergic to piou, goodbye."); + + switch (@menu) + { + case 1: + BarberSayStyle 2; + break; + case 2: + BarberChangeStyle; + speech S_FIRST_BLANK_LINE | S_LAST_NEXT, + l("Enjoy your new style."); + l("Anything else?"); + break; + case 3: + BarberChangeColor; + speech S_FIRST_BLANK_LINE | S_LAST_NEXT, + l("I hope you like this color."); + l("Anything else?"); + break; + case 4: + speech S_FIRST_BLANK_LINE | S_LAST_NEXT, + l("Come and visit again!"); + + goodbye; + } + } while (1); + close; + + +OnInit: + .sex = G_OTHER; + .distance = 5; + end; +} diff --git a/npc/006-2-1/chirp.txt b/npc/006-2-1/chirp.txt new file mode 100644 index 000000000..3b0f146da --- /dev/null +++ b/npc/006-2-1/chirp.txt @@ -0,0 +1,15 @@ +// TMW-2 Script. +// Author: +// +Seeds +// Jesusalva + +006-2-1,41,66,0 script Chirp NPC_PIOU_BANKER,{ + Banker(.name$, "Piou Isles", 8000); + close; + +OnInit: + .sex = OTHER; + .distance = 4; + end; +} + diff --git a/npc/006-2-1/jenny.txt b/npc/006-2-1/jenny.txt new file mode 100644 index 000000000..72525f8a3 --- /dev/null +++ b/npc/006-2-1/jenny.txt @@ -0,0 +1,41 @@ +// TMW2 Script. +// Author: +// Jesusalva +// Modified by: +// +seeds + +006-2-1,41,74,0 script Jenny NPC_PIOU_SERVER,{ + + mesn; + mesq l("Hello! Would you like to try some piou delicacies?"); + next; + closedialog; + npcshopattach(.name$); + shop .name$; + close; + +OnInit: + + .sex = G_OTHER; + .distance = 5; + + tradertype(NST_MARKET); + sellitem Piberries, 20, 20; + sellitem Aquada, 120, 5; + sellitem LettuceLeaf, 30, 15; + sellitem Bread, 46, 10; + sellitem Cheese, 55, 15; + + end; + +OnClock0556: +OnClock1201: +OnClock1759: +OnClock0003: + restoreshopitem Piberries, 20, 20; + restoreshopitem Aquada, 120, 5; + restoreshopitem LettuceLeaf, 30, 15; + restoreshopitem Bread, 46, 10; + restoreshopitem Cheese, 55, 15; + end; +} diff --git a/npc/006-2-1/lune.txt b/npc/006-2-1/lune.txt new file mode 100644 index 000000000..77d25d3c8 --- /dev/null +++ b/npc/006-2-1/lune.txt @@ -0,0 +1,90 @@ +// TMW2 Script +// Author: +// Saulc +// Vasily_Makarov (original from Evol) +// Jesusalva +// seeds +// Description: +// Status Reset + +006-2-1,34,66,0 script Lune NPC_PIOU_ALCHEMIST,{ + + speech S_LAST_NEXT, + l("I am @@, a piou alchemist specialized in reset potions.", .name$); + +L_Menu: + .@plush_count = BaseLevel*210-(9*210); + // Lv 10: 210 GP + // Lv 90: 1.890 GP + if (BaseLevel > 10) + .@plush_count = .@plush_count/(BaseLevel/10); + + select + l("Can you reset my stats please?"), + "", + lg("I'm allergic to piou potions, goodbye."); + + switch (@menu) + { + case 1: + goto L_ResetStats; + case 2: + goto L_Powder; + case 3: + goto L_Quit; + } + +L_ResetStats: + mesn; + mesq l("Status point reset can't be undone. Do you really want this?"); + +L_ConfirmReset: + ConfirmStatusReset(); + goto L_Quit; + +L_Powder: + .@price=POL_AdjustPrice(800); + mes ""; + mesn; + mesq ""; + next; + select + l("Yeah, I need one."), + l("Thanks for the help, but no."), + l("I'm allergic to piou, goodbye!"); + if (@menu == 2) + goto L_Menu; + + if (@menu == 3) + goto L_Quit; + + if (false) { + mesn; + mesq l("Thanks! Here you go. Perhaps you need another one?"); + next; + goto L_Powder; + } else { + mesn; + mesq ""; + next; + } + goto L_Menu; + +L_Quit: + closeclientdialog; + goodbye; + close; + +OnInit: + .@npcId = getnpcid(.name$); + setunitdata(.@npcId, UDT_HEADTOP, FancyHat); + setunitdata(.@npcId, UDT_HEADMIDDLE, SailorShirt); + setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants); + setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots + setunitdata(.@npcId, UDT_HAIRSTYLE, 7); + setunitdata(.@npcId, UDT_HAIRCOLOR, 17); + + .sex = G_OTHER; + .distance = 4; + end; +} diff --git a/npc/006-2-1/plum.txt b/npc/006-2-1/plum.txt new file mode 100644 index 000000000..12c6c9043 --- /dev/null +++ b/npc/006-2-1/plum.txt @@ -0,0 +1,24 @@ +// TMW2 scripts. +// Authors: +// Jesusalva +// +seeds +// Description: +// Nurse. + +006-2-1,85,71,0 script Plum NPC_PIOU_NURSE,{ + Nurse(.name$, 10, 5); + close; + +OnInit: + .@npcId = getnpcid(.name$); + setunitdata(.@npcId, UDT_HEADBOTTOM, CottonSkirt); + setunitdata(.@npcId, UDT_HEADMIDDLE, TneckSweater); + setunitdata(.@npcId, UDT_HEADTOP, NPCEyes); + setunitdata(.@npcId, UDT_HAIRSTYLE, 12); + setunitdata(.@npcId, UDT_HAIRCOLOR, 14); + + .sex = G_OTHER; + .distance = 5; + end; +} + -- cgit v1.2.3-60-g2f50