//Otoenter
SetActiveWindow Knight Online Client
Commanddelay 1
ObjVar 1
Procedure OtoEnter
IsBlack 277, 463
keydown {return} .01 sec
Else
stop
End
End
while 1=1
call OtoEnter
end
SetActiveWindow Knight OnLine Client
CommandDelay 10
KeyRate 10
Constants
//========== your skill slots =================//
//Key 1 through shot
//Key 2 through shot (or other archery skills)
//Key 3
//Key 4 archery (when you run out of mana pots)
//Key 5 wolf
//Key 6 mana pot
//Key 7 hp pot
//Key 8 safety
//=============== Arrange your skillbar =======//
WolfKey = 5
BackupHpPot = 7
//=============== 1 = yes , 0 = no ============//
wolff = 1
UseTown = 1
safetyy = 1
repair = 1
//======== 1 = Right slot, 2 = Left slot ======//
weaponlocation = 2
//=============================================//
End
//======AC===========//
procedure safety Every 35 sec
if $safetyy = 1
delay 200
keydown 8 100 | 100
delay 200
end
end
//======Wolf===========//
procedure wolf Every 126 sec
if $wolff = 1
delay 1300
keydown 5 100 | 100
delay 50
end
end
//======Town===========//
Procedure CheckTown
If $UseTown = 0
Exit
End
IsRed 190, 10
Else
Delay 200
Keys $BackupHpPot
Delay 1500
Keys $BackupHpPot
Delay 300
say /town
Delay 3 sec
keydown c 0.5
stop
End
End
//======Attack=========//
Procedure attack
Keys z1
Keys 2
Keys 1
Keys 2
Keydown 1 100 | 100
Keydown 2 100 | 100
End
//======Heal===========//
delay 10
Procedure heal
IsBlack 150, 40
keys 7
End
End
//======Mana===========//
Procedure mana
IsBlack 155, 58
Keys 6
End
End
//======Repair=========//
Procedure repairs every 10 min // repairs armor and weapon every 15 minutes
Delay 1000
If $repair = 0
else
If $weaponlocation = 0
MousePos 880, 185 // Left Weapon
else
MousePos 990, 185 // Right Weapon
end
Delay 1000
LeftMouseDown
Delay .5
LeftMouseUp
Delay .5
MousePos 876, 291 // Gloves
LeftMouseDown
Delay .5
LeftMouseUp
Delay .5
MousePos 931, 292 // Bots
LeftMouseDown
Delay .5
LeftMouseUp
Delay .5
MousePos 931, 236 // Pads
LeftMouseDown
Delay .5
LeftMouseUp
Delay .5
MousePos 925, 133 // Pauldron
LeftMouseDown
Delay .5
LeftMouseUp
Delay .5
MousePos 920, 85 // Helmet
LeftMouseDown
Delay .5
LeftMouseUp
End
End
while 1 = 1
ProcessMessages
delay 50
Call attack
Call heal
call mana
Call attack
Call heal
call mana
End
//Stop macro on window change.
Procedure StopOnSwitchedWindow On WindowChange
stop
End
SetActiveWindow Knight Online Client
Commanddelay 10
ObjVar 10
// Put first skill in first slot and //
// second on second slot, etc... //
// Note: This macro is for Assassins only //
Procedure ComboItUP
keydown r .4 sec
keydown 1 .4 sec
keydown r .4 sec
keydown r .4 sec
keydown 2 .4 sec
keydown r .4 sec
keydown r .4 sec
keydown 3 .4 sec
keydown r .4 sec
keydown r .4 sec
keydown 4 .4 sec
keydown r .4 sec
keydown r .4 sec
keydown 5 .4 sec
keydown r .4 sec
keydown r .4 sec
keydown 6 .4 sec
keydown r .4 sec
keydown r .4 sec
keydown 7 .4 sec
end
while 1=1
call ComboItUP
end
SetActiveWindow Knight Online Client
// Warrior Combo Macro with on-off hotkey toggling.
Procedure CheckForRed
IsRed 40, 116
call WarriorMacro1
delay 0.4 sec
else
end
IsRed 40, 116
call WarriorMacro2
delay 0.4 sec
else
end
IsRed 40, 116
call WarriorMacro3
delay 0.4 sec
else
end
IsRed 40, 116
call WarriorMacro4
delay 0.4 sec
else
end
IsRed 40, 116
call WarriorMacro5
delay 0.4 sec
else
end
IsRed 40, 116
call WarriorMacro6
delay 0.4 sec
else
end
IsRed 40, 116
call WarriorMacro7
delay 0.4 sec
else
end
end
Procedure WarriorMacro1
keydown r .36 sec
keydown 1 .36 sec // You can change this to a different number that had Leg-Cut on it, your choice.
keydown r .36 sec
keydown r .36 sec
end
Procedure WarriorMacro2
keydown 1 .36 sec // Put the spammable warrior skill you want to combo with in the first slot. Hoodwink, Sworddance, etc.
keydown r .36 sec
keydown r .36 sec
end
Procedure WarriorMacro3
keydown 1 .36 sec
keydown r .36 sec
keydown r .36 sec
end
Procedure WarriorMacro4
keydown 1 .36 sec
keydown r .36 sec
keydown r .36 sec
end
Procedure WarriorMacro5
keydown 1 .36 sec
keydown r .36 sec
keydown r .36 sec
end
Procedure WarriorMacro6
keydown 1 .36 sec
keydown r .36 sec
keydown r .36 sec
end
Procedure WarriorMacro7
keydown 1 .36 sec
end
while 1 = 1
call CheckForRed
end
// works a charm, pass it around
////////// 1280x1024 Screen Size //////////
SetActiveWindow Knight OnLine Client
CommandDelay 500
KeyRate 120
Constants
///////// Shortcut/Skills Keys /////////
HealKey = 1 // The healing shortcut
Malice = 2 // The malice shortcut
HPBuffKey = 3 // The HP buff shortcut
ACBuffKey = 4 // The AC buff shortcut
StrenghtKey = 5 // The Strenght Buff shortcut
HealthPotKey = 7 // The shortcut where health pots are!! (just in case u're being attacked and castfails)
BackupHPPotKey = 7 // Save one different hp pot here, enough to get u at least more than half hp to town
ManaPotKey = 8 // The shortcut where mana pots are
////////// Macro Settings //////////
Strenghts = 1 // Strenght Buff 0 = Off, 1 = On.
GroupBuff = 1 // Use Group buff or single buff (1 for Group, 0 for Single)
DoHeal = 1 // Heals the party - usefull for healers only, turn buff off = 0. (0 = Off, 1 = On).
DoBuff = 1 // Buffs the party - buffers, if healer in party, turn doheal off = 0. (0 = Off, 1 = On).
DoDebuff = 0 // Debuff's mob. Only for malice. (0 = Off, 1 = On).
HPBuffDelay = 2000 // Delay between HP buffing skill.
ACBuffDelay = 2000 // Delay Between AC buffing skill.
HealLevel = 1260 // Level where you want priest to heal 1000 is high
IsDead = 1158 // Level where a person is dead so it wont heal dead people
////////// Dont edit //////////
PartyMembers = 0 // The script automatically calculates this, so DON'T TOUCH
isBuffing = 0 // DON'T TOUCH!
Rest = 0
End
////////// Strenght Buff /////////
procedure Strenght Every 10 min
if $Strenghts = 1
delay 1300
keydown $Strenghtkey 100 | 100
delay 900
end
end
////////// Heal Checker //////////
Procedure CheckPartyHealth
If $DoHeal = 0
Exit
End
SetConst $Rest = 0
Call CheckPartyNumber
// Are there any party members?
If $PartyMembers <= 1
Exit
End
If $isBuffing = 1
While $isBuffing = 1
// wait for buff to end
End
End
// Check party leader!
IsBlack $HealLevel, 70
IsBlack $IsDead, 70
else
MousePos 1244, 90
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
Call CheckPartyNumber
// Check 2nd party member
IsBlack $HealLevel, 115
IsBlack $IsDead, 115
else
MousePos 1244, 135
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
Call CheckPartyNumber
If $PartyMembers >= 3
// Check 3rd party member
IsBlack $HealLevel, 160
IsBlack $IsDead, 160
else
MousePos 1244, 180
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
End
Call CheckPartyNumber
If $PartyMembers >= 4
// Check 4th party member
IsBlack $HealLevel, 205
IsBlack $IsDead, 205
else
MousePos 1244, 225
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
End
Call CheckPartyNumber
If $PartyMembers >= 5
// Check 5th party member
IsBlack $HealLevel, 250
IsBlack $IsDead, 250
else
MousePos 1244, 270
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
End
Call CheckPartyNumber
If $PartyMembers >= 6
// Check 6th party member
IsBlack $HealLevel, 295
IsBlack $IsDead, 295
else
MousePos 1244, 315
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
End
Call CheckPartyNumber
If $PartyMembers >= 7
// Check 7th party member
IsBlack $HealLevel, 340
IsBlack $IsDead, 340
else
MousePos 1244, 360
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
End
Call CheckPartyNumber
If $PartyMembers >= 8
// Check 8th party member
IsBlack $HealLevel, 385
IsBlack $IsDead, 385
else
MousePos 1244, 405
LeftMouseDown 100
Delay 200
LeftMouseUp 100
KeyDown $HealKey 100
Delay 2600
KeyDown c 100
Delay 300
End
End
End
SetConst $Rest = 1
Call CheckPartyNumber
End
////////// Buff checker //////////
Procedure Buff every 610 sec
If $DoBuff = 0
Exit
End
Delay 2 sec
SetConst $Rest = 0
Call CheckPartyNumber
// Are there any party members?
If $PartyMembers <= 1
Exit
End
Set isBuffing = 1
If $GroupBuff = 1
Delay 200
KeyDown $HPBuffKey 100
Delay 2000
End
Call CheckPartyNumber
// 1st Party member (leader)
MousePos 1244, 90
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
Call CheckPartyNumber
// 2nd Party member
MousePos 1244, 135
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
Call CheckPartyNumber
If $PartyMembers >= 3
// 3rd Party member
MousePos 1244, 180
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
End
Call CheckPartyNumber
If $PartyMembers >= 4
// 4th Party member
MousePos 1244, 225
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
End
Call CheckPartyNumber
If $PartyMembers >= 5
// 5th Party member
MousePos 1244, 270
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
End
Call CheckPartyNumber
If $PartyMembers >= 6
// 6th Party member
MousePos 1244, 315
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
End
Call CheckPartyNumber
If $PartyMembers >= 7
// 7th Party member
MousePos 1244, 360
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay $HPBuffDelay
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
End
Call CheckPartyNumber
If $PartyMembers = 8
// 8th Party member
MousePos 1244, 405
LeftMouseDown
Delay 200
LeftMouseUp
If $GroupBuff = 0
KeyDown $HPBuffKey 100
Delay 1700
End
KeyDown $ACBuffKey 100
Delay $ACBuffDelay
End
Call CheckPartyNumber
KeyDown c 100
SetConst $Rest = 1
Set isBuffing = 0
End
////////// Party Checker //////////
Procedure CheckPartyNumber
IsRed 1165, 70
// First Person
Set PartyMembers = 1
Else
// There is No Party
Set PartyMembers = 0
//Exit
End
IsRed 1165, 115
//Second Person
Set PartyMembers = 2
Else
// Party request, only the leader exists, but no 2nd member yet
Set PartyMembers = 1
//Exit
End
IsRed 1165, 160
// 3rd Person
Set PartyMembers = 3
End
IsRed 1165, 205
Set PartyMembers = 4
End
IsRed 1165, 255
Set PartyMembers = 5
End
IsRed 1165, 295
Set PartyMembers = 6
End
IsRed 1165, 340
Set PartyMembers = 7
End
IsRed 1165, 385
Set PartyMembers = 8
End
End
////////// Mana Check //////////
Procedure CheckMana
IsBlack 165, 25 // stops the temple announcemt spamming pots
Keydown $ManaPotKey 100
Delay 500
End
End
Procedure CheckHealth
IsBlack 170, 9
Keydown $HealthPotKey 100
Delay 500
End
IsBlack 165, 9
Keydown $BackupHPPotKey 100
Delay 2 sec
Keydown $BackupHPPotKey 100
Delay 100
Loop 2
Say /town // this is a pain when alt/tabbing
Delay 100
End
Delay 2 sec
Keydown c 100
Exit
End
End
////////// DeBuff //////////
Procedure Debuff every 15 sec
If $DoDebuff = 0
Exit
End
If $PartyMembers <= 1
Exit
End
KeyDown z 100 | 100
KeyDown $Malice 200 | 1500
Keydown c 100
End
While 1=1
Call CheckPartyNumber
ProcessMessages
Delay 100
Call CheckMana
Call CheckPartyHealth
Call CheckHealth
LoadRGB 667, 1000
If {RGBRed} = 255 AND $Rest = 1
Keydown c 300
End
Delay 100
End
