Automated Roleplayer Macro

[Siddin]

yeah, its a repost, but i figured this would actually belong in the macro forum.
I can't believe i'm actually doing this LMAO

checklist of what has been done...
checking for targets/attacking targets
phrases, if anybody wants any more feel free to post additions.
joining group/following leader
casting the pet.....
trading check....
prolly should make checks if he's taking damage but not grouped, but then do we really want him to lvl anyhow?
made it for either a mage or beastlord, etc. some class that has a pet at lvl 8-9
otherwise, i think its done......... after about 1 hour of working on it lol

#chat group
#chat tell
#chat say
#chat shout
#chat ooc

#event exp "#*#experience!!"
#event joingroup "#*#invites you#*#

Sub Main
/declare fighting int outer 0
/declare statementvar int outer
/declare Charactername string outer ${Me.CleanName}

:Mainloop
/doevents
/if (${Me.Target.Type.Equal[pc]}) /call CheckForTargets
/if (!${Me.Pet.ID}) /call castingpet
/if (${Window[TradeWnd].Open}) {
/delay 2s
/notify TradeWnd TRDW_Trade_Button leftmouseup 
}
/delay 2s
/goto :Mainloop
/return

sub castingpet
/declare myXcoords int local ${Me.X}
/declare myYcoords int local ${Me.Y]
/delay 5s
/if (${myXcoords}==${Me.X}) && (${myYcoords}=={Me.Y}) {
/cast ${petspell}
/delay 10s
}
/return

Sub Event_exp
/varset fighting 0
/return

Sub Event_Chat(string ChatType,string ChatSender,string ChatText)
/if (${ChatText.Equal[?]}) && (${ChatText.NotEqual[${Charactername}]}) && (${ChatSender.NotEqual[${Charactername}]}) {
/if (${ChatType.Equal[TELL]}) /tell ${ChatSender} Dude?
/if (${ChatType.Equal[GROUP]}) /gsay Dude?
/if (${ChatType.Equal[OOC]}) /ooc Dude?
/if (${ChatType.Equal[SHOUT]}) /shout Dude?
/if (${ChatType.Equal[SAY]}) /say Dude?
}
/if (${ChatText.Equal[.]}) && (${ChatText.NotEqual[${Charactername}]}) && (${ChatSender.NotEqual[${Charactername}]}) {
/varset statementvar ${Math.Rand[2]}
/if (${ChatType.Equal[TELL]}) {
/if (${statementvar}==0) /tell ${ChatSender} Okie.
/if (${statementvar}==1) /tell ${ChatSender} Sure.
/if (${statementvar}==2) /tell ${ChatSender} Right on.
                                         }
/if (${ChatType.Equal[GROUP]}) 
/if (${statementvar}==0) /gsay Okie.
/if (${statementvar}==1) /gsay Sure.
/if (${statementvar}==2) /gsay Right on.
                                         }
/if (${ChatType.Equal[OOC]})
/if (${statementvar}==0) /ooc Okie.
/if (${statementvar}==1) /ooc Sure.
/if (${statementvar}==2) /ooc Right on.
                                         }
/if (${ChatType.Equal[SHOUT]})
/if (${statementvar}==0) /shout Okie.
/if (${statementvar}==1) /shout Sure.
/if (${statementvar}==2) /shout Right on.
                                         }
/if (${ChatType.Equal[SAY]})
/if (${statementvar}==0) /say Okie.
/if (${statementvar}==1) /say Sure.
/if (${statementvar}==2) /say Right on.
                                         }
}

/if (${ChatText.Equal[${Charactername}]}) && (${ChatSender.NotEqual[${Charactername}]}) {
/if (${ChatType.Equal[TELL]}) /tell ${ChatSender} Lag
/if (${ChatType.Equal[GROUP]}) /gsay Lag
/if (${ChatType.Equal[OOC]}) /ooc Lag
/if (${ChatType.Equal[SHOUT]}) /shout Lag
/if (${ChatType.Equal[SAY]}) /say Lag
}
/return


Sub Event_joingroup
/ctrl /keypress i
/delay 1s
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/return

Sub CheckForTargets
/if (${fighting}==1) /return
/if (${aggroAnim.Find[|${Me.Pet.Animation}|]}) {
 /target pet
/assist
/gsay Kill a ${Target.CleanName}
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}

/if (${aggroAnim.Find[|${NearestSpawn[1].Animation}|]}) {
 /target ${NearestSpawn[1]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}
/if (${aggroAnim.Find[|${NearestSpawn[2].Animation}|]}) {
/target ${NearestSpawn[2]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}
/if (${aggroAnim.Find[|${NearestSpawn[3].Animation}|]}) {
/target ${NearestSpawn[3]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}
/if (${aggroAnim.Find[|${NearestSpawn[4].Animation}|]}) {
/target ${NearestSpawn[4]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}
/if (${aggroAnim.Find[|${NearestSpawn[5].Animation}|]}) {
/target ${NearestSpawn[5]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}
/if (${aggroAnim.Find[|${NearestSpawn[6].Animation}|]}) {
/target ${NearestSpawn[6]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}
/if (${aggroAnim.Find[|${NearestSpawn[7].Animation}|]}) {
/target ${NearestSpawn[7]}
/if (${Me.Target.Type.Equal[pc]}) /assist ${Target.CleanName}
/gsay Kill a ${Target.CleanName}
/pet attack
/target ${GroupLeader.Name}
/follow ${GroupLeader.Name}
/varset fighting 1
/return
}

 

[Redbot]

hahaha! I missed this first time around. Beautiful work sid. My new favorite macro.

 

[Siddin]

just a small question... has anybody actually tested to see if this one worked? I never ran it and was wondering if anybody did.

 

[Pugs]

Lol that is too funny i'm gonna try when i get back to a comp that can play eq.

 

[someoneorsomething]

Is this the one that that some did in another game. Where it would trade the melons?

 

[Siddin]

yeah, last year somebody challenged RG to change it from SWG to EQ1, so I did.
http://www.redguides.com/community/showthread.php?t=200&highlight=automated

 

[someoneorsomething]

LOL that was some funny shiz. Whoever uses this must post the log