This is an ACtools macro
Use process guard to protect it from being scanned by hackshield
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
SetActiveWindow Knight OnLine Client
ObjVar 10
CommandDelay 50
KeyRate 100
Constants
//-----]Memory Address Setting[-----
//----- Don't touch ----------
baseMemL = 7AE004
tHpMem = noValue
hpMem = noValue
baseMemAdd = noValue
//-----]Attack settings[-----
skills = 3 // Number of skills to use
skslot1 = 1 // Close range attack or failsafe
skslot2 = 2 // Skill slot 2
skslot3 = 3 // Skill slot 3
skslot4 = 4 // skill slot 4
keyDelay = 0.05
//-----]Misc Options[------
minhp = 200 // When to use HP Pot
hpPot = 6 // Key for HP Pots
mpPot = 5 // Key for MP Pots
npcOnly = 1 // Target NPC only 1 = yes 0 = no
siturassdown = 1 // Sit = 1; MP Pots = 0
restTime = 35 sec
End
//------------]END OF SETTINGS[--------------
//-------------------]No touchy[------------------
Procedure SetupMemoryAdresses
ReadMemory $baseMemAdd = $baseMemL, LongWord
Compute $tHpMem = $baseMemAdd + 936
Compute $hpMem = $baseMemAdd + 940
DecToHex $tHpMem = $tHpMem
DecToHex $hpMem = $hpMem
End
//-----]Healing procedure[-----
Procedure CheckHealth
Constants
CurrentHealth = noValue
End
ReadMemory $CurrentHealth = $hpMem
If $CurrentHealth <= $minhp
Keys $hpPot
End
End
//-----]Find Attack procedure[-----
Procedure attack
isred 446, 49
else
if $npcOnly = 0
Keys z
delay 150
else
Keys b
delay 150
End
if $skills = 1
Call attack1 // Calls Attack 1 :: Close range only or failsafe
end
if $skills = 2
Call attack2 // Calls Attack 2 :: 2 Skills
end
if $skills = 3
Call attack3 // Calls Attack 3 :: 3 Skills
end
if $skills = 4
Call attack4 // Calls Attack 4 :: 4 Skills
end
End
End
//----]Attack procedures[-----
Procedure attack1
KeyDown $skslot1 $keyDelay sec
delay 150
End
Procedure attack2
KeyDown $skslot2 $keyDelay sec
KeyDown $skslot1 $keyDelay sec
delay 150
End
Procedure attack3
KeyDown $skslot2 $keyDelay sec
KeyDown $skslot3 $keyDelay sec
KeyDown $skslot1 $keyDelay sec
delay 150
End
Procedure attack4
KeyDown $skslot2 $keyDelay sec
KeyDown $skslot3 $keyDelay sec
KeyDown $skslot4 $keyDelay sec
KeyDown $skslot1 $keyDelay sec
delay 150
End
//-----]END of Attack procedures[-----
//-----]Mana restore procedure[-----
Procedure mana
IsBlue 206, 27
Else
If $siturassdown = 1
Call rest
Else
Keys $mpPot
end
End
End
//-----]Rest procedure[-----
Procedure rest
keydown c 0.5 sec
delay $restTime
End
Call SetupMemoryAdresses
//say /Block_Trade_Request // you can turn this on if you like
//say /Block_Party // just remove the //
While 1=1
ProcessMessages
Delay 150
Call CheckHealth
Call mana
Call attack
End