Cegaiel: Created page with "

 ; 1680x1050 Resolution ONLY!  ; Have this in your inventory: ; 3 main tools: Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel  ; Metal: Iron or Copper  ;YOU MUST ..."

2015-12-08T02:38:22Z

Created page with "<pre> ; 1680x1050 Resolution ONLY! ; Have this in your inventory: ; 3 main tools: Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel ; Metal: Iron or Copper ;YOU MUST ..."

New page

<pre>
; 1680x1050 Resolution ONLY!

; Have this in your inventory:
; 3 main tools: Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel
; Metal: Iron or Copper

;YOU MUST USE THIS ON GUILDED OR PUBLIC ANVILS.

;If you do not, then it will misclick. If you are using this on a private anvil,
;then temporarily set to Public

; Last Update: 12/10/2010

; ------------------------------------------------

; Ctrl+P to pause script and Ctrl+P again to resume
; The AHK icon in system tray will turn red while paused.
; Ctrl+R to reload script

; Author: Cegaiel
; Full Credit to Oni , this macro is based off his hard work for getting the hit locations. We appreciate your hard work :)

; Original Creation Date: 9/24/2010

; --------------- HOTKEYS --------------------------
; Note this script is always running. Even when its not "clicking".
; The hotkeys work anytime when the script is NOT clicking and sitting idle

; F2: Set Location, make blade, copy coords into clipboard (in case you want to Paste for future reference)
; Right Alt: Use last F2 location, make blade
; Right Shift: Show current coordinates locked into memory
; <Hold> Left Click: Show current mouse location

; Left Alt: Approve and unload the blade from anvil
; Spacebar: Discard the blade and recover metal

; "N" on keyboard: Turn ON or OFF Non Stop mode.

; How Non Stop Mode works:
; Once you find your perfect starting location and get a high quality blade (6.5k) then turn on Non Stop mode, by pressing "N" key.
; Hit Left Alt (as usual) to Accept that 6.5 quality blade. But after making subsequent (future) blades, it will automatically

; Accept and keep making more blades, non stop. There will be a 2 second pause after the blade is made (when you see blade quality show on screen)
; You will want to do this (Ctrl+P to pause), manually, when you on your last metal.
;------------------------------------------------------

displayMsg = 0
NonStop = 0
BladesCreated = 0

WinActivate, eGenesis Client
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos

IfWinExist eGenesis Client
{

Gui, Font, bold
Gui, Add, Text,, Metal Type:
Gui, Font, normal

Gui, Add, DropDownList, vMetal Choose1, Copper|Iron

Gui, Font, bold
Gui, Add, Text,, `nAdjust Camera/Zoom Level?
Gui, Font, normal
Gui, Add, Text,, Choose Yes if this is the first time running.`nChoose No if you already performed this step and locked screen.
Gui, Add, DropDownList, vZoom Choose2, Yes|No

Gui, Font, bold
Gui, Add, Text,, `nAdv Blacksmithing Skill Level:
Gui, Font, normal

Gui, Add, DropDownList, vSkill Choose1, 1|2

Gui, Font, bold

Gui, Add, Text,, `nQuantity Blades (optional)
Gui, Font, normal

Gui, Add, Edit, vQty wp number

Gui, Add, Text,, `nYou only need to enter a Qty if you plan on using Non stop mode (Automatic mode).`nThis can be activated by clicking the "N" button on keyboard, later.
Gui, Add, Text,, If you do not enter a Qty now, then you will have to make each blade manually with the hotkeys.`nDon't forget, press F1 at anytime to see what the hotkeys are.`n

Gui, Add, Button, gStart, START
Gui, Show
}
else
{
MsgBox, eGenesis Client not running, aborting...
Exit
}
return

Start:
WinActivate, eGenesis Client
WinGet, GameWinHandle, ID, eGenesis Client
StartX = 0
StartY = 0
Gui, Submit

Gosub, HELP

MetalX = 63

if (Metal = "Iron")
{
MetalY = 73 ;Iron
}else{
MetalY = 90 ;Copper
}

if (ZOOM == "Yes")
{

MsgBox, Step 1: Your camera angle will now automatically be adjusted to double F8 mode and zoomed in to maximum.`n`nThis will take 10 seconds, do not move mouse while this occurs!`n`nNote: If you screen does not zoom in, then you already have your screen locked, press ALT+L to unlock and then reload this script to try again!`n`nPress OK to proceed...

WinActivate, eGenesis Client

;Now Zoom in all the way with F8
WinActivate, eGenesis Client
Sleep 1000
MouseGetPos, OldMX, OldMY
Send {F5}{F8}{F8}
MouseMove, 0,0
Sleep 5000
MouseMove, 0, 0
Sleep 5000
MouseMove, %OldMX%, %OldMY%, 0
}

MsgBox, Now hover mouse on the anvil starting position (image in wiki) and hit F2 to make a blade.`n`nMetal: %Metal%`nQty: %Qty%

WinActivate, eGenesis Client

#Persistent
SetTimer, GetStartPos, 100
return

GetStartPos:

GetKeyState, state, F2
if state = D
{
MouseGetPos, StartX, StartY
Tooltip
Clipboard = Last Project: %StartX%, %StartY%`n
Gosub, Load
}

if (NonStop = 0)
{
GetKeyState, state, N

if state = D
{

if (qty = 0) | (qty == "") | (qty = 1)
{
Msgbox, Non stop mode requires a quantity of 2 or more!

} else if ((StartX == 0) && (StartY == 0)) {
Msgbox, Can not set Non Stop mode...`n`nMake a blade first with F2 key!

} else {
NonStop := 1
Msgbox, Non Stop mode: ENABLED!`n`nIf you have a blade on the anvil, then click Left Alt.`n`nIt will unload the metal and make all future blades automatically.`n`nOtherwise, hit Left Alt key to repeat your last successful blade and it will begin making the blades, uninterupted.
}

}

}

GetKeyState, state, RAlt
if state = D
{
Gosub, Load
}

GetKeyState, state, RShift
if state = D
{

if ((StartX == 0) && (StartY == 0))
{
Msgbox, No coordinates in memory, Start a project with F2, first...
}else{
Msgbox, Position in memory: %StartX%, %StartY%`n`nPress Right Alt to make another blade at these coordinates`n`nThe coordinates are also located in clipboard, Ctrl+V to paste.
}
}

GetKeyState, state, LShift
if state = D
{
MouseGetPos, xpos, ypos
ToolTip, Coordinates: %xpos%`, %ypos%`n`nPress F2 to start project.
}

GetKeyState, state, LAlt
if state = D
{

if ((StartX == 0) && (StartY == 0))
{
Msgbox, Can not Approve blade, no blade has been made yet!
} else {

Gosub, ACCEPT
}

}

GetKeyState, state, Space
if state = D
{
Gosub, DISCARD
}

GetKeyState, state, F1
if state = D
{
Gosub, HELP
}
return

LOAD:
WinActivate, eGenesis Client

if StartX = 0
{
MsgBox, You must set the start position by hovering mouse over anvil and clicking F2, first!
return
}

;Load Anvil
Click right %StartX%, %StartY%
sleep 100
NewX := StartX + 29
NewY := StartY - 12
Click %NewX%, %NewY% ;Left
sleep 100

;Choose Metal
NewX := StartX + MetalX
NewY := StartY - MetalY
Click %NewX%, %NewY% ;Left
sleep 100

;Click Carp Blade from Project menu
TempX := NewX + 20
TempY := NewY - 17

;If you have Adv Blacksmithing 1 Skill, then Carp blade will be where the mouse currently is
;If you have Adv BS 2 Skill, then there are new options in menu, such as Archaeologist Shovel which throws the location off..
;This was the purpose of asking what your skill level is at begining.

if Skill = 1
{
Click %TempX%, %NewY% ;Left
} else {
Click %TempX%, %TempY% ;Left

}

Sleep 100

if (displayMsg = 0)
Msgbox, Are you sure you have your chat minimized?`n`nIf so, click OK to proceed...`n`n`nYou will only be asked this once.

;Set Tool: Shaping Mallet

Mousemove %StartX%, %StartY%
Send {S}
Send {8}
;end Set Tool: Shaping mallet
sleep 100

;/// FRONT EDGE \\\

;Hit 1
NewX := StartX + 77
NewY := StartY + 42
Click right %NewX%, %NewY%
Sleep 100

;Hit 2
NewX := StartX + 77
NewY := StartY + 80
Click right %NewX%, %NewY%
Sleep 100

;Hit 3
NewX := StartX + 77
NewY := StartY + 119
Click right %NewX%, %NewY%
Sleep 100

;Hit 4
NewX := StartX + 77
NewY := StartY + 157
Click right %NewX%, %NewY%
Sleep 100

;Hit 5
NewX := StartX + 77
NewY := StartY + 196
Click right %NewX%, %NewY%
Sleep 100

;Hit 6
NewX := StartX + 77
NewY := StartY + 234
Click right %NewX%, %NewY%
Sleep 100

;Hit 7
NewX := StartX + 77
NewY := StartY + 273
Click right %NewX%, %NewY%
Sleep 100

;Hit 8
NewX := StartX + 77
NewY := StartY + 312
Click right %NewX%, %NewY%
Sleep 100

;//// END 8 HITS \\\\

;// Wide Chisel Force 9//

Mousemove %StartX%, %StartY%
Send {C}
Send {9}
sleep 100

;// end Wide Chisel Tool Change//

;//// HIT TOP + BOTTOM w/ CHISEL \\\

NewX := StartX + 77
NewY := StartY + 43
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX + 77
NewY := StartY + 311
Click right %NewX%, %NewY%
Sleep 100

;//// END HIT TOP + BOTTOM w/ CHISEL \\\

;//// HIT MID POINTS w/ CHISEL \\\\

NewX := StartX + 77
NewY := StartY + 124
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX + 77
NewY := StartY + 229
Click right %NewX%, %NewY%
Sleep 100

;//// End HIT MID POINTS w/ CHISEL \\\\

;// Wide Chisel Force 4 //
Mousemove %StartX%, %StartY%
sleep 100
Send {C}
Send {4}
sleep 100
;// end Wide Chisel change //

;//// HIT 3 MID DOTS \\\\
NewX := StartX - 1
NewY := StartY + 130
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 1
NewY := StartY + 178
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 1
NewY := StartY + 226
Click right %NewX%, %NewY%
Sleep 100
;//// End HIT 3 MID DOTS \\\\

;// Ball Peen Force 9 //
Mousemove %StartX%, %StartY%
sleep 100
Send {B}
Send {9}
sleep 100
;// end Ball Peen //

;//// HIT 2 MID TIPS/EDGES \\
NewX := StartX - 26
NewY := StartY + 65
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 26
NewY := StartY + 283
Click right %NewX%, %NewY%
Sleep 100

;//// END 2 MID TIPS/EDGES \\

;//// BACK EDGE 6 HITS, Same Tool/Force \\\\

NewX := StartX - 112
NewY := StartY + 65
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 112
NewY := StartY + 283
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 97
NewY := StartY + 75
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 97
NewY := StartY + 273
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 111
NewY := StartY + 85
Click right %NewX%, %NewY%
Sleep 100

NewX := StartX - 111
NewY := StartY + 262
Click right %NewX%, %NewY%
Sleep 100

;//// END BACK EDGE 6 HITS \\\\

Mousemove %StartX%, %StartY%
Sleep 100
Send {Q}
Send {Q}
;// END Blade //
sleep 100

if (displayMsg = 0)
{
MsgBox, Press <Left Alt> to Unload and put blade into your inventory.`n`n Press <SPACEBAR> to Discard Project, keep your %Metal%, try again (F2)...`n`nIf your starting position doesn't produce a quality of blade that you desire, then repeat Step 3.`nIf your starting position is satisfactory, then make your subsequent blades by clicking the Right Alt Key.`n`nInstead of using Right Alt, you can also engage Non Stop mode (N on keyboard). Then click Left Alt to accept. Then it will continue non stop`n`nDon't forget to press F1 for Help Screen for Hotkeys/Shortcuts at anytime!`n`nThis message will not be displayed again!
displayMsg =: 1
}

if (NonStop = 1)
{
;Pause 2 seconds to give you a chance to pause script with Ctrl+P in case you need to stop for something.
;The 2 second pause begins as soon as you see the blade quality appear on the screen
Sleep 2000
GoSub, Accept ; Unload blade and begin a new blade
}

return

HELP:
Msgbox, Make Blade: Hover mouse at starting position (image in wiki) and click F2`n`n`nHOTKEYS (works at anytime while script is idle):`n`nF1: This Help Screen`n`nF2: Make a blade and lock coordinates into memory and clipboard`n`nRight Alt: Make another blade from last F2 coordinates (memory)`nLeft Alt: Approve and Unload a blade into your inventory, after making.`n`n<Hold> Left Shift: Show current mouse position`nRight Shift: Show last F2 coordinates (memory)`n`nSPACEBAR: Discard project and recover metal`n`n"N" key on keyboard: Enable Non Stop Mode`n`nNote: Copper and Iron produce the same quality blades, so use whatever you have the most of.
return

DISCARD:
WinActivate, eGenesis Client

Click right %StartX%, %StartY%
NewX := StartX + 31 ;// Discard
NewY := StartY + 6 ;// Discard
Click %NewX%, %NewY% ;Left
Sleep 150
Click 806, 577 ;Left
Sleep 150
return

ACCEPT:
WinActivate, eGenesis Client

BladesCreated ++

Click right %StartX%, %StartY%
NewX := StartX + 37 ;// Complete
NewY := StartY - 10 ;// Complete

Mousemove %NewX%, %NewY% ;Left
pause
Click %NewX%, %NewY% ;Left
Sleep 150
Click 806, 577 ;Left
Sleep 150

if (BladesCreated = Qty)
{
Msgbox, %BladesCreated% of %Qty% blades have been created, Done!`n`nPausing script.`n`nIf you wish to continue with more, then Ctrl+P to resume.`nCtrl+R to reload script and input a new quantity.
PAUSE
}

if (NonStop = 1)
Gosub, Load

return

^r::reload
^p::Pause
</pre>

User:Cegaiel/Macros/CarpBlade/Code - Revision history

Cegaiel: Created page with "
; 1680x1050 Resolution ONLY! ; Have this in your inventory: ; 3 main tools: Ball Peen Hammer, Shaping Mallet, and Wide Tungsten Chisel ; Metal: Iron or Copper ;YOU MUST ..."