insaniquarium helper

[esteban]

Ok i wrote this one to help me play this game called "Insaniquarium". I did steal the code from Simucal and changed I slightly for this game. It clicks the coins that are near your mouse, after a while you start to get gamers hand clicking so much.

you can find this game here: http://www.popcap.com/

unfortunatly some of the colors of the coins are shared with other objects in the game, i have not been able to fix this yet.

enjoy tell me what you think.

expandcollapse popup

$searchcolor4=13529856;gold 2
$searchcolor=16777075; gold
$searchcolor3=14610415;blueshell
$searchcolor2=55039;crystal
$searchcolor6=55039;crystal2
$searchcolor5=7039851; silver
$searchcolor7=4868682;silver 2 
$searchcolor8=16764465;yellow bug
$searchcolor9=14075857; pear13553358
$searchcolor10=13553358
$found1="no"
$found2="no"
$found3="no"
$found4="no"
$found5="no"
$silver=1
$gold=1
$crystal=1
$bug=1
$pearl=1
while(1)
  
        if $pearl=1 then    
        ;pearl
            If $found1 = "no" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor10) 
                
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0]+5, $coord[1]+5, 0)
                    $found5 = "yes"
                EndIf
            EndIf
                If $found1 = "yes" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor10) 
                
                If IsArray($coord) = 1 Then
                    Mouseclick("left",$coord[0], $coord[1],1, 0)
                    sleep(100)
                Else
                    $found1 = "no"
                EndIf
            EndIf   
        EndIf   
        if $crystal=1 then  
        ;crystal
            If $found1 = "no" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor6) 
                
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0]+5, $coord[1]+5, 0)
                    $found1 = "yes"
                EndIf
            EndIf
                    If $found1 = "yes" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor6) 
                
                If IsArray($coord) = 1 Then
                    Mouseclick("left",$coord[0], $coord[1],1, 0)
                    sleep(100)
                Else
                    $found1 = "no"
                EndIf
            EndIf   
        EndIf
            
        if $bug=1 then  
        ;bug
            If $found1 = "no" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor8) 
                
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0]+5, $coord[1]+5, 0)
                    $found2 = "yes"
                EndIf
            EndIf
                    If $found1 = "yes" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor8) 
                
                If IsArray($coord) = 1 Then
                    Mouseclick("left",$coord[0], $coord[1],1, 0)
                    sleep(100)
                Else
                    $found1 = "no"
                EndIf
            EndIf   
        EndIf
                        
        if $gold=1 then     
        ;gold
            If $found1 = "no" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor4) 
                
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0]+5, $coord[1]+5, 0)
                    $found1 = "yes"
                EndIf
            EndIf
                    If $found1 = "yes" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor4) 
                
                If IsArray($coord) = 1 Then
                    Mouseclick("left",$coord[0], $coord[1],1, 0)
                    sleep(100)
                Else
                    $found1 = "no"
                EndIf
            EndIf   
        EndIf
        
    ;silver
        if $silver=1 then   
            If $found1 = "no" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor5)
                
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0]+5, $coord[1]+5, 0)
                    $found1 = "yes"
                EndIf
            EndIf
                    If $found1 = "yes" Then
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor5) 
                
                If IsArray($coord) = 1 Then
                    Mouseclick("left",$coord[0], $coord[1],1, 0)
                    sleep(100)
                Else
                    $found1 = "no"
                EndIf
            EndIf   
        EndIf
WEnd