Random sleep timers and mouse positions are ignored

[Brunoire]

When I press ctrl+alt+m, the input boxes are working fine no matter what I send to the script like, do the right number of loops and wait the exact minutes but afterwards it goes on crazy speed like 1ms and the mouse clicks are always on the same position and not random.

Spoiler

Code: Select all

F12::
Pause
Suspend
return

Random, Mission, 225000,240000
Random, Redquit, 10000,10200
Random, Retry, 3700,3900
Random, Close, 900,1100
Random, Raid, 5000, 5200
Random, RaidM, 240000,300000

QuestWait:
Inputbox, wait, Esperar, Esperar por quanto tempo? (4-15)
	If (wait < 4 || wait > 15)
		Return
	Else
		min := wait * 60000
		Sleep, %min%
	Return

RaidWait:
Inputbox, wait, Esperar, Esperar por quanto tempo? (5-15)
	If (wait < 5 || wait > 15)
		Return
	Else
		min := wait * 60000
		Sleep, %min%
	Return

^!m::

Inputbox, number, Quest, Repetir quantas vezes (1-5)?
If (number < 1 || loop > 5)
Return
	
Gosub, QuestWait
loop, %number%
{
WinActivate, Sem Título - Paint ahk_class MSPaintApp
Sleep, 333
PixelGetColor, color, 354, 682
	if (color = "0x2020E7")
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(330, 508), % Rand(676, 708) 	;Red Quit
			Sleep, %Redquit%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
	else
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
Sleep, %Mission%
}
Goto, missionrepeat
return

missionrepeat:
settimer, mission, 3300000
return

mission:
loop, 5
{
WinActivate, Sem Título - Paint ahk_class MSPaintApp
Sleep, 333
PixelGetColor, color, 354, 682

	if (color = "0x2020E7")
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(330, 508), % Rand(676, 708) 	;Red Quit
			Sleep, %Redquit%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
	else
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
Sleep, %Mission%
}
settimer, mission, on
Goto, missionrepeat
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

^!e::
Inputbox, number, Event, Repetir quantas vezes (1-5)?.
	If (number < 1 || number > 5)
		Return
	Else
		Goto, eve%number%
	Return

eve1:
Gosub, QuestWait
loop, 1
{
WinActivate, Sem Título - Paint ahk_class MSPaintApp
Sleep, 333
PixelGetColor, color, 354, 682
	if (color = "0x2020E7")
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(330, 508), % Rand(676, 708) 	;Red Quit
			Sleep, %Redquit%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
	else
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(467, 826), % Rand(676, 708) 	;Close
			Sleep, %Close%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
Sleep, %Mission%
}
Goto, eventrepeat
return

eventrepeat:
settimer, event, 3300000
return
event:
loop, 5
{
WinActivate, Sem Título - Paint ahk_class MSPaintApp
Sleep, 333
PixelGetColor, color, 354, 682
	if (color = "0x2020E7")
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(330, 508), % Rand(676, 708) 	;Red Quit
			Sleep, %Redquit%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
	else
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(467, 826), % Rand(676, 708) 	;Close
			Sleep, %Close%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
Sleep, %Mission%
}
settimer, event, on
Goto, eventrepeat
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

^!r::

Inputbox, number, Raid, Repetir quantas vezes (1-5)?
	If (number < 1 || number > 5)
		Return
	Else
		Goto, raid%number%
	Return	

raid1:
Gosub, RaidWait
loop, 1
{
WinActivate, Sem Título - Paint ahk_class MSPaintApp
Sleep, 333
PixelGetColor, color, 354, 682

	if (color = "0x2020E7")
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(330, 508), % Rand(676, 708) 	;Red Quit
			Sleep, %Redquit%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
	else
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(552, 685), % Rand(709, 750) 	;Raid
			Sleep, %Raid%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
Sleep, %RaidM%
}
Goto, raidrepeat
return

raidrepeat:
settimer, raid, 3000000
return
raid:
loop, 5
{
WinActivate, Sem Título - Paint ahk_class MSPaintApp
Sleep, 333
PixelGetColor, color, 354, 682

	if (color = "0x2020E7")
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(330, 508), % Rand(676, 708) 	;Red Quit
			Sleep, %Redquit%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
	else
	{
			WinActivate, Sem Título - Paint ahk_class MSPaintApp
			Sleep, 333
			MouseClick, left, % Rand(552, 685), % Rand(709, 750) 	;Raid
			Sleep, %Raid%
			MouseClick, left, % Rand(136, 313), % Rand(709, 742)	;Retry
			Sleep, %Retry%
			MouseClick, left, % Rand(704, 1063), % Rand(687, 723) 	;Go
	}
Sleep, %RaidM%
}
settimer, raid, on
Goto, raidrepeat
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

rand(min, max) {
    Random, rand, % min, % max
    return rand
}

[Exaskryz]

This may not answer your question. But two mistakes are jumping out at me:

One: All those Randoms you set are not executed. Your F12 hotkey is in the way. The series of Randoms are not in the auto-execute section. So those variables are treated as null (0).

Two: These commands aren't wrapped in a block.

Code: Select all

	Else
                { ; missing
		min := wait * 60000
		Sleep, %min%
                } ; missing
	Return

Your code is extensive, and it's great you've shared all that. It'll take a while to go through it and screen for other mistakes. I don't plan to go into it as of now; hopefully someone else swings by and points out things that may need changing.

[Brunoire]

I finally fixed it by making a random sleep command instead of using random.

Before

Code: Select all

Sleep, %a%

Random, a, 5000,7000

After

Code: Select all

rsleep(5000, 7000)

rsleep(min, max) {
sleep % rand(min, max)
}
Return

[Peared]

Code: Select all

^!m::

Inputbox, number, Quest, Repetir quantas vezes (1-5)?
If (number < 1 || loop > 5)  ; <--  loop  should not be here 
Return

Code: Select all

^!e::
Inputbox, number, Event, Repetir quantas vezes (1-5)?.
	If (number < 1 || number > 5)   ; [1] is only possible input number that does not end in return,  numbers [2-5] will break thread. 
		Return
	Else
		Goto, eve%number%  ; ------------------ 
	Return

Inputbox, number, Raid, Repetir quantas vezes (1-5)?
	If (number < 1 || number > 5)   ;   [1] same as the other [2-5] Non existing Goto, raid%number% 
		Return
	Else
		Goto, raid%number%  ;-----------------------------
	Return