Request: Melee or Hybrid Pet Bot

[Learning]

How about a bot that acts like a pet. Auto-follows if idle, responds to Assist me, Sit down, Group with me, Report heath/mana, camp out, maybe cast 1-8? =) Ill try to write it myself and poast it, but mine will suck so if one of you l33t coders gets time, pls give it a try :)

[rizwank]

I wont do it, but ask any questions and ill be GLAD to help

rk

[Learning]

that will help =) thanks, guess i should switch to the help section?

[rizwank]

moved fer ya.
start it and most of us will be glad to help

[Learning]

7th edit lol, ok it should be working pretty good now, but still not done.
let me know if you have any ideas

Code: Select all

|My macro

#turbo

#chat tell
#chat group

#Event CannotSee "You cannot see your target."
#Event TooFar "Your target is too far away, get closer!"
#Event ClarityGone "Your mind returns to normal."
#Event Invited "To join the group, click on the 'FOLLOW' option, or 'DISBAND' to cancel"
#Event InvisGone "You feel yourself starting to appear"
#Event FollowOff "You are no longer auto-following"
#Event FDfailed "has fallen to the ground."
#define CannotSee v39
#define TargetDead v44
#define Master v11
#define pword v46
#define FDcheck v9

Sub Main
/varset pword leetbot
:start
/doevents
/goto :start
/return

Sub Event_Chat
/if "$p2"=="assist" /call Assist
/if "$p2"=="attack" /call Attack
/if "$p2"=="assist and attack" /call AssistAndAttack
/if "$p2"=="stop" /call Stop
/if "$p2"=="follow" /call FollowMe
/if "$p2"=="camp" /Camp
/if "$p2"=="sit" /call Sit
/if "$p2"=="fd" /call FeignDeath
/if "$p2"=="status" /call Report
/if "$p2"=="$pword" {
/varset Master "$p1"
/g Gratz $Master your my new Master
}
/if "$p2"=="commands" /call commands
/return

Sub Assist
/assist $v11
/delay 1
/g I have Targeted $target(name)
/return

Sub Attack
/g Attacking $target(name)
/sendkey down down
/delay 1
/sendkey down up
/call AttackTarget
/return

Sub AssistAndAttack
/assist $v11
/sendkey down down
/delay 1
/sendkey down up
/g Assisting and Attacking $target(name)
/call AttackTarget
/return

Sub Stop
/attack off
/g Stoped Attacking $target(name)
/return

Sub FollowME
/target $v11
/stand
/varset FDcheck 0
/follow
/g Following you $target(name)
/call Main

Sub Event_FollowOff
/g Stoped Following
/return

Sub Event_Invited 
/delay 20 
/invite
/return 

Sub Event_ClarityGone 
/g Just Lost Crack
/return 

Sub Event_InvisGone 
/g Invis Going
/return 

Sub Sit
/g Sitting Down
/sit down
/return

Sub Report
/g I Have $char(hp,pct) % HP and $char(mana,pct) % Mana
/return

Sub AttackTarget
/attack on
:kickass
/if n "$target(id)"=="0" /call Dead
/face nopredict fast
/doevents flush
/doevents
/if n "$target(distance)">"15" /Call GoForward
/if n "$target(distance)"<"5" /Call GoBackward
/if n "$cantsee"=="1" {
/varset cantsee 0
/sendkey down down
/delay 1
/sendkey up down
}
/goto :kickass
/return

Sub goforward
/echo GoFoward
:forward
/if n "$target(id)"=="0" /call Dead
/face nopredict fast
/sendkey down up
/delay 0
/if n "$target(distance)">"15" /goto :forward
/sendkey up up
/return

Sub GoBackward
/echo GoBackward
:backwards
/if n "$target(id)"=="0" /call Dead
/face nopredict fast
/sendkey down down
/delay 0
/if n "$target(distance)"<"5" /goto :backwards
/sendkey up down
/return

Sub Dead
/attack off
/sendkey down down
/delay 1
/sendkey up down
/sendkey up up
/call FollowME

Sub Event_CannotSee
/varset cantsee 1
/return

Sub commands
/g I Can Assist(without attacking), Attack (my curent target), Assist and Attack, Stop (stop attacking), Follow (my master), Camp, Sit, FD and Status.
/return

Sub FeignDeath
/g Feigning Death
/doevents flush
/attack off
/sendkey up up
/sendkey up down
/sit off
/cast 8
/varset FDcheck 1
/return

Sub Event_FDfailed
/if n "$FDcheck"=="0" /call Main
/delay 1000
/call FeignDeath

Sub Camp
/g Camping out
/call Sit
/camp

[Learning]

heh i think im doing good for my first macro

[Magnus]

Code brackets... or I will lease the fury of the Lizard upon you!!

Also, just a suggestion, but if you intend on posting or passing this out use seperators for Subs, ie

|-------------------------------------------------|


Let's fairly decent so far... still looking thru it...


Mag

[rizwank]

Im impressed.. its all event driven.. and beyond the fact that no one wants to type "fd now" when you could type "fd" instead..

$v11 is never defined.

better than other ones ive seen

event #Event ClarityGone "Your mind returns to normal." ... um isnt this a melee pet? or is this a SK pet?

Sub Event_InvisGone should be /g Invis Gone, not going.

In sub sit, sitting is spelt wrong

Id add events begging for heals at 25%...

A notification when buffs wear (haste or whatever you can cast on it)

Spell casting for hybrids (yes i know thats version 12)

Password authentication (or just fix the $v11)

Im VERY impressed though.

Good for you!