seafight glitter hunter help.

[Seagul]

Can someone help, I was trying to make a macro for www.seafight.com so it went around and hunt the glitters this is what I have got so far, sometimes it finds color on map sometimes it doesn't sometimes it finds glitter on map sometimes it doesn't but it never clicks it properly!. The "Glitter" is basically a yellow dot on minimap which then i travel in general area of it and then try and search for what the treasure looks like grabbed random color from it and then click it.

expandcollapse popup

;seafight bot

Opt("PixelCoordMode", 0)
Opt("MouseCoordMode", 0)

Dim $Color, $x1, $x2, $y1, $y2, $xx1, $xx2, $yy1, $yy2, $SearchResult, $Click, $GlitterResult

HotKeySet("{PAUSE}","Escape")

; Settings / Constants
$Color = 0xEFF300 ; Shade of Yellow Treasure
$Treasure = 0x736129 ; Color Glitter
$Ocean = 0x002C4A ; blue duh
$Click = "Left"
$GameWinTitle = "www.seafight.com"
$x1 = 771
$y1 = 174
$x2 = 857
$y2 = 259
$xx1 = 140
$yy1 = 64
$xx2 = 895
$yy2 = 721

WinActivate($GameWinTitle, "")
WinWaitActive($GameWinTitle, "", 5)

While 1=1
    Call("Target")
WEnd

Func Target()
    TrayTip ( "SeaFight Glitter Bot v1.0", "Searching for glitter on minimap", 2, 1)
    $SearchResult = PixelSearch($x1, $y1, $x2, $y2, $Color, 5, 2) ; 5 = Variation | 2 = Step
    If @error Then
    Else
        TrayTip ( "SeaFight Glitter Bot v1.0", "Glitter found on minimap", 2, 1)
                MouseClick($Click, $SearchResult[0], $SearchResult[1], 1, 1)
        Call("CheckIsOcean")
    EndIf
EndFunc

Func CheckIsOcean() ; Checks if your click on ocean not land
    $GetBlue = PixelGetColor(476, 407)
    If $GetBlue = $Ocean Then
        MouseClick($Click, 476, 407, 2, 1)
        Sleep(12000)
        Call("FindGlitter")
    Else
        MouseClick($Click, 398, 376, 2, 1)
        Sleep(12000)
        Call("FindGlitter")
    EndIf
EndFunc

Func FindGlitter()
    TrayTip ( "SeaFight Glitter Bot v1.0", "Searching for glitter on Map!", 2 , 1)
    $GlitterResult = PixelSearch($xx1, $yy1, $xx2, $yy2, $Treasure, 5, 2)
    If @error Then
    Else
    TrayTip ( "SeaFight Glitter Bot v1.0", "Glitter was found on Map!", 2 , 1)
    MouseClick($Click, $GlitterResult[0], $GlitterResult[1], 2, 1)
    Sleep(15000)
    EndIf
EndFunc

Func Escape()
Exit
EndFunc

Edited September 27, 2009 by Seagul

[jvanegmond]

Hey Seagul, haven't looked at your code but I have a question.

What do you think of Seafight? Is it better in comparison to other browser games? How much time do you spend on it per week on average? Does it have some kind of CAPTCHA system preventing permanent automation?

That would be all.

[Seagul]

its ok man honestly the developers are in it for cash, they got system setup cash for pearls enter information in ad and get pearls lol

[russianred95]

its ok man honestly the developers are in it for cash, they got system setup cash for pearls enter information in ad and get pearls lol

Hi Seagul,

Have you gotten it to work? What program are you running your code in? Looking forward to hearing from you!

[russianred95]

Hey Seagul, haven't looked at your code but I have a question.

What do you think of Seafight? Is it better in comparison to other browser games? How much time do you spend on it per week on average? Does it have some kind of CAPTCHA system preventing permanent automation?

That would be all.

Seafight is not a bad game at all. It is very fun but this fun costs lots of money. The last a event that we had they give out special prizes. In order to get that prize (ship design) you had to shoot ships. A fellow from my guild/clan spent 300 dollars just for the event. To fully equip your ship it costs around 400 dollars USD. It is not cheap.

Glitter hunter are very good to use. unfortunately they also cost money. But if you help seagull make one i am sure it wont cost as much.

I am going to work on it as well but i am not very good at codes at all.

[Seagul]

well i have it finds glitters when your on map well enough, but it stopped searching the minimap that well, it currently trys search it with adlibenable. Maybe If i can figure how to have it search for multiple colors since the yellow dot changes when waves come. Anyways ill keep working random drive shouldnt be to hard since you have navigator

[russianred95]

well i have it finds glitters when your on map well enough, but it stopped searching the minimap that well, it currently trys search it with adlibenable. Maybe If i can figure how to have it search for multiple colors since the yellow dot changes when waves come. Anyways ill keep working random drive shouldnt be to hard since you have navigator

I have run a test with your old code. It does turn on but like you said, it doesn't click... Do you mind posting your new code, so I can take a look at it?

Congratz you are getting better and better everyday! I have one question tho... I will PM you.

Awesome job seagull! keep it up and keep us informed on how it works. I wish I could help more but I truly can't do much except suggest stuff.

Edited October 2, 2009 by russianred95

[russianred95]

I have run a test with your old code. It does turn on but like you said, it doesn't click... Do you mind posting your new code, so I can take a look at it?

Congratz you are getting better and better everyday! I have one question tho... I will PM you.

Awesome job seagull! keep it up and keep us informed on how it works. I wish I could help more but I truly can't do much except suggest stuff.

Seagul check you PM box...

Edited October 2, 2009 by russianred95

[Seagul]

You can find updated versions of working bot at http://seafightmasta.tk

[mgiannakis1]

does anybody completed this script?is it available?if yes please pm me