$${
IF(discos);
  UNSET(discos);
  LOG(&2>>>> &fPeixe OFF);
  STOP;
ELSE;
  LOG(&2>>>> &fPeixe ON);
  SET(discos);
ENDIF;

DO;
  DO;
    DO;KEY(USE);WAIT(1);UNTIL(%GUI%="GUICHEST");
    FOR(#i,349,349);
      DO;
        GETSLOT(%#i%,#u);
        GETSLOTITEM(54,#id,#stack);
        WAIT(10ms);
        IF((%#u%=-1)||(%#u%>53)||(%#stack%>0));
          BREAK;
        ELSE;
          SLOTCLICK(%#u%,l,true);
        ENDIF;
      LOOP;
    NEXT;
    IF(%#stack%=0);
      GUI;
      #posx=%XPOS%;
      #posz=%ZPOS%;
      KEYDOWN(SNEAK);
      KEYDOWN(RIGHT);
      DO;UNTIL((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%-1));
      WAIT(150ms);
      KEYUP(RIGHT);
      KEYUP(SNEAK);
      WAIT(1);
      IF((%HITID%=54)||(%HITID%=146));
        }$$/sethome venderpeixe$${
      ELSE;
        UNSET(discos);
        LOG(&2>>>> &fPeixe OFF);
        STOP;
      ENDIF;
    ENDIF;
  UNTIL(%#stack%!=0);

  FOR(#id,349);
    SET(#d%#id%,0);
    WAIT(100ms);
   NEXT;

  FOR(#c,54,89);
    GETSLOTITEM(%#c%,#id,#stack);
    WAIT(10ms);
    IF(%#id%=349);INC(#d349,1);NEXT;ENDIF;
  NEXT;
  #ztemp=%ZPOS%;
  #xtemp=%XPOS%;
  }$$/warp vip$${
wait(8);
keyup(jump);
wait(100ms);
keyup(jump);
wait(2);
do;
look(SOUTH);
keydown(forward);
until(%ZPOS%=666);
look(EAST);
do;
keydown(forward);
until(%XPOS%=735);
keyup(forward);
wait(250ms);
keydown(forward);
do;
look(EAST);
keydown(JUMP);
until(%ZPOS%=668);
keyup(JUMP);
do;
look(EAST);
keydown(forward);
until(%ZPOS%=672);
keyup(forward);
look(,35);
wait(2);
do(6);
key(ATTACK);
wait(500ms);
loop;

  }$$/home venderpeixe$${
  wait(8);
  DO;UNTIL((%ZPOS%=%#ztemp%)&&(%ZPOS%=%#ztemp%));
LOOP;
}$$