look out, i spent all night working on this second atempt

Damien_lord_of_newbs · Post by **Damien_lord_of_newbs** » Mon Nov 04, 2002 9:02 am

ok.....i have NO clue if this works or not, i havent even tried to use MQ yet, but im having fun with this macro stuff so here it goes. this is my second atempt at a macro, this one is supposed to be a druid buffing/tping script.......i basicly read alot of the scripts in the depot and referenced them while writing this (got a 50+ druid just collecting dust why not use him) alot of the ideas in here came from Nuad's druid powerlvl script (givin props where they're due) so its not 100% my idea. as always i would love some feedback, rip into it & gimme yer honest opinion, i wont cry, BTW its huge

Code: Select all

| <Powerlvl.mac> - buff based powerlvling script for druids

| Written by: Damien lord of the newbs, with alot of inspiration from Nuad's script

| usage: /macro Powerlvl
| then have the char you are powerlvling send the bot a tell, had to do it this way because of port code, i dont know any other way.

#chat tell
#include spellcast.mac
#include spellbook.mac

Sub Main
	/varset v10 $p1
	/tell $v10 give me one min, memming correct spells.
	/call StartMem
	/tell $v10 All ready here.
	 :loop
	/doevents
	/if $gm==TRUE /call Sleeper
	/goto :loop
/return

Sub Event_Chat
	/varset v20 $p1
	/if "$v10"!="$v20"
	{/delay 100
	/tell $p1 sec, two boxin send me a tell on $v10
	/tell $v10 expect a tell from $v20} 
	/stand
	 
	/if $p2~~"sow" /call Sow
	/if $p2~~"regen" /call Regen
	/if $p2~~"sln" /call Sln
	/if $p2~~"thorns" /call Thorns
	/if $p2~~"heal" /call Heal
	/if $p2~~"str" /call Str
	/if $p2~~"snare" /call Snare
	/if $p2~~"evac" /call Evac
	/if $p2~~"healup" /call Healup
	/if $p2~~"mana" /tell $v10 atm i got about $char(mana,pct) mana and about $char(hp,pct) hp.
	/if $p2~~"cya" /call Camp
	/if $p2~~"need ride" /call Pickup
	/sit
	/doevents
/return
	
Sub StartMem
	/call MemorizeSpell "Spirit of Wolf" 1
	/call MemorizeSpell "Chloroplast" 2
	/call MemorizeSpell "Skin Like Nature" 3
	/call MemorizeSpell "Shield of Thorns" 4
	/call MemorizeSpell "Superior Healing" 5
	/call MemorizeSpell "Storm Strength" 6
	/call MemorizeSpell "Ensnare" 7
	/call MemorizeSpell "Lesser Succor" 8
/return

Sub Sow	
	/target $v10
	/cast 1
	/tell $v10 inc sow for us.
	/delay 30
	/cast 1
	/tell $v10 ok, got about $char(mana,pct) mana.
/return

Sub Regen
	/target $v10
	/cast 2
	/tell $v10 heres chloro for ya.
	/delay 30
	/tell $v10 just fyi $char(mana,pct) mana left.
/return

Sub Sln
	/target $v10
	/cast 3
	/tell $v10 heres chloro for ya.
	/delay 30
	/tell $v10 only $char(mana,pct) mana left.
/return

Sub Thorns
	/target $v10
	/cast 4
	/tell $v10 thorns inc dont poke yourself.
	/delay 30
	/tell $v10 still about $char(mana,pct) mana, anything else?

/return

Sub Heal
	/target $v10
	/cast 5
	/tell $v10 feel my healing umm....stuff
	/delay 30
	/tell $v10 ok, got about $char(mana,pct) mana in the clip.
	
/return

Sub Str
	/target $v10
	/cast 6
	/tell $v10 im hans, and im frans and im here to PUMP you up.
	/delay 30
	/tell $v10 ok, got about $char(mana,pct) mana for your powerlving pleasure.
	
/return

Sub Snare
	/target $v10
	/tell $v10 ok snaring your target, speedy bitch!
	/assist
	/cast 7
	/delay 30
	/tell $v10 ok, got about $char(mana,pct) mana after slowin him down.
	
/return

Sub Evac	
	/target $v10
	/invite $v10
	/cast 8
	/tell $v10 hurry up and press follow so i aint gotta port yer dead ass for CR.
	
/return

Sub Healup
	/press F1
	/tell $v10 ok healin myself, as if you care.
	/delay 30
	/tell $v10 ok, got about $char(mana,pct) mana left
	
/return

Sub Camp
	/tell $v10 ok ill cya around, campin out for the night.
	/stand
	/sit
	/unload
	/camp desktop
	
Sub Sleeper	
	/tell $v10 hey man gotta jet, emergency here at home.
	/delay 10
	/unload
	/exit
	
Sub Pickup
	/varset $v10 $p1
	/tell $v10 ok, where you need me?
	/call Location
/return

Sub Location	
	/call ForgetSpellByNumber 8
	/if $p2~~"nexus" /call MemorizeSpell "Ring of Nexus" 8	
	/if $p2~~"dsp" /call MemorizeSpell "Circle of Dawnshroud" 8	
	/if $p2~~"twilight" /call MemorizeSpell "Circle of Twilight" 8	
	/if $p2~~"grimling" /call MemorizeSpell "Circle of Grimling" 8	
	/if $p2~~"wc" /call MemorizeSpell "Ring of Commons" 8	
	/if $p2~~"tox" /call MemorizeSpell "Ring of Toxxulia" 8	
	/if $p2~~"lava" /call MemorizeSpell "Ring of Lavastorm" 8	
	/if $p2~~"misty" /call MemorizeSpell "Ring of Misty" 8	
	/if $p2~~"nk" /call MemorizeSpell "Ring of Karana" 8	
	/if $p2~~"bb" /call MemorizeSpell "Ring of Butcher" 8	
	/if $p2~~"sro" /call MemorizeSpell "Ring of Ro" 8	
	/if $p2~~"feerot" /call MemorizeSpell "Ring of Feerrott" 8	
	/if $p2~~"steamfont" /call MemorizeSpell "Ring of Steamfont" 8		
	/if $p2~~"surefall" /call MemorizeSpell "Ring of Surefall" 8		
	/if $p2~~"ek" /call MemorizeSpell "Succor: East" 8	
	/if $p2~~"dl" /call MemorizeSpell "Ring of Combines" 8	
	/if $p2~~"skyfire" /call MemorizeSpell "Winds of the South" 8	
	/if $p2~~"ej" /call MemorizeSpell "Winds of the North" 8
	/if $p2~~"gd" /call MemorizeSpell "Circle of Great Divide" 8	
	/if $p2~~"ic" /call MemorizeSpell "Ring of Iceclad" 8	
	/if $p2~~"wl" /call MemorizeSpell "Circle of Wakening Lands" 8		
	/if $p2~~"cs" /call MemorizeSpell "Circle of Cobalt Scar" 8
	
	/tell $v10 ok omw to pick you up
	/cast 8
	/call Destination
/return
	
Sub Destination	
	/target $v10
	/invite $v10
	/tell $v10 ok boss, where we headding?
	/call ForgetSpellByNumber 8
	/delay 50
	/if $p2~~"nexus" /call MemorizeSpell "Circle of Nexus" 8	
	/if $p2~~"dsp" /call MemorizeSpell "Circle of Dawnshroud" 8	
	/if $p2~~"twilight" /call MemorizeSpell "Circle of Twilight" 8	
	/if $p2~~"grimling" /call MemorizeSpell "Circle of Grimling" 8	
	/if $p2~~"wc" /call MemorizeSpell "Circle of Commons" 8	
	/if $p2~~"tox" /call MemorizeSpell "Circle of Toxxulia" 8	
	/if $p2~~"lava" /call MemorizeSpell "Circle of Lavastorm" 8	
	/if $p2~~"misty" /call MemorizeSpell "Circle of Misty" 8	
	/if $p2~~"nk" /call MemorizeSpell "Circle of Karana" 8	
	/if $p2~~"bb" /call MemorizeSpell "Circle of Butcher" 8	
	/if $p2~~"sro" /call MemorizeSpell "Circle of Ro" 8	
	/if $p2~~"feerot" /call MemorizeSpell "Circle of Feerrott" 8	
	/if $p2~~"steamfont" /call MemorizeSpell "Circle of Steamfont" 8		
	/if $p2~~"surefall" /call MemorizeSpell "Circle of Surefall" 8		
	/if $p2~~"ek" /call MemorizeSpell "Succor: East" 8	
	/if $p2~~"dl" /call MemorizeSpell "Circle of Combines" 8	
	/if $p2~~"skyfire" /call MemorizeSpell "Winds of the South" 8	
	/if $p2~~"ej" /call MemorizeSpell "Winds of the North" 8
	/if $p2~~"gd" /call MemorizeSpell "Circle of Great Divide" 8	
	/if $p2~~"ic" /call MemorizeSpell "Circle of Iceclad" 8	
	/if $p2~~"wl" /call MemorizeSpell "Circle of Wakening Lands" 8		
	/if $p2~~"cs" /call MemorizeSpell "Circle of Cobalt Scar" 8
	
	/tell $v10 ok boss here we go
	/cast 8
	/delay 300
	/call ForgetSpellByNumber 8
	/sit
	/call MemorizeSpell "Lesser Succor"
	/tell $v10 ok boss lead on, or do you want me to log?
	/call Decide
/return
	
Sub Decide
	/if $p2~~"log" /call Camp
	/tell $v10 ok then....gimme a sec to get autofollow on.
	/target $v10
	/stand
	/follow
	/tell $v10 alright, got autofollow on, dont run me into any walls.
/return

Damien_lord_of_newbs · Post by **Damien_lord_of_newbs** » Mon Nov 04, 2002 9:46 am

btw before the flames hit, this is NOT a taxi-bot....personal taxi only for hauling my poor non-caster toons around :)

Cheese · Post by **Cheese** » Mon Nov 04, 2002 9:50 am

np, I used to write code for several days without compiles and I know how it goes

Damien_lord_of_newbs · Post by **Damien_lord_of_newbs** » Mon Nov 04, 2002 9:57 am

thanks :) hate those all nighter typos :) updated to reflect correction

Lurker_005 · Post by **Lurker_005** » Mon Nov 04, 2002 5:09 pm

Just the requisite reminder, zoning while a macro is running still risks losing all items on that character!

It's a shame, cause the personal port bot would rock :) lot less switching computers that way. Just glanced at it, looks pretty good, keep it up.