#%term;

# Namensverzeichnis und Locations zu den Namen
# diese in vars festlegen und jene dann in listen einfügen
#weil. direkte auf villager zugreif ist leichter mit var. aber zufällige ausgabe (zufallsereignisse) sind mit listen einfacher. daher beide systeme.
#einige bewohner haben deshalb berufe, um regionsübergreifende quests mit unterschiedlichen namen, die übers reg-script gesetzt werden, zu ermöglichen

#Berufe
%setVar no-join true;
%setVar bauer Johann;
%setVar bauerloc rpg:-17:66:19;
%setVar kapitän Alfried;
%setvar kapitänloc rpg:-97:64:-9;

#Bewohner
%setVar bewohner1 Hauke;
%setVar bewohnerloc1 rpg:-71:80:4;
%setVar bewohner2 Frieda;
%setVar bewohnerloc2 rpg:-10:70:12;
%setVar bewohner3 Amalia;
%setVar bewohnerloc3 rpg:-8:66:10;

#Einwohner
%addList einwohner;
%addListElement einwohner $bauer;
%addListElement einwohner $kapitän;
%addListElement einwohner $bewohner1;
%addListElement einwohner $bewohner2;
%addListElement einwohner $bewohner3;

%addList einwohnerloc;
%addListElement einwohnerloc $bauerloc;
%addListElement einwohnerloc $kapitänloc;
%addListElement einwohnerloc $bewohnerloc1;
%addListElement einwohnerloc $bewohnerloc2;
%addListElement einwohnerloc $bewohnerloc3;

@startstory
%if %getGlobalVar $player-name storystarted; == true goto bauer;
%givequest insel1/insel1_bauer_wheat;

%if $entity-name == $bauer goto bauer;
%if $entity-name == $kapitän goto kapitän;
%if $entity-name == $bewohner1 goto bewohner1;
%if $entity-name == $bewohner2 goto bewohner2;
%if $entity-name == $bewohner3 goto bewohner3;
%goto noquest;

@bauer
%addList bauerquests;
%if %getGlobalVar $player-name insel1_bauer_hoe; == true goto next1;
%addListElement bauerquests insel1/insel1_bauer_hoe;
@next1
%if $player-hunger <= 10 && %getItemAmountPlayer $player-name BREAD; < 3 goto givefood;
%goto next2;
@givefood
%addListElement bauerquests insel1/givefood;
@next2
%if %getListSize bauerquests; == 0 goto noquest;
%setVar nextquest %getListElementAt bauerquests %random 0 %sub %getListSize bauerquests; 1;;;;
%givequest $nextquest;
%goto noquest;

@kapitän
%addList kapitänquests;
%if %getGlobalVar $player-name insel1_bauer_wheat; == true goto knext1;
%addListElement kapitänquests insel1/insel1_bauer_wheat;
@knext1
%if %getListSize kapitänquests; == 0 goto noquest;
%setVar nextquest %getListElementAt kapitänquests %random 0 %sub %getListSize kapitänquests; 1;;;;
%givequest $nextquest;
%goto noquest;

@bewohner1
#quests
%goto noquest;

@bewohner2
#quests
%goto noquest;

@bewohner3
#quests
%goto noquest;

@noquest
%speak $player-name §6$entity-name §eTut mir leid, ich habe momentan keine Quest für dich. Gib "%percent;quest" in den Chat ein, um zu sehen, bei wem du noch Quests bekommen kannst.;
%term;