Need Help With Item Sorting

Sleep (100000);give time to open FFXI
$fisha = 1;
$biteyes = 0;
$bite = 0;
$failsafe=0;
WinWaitActive("FFXiApp");

While $fisha > 0

AutoItSetOption("SendKeyDelay", 15);
Send ("/equip ammo ""Insect Ball""{ENTER}");
Sleep(0200)
Send ("/equip range ""Carbon Fish. Rod""{ENTER}");
autosort()
Send("/fish{ENTER}"); fishing macro 
$biteyes = 0;
$failsafe = 0;
Do 
If PixelGetColor(229,740) = 16777215 Then
$bite = $bite + 1;
AutoItSetOption("SendKeyDelay", 0200);
Sleep(Random(2500,3500));
Send("{ENTER}");
Sleep(3500);
$biteyes = 1;
EndIf

If PixelGetColor(225,745) = 16777215 Then
AutoItSetOption("SendKeyDelay", 0200);
$biteyes = 1;
EndIf
Sleep(3500);
$failsafe = $failsafe+1

If $failsafe = 20 Then
$biteyes = 1;
EndIf

Until $biteyes = 1
Sleep(10000);
WEnd





Func sort()

EndFunc



Func autosort()

; Copyright z33to ^^

AutoItSetOption("SendKeyDelay", 0200);slow key delay a bit
Send("{NUMPADSUB}");
Sleep(1000);
MouseMove(963,108,3);
Sleep(1000);
Send("{ENTER}");
Sleep(1000);
Send("{NUMPADADD}");
Sleep(1000);
Send("{ENTER}");
Sleep(1000);
MouseMove(972,120,3);
Sleep(500);
Send("{ENTER}");
Sleep(1000);
Send("{ESC}");
Sleep(500);
Send("{ESC}");
Sleep(500);

EndFunc

; Made by z33to