Mage Macro : KO Submissions

Code: Select all

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