kayleeamanda Posted December 5, 2008 Share Posted December 5, 2008 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 ================================================ Link to comment Share on other sites More sharing options...
Rental Posted December 5, 2008 Share Posted December 5, 2008 #include doesnt run the funcs automatically, you have to call the func in the main script Link to comment Share on other sites More sharing options...
kayleeamanda Posted December 5, 2008 Author Share Posted December 5, 2008 (edited) #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 expandcollapse popup;;; 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 December 5, 2008 by kayleeamanda Link to comment Share on other sites More sharing options...
Rental Posted December 5, 2008 Share Posted December 5, 2008 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) Link to comment Share on other sites More sharing options...
kayleeamanda Posted December 5, 2008 Author Share Posted December 5, 2008 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 expandcollapse popup;;; 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 Link to comment Share on other sites More sharing options...
Rental Posted December 5, 2008 Share Posted December 5, 2008 Try this expandcollapse popup;;; 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 Link to comment Share on other sites More sharing options...
kayleeamanda Posted December 5, 2008 Author Share Posted December 5, 2008 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 expandcollapse popup;;; 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 Link to comment Share on other sites More sharing options...
FireFox Posted December 5, 2008 Share Posted December 5, 2008 (edited) 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 December 5, 2008 by FireFox Link to comment Share on other sites More sharing options...
Rental Posted December 5, 2008 Share Posted December 5, 2008 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;;; Link to comment Share on other sites More sharing options...
FireFox Posted December 5, 2008 Share Posted December 5, 2008 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now