Sign in to follow this  
Followers 0
Seagul

seafight glitter hunter help.

10 posts in this topic

#1 ·  Posted (edited)

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.

;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 by Seagul

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

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. :D

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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 by russianred95

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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 by russianred95

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0