Pedal Almaya Son Madem Xtrap Yok AcTool Bizlerle.. (KESİNLİKLE BANLANMA RİSKİ YOK!!)
BiLiyorsunuz Xtrap Yok Artık Xtrap Yoksa Artık ACTOOL VARPedal lar tarihe karışacak Kimsenin Pedal almaya İhtiyacı kalmayacak sanırım tek bi tuşla macrolarınızla minor combo warrior combo asas combo arsher koxp priest oto heal oto buff oto repair ws
LİNK:
[Linkleri görebilmek için üye olun veya giriş yapın.]
Actool U burdan Temin Edebilirsiniz aşağıda verdigim macro kodlarını yapıştırıp start deyin macro başlayacaktır priest denemedim alınt warrior asas combo kesinlikle çalışmaktadır KODLAR ALINTIDIR
Rogue Archer(OKçu Koxp)macrosu 2 slot lara kullanacagınız skili koyun örn: seri 3 minor 8 e de wolf koyun
AcTooL Son Günlerde Minörün Kısıtlanması Yani Yavaslaması Sonucu 59 Ve +80 Asaslar İçin En Çok Tercih Edilen Programdır
KESİNLİKLE BANLANMA RİSKİ YOKTUR(Siz Nasıl 7,8e Elle Basyorsanız Actoolda Oyle Basar Ama Sizden Çokseri Olarak)
NOT: Cz De Çalışıyor Diye Sormayın Bu sadece Bir Macrodurkodlara göre kendisi basar tuşlaraYani HAVA DA KARA DA DENİZDE CZ DE ÇALIŞIR
Asassian 7,8 Pedal Macrosu (7ye mana 8e minörü koyun)
Kod:
SetActiveWindow Knight OnLine Client
ObjVar 10
CommandDelay 300
KeyRate 90
Constants
//========== your skill slots =================//
//Key 1 mannes of fire
//Key 2 mannes of fire (or other archery skills)
//Key 3 minor heal
//Key 4 archery (when you run out of mana pots)
//Key 5 safety
//Key 6 mana pot
//Key 7 hp pot
//Key 8 wolf
//=============== Arrange your skillbar =======//
WolfKey = 8
BackupHpPot = 7
//=============== 1 = yes , 0 = no ============//
wolff = 1
repairr =0
UseTown = 0
UseChicken = 0
safetyy = 1
//======== 1 = Right slot, 2 = Left slot ======//
bow = 1
//=============================================//
End
//======AC===========//
procedure safety Every 20 sec
if $safetyy = 1
delay 200
keydown 5 100 | 100
delay 200
end
end
//======Wolf===========//
procedure wolf Every 126 sec
if $wolff = 1
delay 1300
keydown 8 100 | 100
delay 900
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
//===ONLY IF YOU HAVE KOHACK ENABLED!===//
Procedure ChickenTown
If $UseChicken = 0
Exit
End
IsRed 1200, 10
Else
Delay 200
Keys $BackupHpPot
Delay 300
keydown {F12} 0 5
delay 50
keydown {F12} 100
Delay 3 sec
keydown c 0 5
stop
End
End
//======Attack=========//
Procedure attack
// use b for aiming npc only
// use z for aiming everything
IsBlack 158,27
keys 4z4 100 | 100
else
Keys 1z2
Keys 12
Keydown z 100 | 100
Keydown 1 100 | 100
Keydown 2 100 | 100
End
End
//======Heal===========//
Procedure heal
IsBlack 244,10
keys 3333
End
IsBlack 220,10
keys 3333
End
End
//======Mana===========//
Procedure mana
IsBlack 500, 27
Keys 6
End
End
//======Repair=========//
procedure RepairRightSide every 10 min
if $repairr = 1
if $bow = 1
delay 100
MousePos 993, 192
delay 100
leftclick
leftmousedown
delay 800
leftmouseup
delay 100
leftmousedown
delay 800
leftmouseup
end
end
end
procedure RepairLeftSide every 10 min
if $repairr = 1
if $bow = 2
delay 100
MousePos 880, 188
delay 100
leftclick
leftmousedown
delay 800
leftmouseup
delay 100
leftmousedown
delay 800
leftmouseup
end
end
end
while 1 = 1
ProcessMessages
Call CheckTown
//Call ChickenTown //=== Only if KoHack enabled!
Call attack
Call heal
Call mana
Call attack
Call heal
End
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ASASİAN COMBO SADECE COMBO Minor Combo Degil 1 2 3 4 5 6 7 slotlarına skillerinizi koyun spike trust ws
Kod:
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
keydown r 4 sec
end
while 1=1
call ComboItUP
end
Minor Combo Macro SAdece minor+mana r atack yok Genellikle Herkesin minorü en son 8 de oluyor bozmamak için 7 ve 8 slotlarını ayarladım 7 slota mana koyun 8 slota minor gayet seri ve ÇALIŞIYOR
Kod:
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
keys 7
delay 50
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 7
delay 50
end
while 1=1
call ComboItUP
end
WARRİOR COMBO BENİM Kullandıgım çok seri durmadan r+skill vurur 3 bara koyun skilinizi sword dancing sword aura ws
Kod:
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 1 sec
keydown 3 1 sec
keydown r 1 sec
keydown r 1 sec
end
while 1=1
call ComboItUP
end
Warrior ComboMacro2 Buda İyi Hangisi SİZE İYİ GELİRSE 3 bara skill koyun sword dancing sword aura ws
Kod:
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 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
end
while 1=1
call ComboItUP
end
BUFFER LAR İÇİN MACRO OTO HEAL OTO *İCE OTO BUFF OTO AC oto str 15 basıyor Healı 1'e, Malicei 2'ye, Buffu 3'e, ACyi 4'e ve str 15ide 5 'ye koyun Can potunu 7 ye mana potunu 8 ye koyun DENEMEDİM ÇALIŞIYORMU BİLMİYORUM
Kod:
// Edited by Gascot //
// Macro Edited and revised by 987655
// original auther lost / forgotten
// 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
NOT: Cz De Çalışıyor Diye Sormayın Bu sadece Bir Macrodur kodlara göre kendisi basar tuşlara Yani HAVA DA KARA DA DENİZDE CZ DE ÇALIŞIR
BiLiyorsunuz Xtrap Yok Artık Xtrap Yoksa Artık ACTOOL VARPedal lar tarihe karışacak Kimsenin Pedal almaya İhtiyacı kalmayacak sanırım tek bi tuşla macrolarınızla minor combo warrior combo asas combo arsher koxp priest oto heal oto buff oto repair ws
LİNK:
[Linkleri görebilmek için üye olun veya giriş yapın.]
Actool U burdan Temin Edebilirsiniz aşağıda verdigim macro kodlarını yapıştırıp start deyin macro başlayacaktır priest denemedim alınt warrior asas combo kesinlikle çalışmaktadır KODLAR ALINTIDIR
Rogue Archer(OKçu Koxp)macrosu 2 slot lara kullanacagınız skili koyun örn: seri 3 minor 8 e de wolf koyun
AcTooL Son Günlerde Minörün Kısıtlanması Yani Yavaslaması Sonucu 59 Ve +80 Asaslar İçin En Çok Tercih Edilen Programdır
KESİNLİKLE BANLANMA RİSKİ YOKTUR(Siz Nasıl 7,8e Elle Basyorsanız Actoolda Oyle Basar Ama Sizden Çokseri Olarak)
NOT: Cz De Çalışıyor Diye Sormayın Bu sadece Bir Macrodurkodlara göre kendisi basar tuşlaraYani HAVA DA KARA DA DENİZDE CZ DE ÇALIŞIR
Asassian 7,8 Pedal Macrosu (7ye mana 8e minörü koyun)
Kod:
SetActiveWindow Knight OnLine Client
ObjVar 10
CommandDelay 300
KeyRate 90
Constants
//========== your skill slots =================//
//Key 1 mannes of fire
//Key 2 mannes of fire (or other archery skills)
//Key 3 minor heal
//Key 4 archery (when you run out of mana pots)
//Key 5 safety
//Key 6 mana pot
//Key 7 hp pot
//Key 8 wolf
//=============== Arrange your skillbar =======//
WolfKey = 8
BackupHpPot = 7
//=============== 1 = yes , 0 = no ============//
wolff = 1
repairr =0
UseTown = 0
UseChicken = 0
safetyy = 1
//======== 1 = Right slot, 2 = Left slot ======//
bow = 1
//=============================================//
End
//======AC===========//
procedure safety Every 20 sec
if $safetyy = 1
delay 200
keydown 5 100 | 100
delay 200
end
end
//======Wolf===========//
procedure wolf Every 126 sec
if $wolff = 1
delay 1300
keydown 8 100 | 100
delay 900
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
//===ONLY IF YOU HAVE KOHACK ENABLED!===//
Procedure ChickenTown
If $UseChicken = 0
Exit
End
IsRed 1200, 10
Else
Delay 200
Keys $BackupHpPot
Delay 300
keydown {F12} 0 5
delay 50
keydown {F12} 100
Delay 3 sec
keydown c 0 5
stop
End
End
//======Attack=========//
Procedure attack
// use b for aiming npc only
// use z for aiming everything
IsBlack 158,27
keys 4z4 100 | 100
else
Keys 1z2
Keys 12
Keydown z 100 | 100
Keydown 1 100 | 100
Keydown 2 100 | 100
End
End
//======Heal===========//
Procedure heal
IsBlack 244,10
keys 3333
End
IsBlack 220,10
keys 3333
End
End
//======Mana===========//
Procedure mana
IsBlack 500, 27
Keys 6
End
End
//======Repair=========//
procedure RepairRightSide every 10 min
if $repairr = 1
if $bow = 1
delay 100
MousePos 993, 192
delay 100
leftclick
leftmousedown
delay 800
leftmouseup
delay 100
leftmousedown
delay 800
leftmouseup
end
end
end
procedure RepairLeftSide every 10 min
if $repairr = 1
if $bow = 2
delay 100
MousePos 880, 188
delay 100
leftclick
leftmousedown
delay 800
leftmouseup
delay 100
leftmousedown
delay 800
leftmouseup
end
end
end
while 1 = 1
ProcessMessages
Call CheckTown
//Call ChickenTown //=== Only if KoHack enabled!
Call attack
Call heal
Call mana
Call attack
Call heal
End
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ASASİAN COMBO SADECE COMBO Minor Combo Degil 1 2 3 4 5 6 7 slotlarına skillerinizi koyun spike trust ws
Kod:
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
keydown r 4 sec
end
while 1=1
call ComboItUP
end
Minor Combo Macro SAdece minor+mana r atack yok Genellikle Herkesin minorü en son 8 de oluyor bozmamak için 7 ve 8 slotlarını ayarladım 7 slota mana koyun 8 slota minor gayet seri ve ÇALIŞIYOR
Kod:
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
keys 7
delay 50
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 8
delay 1
keys 7
delay 50
end
while 1=1
call ComboItUP
end
WARRİOR COMBO BENİM Kullandıgım çok seri durmadan r+skill vurur 3 bara koyun skilinizi sword dancing sword aura ws
Kod:
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 1 sec
keydown 3 1 sec
keydown r 1 sec
keydown r 1 sec
end
while 1=1
call ComboItUP
end
Warrior ComboMacro2 Buda İyi Hangisi SİZE İYİ GELİRSE 3 bara skill koyun sword dancing sword aura ws
Kod:
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 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
keydown r 4 sec
keydown 3 4 sec
keydown r 4 sec
end
while 1=1
call ComboItUP
end
BUFFER LAR İÇİN MACRO OTO HEAL OTO *İCE OTO BUFF OTO AC oto str 15 basıyor Healı 1'e, Malicei 2'ye, Buffu 3'e, ACyi 4'e ve str 15ide 5 'ye koyun Can potunu 7 ye mana potunu 8 ye koyun DENEMEDİM ÇALIŞIYORMU BİLMİYORUM
Kod:
// Edited by Gascot //
// Macro Edited and revised by 987655
// original auther lost / forgotten
// 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
NOT: Cz De Çalışıyor Diye Sormayın Bu sadece Bir Macrodur kodlara göre kendisi basar tuşlara Yani HAVA DA KARA DA DENİZDE CZ DE ÇALIŞIR