Excelsior

Code: Select all

;; ---------------- Focus' Ability Spammer ---------------- ;;
;; Recasts primary/secondary weapon ability, evasion and    ;;
;; lightning when they have ran out.                        ;;
;; -------------------------------------------------------- ;;

;; -------------------- User Settings --------------------- ;;
;; Hotkey modifier is used when pressing the hotkeys.
;; Options are Shift, Alt, Ctrl
;; You can also leave empty
set %hotkeyModifier Shift

;; The hotkey buttons, modifier + these buttons will
;; switch the spamming on/off.
set %primaryHotkey a
set %secondaryHotkey s
set %evasionHotkey d
set %lightningHotkey f

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


;; --------- Main Code (Do not edit below here) ----------- ;;
set %primary #false
set %secondary #false
set %evasion #false
set %lightning #false


set %time 0

if *FASave = 1
{
    display YesNo Do you wish to use your last settings?
    if #dispres = No
        gosub setSettings
}
else
    gosub setSettings

gosub setWatch
set #menuButton Blah
gosub mainMenu
menu show

set %minDmg #minDmg
set %maxDmg #maxDmg

mainLoop:
; If the weapon has changed.
; The 15 is there so we don't do this everytime we bless, curse etc.
if ( Abs ( %minDmg - #minDmg ) > 15 ) || ( Abs ( %maxDmg <> #maxDmg ) > 15 )
{
    gosub setWatch
    set %minDmg #minDmg
    set %maxDmg #maxDmg
}
gosub hotkeys
if #menuButton = closed
    halt
if #menuButton = primary
{
    if ! %primary
    {
        set %secondary #false
        set %lightning #false
    }
    set %primary ! %primary
}
if #menuButton = secondary
{
    if ! %secondary
    {
        set %primary #false
        set %lightning #false
    }
    set %secondary ! %secondary
}
if #menuButton = evasion
    set %evasion ! %evasion
if #menuButton = lightning
{
    if ! %lightning
    {
        set %secondary #false
        set %primary #false
    }
    set %lightning ! %lightning
}
if #menuButton <> Blah
    gosub mainMenu

set #menuButton Blah
gosub hotkeys
if %primary
{
    cmpPix 1 t
    {
        event macro 35 0
        wait 2
    }
}
gosub hotkeys
if %secondary
{
    cmpPix 2 t
    {
        event macro 36 0
        wait 2
    }
}
gosub hotkeys
if %evasion
{
    if #sysTime - %time > 7600
    {
        event macro 15 147
        set %time #sysTime
    }
    ; If an other spell blocked our casting
    if #sysTime - %time > 1200
    {
       cmpPix 3 t
       {
           event macro 15 147
           wait 1s
       }
    }
}
gosub hotkeys
if %lightning
{
    cmpPix 4 t
    {
        event macro 15 149
        wait 2
    }
}

goto mainLoop




sub setSettings
    set #menuButton Blah
    primaryMenu:
    gosub setupMenu #false #false
    menu show
    event macro 8 1
    wait 5
    
    primaryLoop:
    if #menuButton = closed
        halt
    if #contName <> abilityicon_gump
        goto primaryLoop

    set *FAprimaryX #contPosX
    set *FAprimaryY #contPosY
    
    set #menuButton Blah
    
    secondaryMenu:
    gosub setupMenu #false #false
    menu set ability secondary ability
    menu show
    event macro 8 1
    wait 5

    secondaryLoop:
    if #menuButton = closed
        halt
    if #contName <> abilityicon_gump
        goto secondaryLoop

    set *FAsecondaryX #contPosX
    set *FAsecondaryY #contPosY
    
    set #menuButton Blah

    evasionMenu:
    gosub setupMenu #false #false
    menu set ability evasion spell
    menu show
    event macro 8 1
    wait 5

    evasionLoop:
    if #menuButton = closed
        halt
    if #contName <> spellicon_gump
        goto evasionLoop

    set *FAevasionX #contPosX
    set *FAevasionY #contPosY
    
    set #menuButton Blah

    lightningMenu:
    gosub setupMenu #false #false
    menu set ability lightning strike
    menu show
    event macro 8 1
    wait 5

    lightningLoop:
    if #menuButton = closed
        halt
    if #contName <> spellicon_gump
        goto lightningLoop

    set *FAlightningX #contPosX
    set *FAlightningY #contPosY
    
    set #menuButton Blah
    
    set *FASave 1
return

sub setWatch
    savePix *FAprimaryX *FAprimaryY 1
    savePix *FAsecondaryX  *FAsecondaryY 2
    savePix *FAevasionX *FAevasionY 3
    savePix *FAlightningX *FAlightningY 4
return

sub hotkeys
    if #menuButton = closed
        halt
    onHotKey %primaryHotkey %hotkeyModifier
    {
        set #menuButton primary
    }
    onHotKey %secondaryHotkey %hotkeyModifier
    {
        set #menuButton secondary
    }
    onHotKey %evasionHotkey %hotkeyModifier
    {
        set #menuButton evasion
    }
    onHotKey %lightningHotkey %hotkeyModifier
    {
        set #menuButton lightning
    }
return


sub mainMenu
	menu Clear
	menu window transparent 65
	menu Window Title Focus' Ability
	menu Window Color Teal
	menu Window Size 117 142
	menu Font Transparent #true
	menu Font Align Right
	menu Font Name Times New Roman
	menu Font Size 15
	menu Font Style b
	menu Font Color WindowText
	if %primary
	    menu Font BGColor Red
  else
      menu Font BGColor Teal
	menu Button primary 0 0 117 33 Primary

  if %secondary
	    menu Font BGColor Red
  else
      menu Font BGColor Teal
	menu Button secondary 0 36 117 33 Secondary

  if %evasion
	    menu Font BGColor Red
  else
      menu Font BGColor Teal
  menu Button evasion 0 72 117 33 Evasion

  if %lightning
	    menu Font BGColor Red
  else
      menu Font BGColor Teal
  menu Button Lightning 0 108 117 33 Lightning
return

sub setupMenu
	menu Clear
	menu Window Title Focus' Ability
	menu window transparent 100
	menu Window Color Teal
	menu Window Size 264 123
	menu Font Transparent #true
	menu Font Align Right
	menu Font Name Times New Roman
	menu Font Size 18
	menu Font Style b
	menu Font Color WindowText
	menu Font Transparent #false
	menu Font Align Left
	menu Font BGColor Teal
	menu Text EUOLabel1 44 4 Please click your
	menu Text ability 52 32 primary ability
	menu Text EUOLabel3 108 60 icon.
	menu Font Size 14
	if %2
	    menu Button next 188 92 65 29 Next
  if %1
      menu Button back 12 92 65 29 Back
return



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