Geek

;VERSION 1.14
;Dis be written by Geek
;/v/ Mortal Online Steam Group
;PRESS TILDE (~) TO TOGGLE/PAUSE IT
;HIT PAUSE/BREAK TO EXIT
#RequireAdmin
#Include <Misc.au3>

;hardcoded settings
Opt("SendKeyDelay", 100)
Opt("MouseClickDelay", 100)
Opt("MouseClickDownDelay", 100)

$wintitle = InputBox(RandomStr(), "Window settings? This value can normally be left at the default value.", "[TITLE:UnrealEngine3; CLASS:LaunchUnrealUWindowsClient]")
If not WinExists($wintitle) Then
MsgBox(64, RandomStr(), "The window could not be found. Please start Mortal Online first.")
Exit
EndIf

$random = MsgBox(36, RandomStr(), "Do you want to harvest after a random value in seconds (between a min and max value)? If not, you'll be able to set a fixed value in seconds.")
If $random == 6 Then
$min = InputBox(RandomStr(), "Min random seconds to harvest?", 3.1)
$max = InputBox(RandomStr(), "Max random seconds to harvest?", 3.5)
If $min == "" OR $max == "" OR IsNumber($min) == False OR IsNumber($max) == False Then
Exit
EndIf
Else
$time = InputBox(RandomStr(), "After how many seconds do you want to harvest?", 3.1)
If $time == "" OR IsNumber($time) == False Then
Exit
EndIf
EndIf

;init
Global $active = True
Global $timer = 0
Global $curwindow
Global $rcoords
Global $qore = 0

;loop
While 1
Sleep(10)

If _IsPressed("13") Then
        SoundPlay(@WindowsDir & "\media\chord.wav", 1)
        Exit
EndIf
;pause - toggle
If _IsPressed("C0") Then ;z, 7A
If $active Then
$active = False
TraySetState(4)
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
ElseIf $active == False Then
$active = True
TraySetState(8)
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
EndIf

;idling
ElseIf $active == False Then
Sleep(10)
ElseIf $active Then
If $random == 6 Then
$sleep = Random($min * 1000, $max * 1000, 1)
Else
$sleep = $time * 1000
EndIf

;click!
If TimerDiff($timer) > $sleep Then

;SHIT GOES HERE LOL - PUT YO COMMANDS HERE
ControlSend("Unreal","","","2")

$timer = TimerInit()
EndIf
EndIf
WEnd


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

Func RandomStr($length = 0)
If $length == 0 Then
$length = Random(2, 8, 1)
EndIf
$seed = ""
Do
If Random() < 0.5 Then
If Random(0, 1, 1) = 0 Then $seed = $seed & Random(5, 10, 1)
If Random(0, 1, 1) = 1 Then $seed = $seed & Random(0, 4, 1)
$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
$seed = $seed & $Letter
Else
If Random(0, 1, 1) = 1 Then $seed = $seed & Random(5, 10, 1)
If Random(0, 1, 1) = 0 Then $seed = $seed & Random(0, 4, 1)
$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
$seed = $seed & $Letter
EndIf
Until (StringLen($seed) > $length)
Return $seed
EndFunc ;==>RandomStr