%if %distance $entity-loc $farmerloc; <= 4 goto start;
%q term;

@start
%msg all Hallo Fremder, ich möchte meinen Weizen noch vor dem Unwetter einholen. Bitte hilf mir dabei und gehe zum Weizenfeld, ernte das Getreide und übergebe mir schließlich 8 Stück Weizen!;
%setInfo Ernte acht Weizen und und gib ihn dem Bauern.

%loadEvent block-break;
%setVar wheatsgiven 0;
%setVar no-join true;
%setVar playerwheat1 %getItemAmountPlayer $player-name WHEAT:0:1;

@wait1
%wait
%if $event == block-break && $block-type == CROPS && $block-data == 7 goto harvest;
%goto wait1;

@harvest
%setVar cancel false;
%setVar playerwheat2 %getItemAmountPlayer $player-name WHEAT:0:1;
%if %sub $playerwheat2 $playerwheat1; >= 8 goto label;
%goto wait1;

@label
%loadEvent villager-give;
%unloadEvent block-break;

@wait2
%wait;
%if $event == villager-give && $item-type == WHEAT goto checkloc;
%setVar cancel true;
%msg all Was soll ich damit?;
%goto wait2;

@checkloc
%if %distance $villager-loc $farmerloc; <= 4 goto give;
%setVar cancel true;
%msg all Tut mir leid, ich bin nicht der Bauer.;
%goto wait2;

@give
%setVar wheatsgiven %add $wheatsgiven $item-amount;;
%if $wheatsgiven >= 8 goto endQuest;
%msg all Ich brauche noch %sub 8 $wheatsgiven; Weizen.;
%goto wait2;

@endQuest
%msg all Danke für deine Hilfe.;
%endQuest 2;