%setVar safe marvinius;

@checker
%playersToList online;
%if %getListSize online; == 0 goto wait;
%setVar i 0;
@checklabel
%if %getListElementAt online $i; == marvinius goto jump;
%if %distance %getPlayerLoc $safe; %getPlayerLoc %getListElementAt online $i;;; < 8 goto throw;
@jump
%setVar i %add $i 1;;
%if $i < %getListSize online; goto checklabel;
%goto wait;

@throw
%setVar throw %getListElementAt online $i;;
%setVar safex %coords %getPlayerLoc $safe; x;;
%setVar safey %coords %getPlayerLoc $safe; z;;
%setVar throwx %coords %getPlayerLoc $safe; x;;
%setVar throwy %coords %getPlayerLoc $safe; z;;
%msg marvinius $safex;
%msg marvinius $safey;
%msg marvinius $throwx;
%msg marvinius $throwy;
%if $safex <= $throwx && $safey <= $throwy goto throw1;
%if $safex >= $throwx && $safey >= $throwy goto throw2;
%if $safex <= $throwx && $safey >= $throwy goto throw3;
%if $safex >= $throwx && $safey <= $throwy goto throw4;
%goto wait;

@throw1
%msg all throw1;
%throwEntity %getPlayerID $throw; 2 0 2;
%goto wait;

@throw2
%msg all throw2;
%throwEntity %getPlayerID $throw; -2 0 -2;
%goto wait;

@throw3
%msg all throw3;
%throwEntity %getPlayerID $throw; 2 0 -2;
%goto wait;

@throw4
%msg all throw4;
%throwEntity %getPlayerID $throw; -2 0 2;
%goto wait;

@wait
%msg all wait;
%sgoto 15 checker;
%wait;
%if $event == player-leave && $player-name == $safe goto term;
%goto wait;

@term
%msg marvinius term;
%term;