Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
opt("SendKeyDelay",75) ; Slow down send
$processname = FileGetShortName(@ScriptName)
#Region ### START Koda GUI section ### Form=
$MainGUI = GUICreate($processname, 625, 105, 650, 627)
$Group1 = GUICtrlCreateGroup("Login into mail char", 8, 0, 289, 57)
$mailchar = GUICtrlCreateInput("Yes", 16, 16, 121, 21)
$Group2 = GUICtrlCreateGroup("Talk on login", 144, 8, 145, 41)
$Loginchat = GUICtrlCreateInput("Yes", 152, 24, 129, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Fishing Char settings", 304, 0, 313, 97)
$Group4 = GUICtrlCreateGroup("Talk when login in", 312, 16, 137, 49)
$loginchatmain = GUICtrlCreateInput("Yes", 320, 32, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Set DND", 456, 8, 153, 73)
$Dndset = GUICtrlCreateInput("Yes", 464, 24, 137, 21)
$Dndreason = GUICtrlCreateInput("Fishing while watching TV, probs will miss your whisper!", 464, 48, 137, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Accept = GUICtrlCreateButton("Accept", 312, 64, 139, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Randomly close minimap", 8, 56, 137, 41)
$randomMinimap = GUICtrlCreateInput("Yes", 16, 72, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Random mouse move", 152, 56, 145, 41)
$Randommouse = GUICtrlCreateInput("Yes", 160, 72, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
*****tState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Accept
$randomoption = Random(1,3,1)
If $randomoption = 1 Then
Sleep(Random(2220000, 588000))
_CheckMail()
EndIf
If $randomoption = 2 Then
Sleep(Random(37000,97000))
_Mousemove()
EndIf
If $randomoption = 3 Then
Sleep(Random(57000, 123000))
_minimapaction()
EndIf
EndSwitch
WEnd
Func _Loginfisher()
WinActivate("World of Warcraft") ; Make sure wow is active
MouseClick("Left", Random(1090, 1253), Random(272,306)) ; Click fisher
sleep(500); wait
MouseClick("Left", Random(735,875), Random(566, 581)) ; Click login button
Sleep(30000) ; Wait for it to load
MouseClick("left", 805, 614);scroll to fishing icons
Sleep(500)
If GUICtrlRead($loginchatmain) = "Yes" Then
Send("/G Hello {enter}")
EndIf
Sleep(500)
If GUICtrlRead($Dndset) = "Yes" Then
Send("/DND " & GUICtrlRead($Dndreason) & "{enter}")
EndIf
MouseClick("left", 50, 101, 2) ;Start fish
EndFunc
Func Checkmail()
MouseClick("left", 30, 35, 2) ; Click defualt tab
Sleep(500); wait
MouseClick("left", 112, 96, 2) ; Click stop
Sleep(500); wait
WinActivate("World of Warcraft") ; Make sure wow is active
Sleep(1000) ; wait
MouseClick("Left", Random(988,1000), Random(598, 616)) ; Click Comp Button
Sleep(500) ; Wait
MouseClick("Left", Random(750,844), Random(344, 350)) ; Click Logout button
Sleep(35000) ; Wait 20 seconds to logout and an extra 15
If GUICtrlRead($Loginchat) = "Yes" Then
Send("/g Just checking Mail box {enter}")
EndIf
MouseClick("Left", Random(1084,1254), Random(316, 349)) ; Click mail box char
Sleep(500); Wait
MouseClick("Left", Random(735,875), Random(566, 581)) ; Click login button
Sleep(30000) ; Wait for it to load
MouseClick("Right", Random(788,808), Random(304, 386)) ;click mail box
Sleep(500); Wait
MouseClick("Left", Random(580,588), Random(126, 132)) ; close mail box
sleep(500); Wait
MouseClick("Left", Random(988,1000), Random(598, 616)) ; Click Comp Button
Sleep(500) ; Wait
MouseClick("Left", Random(750,844), Random(344, 350)) ; Click Logout button
Sleep(10000) ; Wait
_Loginfisher()
EndFunc
Func _Mousemove()
MouseMove(Random(0, 1278), Random(0, 796))
EndFunc
Func _minimapaction()
MouseClick("Left", 1260, 57)
EndFunc
NOTE: THIS USES YOUR MOUSE!!!! YOU CANNOT HIDE WOW!!! IF SOMEONE IS WILLING TO TEACH ME MEMORY READING THEN I WILL MAKE IT WORK IN THE BACKGROUND.