a few macros to aid my bid for mod of ko : KO Submissions

or at least get me membership

these macros are all for Actool

macro1

/////////////////////////////////////////////////////////////////////////////
// Auto pot by Eden ////////////////////////////////////
// You must have the game in 1024 x 768 ////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
SetActiveWindow Knight OnLine Client
ObjVar 10
CommandDelay 1000
constants
healskill=1 //do you want to use a heal skill or pots. 1=skill 2=pots
priesthealkey=0 //what key is oyur heal skill?
HPpotsKey=0 //what key to use pots?
mana=0 //0= use mana pots, 1=sit down for 40 secconds
MpotKey=0 //key to use mana pots
end

///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//////////// DONT EDIT BELOW THIS LINE ////////////
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////


Procedure heal
IsRed 200, 9
Call target
Else
if $healskill = 1
keys $priesthealkey
else
Keys $HPpotsKey
End
End
End


Procedure mana
IsBlue 180, 27
Else
if $mana = 0
keys $MpotKey
else
Keys c
Delay 40000
End
End
end

While 1 = 1

Call Heal
Call mana

macro 2
////////////////////////////////////////////////////////////////////////////
// for priest to use in party, keeps everyone healed ///////////////
// and has very fast responce time ///////////////
// only works if using 2 buffs /////////////
// havn't set the macro to work with any more yet //////////////
///////////////////////////////////////////////////////////////////////////
SetActiveWindow Knight OnLine Client
ObjVar 10

constants
UseBuffs=1 // Are you going to use Buffs? 0 = No 1 = Yes
BuffDelay=1 // How often to Buff. min.
BuffAmount=2 // How many Buffs are you going to use (Limit = 4)
BuffSkill1=4 // The key to the first Buff.
BuffSkill2=5 // The key to the second Buff.
BuffSkill3=0 // The Key to the third Buff.
BuffSkill4=0 //
Partymembers // how many in party. needs to be chanded when party members change or ull go for a jog
end

///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//////////// DONT EDIT BELOW THIS LINE ////////////
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////

Procedure Buff Every $BuffDelay min
if $usebuffs = 1
if $buffamount = 1
keys $buffskill1
end
if $buffamount = 2 and $Partymembers=2
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
end
if $buffamount = 2 and $Partymembers=3
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 161
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2

end
if $buffamount = 2 and $Partymembers=4
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 161
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 209
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2

end
if $buffamount = 2 and $Partymembers=5
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 161
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 209
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 970, 256
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2

end
if $buffamount = 2 and $Partymembers=6
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 161
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 209
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 970, 256
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 977, 298
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2

end
if $buffamount = 2 and $Partymembers=7
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 161
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 209
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 970, 256
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 977, 298
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 977, 345
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
end
if $buffamount = 2 and $Partymembers=8
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 161
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 999, 209
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 970, 256
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 977, 298
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 977, 345
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
mousepos 977, 391
Leftmousedown
delay 20
leftmouseup
keys $buffskill1
delay 1000
keys $buffskill2
end
if $buffamount = 3
keys $buffskill1
delay 1000
keys $buffskill2
delay 1000
keys $buffskill3
end
if $buffamount = 4
keys $buffskill1
delay 1000
keys $buffskill2
delay 1000
keys $buffskill3
delay 1000
keys $buffskill4
end
end
end
CommandDelay 500
Procedure pot
IsRed 233, 9
Else
Keys 8
End
End


Procedure heal1
IsRed 999, 73
Else
mousepos 999, 73
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

Procedure heal2
IsRed 999, 118
Else
mousepos 999, 118
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 700
End
End

Procedure heal3
IsRed 999, 161
Else
mousepos 979, 166
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

Procedure heal4
IsRed 999, 209
Else
mousepos 999, 209
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

Procedure heal5
IsRed 999, 256
Else
mousepos 970, 256
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

Procedure heal6
IsRed 999, 298
Else
mousepos 977, 298
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

Procedure heal7
IsRed 999, 345
Else
mousepos 977, 345
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

Procedure heal8
IsRed 999, 391
Else
mousepos 977, 391
Leftmousedown
delay 20
leftmouseup
Keys 1
delay 500
End
End

procedure mana
isBlue 217, 29
Else
Keys 7
End
End

if $partymembers=1
call heal1
if $partymembers=2
call heal1
call heal2
if $partymembers=3
call heal1
call heal2
call heal3
if $partymembers=4
call heal1
call heal2
call heal3
call heal4
if $partymembers=5
call heal1
call heal2
call heal3
call heal4
call heal5
if $partymembers=6
call heal1
call heal2
call heal3
call heal4
call heal6
if $partymembers=7
call heal1
call heal2
call heal3
call heal4
call heal6
call heal7
if $partymembers=8
call heal1
call heal2
call heal3
call heal4
call heal6
call heal7
call heal8

while 1 = 1
Call pot
call mana




End


macro3
///////////////////////////////////////////////
// says your current hp % ///
///////////////////////////////////////////////

SetActiveWindow Knight OnLine Client
Constants
gethp = 159
hppixels = 0
hppixels2 = 0
End

Procedure GetHPPixel
IsRed $gethp, 9
inc hppixels
inc gethp
Else
COMPUTE hppixels = ($hppixels / 110) * 100
Say I Have %$hppixels HP.
Stop
End
End

while 1 = 1
Call GetHPPixel
End


macro 4

/////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
///////////// ADVANCED KNIGHT ONLINE BOT //////////////
///////////// Made By //////////////
///////////// Eden and Boo //////////////
///////////// v1.2 //////////////
/////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
SetActiveWindow Knight OnLine Client
ObjVar 10
Constants
//Attack Settings
UseSkill=1 // When attacking will you use a skill? 0 = No 1 = Yes
SkillKey=1 // What Key do you press to use this skill?
// melee use only skillkey, mages use skillkeys 1,2,3 and 4.
skillkey2=2
skillkey3=3
KillDelay=3000 // How Long it takes on average to kill the selected monster, ms.
attacktype=2// 1= melee 2= mage


// Heal Settings
HPPotsKey=8 // What key is it for your HPPots.

// Mana Settings
MPPotsKey=7 // What key is it for your MPPots.

// Death Settings
Death=1 // Ressurect when you Die? 0 = No 1 = Yes
DeathDelay=1 // How often do you want it to check if your dead in mins.

//party settings
acceptparty=2 //1=yes 2=no
partydelay=5 // how often to check for party requests in mins.

//for priest
healskill=2 //do you want to use heal skill instead of pots? 1=yes 2=no
priesthealkey=8
UseBuffs=1 // Are you going to use Buffs? 0 = No 1 = Yes
BuffDelay=5000 // How often to Buff. mili secconds.
BuffAmount=1 // How many Buffs are you going to use (Limit = 4)
BuffSkill1=4 // The key to the first Buff.
BuffSkill2=0 // The key to the second Buff.
BuffSkill3=0 // The Key to the third Buff.
BuffSkill4=0 // The key to the Fourth Buff

//rest settings
Resting=0// 0=yes 1= no
restdelay=5 // time you want to rest in mins
betweenrestdelay=5 // time between rests in mins
End
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//////////// DONT EDIT BELOW THIS LINE ////////////
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////

Procedure target
Keys z
if $attacktype = 1
call melee
else
call mage
else
Delay 200
end
end


procedure melee
if $UseSkill = 0
Keys R
delay $killDelay
end
If $UseSkill = 1
Keys r
Delay 2000
keys $skillkey
delay $killDelay
end
end


procedure mage
keys $skillkey
delay 500
keys $skillkey2
delay 500
keys $skillkey3
delay 500
end


Procedure Buff Every $BuffDelay min
if $usebuffs = 1
if $buffamount = 1
keys $buffskill1
end
if $buffamount = 2
keys $buffskill1
delay 1000
keys $buffskill2
end
if $buffamount = 3
keys $buffskill1
delay 1000
keys $buffskill2
delay 1000
keys $buffskill3
end
if $buffamount = 4
keys $buffskill1
delay 1000
keys $buffskill2
delay 1000
keys $buffskill3
delay 1000
keys $buffskill4
end
end
end

Procedure heal
IsRed 233, 9
Call target
Else
if $healskill = 1
keys $priesthealkey
else
Keys $HPpotsKey
End
End
End


Procedure mana
IsBlue 180, 27
Else
Keys c
Delay 40000
End
End


Procedure Rest every $betweenrestdelay min
if $resting = 0
inc $resting
keys c
Delay $restdelay
keys c
dec $resting
end
end

Procedure Death Every $DeathDelay min
IsRed 160, 11
else
mousepos 513, 436
leftmousedown
delay 500
leftmouseup
delay 10000
Say tp plz.
end
end

procedure party every $partydelay min
if $acceptparty = 1
isblack 515, 454
mousepos 411, 433
leftmousedown
delay 500
leftmouseup
else
end
else
mousepos 604, 432
leftmousedown
delay 500
leftmouseup
end
end

call rest
call party
call Death
Call Buff
while 1 = 1
CALL Mana
Call Heal



end

sentryeden, i will test the macro as soon as possible. Keep up the good work

edit: i've done extensive testing with a warrior. seems like a pretty decent bot to me. any ideas why it doesn't pick up drops?

you cant make an actool macro that auto loots... i have an auto loot hack made by the koht but its secret.... ill maybe release it at a later date.
[/img]

I've contacted admin for your premium membership. will move this to macro section once i get a reply

my apologies sentry, but the admin cannot give you a premium because u r leaking info to fuckgaming