Mój wyglądał tak:
Cytuj:
$log = FileOpen ( "fish.txt", 1 );
$znacznik = 0;
$przerwa = 9000;
$bait = 1
$sortowanie = 0
WinWaitActive("FFXiApp");
FileWriteLine($log, "startujemy " & @MON & " " & @MDAY & ", " & @YEAR & " || " & @HOUR & ":" & @MIN & ":" & @SEC );
Sleep(80000);
;fish();
;*******************************GŁÓWNA PĘTLA***********************************************
For $i = 1 to 99999999999999999
;FileWriteLine($log, @HOUR & ":" & @MIN & ":" & @SEC & "-" & Pixelgetcolor(91,736) & " - " & Pixelgetcolor(91,735) & " - " & Pixelgetcolor(255,745) & " - " & Pixelgetcolor(255,744) );
sleep(1000);
;*************SPRAWDZA CZY BYL KOMUNIKAT SOMETHING CATCH THE HOOK**************************
If Pixelgetcolor(239,745) = 16777215 AND Pixelgetcolor(239,744) = 16777215 AND Pixelgetcolor(239,739) = 16777215 AND Pixelgetcolor(239,738) = 16777215 AND Pixelgetcolor(239,737) = 16777215 AND Pixelgetcolor(239,736) = 16777215 AND Pixelgetcolor(239,735) = 16777215 AND Pixelgetcolor(79,735) = 16777215 AND $znacznik <> 1 then
FileWriteLine($log, @MON & " " & @MDAY & ", " & @YEAR & " || " & @HOUR & ":" & @MIN & ":" & @SEC & " - Something Catch the Hook!");
Sleep(Random(1500, 2500));
AutoItSetOption("MouseClickDelay", 40);
MouseClick("left", 100, 100);
$znacznik = 1;
$bait = 0;
FileWriteLine($log, @MON & " " & @MDAY & ", " & @YEAR & " || " & @HOUR & ":" & @MIN & ":" & @SEC & " - CLICK CLICK CLICK");
sleep(1000);
$sortowanie = $sortowanie + 1
If $sortowanie = 10 then
;If Pixelgetcolor(58,745) = 16777215 AND Pixelgetcolor(58,744) = 16777215 AND Pixelgetcolor(58,743) = 16777215 AND Pixelgetcolor(58,742) = 16777215 AND Pixelgetcolor(58,741) = 16777215 AND Pixelgetcolor(58,740) = 16777215 AND Pixelgetcolor(58,739) = 16777215 AND Pixelgetcolor(58,738) = 16777215 AND Pixelgetcolor(74,745) = 16777215 AND Pixelgetcolor(74,744) = 16777215 AND Pixelgetcolor(74,743) = 16777215 AND Pixelgetcolor(74,742) = 16777215 AND Pixelgetcolor(74,741) = 16777215 AND Pixelgetcolor(74,740) = 16777215 AND Pixelgetcolor(74,739) = 16777215 AND Pixelgetcolor(74,738) = 16777215 AND Pixelgetcolor(74,737) = 16777215 AND Pixelgetcolor(74,736) = 16777215 AND Pixelgetcolor(74,735) = 16777215 then
sortuj();
EndIf
sleep($przerwa+2000);
fish();
sleep(2000)
$znacznik = 0;
EndIf
;************SPRAWDZA CZY BYŁ KOMUNIKAT YOU DIDNT CATCH ANYTHING***************************
If Pixelgetcolor(91,736) = 16777215 AND Pixelgetcolor(91,735) = 16777215 AND Pixelgetcolor(225,745) = 16777215 AND Pixelgetcolor(225,744) = 16777215 AND Pixelgetcolor(203,735) = 16777215 AND Pixelgetcolor(144,735) = 16777215 AND Pixelgetcolor(22,735) = 16777215 AND Pixelgetcolor(28,735) = 16777215 AND $znacznik <> 2 then
FileWriteLine($log, @MON & " " & @MDAY & ", " & @YEAR & " || " & @HOUR & ":" & @MIN & ":" & @SEC & " - You din't catch anything");
;FileWriteLine($log, Pixelgetcolor(91,736) & Pixelgetcolor(91,735) & Pixelgetcolor(225,745) & Pixelgetcolor(225,744) & Pixelgetcolor(203,735) & Pixelgetcolor(144,735) & Pixelgetcolor(22,735) & Pixelgetcolor(28,735))
Sleep($przerwa);
$znacznik = 2;
fish()
$znacznik = 0;
Endif
Next
;**********************************************fish***************************************
Func fish()
sleep(3000);
MouseClick("left", 100, 100);
sleep(100);
MouseClick("left");
sleep(500);
MouseClick("right");
sleep(500);
MouseClick("left");
sleep(500);
$pos = MouseGetPos()
sleep(5);
MouseClick("left", $pos[0], $pos[1]+65);
sleep(1500);
If Pixelgetcolor(86,737) = 16777215 AND Pixelgetcolor(86,736) = 16777215 AND Pixelgetcolor(112,735) = 16777215 AND Pixelgetcolor(152,735) = 16777215 AND Pixelgetcolor(224,735) = 16777215 AND Pixelgetcolor(338,744) = 16777215 AND Pixelgetcolor(338,745) = 16777215 AND $bait =0 then
MouseClick("right");
sleep(500);
MouseClick("middle"); otworzenie duzego menu
sleep(500);
MouseClick("left", 955, 80); click na equipment
sleep(500);
MouseClick("left", 270, 75); click na ammo
sleep(800);
MouseClick("left"); załadowanie ammo
sleep(1000);
MouseClick("right");
sleep(500);
MouseClick("right");
sleep(500);
$bait = 1;
fish();
EndIf
EndFunc
;***************************************************sortuj*********************************************
Func Sortuj()
sleep(6000);
MouseClick("right");
sleep(500);
MouseClick("middle"); otworzenie duzego menu
sleep(1000);
MouseClick("right");
sleep(500);
MouseClick("middle"); otworzenie duzego menu
sleep(500);
MouseClick("left", 955, 110); click na items
sleep(800)
MouseClick("left", 955, 80); click na auto
sleep(800)
MouseClick("left", 955, 120); click na yes
sleep(500);
MouseClick("right");
sleep(500);
MouseClick("right");
$sortowanie = 0
EndFunc
nie zonuje, nie robi przynęty - nad tym akurat myślałem, ale doszedłem do wniosku że jest niopłacalne i tak srałem żarem jak co 4 godziny wstawałem by dorobić przynęte i wystawić ryby - ban czy nie_ban
.
Którą przynętę bierze? naciska na slot ammo i bierze pierwszą dostępną.
Działa pod 1024x768x32 w standardowych ustawienieniach.
Na moim kompie ostateczna wersja działała w 100% - tzn musiałem się budzić co 4h (na tyle wystarcza 12 przynęt) biec do sklepu sprzedać ryby, dorobić przynętę i stanąć z powrotem przy wodzie.
Perełkę najlepiej zdjąć bo strasznie zaśmiecacie logchat - gaduły z was niesamowite
Przerwa oznacza czas pomiędzy zarzuceniami wędki 9000 - jest dobre dla 50+ w fishingu.
To chyba jedyne makro w sieci działające pod starym 98SE
Przynajmniej żadnej konkurencji nie widziałem.
Huck daj namiary lub wrzuć linka do tego swojego makra. Z chęcią bym zobaczył jak działa ten moduł zonowania, bo chyba zaraziłem się makrowaniem a teraz pogrywam w SWG - najgorsze że tutaj makrowanie jest praktycznie dozwolone, więc nie ma takich emocji
.
