Quest: Iscar's writing pen.

git-svn-id: svn://svn.code.sf.net/p/crossfire/code/maps/trunk@18345 282e977c-c81d-0410-88c4-b93c2d0d6712

marksel/hasphatois.anim

@@ -0,0 +1,20 @@
+[Config]
+victimtype= object
+victim= who
+unique= no
+always_delete= no
+time_representation= second
+#animation=MakePotion
+[special_pen]
+1 moveto 7 2
+2 stop
+0 message Hasphatois makes the fire hotter.
+3 stop
+0 message Hasphatois puts the graphite in the forge.
+2 stop
+0 message Blue smoke erupts from the forge.
+1 stop
+1 moveto 10 5
+1 stop
+0 trigger 1
+0 say Here you go.

marksel/hasphatois.msg

@@ -0,0 +1,36 @@
+{
+  "rules": [
+  {
+  "match" : ["graphite"],
+  "pre" : [["quest", "navar/Iscar-pen", "=30"], ["item", "lump of graphite"]],
+  "post" : [["animate", "/marksel/hasphatois.anim", "special_pen"], ["takeitem", "lump of graphite"]],
+  "msg" : ["Ok, guess I'll make my special pen, then. Please wait a few seconds."]
+  }, {
+  "match" : ["graphite"],
+  "pre" : [["quest", "navar/Iscar-pen", "=30"]],
+  "post" : [],
+  "msg" : ["Really? Then I'd like to see it."]
+  }, {
+  "match" : ["*"],
+  "pre" : [["quest", "navar/Iscar-pen", "=30"]],
+  "post" : [],
+  "msg" : ["Sorry,I'm too busy, I can't help you now."],
+  "replies" : [["graphite", "I've some graphite.", "0"]]
+  }, {
+  "match" : ["pen"],
+  "pre" : [["quest", "navar/Iscar-pen", "=10"]],
+  "post" : [["quest", "navar/Iscar-pen", "20"]],
+  "msg" : ["Ha yes. Well, you need to find some graphite so I can make one.\n\nI think Pikorne the Dwarf, in the mines just west of the town, can give you some."]
+  }, {
+  "match" : ["*"],
+  "pre" : [["quest", "navar/Iscar-pen", "=10"]],
+  "post" : [],
+  "msg" : ["Sorry, I'm too busy to help you."],
+  "replies" : [["pen", "I've been told you make special writing pens, I'd need one, please.", "0"]]
+  }, {
+  "match" : ["*"],
+  "pre" : [],
+  "post" : [],
+  "msg" : ["Sorry, I'm too busy to help you."]
+  }
+]}

marksel/mines

@@ -9,7 +9,7 @@ enter_x 13
 enter_y 18
 msg
 Created:  2002-12-20 Joel Southall
-Modified: 2012-03-14 Rick Tanner
+Modified: 2012-07-08 Nicolas Weeger
 endmsg
 end
 arch cave_15
@@ -234,7 +234,7 @@ x 2
 y 11
 end
 arch guildmaster
-name dwarf
+name Pikorme
 msg
 @match *
 *grumble*  Why'd I have to get this worthless shaft, while my brother finds gold in abundance.  How, by the beard of my father, am I going to move this blasted rock!?
@@ -250,6 +250,22 @@ arch shovel_1
 end
 arch lantern2_1
 end
+arch npc_dialog
+name /marksel/pikorme.msg
+end
+arch NPCGift
+name ore
+arch uf6pile
+name lump
+name_pl lumps
+title of graphite
+value 0
+identified 1
+arch quest_prevent_drop
+name navar/Iscar-pen 40
+end
+end
+end
 end
 arch medium_stones
 x 2

marksel/pikorme.msg

@@ -0,0 +1,26 @@
+{
+  "rules": [
+  {
+  "match" : ["ok"],
+  "pre" : [["quest", "navar/Iscar-pen", "=20"], ["npctoken", "st", "buy"], ["item", "money", "1250"]],
+  "post" : [["setnpctoken", "st", "0"], ["takeitem", "money", "1250"], ["givecontents", "ore"], ["quest", "navar/Iscar-pen", "30"]],
+  "msg" : ["Ok, here you go."]
+  }, {
+  "match" : ["ok"],
+  "pre" : [["quest", "navar/Iscar-pen", "=20"], ["npctoken", "st", "buy"]],
+  "post" : [["setnpctoken", "st", "0"]],
+  "msg" : ["Sorry, but you give me the money first, then you get the lump."]
+  }, {
+  "match" : ["graphite"],
+  "pre" : [["quest", "navar/Iscar-pen", "=20"], ["npctoken", "st", "hi"]],
+  "post" : [["setnpctoken", "st", "buy"]],
+  "msg" : ["Well yes, it'll cost you 25 platinum coins for one lump of it."],
+  "replies" : [["ok", "Ok, I'll get one lump, please.", "1"], ["no", "I'll pass, thanks.", "0"]]
+  }, {
+  "match" : ["*"],
+  "pre" : [["quest", "navar/Iscar-pen", "=20"]],
+  "post" : [["setnpctoken", "st", "hi"]],
+  "msg" : ["*grumble*  Why'd I have to get this worthless shaft, while my brother finds gold in abundance.  How, by the beard of my father, am I going to move this blasted rock!?"],
+  "replies" : [["graphite", "I've heard you can find me graphite?", "2"]]
+  }
+]}

navar_city/iscar

@@ -8,7 +8,7 @@ enter_x 2
 enter_y 9
 msg
 Created:  2008-02-09 Nicolas Weeger
-Modified: 2012-02-14 Rick Tanner
+Modified: 2012-07-08 Nicolas Weeger
 endmsg
 end
 arch whiteslate
@@ -237,6 +237,20 @@ endmsg
 x 3
 y 5
 speed 0.1
+arch npc_dialog
+name /navar_city/iscar.msg
+end
+arch NPCGift
+name reward
+arch card
+name Iscar's autograph
+msg
+The signature is complex, but you manage to read "from Iscar, to his great fan".
+endmsg
+value 0
+identified 1
+end
+end
 end
 arch whiteslate
 x 3

navar_city/iscar.msg

@@ -0,0 +1,58 @@
+{
+  "rules": [
+  {
+  "match" : ["*"],
+  "pre" : [["quest", "navar/Iscar-pen", "=50"]],
+  "post" : [],
+  "msg" : ["Hello $you, how are you doing?"]
+  }, {
+  "match" : ["yes"],
+  "pre" : [["quest", "navar/Iscar-pen", "10-40"], ["item", "Hasphatois's Writing Pen"], ["npctoken", "status", "has"]],
+  "post" : [["quest", "navar/Iscar-pen", "50"], ["takeitem", "Hasphatois's Writing Pen"], ["givecontents", "reward"]],
+  "msg" : ["Thank you very much!\n\nHere, take this autograph. There are MANY people who'd like one, you know."]
+  }, {
+  "match" : ["yes"],
+  "pre" : [["quest", "navar/Iscar-pen", "10-40"], ["npctoken", "status", "has"]],
+  "post" : [["setnpctoken", "status", "0"]],
+  "msg" : ["Where is it?"]
+  }, {
+  "match" : ["*"],
+  "pre" : [["quest", "navar/Iscar-pen", "10-40"], ["npctoken", "status", "has"]],
+  "post" : [["setnpctoken", "status", "0"]],
+  "msg" : ["*sigh*"]
+  }, {
+  "match" : ["*"],
+  "pre" : [["quest", "navar/Iscar-pen", "10-40"]],
+  "post" : [["setnpctoken", "status", "has"]],
+  "msg" : ["So, did you get a pen from Hasphatois?"],
+  "replies" : [["yes", "Yes, I do.", "1"], ["no", "No, not yet.", "0"]]
+  }, {
+  "match" : ["ok"],
+  "pre" : [["npctoken", "st", "ask"]],
+  "post" : [["quest", "navar/Iscar-pen", "10"]],
+  "msg" : ["Thank you very much!\n\nHasphatois lives in the mining town north of Navar, you can't miss it if you follow the road."]
+  }, {
+  "match" : ["*"],
+  "pre" : [["npctoken", "st", "ask"]],
+  "post" : [["setnpctoken", "st", "0"]],
+  "msg" : ["Well, ok, if you change your mind...\n\n*sigh*"]
+  }, {
+  "match" : ["brand"],
+  "pre" : [["npctoken", "st", "br"]],
+  "post" : [["setnpctoken", "st", "ask"]],
+  "msg" : ["A pen made with graphite and by Hasphatois the smith.\n\nSay, you wouldn't get one for me, do you? I'd give you a great reward!"],
+  "replies" : [["ok", "I guess I can help, yes.", "1"], ["no", "No, sorry, I don't have time for now.", "0"]]
+  }, {
+  "match" : ["why"],
+  "pre" : [["npctoken", "st", "why"]],
+  "post" : [["setnpctoken", "st", "br"]],
+  "msg" : ["I write novels for children.\n\nBut I lost my pen, and I can't write anymore!\n\nWell, I doubt you'd have a decent writing pen anymore, I need some specific brand.\n\n*sigh*"],
+  "replies" : [["brand", "What kind of pen, exactly?", "1"]]
+  }, {
+  "match" : ["*"],
+  "pre" : [],
+  "post" : [["setnpctoken", "st", "why"]],
+  "msg" : ["Hello.\n\nYou wouldn't have a pen, by any chance?"],
+  "replies" : [["why", "Why do you need a pen?", "1"]]
+  }
+]}

navar_city/navar_city.quests

@@ -173,3 +173,37 @@ end_description
 end_step
 end_quest
 
+quest navar/Iscar-pen
+title The writing pen
+face stylus.111
+description
+Iscar, a writer, lost his writing pen and needs a replacement.
+end_description
+step 10
+description
+I have to get a pen from Hasphatois, a smith in the mining town north of Navar, easy to find if I follow the road.
+end_description
+end_step
+step 20
+description
+Hasphatois asks for some graphite, which I can get from Pikorme who is in the mines on the west of the town.
+end_description
+end_step
+step 30
+description
+I found some graphite, I can talk to Hasphatois again.
+end_description
+end_step
+step 40
+description
+I have Iscar's pen, I should bring it back.
+end_description
+end_step
+step 50
+finishes_quest
+description
+Iscar can again write his novel, he's happy.
+end_description
+end_step
+end_quest
+

world/world_120_109

@@ -4,7 +4,7 @@ region marksel
 width 50
 height 50
 msg
-Modified: 2012-06-16 Rick Tanner
+Modified: 2012-07-08 Nicolas Weeger
 endmsg
 outdoor 1
 tile_path_1 world_120_108
@@ -11369,6 +11369,10 @@ y 48
 elevation 2768
 end
 arch woodhouse
+name smith
+slaying /marksel/shops/smith
+hp 7
+sp 13
 x 43
 y 48
 end