Post
by Imperfect » Fri Jan 17, 2003 8:26 pm
Please note this is a bit sloppy but, works extremely well. I tend to modify this code as I go. I had to disable BBCode to get this to show up correctly. Strange.
[L124RD put BBcode back in and wonders what is so strange about it looking this way...]
[L124RD removed it and wonders wtf BB hates <>'s... because they think its html...]
#turbo
Sub Main
:Loop
/varset l0 $int($char(level)*5+5)
/if $combat==TRUE /if $target()!=FALSE /call InCombat
/if n $char(ability,mend)&0 /doability mend
/if n $char(skill,"Sense Heading")<200 /if n $char(skill,"Sense Heading")&$l0 /if n $char(ability,"Sense Heading")&0 /doability "Sense Heading"
/if $combat!=TRUE /if n $char(skill,sneak)<113 /if n $char(skill,sneak)&$l0 /if n $char(ability,sneak)<0 {
/doability sneak
}
/if $combat==FALSE /if n $char(skill,"Feign Death")<200 /if n $char(skill,"Feign Death")<$l0 /if n $char(ability,"Feign Death")>0 {
/doability "Feign Death"
/stand
}
/if n $char(ability,forage)>0 {
/doability forage
}
/if n $char(skill,sneak)<113 /doability sneak
/doevents
/goto :Loop
/return
Sub InCombat
/face fast nopredict
/if n $target(distance)>15 /sendkey down up
/if n $target(distance)<15 /call DoAbilities
/if n $char(ability,mend)>0 /doability mend
/if n $target(distance)<10 /sendkey up up
/return
Sub DoAbilities
/varset l0 $int($char(level)*5+5)
/if n $char(ability,"Flying Kick")>0 /doability "Flying Kick"
/if n $char(ability,Disarm)>0 /doability Disarm
/if n $char(skill,"Sense Heading")<200 /if n $char(skill,"Sense Heading")<$l0 /if n $char(ability,"Sense Heading")>0 /doability "Sense Heading"
/if n $char(ability,mend)>0 /doability mend
| /if $combat!=FALSE /if n $char(skill,Intimidation)<200 /if n $char(ability,Intimidation)>0 /doability Intimidation
/if n $char(skill,begging)<$l0 /if n $char(ability,begging)>0 {
/attack off
/doability begging
/attack on
}
/if n $char(ability,forage)>0 {
/attack off
/doability forage
/attack on
}
/return