restart the script

[koekje]

hey, im new to this, but i like it pretty much!

i almost made a WoW fishing bot, the only thing is when it catched a fish, it wont throw in a line again, i mean, is there a function to restart the script?

if so, please tell me, i really need it

Thanx in advance

[Shyke]

If you mean to make the script loop then yes, could you show your code so I can add to it?

[koekje]

TQ:D

i think the code sux:P but its my first:P

here it comes:

expandcollapse popup

WinActivate('World of Warcraft')
winwaitactive('World of Warcraft')

HotKeySet('{TAB}')


$dobber = 0x251104
;standaard kleur
$dobber2 = 0x4a6c72
;bij mouseover, als hij lichter word
$splash = 0x97a6af
;kleur van de splash (opspattend water)

$boven = 100
$rechts = 520
$onder = 400
$links = 4

$lootx = 24
$looty = 142

$lootx2 = 24
$looty2 = 173

while 1

        send('0')
        sleep(2000)
        $i = 0
    
        while $i < 1
        
            $waar = PixelSearch($links, $boven, $rechts, $onder, $dobber,10,3)
            if not @error then
                
                $x = $waar[0]
                $y = $waar[1]
                
                MouseMove($x, $y)
                
                
                    
                $1 = $x - 10
                $2 = $y - 10
                $3 = $x + 10
                $4 = $y + 10            
                
                
                $waar2 = PixelSearch($1, $2, $3, $4, $dobber2,15,2)
                if not @error Then
                                    

                    
            ;we hebben de dobber gevonden en de cursor staat erop               
                    
                    wachtopbeet ()
                
                Else
                
                    restart()
                
                endif
            
            EndIf
            
            
            
            
        WEnd
        
        
    
wend
    
func wachtopbeet()
    
    $i = 0

    while $i < 1
    
            
            
            $waar2 = PixelSearch($1, $2, $3, $4, $splash,10,1)
            if not @error Then
                MouseClick('right', $x, $y)
                sleep(1000)
                
                MouseClick('left', $lootx, $looty)
                MouseClick('left', $lootx2, $looty2)
                
                restart()
                
            endif
        
        
    WEnd
    
EndFunc

func restart()
            
                run('"C:\Documents~\Eigenaar\Bureaublad\AI~\mijnvisbot2.au3"')
                Exit
endfunc

the restart() funtion wont work:( plz fix it

Edited September 17, 2005 by koekje

[Valuater]

almost hard to believe that this had no errors and it worked for you as well as it did.... anyway

i ran it through "tidy" included in the SciTE program under tools...

and i added "call" to calll the functions... you can read about this in help

heres the some-what cleaned-up code

expandcollapse popup

WinActivate('World of Warcraft')
WinWaitActive('World of Warcraft')

HotKeySet('{TAB}')


$dobber = 0x251104
;standaard kleur
$dobber2 = 0x4a6c72
;bij mouseover, als hij lichter word
$splash = 0x97a6af
;kleur van de splash (opspattend water)

$boven = 100
$rechts = 520
$onder = 400
$links = 4

$lootx = 24
$looty = 142

$lootx2 = 24
$looty2 = 173

While 1
    
    Send('0')
    Sleep(2000)
    $i = 0
    
    While $i < 1
        
        $waar = PixelSearch($links, $boven, $rechts, $onder, $dobber, 10, 3)
        If Not @error Then
            
            $x = $waar[0]
            $y = $waar[1]
            
            MouseMove($x, $y)
            
            $1 = $x - 10
            $2 = $y - 10
            $3 = $x + 10
            $4 = $y + 10
            
            $waar2 = PixelSearch($1, $2, $3, $4, $dobber2, 15, 2)
            If Not @error Then
                
            ;we hebben de dobber gevonden en de cursor staat erop
                
                Call("wachtopbeet")
                
            Else
                
                Call("restart")
                
            EndIf
            
        EndIf
        
    WEnd

WEnd


Func wachtopbeet()
    
    $i = 0
    
    While $i < 1
        
        $waar2 = PixelSearch($1, $2, $3, $4, $splash, 10, 1)
        If Not @error Then
            MouseClick('right', $x, $y)
            Sleep(1000)
            
            MouseClick('left', $lootx, $looty)
            MouseClick('left', $lootx2, $looty2)
            
            Call("restart")
            
        EndIf
        
        
    WEnd
    
EndFunc  ;==>wachtopbeet

Func restart()
    
    Run('"C:\Documents~\Eigenaar\Bureaublad\AI~\mijnvisbot2.au3"')
    Exit
    
EndFunc  ;==>restart

hope that helps

8)

ps

noticed that the spacing was lost.... hmmm???