• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Change the look. To dismiss this notice, click the X --->
  • Unfortunately, yes, there is a suspension wave happening around the new tlp launch. :'( Please keep regular discussion to Suspension MegaThread and please consider submitting a Suspension report to RG.

request ) (1 Viewer)

leplubo

New member
Joined
Feb 22, 2006
RedCents
someone have a macro for the starting day of a mage that summon pet toys 3 or 4 time a var you put /mac start 3
and lava orb and gem invis ) ? i see one for necro but too many change i cant make i think the necro one is good to change for pet remake in fight ;
 
Made by armysoldier,
From: Search: Summon


- http://www.redguides.com/community/search.php?searchid=126592 -

It's the second thread from there, Please read it fully

Rich (BB code):
|--- 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

Redcents are awesome.. If ya know what I mean!
 
request )

Users who are viewing this thread

Back
Top