Sign in to follow this  
Followers 0
johnspartan

Quick Script Help Request

4 posts in this topic

Hi,

Im looking for a script that will do a simple task that i can add to a WOW script i have for fishing.

I need a script that hits the number 2 every 10 min thats it. Im total script noob and none of my friends I ve asked know either so if somone can post one so i can copy and paste into my program it would be greatly apprciated.

JS

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Hi,

if don't need the exact 2 min only nearly you can try:

HotKeySet("{esc}", "_end")
While 1 
    Sleep(2 * 1000 * 60)
    If WinActive(' WOW WINDOW NAME -- HERE!!! --') Then Send('2')
WEnd

Func _end()
    Exit(0)
EndFunc

Edit : font size mistake.

Edited by Xenobiologist

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites

Hi,

if don't need the exact 2 min only nearly you can try:

HotKeySet("{esc}", "_end")
While 1 
    Sleep(2 * 1000 * 60)
    If WinActive(' WOW WINDOW NAME -- HERE!!! --') Then Send('2')
WEnd

Func _end()
    Exit(0)
EndFunc

Edit : font size mistake.

I dont want to sound retarded but i cant figure it out and i dont know where to put it in my script: Heres my script Please forgive the spam.

; <AUT2EXE VERSION: 3.1.0.4>

; ----------------------------------------------------------------------------

; <AUT2EXE INCLUDE-START: C:\Documents and Settings\Home\My Documents\fishing.au3>

; ----------------------------------------------------------------------------

; ****************************************************************************************************

****

; Fishing by the sexylilwitch

; Globals

$title = "WoW Fishing"

$win_title = "World of Warcraft"

$top_border_height = 23

$left_border_width = 4

$screen_width = 800

$screen_height = 600

$time_to_wait = 30000

dim $start_time

; ****************************************************************************************************

****

; Hot Keys

HotKeySet("{PAUSE}", "request_end")

; ****************************************************************************************************

****

if not WinExists($win_title, "") then

msg($win_title & " window must be open.")

Exit

endif

WinActivate($win_title, "")

WinSetOnTop($win_title, "", 0)

Sleep(500)

check_window()

$win_pos = WinGetPos($win_title, "")

$win_x = $win_pos[0] + $left_border_width

$win_y = $win_pos[1] + $top_border_height

$top = $win_y + (.25 * $screen_height)

$bottom = $top + (.35 * $screen_height) - 1

$left = $win_x + (.15 * $screen_width)

$right = $left + $screen_width - (.15 * 2.0 * $screen_width) - 1

; Show a visual confirmation by making the mouse draw the area on the screen

; that will be used to scan for the bobber.

MouseMove($left, $top, 2)

MouseMove($right, $top, 2)

MouseMove($right, $bottom, 2)

MouseMove($left, $bottom, 2)

cast_pole()

find_float()

; ****************************************************************************************************

****

func find_float()

$color_dark_purple = 0x463B4D

$color_dark_blue = 0x283A64

$color_red = 0xA72C0B

$color_stormwind_daylight_blue = 0x2B3254

$color_stormwind_daylight_red = 0x6B1F0C

$color_beige = 0xBB9B3D

$color_night_blue = 0x0B1931

; this is the color used to pixelsearch for the bobber. change the color to a good color

; on the bobber that is prominent on the screen

$color_to_use = $color_stormwind_daylight_red

; this is the search tolerance. In areas where the bobber colors really stand out, you can

; use a fairly high threshold. In areas where the bobber colors are fairly muted in with

; the background, you will have to lower the values considerably.

$bobber_search_tolerance = 20

; it's better to use lower values here in favor of accurate searching. This will take more

; time for it to detect the bobber, but usually the splash doesn't occur until at least 30%

; of the time has run out, and by that time, it should have detected the bobber (assuming the

; color values and tolerance are correct).

$bobber_search_step = 2

; Search for float. In certain lighting, the part of the float may look more purple than

; blue. In this case, using $color_red tends to work the best with a tolerance of 20.

while 1

if TimerDiff($start_time) >= $time_to_wait then

cast_pole()

endif

$pos = PixelSearch($left, $top, $right, $bottom, $color_to_use, $bobber_search_tolerance, $bobber_search_step)

if @error then

SetError(0)

else

MouseMove($pos[0], $pos[1], 2)

find_splash($pos[0], $pos[1] )

endif

Sleep(10)

wend

endfunc

; ****************************************************************************************************

****

func find_splash($float_x, $float_y)

$search_left = $float_x - 32

$search_right = $search_left + 52

$search_top = $float_y - 32

$search_bottom = $search_top + 64

; Usually you do not have to modify the search color for the splash, as the pixels

; have a very distinctive, bright color.

$splash_color = 0xF6F6F6

; Sometimes 30 tolerance works well, sometimes 20 is better in lit areas to avoid catching highlights

; in other things.

$splash_tolerance = 20

; The search step can be pretty small here (1 to 3) without worries because the search area is

; so small once it has been narrowed down - speed isn't much of an issue.

$splash_search_step = 2

; Search for splash

while TimerDiff($start_time) < $time_to_wait

$pos = PixelSearch($search_left, $search_top, $search_right, $search_bottom, $splash_color, $splash_tolerance, $splash_search_step)

if @error then

SetError(0)

else

; Click on the splash

Send("{SHIFTDOWN}")

Sleep(100)

MouseClick("right", $pos[0], $pos[1], 1, 2)

Sleep(100)

Send("{SHIFTUP}")

Sleep(5000)

ExitLoop

endif

Sleep(10)

wend

; Cast pole and start all over again.

cast_pole()

endfunc

; ****************************************************************************************************

****

func cast_pole()

$start_time = TimerInit()

Send("1")

Sleep(3000)

endfunc

; ****************************************************************************************************

****

func check_window()

$dimensions = WinGetClientSize($win_title, "")

if $dimensions[0] <> $screen_width or $dimensions[1] <> $screen_height then

msg("Idiot! Wrong window size. You must use " & $screen_width & "x" & $screen_height & " resolution in full screen mode.")

Exit

endif

endfunc

; ****************************************************************************************************

****

func msg($text)

MsgBox(0, $title, $text)

endfunc

; ****************************************************************************************************

****

func msg_array($title, $array, $num_elements)

dim $text

$text = $array[0]

for $j = 1 to $num_elements - 1

$text = $text & ", " & $array[$j]

next

MsgBox(0, $title, $text)

endfunc

; ****************************************************************************************************

****

func request_end()

$MB_YESNO = 4

$MB_YES = 6

if MsgBox($MB_YESNO, $title, "End script?") == $MB_YES then

Exit

endif

endfunc

; ****************************************************************************************************

****

func drain_timer()

Msg("Restart")

$start_time = $start_time - $time_to_wait

endfunc

; ****************************************************************************************************

****

Thanks for the help

Share this post


Link to post
Share on other sites

I guess you need to figure that out on your own. Helpfile a logic is your friend.


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

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