|
|
| Line 1: |
Line 1: |
| − | | + | [[Image:carp.JPG]] |
| − | // END //
| |
| − | <nowiki>// Ver 3.1 - 4/05/09
| |
| − | // Oni's Carb blade macro: Will make a 7.1k to 7.2k blade
| |
| − | // in about 5 seconds. Works only in screen resolution of 1024x768
| |
| − | // Uses Iron or Copper: Have Metal, Ball Peen Hammer, Shaping Mallet,
| |
| − | // and Wide Tungsten Chisel in your inventory. See pic for mouse starting
| |
| − | // position. Place mouse on starting position, Tab over to ACtool, hit F2.
| |
| − | | |
| − | | |
| − | constants
| |
| − | StartX = 0
| |
| − | StartY = 0
| |
| − | NewX = 0
| |
| − | NewY = 0
| |
| − | Job = 0
| |
| − | Batch = 0
| |
| − | MetalX = 0
| |
| − | MetalY = 0
| |
| − | TempX = 0
| |
| − | UnloadX = 0
| |
| − | UnloadY = 0
| |
| − | FinX = 0
| |
| − | FinY = 0
| |
| − | end
| |
| − | | |
| − | SetConst StartX = {MouseX}
| |
| − | SetConst StartY = {MouseY}
| |
| − | SetConst UnloadX = {MouseX}
| |
| − | SetConst UnloadY = {MouseY}
| |
| − | SetConst FinX = {MouseX}
| |
| − | SetConst FinY = {MouseY}
| |
| − | | |
| − | Form Anvil, Settings
| |
| − | ed1=Editbox:Batch:1
| |
| − | ed2=Combobox:Project:Carpentry Blade
| |
| − | ed3=Combobox:Metal:Copper, Iron
| |
| − | END
| |
| − | | |
| − | FormLoad Anvil, Anvil.frm
| |
| − | | |
| − | if ShowForm Anvil
| |
| − | Set Batch = Anvil[ed1]
| |
| − | Case
| |
| − | When Anvil[ed2] = Carpentry Blade
| |
| − | Set Job = Carp
| |
| − | End
| |
| − | else
| |
| − | stop
| |
| − | end
| |
| − | | |
| − | FormSave Anvil, Anvil.frm
| |
| − | | |
| − | MousePos 237, 5
| |
| − | | |
| − | LeftClick
| |
| − | delay 100
| |
| − | | |
| − | Loop $Batch
| |
| − | Call Anvil[ed3]
| |
| − | Call $Job
| |
| − | Call unload
| |
| − | End
| |
| − | | |
| − | Procedure Iron
| |
| − | Setconst MetalX = 75
| |
| − | SetConst MetalY = 73
| |
| − | End
| |
| − | | |
| − | Procedure Copper
| |
| − | SetConst MetalX = 75
| |
| − | SetConst MetalY = 87
| |
| − | End
| |
| − | ////////////////////////////
| |
| − | Procedure Unload
| |
| − | delay 100
| |
| − | MousePos $UnloadX, $UnloadY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | delay 100
| |
| − | //Compute NewX = $UnloadX + 68 // Discard
| |
| − | //Compute NewY = $UnloadY + 7 // Discard
| |
| − | //
| |
| − | Compute NewX = $UnloadX + 68 // Complete
| |
| − | Compute NewY = $UnloadY - 24 // Complete
| |
| − | //
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | leftclick
| |
| − | delay 100
| |
| − | Compute NewX = $UnloadX - 83 // YES
| |
| − | Compute NewY = $UnloadY + 152 // YES
| |
| − | delay 100
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 2000
| |
| − | leftclick
| |
| − | delay 100
| |
| − | // MousePos 554, 279 // Start
| |
| − | End
| |
| − | | |
| − | ////////////////////////////
| |
| − | | |
| − | Procedure Carp /// CARP START
| |
| − | delay 100
| |
| − | MousePos $StartX, $StartY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // Load click
| |
| − | Compute NewX = $StartX + 45
| |
| − | Compute NewY = $StartY - 10
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // choose metal
| |
| − | Compute NewX = $StartX + $MetalX
| |
| − | Compute NewY = $StartY - $MetalY
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // metal click
| |
| − | Compute TempX = $NewX + 10
| |
| − | MousePos $TempX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | // Shaping mallet //
| |
| − | MousePos $StartX, $StartY
| |
| − | delay 100
| |
| − | Keys S
| |
| − | Keys 8
| |
| − | // end Shaping mallet //
| |
| − | | |
| − | delay 100
| |
| − | | |
| − | // round 1 front edge
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 16
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 40
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 64
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 88
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 112
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 136
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 160
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 182
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // end 1
| |
| − | | |
| − | // Wide Chisel //
| |
| − | MousePos $StartX, $StartY
| |
| − | delay 100
| |
| − | Keys C
| |
| − | Keys 9
| |
| − | // end Wide Chisel //
| |
| − | | |
| − | // start round 2 //
| |
| − | // 2 edges //
| |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 16
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 182
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // end 2 edges //
| |
| − | | |
| − | Compute NewX = $StartX - 7
| |
| − | Compute NewY = $StartY + 71
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX - 8
| |
| − | Compute NewY = $StartY + 127
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | delay 100
| |
| − | // end center 2 front
| |
| − | // end Round 2
| |
| − | | |
| − | // Wide Chisel //
| |
| − | MousePos $StartX, $StartY
| |
| − | delay 100
| |
| − | Keys C
| |
| − | Keys 4
| |
| − | // end Wide Chisel //
| |
| − | | |
| − | delay 100
| |
| − | | |
| − | // Center
| |
| − | Compute NewX = $StartX + 43
| |
| − | Compute NewY = $StartY + 70
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX + 43
| |
| − | Compute NewY = $StartY + 98
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX + 43
| |
| − | Compute NewY = $StartY + 126
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // end Center
| |
| − | | |
| − | delay 100
| |
| − | | |
| − | // Ball Peen //
| |
| − | MousePos $StartX, $StartY
| |
| − | delay 100
| |
| − | Keys B
| |
| − | Keys 9
| |
| − | // end Ball Peen //
| |
| − | | |
| − | // middle points
| |
| − | Compute NewX = $StartX + 55
| |
| − | Compute NewY = $StartY + 32
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX + 55
| |
| − | Compute NewY = $StartY + 162
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | // END middle points
| |
| − | | |
| − | // Edge points
| |
| − | Compute NewX = $StartX + 107
| |
| − | Compute NewY = $StartY + 28
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX + 107
| |
| − | Compute NewY = $StartY + 167
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | //
| |
| − | | |
| − | Compute NewX = $StartX + 99
| |
| − | Compute NewY = $StartY + 38
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX + 99
| |
| − | Compute NewY = $StartY + 157
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | //
| |
| − | | |
| − | Compute NewX = $StartX + 106
| |
| − | Compute NewY = $StartY + 48
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | | |
| − | Compute NewX = $StartX + 106
| |
| − | Compute NewY = $StartY + 147
| |
| − | MousePos $NewX, $NewY
| |
| − | delay 100
| |
| − | Rightclick
| |
| − | // End Edge Points
| |
| − | //
| |
| − | MousePos $FinX, $FinY
| |
| − | delay 100
| |
| − | Keys Q
| |
| − | Keys Q
| |
| − | Delay 1500
| |
| − | // END Blade //
| |
| − | END
| |
| − | | |
| − | // END //</nowiki>
| |
