HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{j}", "SetWaterLocation")
HotKeySet("{k}", "SetDrinkLocation")
HotKeySet("{l}", "Start")

Global $Paused
Global $wurmTitle = "Wurm Online 3.54" ; Title of Wurm Window
Global $defaultTile = 49
Global $pos1 ; Water Location
Global $pos2 ; Drink Option Location
Global $running = 0

Func SetWaterLocation()
	$pos1 = MouseGetPos()
EndFunc

Func SetDrinkLocation()
	$pos2 = MouseGetPos()
EndFunc

Func Mine($once)
	Local $minepause = Random(55000, 56000, 1)
	local $currentWindowTitle = WinGetTitle("[active]")
	local $currentMousePos = MouseGetPos()
	
	WinActivate($wurmTitle) ; Activate Wurm Window
	Drink()
	MouseClick("left", @DesktopWidth/2, @DesktopHeight/2)
	If $once Then
		Send("{c}")
	Else
		Send("{c}")
		Send("{c}")
	EndIf
	WinActivate($currentWindowTitle)
	MouseMove($currentMousePos[0], $currentMousePos[1])
	Sleep($minepause)
EndFunc

Func Drink()
	MouseClick("right", $pos1[0], $pos1[1])
	sleep(100)
	MouseClick("right", $pos2[0], $pos2[1])
	sleep(1000)
EndFunc

Func Start()
	if $running==0 Then
		$running=1
		TrayTip("", "Macro started", 5)
	ElseIf $running==1 Then
		$running=0
		TrayTip("", "Macro stopped", 5)
	EndIf
EndFunc

local $firstTile = InputBox("Wurm Mining Script", "How many times has this tile been mined?", "0")
local $mineAmount = $firstTile
While (1)
	if $running==1 Then
		Do
			Mine()
			$mineAmount = $mineAmount - 2
		Until $mineAmount <= 1
		If $mineAmount == 1 Then
			Mine(true)
		EndIf
		
		local $currentWindowTitle = WinGetTitle("[active]")
		local $currentMousePos = MouseGetPos()
		
		WinActivate($wurmTitle) ; Activate Wurm Window
		MouseClick("left", @DesktopWidth/2, @DesktopHeight/2)
		sleep(50)
		Send("{t}")
		sleep(4000)
		Send("{t}")
		sleep(100)
		$mineAmount = $defaultTile
		WinActivate($currentWindowTitle)
		MouseMove($currentMousePos[0], $currentMousePos[1])
	EndIf
	Sleep(10)
WEnd

Func TogglePause()
	$Paused = NOT $Paused
	While $Paused
		sleep(100)
		ToolTip('Script is "Paused"',0,0)
	WEnd
	ToolTip("")
EndFunc

Func Terminate()
	Exit 0
EndFunc