Create a new version of paste: Ha2WGLAu

Don't like ads? PRO users don't see any ads ;-)

Untitled1 sec ago
Untitled7 sec ago
Untitled6 sec ago
Untitled7 sec ago
Untitled9 sec ago
UntitledC | 10 sec ago
Untitled11 sec ago
Untitled11 sec ago

New Paste

###  This Part of the script determines if the Darkfall window is in combat or GUI mode.  Place Line 20 in front of any code that you only want to run in combat mode.  This will protect code from being entered into chat windows while in GUI Mode.  ###

isMouseShown()
{
StructSize := A_PtrSize + 16
VarSetCapacity(InfoStruct, StructSize)
NumPut(StructSize, InfoStruct)
DllCall("GetCursorInfo", UInt, &InfoStruct)
Result := NumGet(InfoStruct, 8)

if Result
return 1
else
return 0
}

CombatState := "Off"
CombatMode = "Escape"

#If !isMouseShown() and #If WinActive("Darkfall Online")

;###  Begin CombatState Hotkeys  ###
!Numpad1::
CombatState := "Offensive"
Return

!Numpad2::
CombatState := "Defensive"
Return

;###   Begin Hotkeys  ###
Numpad1::
;###  Clears All Current Magic Variables  ###
SpellSelect := "Off"
BuffSelect := "Off"
HealSelect := "Off"
;###  Checks CombatState and performs actions depending on CombatState  ###
If (CombatState = "Offensive"){
 ;###  Equips Greatsword  ###
Send, Send, {F1}{1}
Return
}
Else If (CombatState = "Defensive"){
;### Equips Sword and Board  ###
Send, {F1}{5}
Sleep, 600
Send, {6}
Return
}
Else
 return

Numpad2::
;###  Clears All Current Magic Variables  ###
SpellSelect := "Off"
BuffSelect := "Off"
HealSelect := "Off"
;###  Checks CombatState and performs actions depending on CombatState  ###
If (CombatState = "Offensive"){
 ;### Equips Bow ###
Send, Send, {F1}{2}
Return
}
Else If (CombatState = "Defensive"){
;###  Equips Heal Staff and loads cycling Heal Spells  ###
HealSelect := "1"
Send, {F1}{4}{F10}
Sleep, 300
Send, {%HealSelect%}

While (HealSelect != "Off")
{
if GetKeyState("LButton", "P") = 1
	{
	KeyWait, LButton
	HealSelect++
			If (HealSelect = "4")
		{
		HealSelect := "1"
		}
	Send, {%HealSelect%}
	}
}
Return
}
Else
 Return

Numpad3::
;###  Clears All Current Magic Variables  ###
SpellSelect := "Off"
BuffSelect := "Off"
HealSelect := "Off"
;###  Checks CombatState and performs actions depending on CombatState  ###
If (CombatState = "Offensive"){
 ;###  Equips Offensive Staff and loads cycling Offensive Spells  ###
 SpellSelect := "1"
Send, {F1}{3}{F4}
Sleep, 300
Send, {%SpellSelect%}

While (SpellSelect != "Off")
{
if GetKeyState("LButton", "P") = 1
	{
	KeyWait, LButton
	SpellSelect++
			If (SpellSelect = "10")
		{
		Spellselect := "0"
		}
	Send, {%SpellSelect%}
	}
}
Return
}
Else If (CombatState = "Defensive"){
;###  Equips Self Buff Staff and loads cycling Self Buff Spells  ###
BuffSelect := "1"
Send, {F1}{4}{F9}
Sleep, 300
Send, {%BuffSelect%}

While (BuffSelect != "Off")?
{
if GetKeyState("LButton", "P") = 1
	{
	KeyWait, LButton
	BuffSelect++
			If (BuffSelect = "10")
		{
		BuffSelect := "0"
		}
	Send, {%BuffSelect%}
	}
}
return
}

;###  Clears All CombatStates and MagicSelects  ###
Escape::
If (CombatState != "Off")
{
CombatState := "Off"
SpellSelect := "Off"
BuffSelect := "Off"
HealSelect := "Off"
Sleep 500
Return
}

;###  Begin Miscelaneous Hotkeys  ###

;###  Taunt_04 Loop  ###
Insert::
Loop
{
Send, {k}
Sleep, 500

If GetKeyState("K", "P")
 Break
}
Return

Optional Paste Settings

Syntax Highlighting:

Paste Expiration:

Paste Exposure:

Paste Name / Title:

Hello Guest
Sign Up or Login

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Pastebin.com Tools & Applications

iPhone/iPad

Windows

Firefox

Chrome

WebOS

Android

Mac

Opera

Click.to

UNIX

WinPhone