v50 Steam/Premium information for editors
  • v50 information can now be added to pages in the main namespace. v0.47 information can still be found in the DF2014 namespace. See here for more details on the new versioning policy.
  • Use this page to report any issues related to the migration.
This notice may be cached—the current version can be found here.

Difference between revisions of "User:LockeslyLCrit/DiagonalMining.ahk"

From Dwarf Fortress Wiki
Jump to navigation Jump to search
m
(: ))
 
(One intermediate revision by one other user not shown)
Line 11: Line 11:
 
; Ctrl-Shift-D will remove a diagonal line in case lag
 
; Ctrl-Shift-D will remove a diagonal line in case lag
 
; or other issues screws up your mining designations.
 
; or other issues screws up your mining designations.
; If framerate is a major issue, replace all Sleep 30
+
; If framerate is a major issue, change SetKeydelay, 30
; with a higher number.
+
; to a higher number.
 
;
 
;
 
; NOTE: Try to start in the top right area. This script
 
; NOTE: Try to start in the top right area. This script
Line 20: Line 20:
 
; Code by Lockesly L'Crit, heavily modified off of
 
; Code by Lockesly L'Crit, heavily modified off of
 
; StrawberryBunny's Mineshaft script.
 
; StrawberryBunny's Mineshaft script.
 +
; Cleaned up and edited for size by Bagok701
 +
;
  
+
SetKeydelay, 30
^+s::
 
x = 140
 
y = 4
 
 
 
 
 
  
 +
^+s::
 +
x = 140 ; Total squares left and down 6 min
 +
y = 4  ; 10*y squares tall
  
 
;;Main Loop
 
;;Main Loop
Line 35: Line 35:
 
Loop %x%
 
Loop %x%
 
{
 
{
Send {Enter}
+
Send {Enter 2}
Sleep 30
 
 
Send {Enter}
 
Sleep 30
 
 
 
Send 1
 
Send 1
Sleep 30
 
 
 
}
 
}
{
+
Send {Enter}
 +
Send {8 5}
 +
Send {Enter 2}
 +
Send {2 10}
 +
Send {Enter}
 +
Loop %x%
 +
{
 +
Send {Enter 2}
 
Send 9
 
Send 9
Sleep 30
+
}
Send {Enter}
+
Send {Enter}
Sleep 30
+
Send {8 5}
Send {Up}
+
Send {Enter 2}
Sleep 30
+
Send {2 10}
Send {Up}
+
Send {Enter}
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Enter}
 
Sleep 30
 
}
 
{
 
Send {Enter}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Enter}
 
Sleep 30
 
}
 
Loop %x%
 
{
 
Send {Enter}
 
Sleep 30
 
 
Send {Enter}
 
Sleep 30
 
 
Send 9
 
Sleep 30
 
}
 
{
 
Send 1
 
Sleep 30
 
Send {Enter}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Up}
 
Sleep 30
 
Send {Enter}
 
Sleep 30
 
}
 
{
 
Send {Enter}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Down}
 
Sleep 30
 
Send {Enter}
 
Sleep 30
 
}
 
 
}
 
}
 
return
 
return
Line 152: Line 61:
 
  ^+w::
 
  ^+w::
 
w = 75
 
w = 75
z = 30
+
z = 35
  
 
{
 
{
Send 8
+
Send {8 5}
Sleep 30
+
Loop %w%
Send 8
+
{
Sleep 30
 
Send 8
 
Sleep 30
 
Send 8
 
Sleep 30
 
Send 8
 
Sleep 30
 
 
 
Loop %w%
 
{
 
 
Send 1
 
Send 1
Sleep 30
+
}
}
+
Send {Enter}
{
+
Loop %z%
Send {Enter}
+
{
Sleep 30
+
Send 8
}
+
}
Loop %z%
+
Send {Enter}
{
 
Send 8
 
Sleep 30
 
}
 
{
 
Send {Enter}
 
Sleep 30
 
}
 
 
}
 
}
 
return
 
return
Line 191: Line 82:
 
{
 
{
 
Send x
 
Send x
Sleep 30
 
 
Loop %x%
 
Loop %x%
 
{
 
{
Send {Enter}
+
Send {Enter 2}
Sleep 30
 
 
Send {Enter}
 
Sleep 30
 
 
 
Send 1
 
Send 1
Sleep 30
 
 
}
 
}
 
}
 
}

Latest revision as of 12:17, 26 May 2010

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