User:LockeslyLCrit/DiagonalMining.ahk

This is an AutoHotkey script for saving your fingers from much pain while attempting to mine diagonally.

; Diagonal Mining
; Hit Ctrl-Shift-S at a location to start mining.
;
; Hit Ctrl-Shift-W once finished with a loop to add 
; a passageway in the middle for better miner access.
;
; Ctrl-Shift-D will remove a diagonal line in case lag
; or other issues screws up your mining designations.
; If framerate is a major issue, change SetKeydelay, 30
; to a higher number.
;
; NOTE: Try to start in the top right area. This script
; will mine from NE to SW.
;
;
; Code by Lockesly L'Crit, heavily modified off of
; StrawberryBunny's Mineshaft script.
; Cleaned up and edited for size by Bagok701
; 

SetKeydelay, 30

^+s::
x = 140 ; Total squares left and down 6 min
y = 4   ; 10*y squares tall

;;Main Loop

Loop %y%
{
	Loop %x%
	{
		Send {Enter 2}
		Send 1
	}
	Send {Enter}
	Send {8 5}
	Send {Enter 2}
	Send {2 10}
	Send {Enter}
	Loop %x%
	{
		Send {Enter 2}
		Send 9
	}
	Send {Enter}
	Send {8 5}
	Send {Enter 2}
	Send {2 10}
	Send {Enter}
}
return


;;Adding passageways for miners in the middle

 ^+w::
w = 75
z = 35

{
	Send {8 5}
	Loop %w%
	{
		Send 1
	}
	Send {Enter}
	Loop %z%
	{
		Send 8
	}
	Send {Enter}
}
return

 ^+d::
x = 140
{
Send x
	Loop %x%
	{
		Send {Enter 2}
		Send 1
	}
}
return