// creator  : DLTCEP_enhanced_WeiDU (version 24000)
// argument : 25SPELL.DLG
// game     : .
// source   : ./DATA/TB#GEN0.BIF
// dialog   : c:\jeux\black isle\diamant gog\dialog.tlk
// dialogF  : .\dialogF.tlk

BEGIN ~25SPELL~
//////////////////////////////////////////////////
// WARNING: this file contains non-trivial WEIGHTs
//////////////////////////////////////////////////

IF WEIGHT #4 /* Triggers after states #: 5 11 13 22 even though they appear after this state */
~AreaCheck("AR5011")
~ THEN BEGIN 0 // from:
  SAY #70769 /* ~Lazarus Librarus à votre service. Bienvenue aux Archives des Arcanes.~ */
  IF ~Global("lazarus","GLOBAL",3)~ THEN GOTO 1
  IF ~Global("lazarus","GLOBAL",0)~ THEN GOTO 8
END

IF ~~ THEN BEGIN 1 // from: 7.0 5.0 4.0 0.0
  SAY #70770 /* ~Peut-être ai-je quelque chose qui pourrait vous intéresser ? J'ai une collection de parchemins pour laquelle les magiciens sont prêts à s'entretuer !~ */
  IF ~~ THEN REPLY #70771 /* ~Montrez-moi ce que vous avez.~ */ GOTO 2
  IF ~~ THEN REPLY #70772 /* ~Je voudrais vous poser quelques questions sur cette ville.~ */ GOTO 4
  IF ~~ THEN REPLY #70774 /* ~Non merci, je dois y aller.~ */ GOTO 3
  IF ~Global("YagaShuraHeart","GLOBAL",4)~ THEN REPLY #70778 /* ~Eh ! Ce n'est pas vous qui vendiez des parchemins à Saradush ?~ */ GOTO 6
END

IF ~~ THEN BEGIN 2 // from: 17.0 1.0
  SAY #70773 /* ~Consultez librement ma grande collection de parchemins enchantés, je vous en prie ! Si quelque chose vous intéresse, je suis sûr que nous pourrons parvenir à un accord qui nous soit bénéfique à tous les deux...~ */
  IF ~~ THEN DO ~StartStore("25Spell",LastTalkedToBy)~ EXIT
END

IF ~~ THEN BEGIN 3 // from: 14.1 1.2
  SAY #70775 /* ~Si vous changez d'avis, vous savez où me trouver.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 4 // from: 1.1
  SAY #70776 /* ~Je regrette... je ne peux rien faire. Je ne suis arrivé que récemment, et entre le rangement de mes étagères et l'installation de pièges contre les voleurs, je n'ai même pas eu le temps de mettre le nez dehors.~ */
  IF ~~ THEN GOTO 1
END

IF WEIGHT #0 ~AreaCheck("AR5502")
~ THEN BEGIN 5 // from:
  SAY #70777 /* ~Bienvenue aux Archives des Arcanes re-localisées. Lazarus Librarus à votre service !~ */
  IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 6 // from: 1.3
  SAY #70779 /* ~Saradush... j'en garde un très mauvais souvenir. Lorsque cette armée a enfoncé les portes, j'ai sauté sur mes affaires et j'ai pris mes jambes à mon cou. J'ai dû utiliser une partie de mon stock pour m'en sortir vivant et entier.~ */
  IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 7 // from: 6.0
  SAY #70780 /* ~L'armée était tellement occupée à chercher des Enfants de Bhaal à liquider que personne n'a remarqué un invisible marchand qui s'enfuyait à pas de loup. Mais tout cela est du passé, et je recommence à zéro, ici à Amkethran !~ */
  IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 8 // from: 0.1
  SAY #73378 /* ~Je devrais vous inviter à examiner mes marchandises magiques, mais mes étagères sont hélas vides. Je n'ai même pas un parchemin à vous vendre.~ */
  IF ~~ THEN DO ~SetGlobal("lazarus","GLOBAL",1)~ GOTO 13
END

IF ~~ THEN BEGIN 9 // from: 11.0
  SAY #73379 /* ~Au début, je soupçonnais Hectan... il est connu dans toute la ville pour chaparder. Mais après avoir interrogé de nombreux témoins, il semblerait qu'Hectan soit resté toute la nuit dans une taverne, lorsque le vol a eu lieu.~ */
  IF ~~ THEN UNSOLVED_JOURNAL #73486 /* ~Le livre de sorts de Lazarus

Le propriétaire d'une échoppe de parchemins s'est fait voler son livre de sorts. Sans lui, il n'a plus aucune marchandise à vendre. Il soupçonne un certain Hectan, mais Hectan a un solide alibi - il s'est saoulé toute la nuit à l'auberge du coin.~ */ GOTO 10
END

IF ~~ THEN BEGIN 10 // from: 9.0
  SAY #73380 /* ~Je soupçonne toujours Hectan d'être impliqué - je peux voir sa culpabilité sur son visage ! Mais je n'ai aucune preuve. Sans mon livre de sorts, je suis virtuellement impuissant à poursuivre mon activité. Je suis nouveau dans cette ville, et personne d'autre ne peut m'aider.~ */
  IF ~~ THEN REPLY #73396 /* ~As-tu au moins des indices ?~ */ GOTO 15
  IF ~~ THEN REPLY #73397 /* ~Je ferai parler ce Hectan !~ */ GOTO 15
  IF ~~ THEN REPLY #73398 /* ~Je reviendrai quand j'aurai terminé mon enquête.~ */ GOTO 12
END

IF WEIGHT #2 /* Triggers after states #: 22 even though they appear after this state */
~Global("lazarus","GLOBAL",2)
AreaCheck("AR5011")
~ THEN BEGIN 11 // from: 14.0 13.0
  SAY #73381 /* ~Je vous remercie de m'aider à retrouver mon livre de sorts, puissant <CHARNAME>. Puis-je faire quelque chose pour vous aider dans vos investigations ?~ ~Je vous remercie de m'aider à retrouver mon livre de sorts, puissante <CHARNAME>. Puis-je faire quelque chose pour vous aider dans vos investigations ?~ */
  IF ~!Global("hectan","GLOBAL",2)
!PartyHasItem("PLOT18B")~ THEN REPLY #73392 /* ~Que peux-tu me dire au sujet du vol ?~ */ GOTO 9
  IF ~!Global("hectan","GLOBAL",2)
!PartyHasItem("PLOT18B")~ THEN REPLY #73393 /* ~Je reviendrai quand j'aurai terminé mon enquête.~ */ GOTO 12
  IF ~PartyHasItem("PLOT18B")
~ THEN REPLY #73394 /* ~J'ai ton livre de sorts.~ */ GOTO 17
  IF ~Global("hectan","GLOBAL",2)
!Dead("sarthf01")
!PartyHasItem("PLOT18B")~ THEN REPLY #73395 /* ~Hectan a avoué qu'il avait volé ton livre. Il te le rendra en échange d'un parchemin de téléportation qui lui permettra de quitter la ville.~ */ GOTO 18
END

IF ~~ THEN BEGIN 12 // from: 16.1 16.0 11.1 10.2
  SAY #73383 /* ~A votre guise. Faites vite, et que les dieux vous protègent. Sans mon livre de sorts, je ne peux pas réapprovisionner mon échoppe en parchemins.~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #3 /* Triggers after states #: 22 even though they appear after this state */
~Global("lazarus","GLOBAL",1)
AreaCheck("AR5011")
~ THEN BEGIN 13 // from: 8.0
  SAY #73385 /* ~On m'a volé mon livre de sorts ! Sans lui, je ne peux pas fabriquer les puissants parchemins qui emplissent habituellement mon échoppe. S'il vous plaît, puissant <CHARNAME>... c'est un humble sorcier qui implore votre aide !~ ~On m'a volé mon livre de sorts ! Sans lui, je ne peux pas fabriquer les puissants parchemins qui emplissent habituellement mon échoppe. S'il vous plaît, puissante <CHARNAME>... c'est un humble sorcier qui implore votre aide !~ */
  IF ~~ THEN REPLY #73386 /* ~Très bien, je vais t'aider à retrouver ton livre de sorts.~ */ DO ~SetGlobal("lazarus","GLOBAL",2)~ GOTO 11
  IF ~~ THEN REPLY #73387 /* ~Qu'est-ce que j'y gagnerai ?~ */ GOTO 14
  IF ~~ THEN REPLY #73388 /* ~Je n'ai pas de temps à perdre avec tes petits problèmes !~ */ GOTO 14
END

IF ~~ THEN BEGIN 14 // from: 13.2 13.1
  SAY #73389 /* ~Je vous le demande parce que je ne peux me tourner vers personne d'autre. Et si vous retrouvez mon livre de sorts, je pourrai vous fabriquer des parchemins d'un grand pouvoir, <CHARNAME> ! Autant que vous voudrez, n'importe quel sort ! Le tout pour un prix très raisonnable...~ */
  IF ~~ THEN REPLY #73390 /* ~Très bien, je vais t'aider à retrouver ton livre de sorts.~ */ DO ~SetGlobal("lazarus","GLOBAL",2)~ GOTO 11
  IF ~~ THEN REPLY #73391 /* ~Je regrette, ça ne m'intéresse pas.~ */ GOTO 3
END

IF ~~ THEN BEGIN 15 // from: 10.1 10.0
  SAY #73399 /* ~Je n'ai qu'un seul indice, <CHARNAME>... mais il n'accuse pas Hectan. Il y a des empreintes devant ma fenêtre. Des empreintes très petites... beaucoup plus petites que les pieds d'Hectan. Ou de n'importe quel humain, en fait.~ */
  IF ~~ THEN DO ~SetGlobal("MuddyFootprints","GLOBAL",1)
~ GOTO 16
END

IF ~~ THEN BEGIN 16 // from: 15.0
  SAY #73400 /* ~Je regrette de ne pas pouvoir vous en dire plus. Hectan est le plus souvent à l'Arbre à Chopines, si vous voulez l'interroger.~ */
  IF ~~ THEN REPLY #73401 /* ~Je reviendrai quand j'aurai terminé mon enquête.~ */ GOTO 12
  IF ~~ THEN REPLY #73402 /* ~Je crois que je vais aller parler à ce Hectan.~ */ GOTO 12
END

IF ~~ THEN BEGIN 17 // from: 22.0 11.2
  SAY #73403 /* ~Mon livre de sorts ! Merci, messire ! Je vois que la légende de <CHARNAME> n'est pas exagérée ! Je peux enfin fabriquer des parchemins !~ ~Mon livre de sorts ! Merci, madame ! Je vois que la légende de <CHARNAME> n'est pas exagérée ! Je peux enfin fabriquer des parchemins !~ */
  IF ~~ THEN DO ~SetGlobal("lazarus","GLOBAL",3)
SetGlobal("lazarusscroll","GLOBAL",3)
AddXP2DA("PLOT24B")
TakePartyItem("PLOT18B")
EraseJournalEntry(73486)
EraseJournalEntry(73487)
EraseJournalEntry(73488)
EraseJournalEntry(73489)
EraseJournalEntry(73490)~ SOLVED_JOURNAL #73491 /* ~Le livre de sorts de Lazarus.

Maintenant qu'il a retrouvé son livre de sorts, Lazarus peut ouvrir à nouveau sa fabuleuse échoppe de parchemins.~ ~Le livre de sorts de Lazarus.



Maintenant qu'il a retrouvé son livre de sorts, Lazarus peut ouvrir à nouveau sa fabuleuse échoppe de parchemins.~ */ GOTO 2
END

IF ~~ THEN BEGIN 18 // from: 11.3
  SAY #73404 /* ~Je savais que ce voleur était le coupable ! Mais s'il croit qu'un parchemin de téléportation l'aidera à quitter cette ville, il est fou !~ */
  IF ~~ THEN GOTO 19
END

IF ~~ THEN BEGIN 19 // from: 18.0
  SAY #73405 /* ~J'ai bien un parchemin de téléportation, et je l'échangerai volontiers contre mon livre de sorts... mais le parchemin est inutile. Les mages de Yaga Shura ont lancé des sorts puissants pour nous emprisonner ici.~ */
  IF ~~ THEN GOTO 20
END

IF ~~ THEN BEGIN 20 // from: 19.0
  SAY #73406 /* ~Tous ceux qui tenteront de s'enfuir grâce à la magie rebondiront sur des murs invisibles - voilà une fin bien macabre. Mais néanmoins, voici le parchemin que voulait Hectan.~ */
  IF ~~ THEN DO ~GiveItemCreate("PLOT18A",LastTalkedToBy,0,0,0)
~ UNSOLVED_JOURNAL #73488 /* ~Le livre de sorts de Lazarus

Lazarus m'a donné le parchemin de téléportation. Je peux l'échanger à Hectan contre le livre de sorts... mais Lazarus m'a prévenu que quiconque tenterait d'utiliser le parchemin rebondirait sur les barrières magiques qui entourent Saradush - c'est une fin atroce, c'est certain.~ ~Le livre de sorts de Lazarus



Lazarus m'a donné le parchemin de téléportation. Je peux l'échanger à Hectan contre le livre de sorts... mais Lazarus m'a prévenu que quiconque tenterait d'utiliser le parchemin rebondirait sur les barrières magiques qui entourent Saradush - c'est une fin atroce, c'est certain.~ */ GOTO 21
END

IF ~~ THEN BEGIN 21 // from: 22.1 20.0
  SAY #73407 /* ~Je présume que vous avez le choix, <CHARNAME>, de prévenir ou non Hectan des conséquences de l'utilisation du parchemin. Je vous souhaite bonne chance pour retrouver mon livre de sorts.~ */
  IF ~~ THEN DO ~SetGlobal("lazarusscroll","GLOBAL",1)~ EXIT
END

IF WEIGHT #1 ~Global("lazarusscroll","GLOBAL",1)
AreaCheck("AR5011")
~ THEN BEGIN 22 // from:
  SAY #73408 /* ~Avez-vous fait l'échange avec Hectan ? Avez-vous retrouvé mon livre de sorts ?~ */
  IF ~PartyHasItem("PLOT18B")
~ THEN REPLY #73409 /* ~Oui, voilà ton livre de sorts.~ */ DO ~SetGlobal("lazarusscroll","GLOBAL",2)~ GOTO 17
  IF ~!PartyHasItem("PLOT18B")~ THEN REPLY #73410 /* ~Je n'ai pas encore effectué l'échange.~ */ GOTO 21
END