|--- 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