Seed sorter

$${
wait(200ms);
key(use);
wait(500ms);
UNSAFE(0);
for(#i,0,26);
	getslotitem(%#i%,&item);
	if(&item == "wheat_seeds");
		wait(100ms);
		slotclick(%#i%,1);
		wait(100ms);
		slotclick(-999,1);
	elseif(&item == "wheat");
		wait(100ms);
		slotclick(%#i%,1,true);
	endif;
next;
ENDUNSAFE;
gui();

stop();
}$$