## Recommended Posts

Hey there

I made this as a fishing bot for this game I play with my family. I want it to look for and run the four included scripts while casting. It wont let me. please tell me what Im doing wrong?!

OK so here goes

#include <caught.au3>

#include <boot.au3>

#include <Jelly.au3>

#include <new.au3>

\$i=0

Do

Cast ()

Until "0x" & Hex(PixelGetColor(638, 502)) = 0xD7ABA9 Then

MouseClick ("left",638, 502)

Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{RIGHT}")

Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIG

HT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT})"

Func Cast ()

MouseClickDrag ( "Left", 641, 572, 639, 694 , 10 )

Sleep (15000)

EndFunc

================================================

\$i=0

Func Caught ()

While 1

If "0x" & Hex(PixelGetColor(778, 344)) = 0xBF4F55 Then

Cast ()

EndIf

EndFunc

================================================

\$i=0

Func boot()

While 1

If "0x" & Hex(PixelGetColor(851, 623)) = 0xAA5D5E Then

Cast ()

Endif

Endfunc

================================================

\$i=0

Func jelly()

While 1

If "0x" & Hex(PixelGetColor(852, 265)) = 0xC49E9E Then

Cast ()

Endif

EndFunc

================================================

\$i=0

Func new()

While 1

If "0x" & Hex(PixelGetColor(599, 193)) = 0x33CB65 Then

Send("{F9}")

Cast ()

Endif

EndFunc

================================================

##### Share on other sites

#include doesnt run the funcs automatically, you have to call the func in the main script

##### Share on other sites

#include doesnt run the funcs automatically, you have to call the func in the main script

heres what I have

cast works, but ONLY cast! it wont search for the boot, caught, jelly, etc just casts

;;; caught.au3;;;
Func Caught ()
Cast ()
EndFunc

;;; boot.au3;;;
Func boot()
Cast()
EndFunc

;;; Jelly.au3;;;
Func jelly()
Cast ()
EndFunc

;;; new.au3;;;
Func new()
Send("{F9}")
Cast ()
EndFunc

;;; full.au3;;;
Func full()
MouseClick ("left",638, 502)
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{RIGHT}")
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGH

T}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT})"
Cast()
EndFunc

;;; cast.au3;;;
Func Cast ()
MouseClickDrag ( "Left", 641, 572, 639, 694 , 10 )
Sleep (15000)
While 1
If "0x" & Hex(PixelGetColor(778, 344)) = 0xBF4F55 Then
caught()
ElseIf "0x" & Hex(PixelGetColor(851, 623)) = 0xAA5D5E Then
boot()
ElseIf "0x" & Hex(PixelGetColor(852, 265)) = 0xC49E9E Then
Jelly()
ElseIf "0x" & Hex(PixelGetColor(599, 193)) = 0x33CB65 Then
new()
ElseIf "0x" & Hex(PixelGetColor(638, 502)) = 0xD7ABA9 Then
full()
EndIf
WEnd
EndFunc

;;; fish.au3;;;
#include "cast.au3"
#include "caught.au3"
#include "boot.au3"
#include "Jelly.au3"
#include "new.au3"
Do
Cast ()
Until \$i=25
Edited by kayleeamanda

##### Share on other sites

for Hex(PixelGetColor(638, 502)) (just grabed one for example, this would aply to them all)

try Hex(PixelGetColor(638, 502), 6)

this will only return 6 numbers/letters (without the 6 it would return 8 and throw off the amount you wanted)

##### Share on other sites

thanks so much for your help Rental

essentially, I want it to 'cast' then once it has cast, search for the caught signal, boot signal, new signal, jelly signal, or full signal

I want it to keep looking for those signals continuously and quickly (its being rather slow :S)

and if none of the signals are found in 15 seconds, i want it to recast and repeat the whole process

it is still only casting, and not looking for the signals. here is the updated thing

;;; caught.au3;;;
Func Caught ()
If "0x" & Hex(PixelGetColor(778, 344),6) = 0xBF4F55 Then
Cast ()
sleep (100)
ElseIf "0x" & Hex(PixelGetColor(778, 344),6) = 0 Then
Call ("boot")
EndIf
EndFunc

;;; boot.au3;;;
Func boot()
If "0x" & Hex(PixelGetColor(851, 623),6) = 0xAA5D5E Then
Cast()
sleep (100)
ElseIf "0x" & Hex(PixelGetColor(851, 623),6) = 0 Then
Call ("Jelly")
EndIf
EndFunc

;;; Jelly.au3;;;
Func jelly()
If "0x" & Hex(PixelGetColor(852, 265),6) = 0xC49E9E Then
Cast ()
sleep (100)
Elseif "0x" & Hex(PixelGetColor(852, 265),6) = 0 Then
Call ("new")
EndIf
EndFunc

;;; new.au3;;;
Func new()
If "0x" & Hex(PixelGetColor(599, 193),6) = 0x33CB65 Then
Send("{F9}")
Cast ()
sleep (100)
ElseIf "0x" & Hex(PixelGetColor(599, 193),6) = 0 Then
Call ("full")
EndIf
EndFunc

;;; full.au3;;;
Func full()
If "0x" & Hex(PixelGetColor(638, 502),6) = 0xD7ABA9 Then
MouseClick ("left",638, 502)
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{RIGHT}")
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGH

T}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT})"
Cast()
Sleep (100)
ElseIf "0x" & Hex(PixelGetColor(638, 502),6) = 0 Then
Call ("caught")
EndIf
EndFunc

;;; cast.au3;;;
Func Cast ()
MouseClickDrag ( "Left", 641, 572, 639, 694 , 10 )
Call ("caught")
Sleep (15000)
EndFunc

;;; fish.au3;;;
#include "cast.au3"
#include "caught.au3"
#include "boot.au3"
#include "Jelly.au3"
#include "new.au3"
Do
Cast ()
Until \$i=25

##### Share on other sites

Try this

;;; caught.au3;;;
Func Caught ()
If "0x" & Hex(PixelGetColor(778, 344),6) = 0xBF4F55 Then
Cast ()
sleep (100)
Else
boot()
EndIf
EndFunc

;;; boot.au3;;;
Func boot()
If "0x" & Hex(PixelGetColor(851, 623),6) = 0xAA5D5E Then
Cast()
sleep (100)
Else
jelly()
EndIf
EndFunc

;;; Jelly.au3;;;
Func jelly()
If "0x" & Hex(PixelGetColor(852, 265),6) = 0xC49E9E Then
Cast ()
sleep (100)
Else
new()
EndIf
EndFunc

;;; new.au3;;;
Func new()
If "0x" & Hex(PixelGetColor(599, 193),6) = 0x33CB65 Then
Send("{F9}")
Cast ()
sleep (100)
Else
full()

EndFunc

;;; full.au3;;;
Func full()
If "0x" & Hex(PixelGetColor(638, 502),6) = 0xD7ABA9 Then
MouseClick ("left",638, 502)
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{RIGHT}")
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT})"
Cast()
Sleep (100)
Else
caught()
EndIf
EndFunc

;;; cast.au3;;;
Func Cast ()
MouseClickDrag ( "Left", 641, 572, 639, 694 , 10 )
caught()
Sleep (15000)
EndFunc

;;; fish.au3;;;
#include "cast.au3"
#include "caught.au3"
#include "boot.au3"
#include "Jelly.au3"
#include "new.au3"
Do
Cast ()
Until \$i=25

##### Share on other sites

hey there again

it is still only casting every 15 seconds when there is definitely signals on the screen it should follow (ie: pixels showing up)

I bet its something uber simple that I'll kick myself for not knowing lol

Try this

;;; caught.au3;;;
Func Caught ()
If "0x" & Hex(PixelGetColor(778, 344),6) = 0xBF4F55 Then
Cast ()
sleep (100)
Else
boot()
EndIf
EndFunc

;;; boot.au3;;;
Func boot()
If "0x" & Hex(PixelGetColor(851, 623),6) = 0xAA5D5E Then
Cast()
sleep (100)
Else
jelly()
EndIf
EndFunc

;;; Jelly.au3;;;
Func jelly()
If "0x" & Hex(PixelGetColor(852, 265),6) = 0xC49E9E Then
Cast ()
sleep (100)
Else
new()
EndIf
EndFunc

;;; new.au3;;;
Func new()
If "0x" & Hex(PixelGetColor(599, 193),6) = 0x33CB65 Then
Send("{F9}")
Cast ()
sleep (100)
Else
full()

EndFunc

;;; full.au3;;;
Func full()
If "0x" & Hex(PixelGetColor(638, 502),6) = 0xD7ABA9 Then
MouseClick ("left",638, 502)
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{RIGHT}")
Send ("{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{UP}{RIGHT})"
Cast()
Sleep (100)
Else
caught()
EndIf
EndFunc

;;; cast.au3;;;
Func Cast ()
MouseClickDrag ( "Left", 641, 572, 639, 694 , 10 )
caught()
Sleep (15000)
EndFunc

;;; fish.au3;;;
#include "cast.au3"
#include "caught.au3"
#include "boot.au3"
#include "Jelly.au3"
#include "new.au3"
Do
Cast ()
Until \$i=25

##### Share on other sites

Hi,

in your example script why you use :

#include "cast.au3"
#include "caught.au3"
#include "boot.au3"
#include "Jelly.au3"
#include "new.au3"

For functions already in the script ?

Edited by FireFox

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

##### Share on other sites

I think he just copy and pasted all the functions into one so he didnt have more then 1 code box in his post. if you look he divides each function with the name of the file ie. ;;; new.au3;;;

##### Share on other sites

I think he just copy and pasted all the functions into one so he didnt have more then 1 code box in his post. if you look he divides each function with the name of the file ie. ;;; new.au3;;;

LOL...ok

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

## Create an account

Register a new account