e_janiel_as:
  type: assignment
  actions:
    on assignment:
    - trigger name:click state:true
    - trigger name:chat state:true radius:8
    - trigger name:proximity state:true radius:7
  interact scripts:
  - 10 e_janiel_in

e_janiel_in:
  default constants:
    1: Lärm, wovon redest du ?
    2: Wir können doch alles in Ruhe besprechen.
    3: Auf Wiedersehen.
    4: <&4>Deine Gespenster sind mir egal, jetzt gibts was aufs Maul.
    5: Ich bin gerade eben erst hier angekommen.
    6: Die Freude ganz meinerseits, was machst du hier draußen ?
    7: Du warst eben ziemlich angespannt. Wo liegt das Problem ?
    8: Kannst du mir etwas über die Kreaturen sagen ?
    9: Okay. Ich werde mich um sie kümmern.
    10: Ich denke darüber nach.
    11: Und ? Gibt es hier etwas zu hohlen ?
    12: Was spricht dagegen dort mal nach dem rechten zu sehen ?
    13: Wo soll ich nochmal gleich hin ?
    14: Um die Geräusche brauchst du dir keine Sorgen mehr machen.
    15: Lass uns tauschen.
    16: Das Tor scheint wohl nicht mehr zu funktionieren ?
    17: Kann man das Tor wieder funktionsfähig machen ?
    18: <&o>*Bauplan entgegen nehmen*
    19: Das Tor funktioniert wieder.
    20: Nunja... ?
    21: Ich habe die Untoten aber erledigt.
    22: Ich habe mich um das Klappern gekümmert.
  type: interact
  steps:
    1:
      proximity trigger:
        entry:
          script:
          - ^if !<player.has_flag[<proc[e-id]>]> {
            - ^flag player "<proc[e-id]>:|:1|2"
            - ^flag player erpg_set_walkspeed:<player.walk_speed>
            - ^flag player quit_channel:->:erpg_set_walkspeed
            - ^adjust <player> walk_speed:0
            - ^showfake BARRIER <pl.location.add[l@0,2,0]> duration:120s
            - ^look <player> <npc.eye_location>
            - ^light <npc.location> 15
            #
            - chat "Stop! Keinen Schritt weiter, oder du bist dran."
            - wait 1
            - chat "Moment mal ... du siehst mir gar nicht aus wie einer von denen."
            - wait 2
            - chat "Aber wer weiß ?"
            - wait 1
            - chat "Na los! Sag schon, bist du für den Lärm mit verantwortlich ?"
            - wait 1
            #
            - ^inject locally loader
            }
      click trigger:
        script:
        - ^if <player.has_flag[<npc>_engaged]> { - queue clear }
        - ^if <player.has_flag[start_janiel_gate]>
          && !<player.has_flag[compl_janiel_gate]>
          && <player.flag[<proc[e-id]>].contains[15]>
          && <player.flag[start_janiel_gate].get[1]> == true {
          - flag player start_janiel_gate[1]:talk
          - flag player "<proc[e-id]>:|:16"
          }
        - ^random 2
        - ^chat "Oh, du bist schon wieder da?"
        - ^chat "Schon zurück ?"
        - ^inject locally loader
      chat trigger:
        1:
          trigger: /regex:.+/
          script:
          - ^if <player.has_flag[<npc>_engaged]> { - queue clear }
          - ^if <context.message> !matches number { - narrate "<&6>Du musst eine Zahl nennen." - queue clear }
          - ^if <context.message> < 1 || <context.message> > <player.flag[<proc[e-id]>].size||0> { - narrate "<&6>Die Zahl ist ungültig!" - queue clear }
          - ^flag player <npc>_engaged
          - inject locally <player.flag[<proc[e-id]>].get[<context.message>]>_effect
          - ^if <def[queue]||x> != clear { - ^inject locally loader }
          - flag player <npc>_engaged:!

  loader:
  - foreach <player.flag[<proc[e-id]>].as_list> {
    - narrate "<def[loop_index]>. <&a><script.constant[<def[value]>]>"
    }
  1_effect:
  - chat "Na dieses schreckliche Geschrei. Es hört sich grausam an."
  - wait 2
  - chat "Also ?"
  - wait 1
  - chat "Bist du dafür verantwortlich ?"
  - flag player "<proc[e-id]>:<-:1"
  - flag player "<proc[e-id]>:|:5"
  2_effect:
  - chat "Was wir hier in Ruhe besprechen und was nicht, entscheide immernoch ich."
  - wait 2
  - chat "Sag schon."
  - wait 1
  - chat "Bist du dafür verantwortlich ?"
  - flag player "<proc[e-id]>:<-:2"
  3_effect:
  - chat "Auf Wiedersehen."
  - define queue clear
  5_effect:
  - chat "Mhmm... du hast damit also nichts zu tun ?"
  - wait 2
  - chat "Na gut. Ich glaube dir."
  #
  - ^showfake cancel <pl.location.add[l@0,2,0]>
  - ^light <npc.location> reset
  - ^adjust <player> walk_speed:<player.flag[erpg_set_walkspeed]||<player.walk_speed>>
  - ^showfake <pl.location.add[l@0,2,0]> cancel
  - ^flag player erpg_set_walkspeed:!
  - ^flag player quit_channel:<-:erpg_set_walkspeed
            #
  - chat "Ein Glück, dass ich hier draußen mal jemand vernüftigen treffe."
  - wait 2
  - chat "Tut mir leid für die Verdächtigungen, aber irgendetwas seltsames geht hier vor."
  - wait 3
  - chat "Ich darf mich vorstellen, Janiel."
  - ^flag player "<proc[e-id]>:|:3|6"
  - ^flag player "<proc[e-id]>:<-:1"
  - ^flag player "<proc[e-id]>:<-:2"
  - flag player "<proc[e-id]>:<-:5"
  6_effect:
  - chat "Naja, ich wollte schauen ob es hier was zu holen gibt."
  - wait 2
  - chat "Die anderen haben zwar immer gesagt, dass es zu gefährlich sei, aber hey."
  - wait 3
  - chat "Woher soll das man das wissen, wenn man sich nicht selbst überzeugt ?"
  - ^flag player "<proc[e-id]>:<-:6"
  - flag player "<proc[e-id]>:|:7|11"
  7_effect:
  - chat "Nicht weit von hier , etwas den Berg herunter liegt eine Höhle."
  - wait 2
  - chat "Einige komische Kreaturen scheinen sich dort eingenistet zu haben."
  - wait 3
  - chat "Ich müsste verrückt sein mich mit denen anzulegen, das ist nicht meins."
  - ^flag player "<proc[e-id]>:<-:7"
  - flag player "<proc[e-id]>:|:8"
  8_effect:
  - chat "Tagsüber scheinen sie sich in der Höhle aufzuhalten."
  - wait 2
  - chat "Nachts allerdings konnte ich schon einige ihrer Schatten vor dem Höhleneingang erkennen."
  - wait 3
  - chat "Ich weiß ja nicht wie gut du kämpfen kannst."
  - wait 2
  - chat "Aber, vielleicht bist du in der Lage sie zu erledigen ?"
  - wait 2
  - chat "Möchtest du dich der Sache annehmen ?"
  - ^flag player "<proc[e-id]>:<-:8"
  - flag player "<proc[e-id]>:|:9|10"
  9_effect:
  - chat "Alles klar. Ich hoffe du übernimmst dich nicht und kommst auch noch mal zurück."
  - wait 3
  - chat "Ich werde hier oben bleiben und mich noch etwas umsehen."
  - ^flag player "<proc[e-id]>:<-:9"
  - ^flag player "<proc[e-id]>:<-:10"
  - ^if <player.flag[start_janiel_undead]||0> >= 10 {
    - flag player "<proc[e-id]>:|:14"
    - define queue run
    } else {
    - ^flag player "<proc[e-id]>:|:13"
    - ^run s@message_flag "def:<s@e_questlog.constant[start_janiel_undead]>|start_janiel_undead|<player.flag[start_janiel_undead]||0>"
    - ^define queue clear
    }
  10_effect:
  - chat "Kein Problem, du musst das nicht jetzt entscheiden."
  - wait 2
  - chat "Ich bleibe noch etwas hier, lass dir Zeit."
  - define queue clear
  11_effect:
  - chat "Eine große Kammer voller Gold gibt es hier wohl kaum."
  - wait 2
  - chat "Der ein oder andere brauchbare Gegenstand lässt sich hier vielleicht finden."
  - wait 3
  - chat "Den Weg hinunter , dann nach rechts habe ich weitere Ruine gesehen."
  - wait 2
  - chat "Allerdings würde Ich dort nicht hingehen."
  - ^flag player "<proc[e-id]>:<-:11"
  - flag player "<proc[e-id]>:|:12"
  - flag player "<proc[e-id]>:|:15"
  12_effect:
  - chat "Dort haben sich einige üble, schwarze Kreaturen aufgehalten."
  - wait 2
  - chat "Die sahen wirklich gefährlich aus."
  - wait 2
  - chat "Einen von uns erledigen die mit Leichtigkeit."
  - wait 2
  - chat "Wenn du noch etwas leben möchtest, halte dich da besser fern."
  - flag player "<proc[e-id]>:<-:12"
  13_effect:
  - chat "Zur Höhle, sie liegt unterhalb der Ruine hier."
  - wait 2
  - chat "Ich werde hier solange auf dich warten."
  14_effect:
  - run s@qu_complete "def:start_janiel_undead"
  - chat "Soso. Du hast dich drum gekümmert ?"
  - wait 2
  - chat "Nun gut. Ich habe mich in der Zeit hier etwas umgesehen."
  - wait 2
  - chat "Ich konnte dieses Schwert finden."
  - wait 2
  - chat "Es soll dir gehören, für deinen Einsatz."
  - ^inject <s@e_questlog> path:reward_janiel_undead instantly
  - ^if !<player.has_flag[start_janiel_skeleton]> && !<player.has_flag[compl_janiel_skeleton]> {
    - wait 2
    - chat "Allerdings nunja..."
    - wait 2
    - ^flag player "<proc[e-id]>:|:20
    }
  - ^flag player "<proc[e-id]>:<-:14
  15_effect:
  - ^chat "Na dann zeig mal her, was du so dabei hast."
  - ^inject s@sp_interact_handler path:npc_binding_inject instantly
  - define queue clear
  16_effect:
  - chat "Korrekt. Es ist soweit eigentlich noch gut in Schuss,"
  - wait 3
  - chat "allerdings irgendetwas blockiert es."
  - wait 2
  - chat "Mit einem funktionierendem Tor wäre es hier viel sicherer."
  - ^flag player "<proc[e-id]>:<-:16"
  - flag player "<proc[e-id]>:|:17"
  17_effect:
  - chat "Eventuell ?"
  - wait 1
  - chat "Wenn du es herausfinden möchtest, solltest du dich"
  - wait 3
  - chat "nach Knöpfen, Schaltern oder solchen Sachen hier umsehen,"
  - wait 3
  - chat "Ich habe das Gefühl, es gibt hier einen Mechanismus."
  - wait 3
  - chat "Diesen alten Bauplan habe ich hier gefunden."
  - ^if <proc[invspace]> >= 1 {
    - give i@e_janiel_blueprint
    - run s@message_note "def: Bauplan erhalten"
    } else {
    - run s@message_note "def: Du hast NICHT genug Platz um den Bauplan entgegen zu nehmen"
    - flag player "<proc[e-id]>:|:18"
    }
  - wait 2
  - chat "Vielleicht nützt er dir etwas ?"
  - wait 2
  - chat "Melde dich, falls du das Tor funktionsfähig kriegst."
  - ^flag player "<proc[e-id]>:<-:17"
  18_effect:
  - ^if <proc[invspace]> >= 1 {
    - give i@e_janiel_blueprint
    - run s@message_note "def: Bauplan erhalten"
    - ^flag player "<proc[e-id]>:<-:18"
    } else {
    - run s@message_note "def: Du hast NICHT genug Platz um den Bauplan entgegen zu nehmen"
    }
  19_effect:
  - chat "Du hast es also hinbekommen ?"
  - wait 2
  - chat "Nicht schlecht."
  - wait 2
  - chat "Du musst ganz ausgehungert sein."
  - wait 2
  - chat "Hier, nimm eine ordentliche Portion."
  - wait 1
  - ^run s@qu_complete "def:start_janiel_gate"
  - inject <s@e_questlog> path:reward_janiel_gate 
  - ^flag player "<proc[e-id]>:<-:19"
  20_effect:
  - chat "Es wurde ruhig. Deutlich ruhiger, keine Frage."
  - wait 2
  - chat "Aber ... irgendwas ist da noch!"
  - ^flag player "<proc[e-id]>:<-:20"
  - ^flag player "<proc[e-id]>:|:21"
  21_effect:
  - chat "Vielleicht habe ich mich falsch ausgedrückt."
  - wait 2
  - chat "Ich stelle deinen Erfolg nicht in Frage, ich meine keine Untoten, ... "
  - wait 3
  - chat "etwas ist ... "
  - wait 1
  - chat "hier in der Ruine... "
  - wait 2
  - chat "... ein leises klappern. Hörst du es ?"
  - wait 1
  - run s@message_flag "def:<s@e_questlog.constant[start_janiel_skeleton]>|start_janiel_skeleton|<player.flag[start_janiel_skeleton]||0>"
  - define queue clear
  - ^flag player "<proc[e-id]>:<-:21"
  22_effect:
  - chat "Nicht schlecht ... du hast echt was drauf."
  - wait 2
  - chat "Ich habe einen Kettenhelm gefunden, zwar nicht mehr ganz neu ,"
  - wait 2
  - chat "aber besser als nichts. Er soll dir gehören."
  - wait 2
  - chat "Für alles weitere, Ich werde wohl noch etwas hier bleiben."
  - wait 2
  - define queue clear
  - ^flag player "<proc[e-id]>:<-:22"
  - ^run s@qu_complete "def:start_janiel_skeleton"
  - inject <s@e_questlog> path:reward_janiel_skeleton instantly