summaryrefslogtreecommitdiff
path: root/npc/001-1/calypsan.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/001-1/calypsan.txt')
-rw-r--r--npc/001-1/calypsan.txt105
1 files changed, 105 insertions, 0 deletions
diff --git a/npc/001-1/calypsan.txt b/npc/001-1/calypsan.txt
new file mode 100644
index 000000000..7f3d6a0ae
--- /dev/null
+++ b/npc/001-1/calypsan.txt
@@ -0,0 +1,105 @@
+// Evol scripts.
+// Author:
+// Reid
+// Description:
+// Dye seller, she sells and explain how works dye cards.
+// Version:
+// 2016.019 "Under Construction".
+// Variables:
+// ArtisQuests_Fexil
+// Quest states:
+// 0 -- not started
+// 1 -- Lloyd warned about the quest
+// 2 -- Fexil explain what he needs
+// 3 -- Fexil buy every fur that the pc bring to him
+
+001-1,47,126,0 script Calypsan#001-1 NPC_CALYPSAN,{
+
+ function explain_dyes {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Look at your equipment, can you guess what material it is made from?"),
+ l("Seek a colorant for that material:"),
+ l("Cotton, cashmere, leather, ..."),
+ l("Zinc-Titanium Oxide, Phthalocyanides, Cadmiums, Lazulite..."),
+ l("Colorant is not the yeying color. Some wear out from light, others look great but inflict itai-itai, and others become spotty or wash-away."),
+ l("What yoiis should know:"),
+ l("1: The type of item yoiis want to dye."),
+ l("2: What material it is made from."),
+ l("3: Which colorants can dye it."),
+ l("4: How many cards your item can contain."),
+ l("Exemple for yoiis:"),
+ l("Take an @@ and a @@, yeye obtains a @@.", getitemlink(ArtisTankTop), getitemlink(RedCottonDye), getitemlink(ArtisTankTop, RedCottonDye)),
+ l("If yoiis wants to see a different use for the cards he can yeye for Resa at the light armor shop for a description of the styling cards.");
+ }
+
+ function sell_dye {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("For what kind of tissue?");
+ .@tissue_type = select(l("Cotton"), l("Cashmere"));
+
+ closedialog;
+ switch (.@tissue_type)
+ {
+ case 1:
+ shop "Cotton#Dye001-1";
+ break;
+ case 2:
+ shop "Cashmere#Dye001-1";
+ break;
+ default:
+ debugmes "Calypsan script error, tissue_type is incorrect";
+ break;
+ }
+ close;
+ }
+
+ speech S_LAST_NEXT,
+ l("Yoiis envies a rainbow in the sky?"),
+ l("It is possible to yeye your cloth with my beautiful dyes."),
+ l("What does yoiis want today?");
+
+ .@fexil = getq(ArtisQuests_Fexil);
+
+ do
+ {
+ select
+ rif(.@fexil == 1, l("Have you seen Fexil?")),
+ menuaction(l("Trade")),
+ l("How do these dyes work?"),
+ l("I want to make my own dyes."),
+ menuaction(l("Quit"));
+
+ switch (@menu)
+ {
+ case 1:
+ setcamnpc "Fexil#001-1";
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Oh yeye did, his store is just beside me!"),
+ l("Yoiis should look there.");
+ restorecam;
+
+ break;
+ case 2:
+ sell_dye;
+ close;
+
+ case 3:
+ explain_dyes;
+ break;
+ case 4:
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Yoiis is not yet ready to make his own dyes."),
+ l("But in the future I might be able to help you create some of your own.");
+ break;
+ }
+ } while (@menu != 5);
+
+ closedialog;
+ goodbye;
+ close;
+
+OnInit:
+ .sex = G_FEMALE;
+ .distance = 3;
+ end;
+}
+