Weapon skill up - Dual player macro.

[Parog]

;Script requires two people with running the same script
;There are two options, Either Defense() and OneHandOffense() OR just TwoHandOffense()
;Basically OneHandOffense() and Defense() will Block for 25 seconds and then attack with 20 swings
;TwoHandOffense will Swing 20 times and then stand still while OneHandOffense attacks
;You need to coordinate with the other person closely as you need to start the macro at the same time so the timing doesn't get off
;There is a 5 second delay for the macro to start
; Wand is slot 8
; Heal Self is slot 1
; Rest is slot 5
; Weapon is slot 0
; Shield is slot 9

WinActivate ("Darkfall Online")
Sleep (5000)
$i = 0
While 1 = 1
    CombatMode()
    Defense()
    OneHandOffense()
    ;TwoHandOffense()
    EquipWand()
    CombatMode()
    Heal()
    Rest()
    EquipWeapon()
WEnd

Func OneHandOffense()
    Sleep (1000)
    $o = 0
    While $o <= 20
        Sleep (1000)
        MouseClick ("left")
        Sleep (1000)
        $o = $o + 1
    WEnd
    Sleep (1000)
    Send ("R")
    Sleep (1000)
EndFunc

Func TwoHandOffense()
    Sleep (1000)
    $o = 0
    While $o <= 20
        Sleep (1000)
        MouseClick ("left")
        Sleep (1000)
        $o = $o + 1
    WEnd
    Sleep (1000)
    Send ("R")
    Sleep (30000)
EndFunc

Func Defense()
    Sleep (1000)
    Send ("{V Down}")
    Sleep (25000)
    Send ("{V Up}")
    Sleep (1000)
EndFunc

Func Heal()
    Sleep (1000)
    Send ("1")
    Sleep (1000)
    MouseClick ("left")
    Sleep (12000)
    Send ("R")
    Sleep (1000)
EndFunc

Func Rest()
    Send ("5")
    Sleep (1000)
    MouseClick ("left")
    Sleep (120000)
    Send ("W")
    Sleep (1000)
EndFunc

Func EquipWeapon()
    Sleep (1000)
    Send ("0") ; Weapon
    Sleep (1000)
    Send ("9") ; Shield
    Sleep (1000)
EndFunc

Func EquipWand()
    Sleep (1000)
    Send ("8")
    Sleep (1000)
EndFunc

Func CombatMode()
    Sleep (1000)
    Send ("R")
    Sleep (1000)
EndFunc