From Dwarf Fortress Wiki

[edit] I voted for Example in twenty-ten

We need to make a button for this. [[1]]

[edit] MoQ's Macros

This uses AutoHotKey, a free keyboard scripting library. To use, download and install AutoHotKey, then copy+paste the code below into a notepad or .txt file, then rename the extension on the filenamehere.txt file to filenamehere.ahk

[edit] RoarCircle

As inspired by Necronopticous's Roarsilver [2]. Will be improved in the future...

Press F1 for basic structure, Press F2 to layout a moat (I do not trust my dwarves with channels). Pressing F3 will layout bedroom chambers.

#Persistent
F1::
; Creates main block
send dd{Enter}{NumpadHome 9}{Enter}{Enter}
send {NumpadLeft 4}{Enter}{Enter}{NumpadRight 26}{NumpadDown 18}{Enter}
; Creates Right-side bits
send {NumpadPgUp}{Enter}{NumpadUp 16}{Enter}
send {NumpadDown}{NumpadPgDn}{Enter}{NumpadDown 12}{Enter}
send {NumpadUp 2}{NumpadPgUp}{Enter}{NumpadUp 6}{Enter}
; Creates Top-side bits
send {NumpadHome 4}{NumpadUp 3}{Enter}{NumpadUp}{NumpadLeft 24}{Enter}
send {NumpadPgUp}{Enter}{NumpadRight 22}{Enter}
send {NumpadHome}{NumpadLeft}{Enter}{NumpadLeft 18}{Enter}
send {NumpadPgUp}{Enter}{NumpadRight 16}{Enter}
send {NumpadHome}{NumpadLeft}{Enter}{NumpadLeft 12}{Enter}
send {NumpadPgUp}{NumpadRight 2}{Enter}{NumpadRight 6}{Enter}
; Creates Left-side bits
send {NumpadEnd 8}{NumpadLeft 9}{Enter}{Numpaddown 16}{Enter}
send {NumpadHome}{NumpadUp}{Enter}{NumpadUp 12}{Enter}
send {NumpadDown 2}{NumpadEnd}{Enter}{NumpadDown 6}{Enter}
; Creates Bottom-side bits
send {NumpadPgDn 4}{NumpadDown 3}{Enter}{Numpaddown}{NumpadRight 24}{Enter}
send {NumpadEnd}{Enter}{NumpadLeft 22}{Enter}
send {NumpadPgDn}{NumpadRight}{Enter}{NumpadRight 18}{Enter}
send {NumpadEnd}{Enter}{NumpadLeft 16}{Enter}
send {NumpadPgDn}{NumpadRight}{Enter}{NumpadRight 12}{Enter}
send {NumpadEnd}{NumpadLeft 2}{Enter}{NumpadLeft 6}{Enter}
; Creates Stairs in Center
send {NumpadUp 15}{NumpadRight 3}
send i
send {Enter}{Enter}
send {NumpadPgUp}{Enter}{Enter}
send {NumpadHome}{Enter}{Enter}
send {NumpadEnd}{Enter}{Enter}
; Resets to center, for going up and down levels
send {NumpadRight}
Exit

F2::
; creates the moat
send dd
send {NumpadUp 18}

send {NumpadHome 4}{Enter}{NumpadRight 8}{NumpadDown 4}{Enter}
send {NumpadPgDn}{Enter}{NumpadUp 4}{NumpadRight 2}{Enter}
send {NumpadPgDn}{Enter}{NumpadDown 4}{NumpadRight}{Enter}
send {NumpadPgDn}{Enter}{NumpadUp 4}{Enter}
send {NumpadPgDn}{Enter}{NumpadDown 4}{NumpadRight}{Enter}
send {NumpadPgDn}{Enter}{NumpadUp 4}{Enter}
send {NumpadPgDn}{Enter}{Enter}
send {NumpadDown}{Enter}{NumpadPgDn}{Enter}
send {NumpadRight}{Enter}{Enter}

send {NumpadPgDn}{Enter}{NumpadLeft 3}{Enter}
send {NumpadDown}{Enter}{NumpadDown}{NumpadRight 4}{Enter}
send {NumpadPgDn}{Enter}{NumpadLeft 4}{Enter}
send {NumpadPgDn}{Enter}{NumpadRight 4}{NumpadDown}{Enter}
send {NumpadPgDn}{Enter}{NumpadLeft 4}{NumpadDown 2}{Enter}
send {NumpadPgDn}{Enter}{NumpadRight 4}{NumpadDown 8}{Enter}
send {NumpadEnd}{Enter}{NumpadLeft 4}{NumpadDown 2}{Enter}
send {NumpadEnd}{Enter}{NumpadRight 4}{NumpadDown}{Enter}
send {NumpadEnd}{Enter}{NumpadLeft 4}{Enter}
send {NumpadEnd}{Enter}{NumpadRight 4}{NumpadDown}{Enter}
send {NumpadEnd}{Enter}{NumpadLeft 4}{Enter}
send {NumpadPgDn}{Enter}{NumpadPgDn}{Enter}
send {NumpadPgUp}{Enter}{Enter}
send {NumpadEnd}{NumpadEnd}{Enter}{Enter}

send {NumpadEnd}{Enter}{NumpadUp 4}{Enter}
send {NumpadEnd}{Enter}{NumpadDown 4}{NumpadLeft}{Enter}
send {NumpadEnd}{Enter}{NumpadUp 4}{Enter}
send {NumpadEnd}{Enter}{NumpadDown 4}{NumpadLeft}{Enter}
send {NumpadEnd}{Enter}{NumpadUp 4}{NumpadLeft 2}{Enter}
send {NumpadEnd}{Enter}{NumpadDown 4}{NumpadLeft 8}{Enter}
send {NumpadHome}{Enter}{NumpadUp 4}{NumpadLeft 2}{Enter}
send {NumpadHome}{Enter}{NumpadDown 4}{NumpadLeft}{Enter}
send {NumpadHome}{Enter}{NumpadUp 4}{Enter}
send {NumpadHome}{Enter}{NumpadDown 4}{NumpadLeft}{Enter}
send {NumpadHome}{Enter}{NumpadUp 4}{Enter}
send {NumpadEnd}{Enter}{NumpadEnd}{Enter}
send {NumpadPgDn}{Enter}{Enter}
send {NumpadHome}{NumpadHome}{Enter}{Enter}

send {NumpadHome}{Enter}{NumpadRight 4}{Enter}
send {NumpadHome}{Enter}{NumpadLeft 4}{NumpadUp}{Enter}
send {NumpadHome}{Enter}{NumpadRight 4}{Enter}
send {NumpadHome}{Enter}{NumpadLeft 4}{NumpadUp}{Enter}
send {NumpadHome}{Enter}{NumpadRight 4}{NumpadUp 2}{Enter}
send {NumpadHome}{Enter}{NumpadLeft 4}{NumpadUp 8}{Enter}
send {NumpadPgUp}{Enter}{NumpadRight 4}{NumpadUp 2}{Enter}
send {NumpadPgUp}{Enter}{NumpadLeft 4}{NumpadUp}{Enter}
send {NumpadPgUp}{Enter}{NumpadRight 4}{Enter}
send {NumpadPgUp}{Enter}{NumpadLeft 4}{NumpadUp}{Enter}
send {NumpadPgUp}{Enter}{NumpadRight 4}{Enter}
send {NumpadHome}{Enter}{NumpadHome}{Enter}
send {NumpadEnd}{Enter}{Enter}
send {NumpadPgUp}{NumpadPgUp}{Enter}{Enter}

send {NumpadPgUp}{Enter}{NumpadDown 4}{Enter}
send {NumpadPgUp}{Enter}{NumpadUp 4}{NumpadRight}{Enter}
send {NumpadPgUp}{Enter}{NumpadDown 4}{Enter}
send {NumpadPgUp}{Enter}{NumpadUp 4}{NumpadRight}{Enter}
send {NumpadPgUp}{Enter}{NumpadDown 4}{NumpadRight 2}{Enter}

; Resets to Center
send {NumpadRight 5}{NumpadDown 17}
Exit

F3::
; Creates Bedrooms

;Moves to first room
send dx{NumpadUp 7}{NumpadRight 2}
;spam
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

;Moves to 2nd room etc
send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadHome 3}{NumpadLeft}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadPgDn 3}{NumpadDown}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadEnd 3}{NumpadDown}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadPgUp 3}{NumpadRight}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadDown 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadPgDn 3}{NumpadRight}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadHome 3}{NumpadUp}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadRight 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadPgUp 3}{NumpadUp}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadLeft 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

send dx{NumpadUp 4}
send {NumpadHome 2}{Enter}{NumpadPgDn 4}{Enter}
send d{NumpadHome}{Enter}{NumpadHome 2}{Enter}{NumpadPgDn}
send i{Enter}{Enter}

;reset to center
send {NumpadDown 10}{NumpadLeft 6}
Exit