Bonedancer Hunting Macro

08/02/2004 08:42 Lowfyr#1
Requirements: AC-Tool

Code:
// This line is necessary to select the proper window 
SetActiveWindow Dark Age of Camelot, Copyright © 2001-03 Mythic Entertainment, Inc. 

///////////////////////////////////// 
Delay 5 sec 
//////////////////// Constants \\\\\\\\\\\\\\\\\\\\\\\\\ 
Constants 
temp = 0 
temp2 = 0 
temp3 = 0 
attack = 7 // key for bubble 
rel = 0 // key with release to city(for pvp serv) or release macro (for rvr serv) 
sit = c // key to sit down 
buff1 = 1 // key for buff 1 
buff2 = 2 // key for buff 2 
buff3 = 3 // key for buff 3 
buff4 = 4 // key for buff 4 
buff5 = 5 // key for buff 5 
//DoT = 7 // key for DoT 
DoT2 = 6 // key for LT 
MKL = 9 // key for MKL 
face = 8 // key for face macro 
Fight = {INS} // key to go in combat mode 
selectitem = {F7} // key to select next item 
pickup = g //key to pick pick selected item up 
rest1 = 20 // min time to sit(recover mana) 
rest2 = 30 // max time to sit (reover mana) 
end 





///////////////////// Procedure/////////////////////// 

Procedure kill 

compute temp2 = random(x) * (1-0.5) + 0.5 //this is to get a time from 0.5-1sec 
delay $temp2 sec 
Keys {F8} 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
Keys $face 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $Fight 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $DoT2 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys $attack 
compute temp = random(x) * (4.2-4.1) + 4.1 
Delay $temp sec 
Keys c //key to sit 
compute temp = random(x) * ($rest2 - $rest1) + $rest1 
delay $temp sec 

End 


Procedure Loot 

compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $selectitem 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $pickup 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $selectitem 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $pickup 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $selectitem 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $pickup 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys c //key to sit 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 
Keys $MKL 
compute temp2 = random(x) * (1-0.5) + 0.5 
Delay $temp2 sec 


End 


Procedure Buff 

compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
compute temp2 = random(x) * (1-0.5) + 0.5 
delay $temp2 sec 
Keys $buff1 
compute temp3 = random(x) * (4-3) + 3 
delay $temp3 sec 
Keys $buff2 
compute temp3 = random(x) * (4-3) + 3 
delay $temp3 sec 
Keys $buff3 
compute temp3 = random(x) * (4-3) + 3 
delay $temp3 sec 
Keys $buff4 
compute temp3 = random(x) * (4-3) + 3 
delay $temp3 sec 
Keys $buff5 
compute temp3 = random(x) * (4-3) + 3 
delay $temp3 sec 
Keys $MKL 
compute temp3 = random(x) * (4-3) + 3 
delay $temp3 sec 
Keys $rel 

End 



/////////////////////////////////// 
/////////////////////////////////// 


while 1=1 
call Buff 
call kill 
call Loot 
call kill 
call Loot 
call kill 
call Loot 
call kill 
call Loot 
call kill 
call Loot 
call kill 
call Loot 
call kill 
call Loot 
end
vergesst nicht die constants anzupassen