Pettoys.mac

[armysoldier]

Simple macro I run on my Mage .. keeps the summoned gear full ... its not a PLAT gold mine.. but a couple K a day doing nothing.

READ THE MACRO ... it uses gem 1-8

very simple to adjust if you want to add another spell with item.

IF you can't figure it out .. PM me or post

8-)

but for those willing to learn this is an easy one to practice on

ENJOY


ARMY

|--- PetToys.mac
|--- Written by Armysoldier 
|--- for REDGUIDES!!!
|--- 
|---
|--- usage /mac PetToys


#include spell_routines.inc
#include common/CommonSubs.inc
#turbo

#Event Zoned "#*#You have entered#*#"
#Event Mana "#*#Insufficient Mana#*#"
#Event Window	"#*#You are too distracted#*#"

Sub Main
/declare ItemCnt int outer

	:begin
        /if (${FindItemCount[=Summoned: Girdle of Magi`Kot]}==0) /call Summon
        /if (${FindItemCount[=Summoned: Muzzle of Mardu]}==0) /call Summon
        /if (${FindItemCount[=Summoned: Dagger of the Deep]}==0) /call Summon
        /if (${FindItemCount[=Summoned: Blade of Walnan]}==0) /call Summon
        /if (${FindItemCount[=Summoned: Blade of the Kedge]}==0) /call Summon
        /if (${FindItemCount[=Elemental Blanket]}==0) /call Summon
        /if (${FindItemCount[=Summoned: Talisman of Return]}==0) /call Summon
        /if (${FindItemCount[=Summoned: Ring of Levitation]}==0) /call Summon

        /sit on
/keypress 1
|        /Auction Trader Up with PET toys - Belt - MASK - WEAPONS and Elemental BLankets / Talisman of return / LEV rings
        /delay 30m
        /doevents
	/goto :begin

/return


Sub Summon


/declare i int local
/call TraderOff

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Belt
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Girdle of Magi`Kot]}]}

/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[1]}" gem1
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Mask
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Muzzle of Mardu]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[2]}" gem2
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Deep
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Dagger of the Deep]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[3]}" gem3
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Walnan
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Blade of Walnan]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[4]}" gem4
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Kedge
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Blade of the Kedge]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[5]}" gem5
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Blanket
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/if (${FindItemCount[=Elemental Blanket]}==0) {
 	/call cast "${Me.Gem[6]}" gem6
        /delay 2s
        /call ClearCursor        
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Talisman
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[3-${FindItemCount[=Summoned: Talisman of Return]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[7]}" gem7
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|LEv Ring
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[3-${FindItemCount[=Summoned: Ring of Levitation]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[8]}" gem8
        /delay 2s
        /call ClearCursor        
/next i
}
        /call TraderOn
/return
sub TraderOff
/notify BazaarWnd BZW_End_Button leftmouseup
                /keypress ESC hold
                /keypress ESC 
/delay 2


/return


sub TraderOn
/trader
/delay 2
/nomodkey /notify BazaarWnd BZW_Start_Button leftmouseup



/return

Sub Event_Zoned 
       /echo died or something is wrong.. time to go 
       /delay 2s  
       /sit on
       /camp desk  
       /endmac 
/return

Sub Event_Mana
       	/sit on
       	:loop
	/delay 15S
       	/echo checking my mana 
       	/if ( ${Me.PctMana}==100 ) /return
     	/goto :loop
/return


Sub Event_Window

/click leftmouseup
/delay 2

/return


/nomodkey /notify BazaarWnd Close

/nomodkey /notify BazaarWnd BZW_Close_Button leftmouseup

/nomodkey /notify BazaarWnd BZW_Start_Button leftmouseup

GO GO Good TEAM!!!

 

[Merle]

Thank you so much for posting this code....not that I have a mage to use it with, but now when I run to the baz just to buy pet toys, this makes it more likely I'll find some to buy! Cool stuff!

 

[armysoldier]

lol kool .. hope some folks get some use out of it ...

its nice being a mage in the bazaar fully stocked 8-)


if any need help modding this for their mage .. post .. or pm me

8-)

ARMY

 

[armysoldier]

crap i forgot ... you must have your cursor over the x in the trader window....

I searched high and low and could not figure out the command to make the window close.

if anyone knows it or can get it to close with a command .. lemme know

ARMY

 

[Pugs]

what about

/notify BazaarWnd BZW_End_Button leftmouseup
                /keypress ESC hold
                /keypress ESC

a little crude but it should close it if you do not have more windows up than it up.

Or you could try /cleanup ieatacid seems to like it.

 

[armysoldier]

what about

/notify BazaarWnd BZW_End_Button leftmouseup
                /keypress ESC hold
                /keypress ESC

a little crude but it should close it if you do not have more windows up than it up.

Or you could try /cleanup ieatacid seems to like it.

ahh k ... i found the end button .. and it stops trader...


i tried esc ..


but i did not try ending trader then hitting esc ..


thanks Pugs


ARMY

 

[armysoldier]

ha ha ha ..

i am a dork

when you run this do not have any bags open ..

/keypress esc will close 2 of them first... lol


army

 

[datadog]

Damn,

I wish you were on my server. I can never find pet toys for my BST pet.

 

[larry1024]

One Question were do i get

#include common/CommonSubs.inc

 

[thez]

Hmm, I think you could probably find that in Army's "Tradeskills macros" thread. Download the zip...if it's anywhere, it's there.

 

[larry1024]

Not sure why but

#Event Mana "#*#Insufficient Mana#*#"
#Event Window "#*#You are too distracted#*#"

Are not being picked up when i'm out of mana or when i have my trader window open and its still trying to cast the items to sell.

oh and it also don't seem to care how many itmes i already have when i run the macro; still goes though the whole thing as if i had no items on him.

 

[larry1024]

Made some changes to the macro ; ie found some spelling mistakes that were causing the belt to be summoned 10 times summon rutine would run and some other stuff. It still has some minor bugs in it though.

|--- PetToys.mac
|--- Written by Armysoldier 
|--- for REDGUIDES!!!
|--- 
|---
|--- usage /mac PetToys


#include spell_routines.inc
#include common/CommonSubs.inc
#turbo

#Event Zoned "#*#You have entered#*#"
#Event Mana "#*#Insufficient Mana to cast this spell#*#"
#Event Window	"#*#You are too distracted to cast a spell now#*#"

Sub Main
/declare ItemCnt int outer

	:begin
        /if (${FindItemCount[=Summoned: Crystal Belt]}		==0) 	/call Summon
        /if (${FindItemCount[=Summoned: Muzzle of Mardu]}	==0)	/call Summon
        /if (${FindItemCount[=ummoned: Dagger of the Deep]}	==0) 	/call Summon
        /if (${FindItemCount[=Summoned: Blade of Walnan]}	==0)	/call Summon
        /if (${FindItemCount[=Summoned: Blade of the Kedge]}	==0) 	/call Summon
        /if (${FindItemCount[=Summoned: Hand of Ixiblat]}	==0) 	/call Summon

        /sit on
	/keypress 1
|        /Auction Trader Up with PET toys - Belt - MASK - WEAPONS and Elemental BLankets / Talisman of return / LEV rings
        /delay 30m
        /doevents
	/goto :begin

/return



Sub Summon
/declare i int local
/call TraderOff

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Belt
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Crystal Belt]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[1]}" gem1
        /delay 2s
        /call ClearCursor        
/next i
}


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Mask
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Muzzle of Mardu]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[2]}" gem2
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Deep
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Dagger of the Deep]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[3]}" gem3
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Walnan
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Blade of Walnan]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[4]}" gem4
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Kedge
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Blade of the Kedge]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[5]}" gem5
        /delay 2s
        /call ClearCursor        
/next i
}

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Fist of Ixiblat
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/Varset ItemCnt ${Math.Calc[10-${FindItemCount[=Summoned: Hand of Ixiblat]}]}
/if (${ItemCnt}>0) {
/for i 1 to ${ItemCnt}
 	/call cast "${Me.Gem[6]}" gem6
        /delay 2s
        /call ClearCursor        
/next i
}

/call TraderOn
/return

sub TraderOff
/notify BazaarWnd BZW_End_Button leftmouseup
                /keypress ESC hold
                /keypress ESC 
/delay 2
/return


sub TraderOn
/trader
/delay 2
/nomodkey /notify BazaarWnd BZW_Start_Button leftmouseup



/return

Sub Event_Zoned 
       /echo died or something is wrong.. time to go 
       /delay 2s  
       /sit on
       /camp desk  
       /endmac 
/return

Sub Event_Mana
       	/sit on
       	:loop
	/delay 15S
       	/echo checking my mana 
       	/if ( ${Me.PctMana}==100 ) /return
     	/goto :loop
/return


Sub Event_Window

/click leftmouseup
/delay 2

/return

 

[Devlin]

Code is your friend


[-code-]

[-/code-]

without the " - "

 

[larry1024]

Code is your friend


[-code-]

[-/code-]

without the " - "

Verry Cool; never knew how people did that.