Guildlobby corpse summon.mac

[jmac]

Here is an update to my old glsum.mac. this one now uses the GL banker on WEST side. and grabs 320pp (so when your naked and you CHA is low) buys a glowing soulstone and summons it. Enjoy for the 2 or so people who actually use it lol

|By Jmac
|Must be bound on West side by soulbinder
|


#include common/buy.inc

Sub Main

    /declare i int outer

:Banker
/target a shrewd
/delay 1
/stick 9
/if (${Target.Distance}>=11) /goto :banker
/keypress U
/delay 1
/keypress U
/if (${Window[Bigbankwnd].Open}) /call getmoney
/goto :banker

Sub Getmoney
/declare I int local 
/declare J int local 
/declare S string local 

/declare item_count int local 320 

      /echo Path_BuySellItems: Gettin that money 
      /nomodkey /notify BigBankWnd BIGB_Money0 leftmouseup 
      /delay 3s ( ${Window[QuantityWnd].Open} ) 

      /for I 1 to 2 
         /varset J ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} 
         /echo  ${Window[QuantityWnd].Child[QTYW_SliderInput].Text} ${J} 
         /if ( ${J} > 0 ) { 
            /keypress backspace chat 
            /delay 3s ( ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} < ${J} ) 
            /varset I 1 
         } else { 
            /varset I 2 
         } 
      /next I 

      /varset S ${item_count} 
      /for I 1 to ${S.Length} 
         /keypress ${S.Mid[${I},1]} chat 
         /delay 3s ( ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} == ${I} ) 
      /next I 

      /nomodkey /notify QuantityWnd QTYW_Accept_Button leftmouseup 
      /delay 3s ( !${Window[QuantityWnd].Open} ) 

      /varset I ${Me.Cash} 
      /autoinv 
      /delay 3s ( ${Me.Cash}!=${I} )
/keypress esc
/delay 5



/declare CompA item outer
/delay 1
/varset CompA "Glowing Soulstone"

:gotomerch
/delay 1
/target a disc
/stick 9
/if (${Target.Distance}>=11) /goto :gotomerch
/keypress U
/call Buy ${CompA} 1
/delay 2s
/keypress esc
/delay 2
/target a priest
/stick 9
/delay 3s
/nomodkey /ctrl /itemnotify ${FindItem[=Glowing Soulstone].InvSlot} leftmouseup
/delay 5
/target a priest
/face
/delay 5
:loop
/keypress U
/keypress U
/delay 5
/if (${Window[Givewnd].Open}) /call end
/goto :loop

Sub End

/notify Givewnd GVW_Give_Button leftmouseup
/end

 

[thez]

I could see this as a nice sub in some of my macros..../steal.

Will have to test it out!

 

[Druid]

Gawd.. I hope I dont die often enuf to make this worthwhile.

 

[Learningcurve]

Bah your a druid not a ranger, Druid!

 

[Headcrab]

every time i try to use this says couldnt open file: gives address of the file then on next line says unable to add macro line

 

[viper]

It just keeps zoning in and out of GH and collecting 200 pp over and over

 

[jmac]

need common/buy.inc Twen, can search or look on Armysoldiers TS posts for it.


Viper, if you started the macro with ANY ammount of cash on you then it wont work, have to start with 0

 

[Headcrab]

k got the common buy thing and now when i start it it does...nothing. i just keep standing where i started it. i know its running because i can /end it

 

[jmac]

sorry for huge bump, updated and now uses banker in guildlobby so its much faster.

 

[jimbo]

well hell, as long as it has been bumped...

Please forgive my newbness. I haven't bought an expansion in a long time. I'm a lowbie mostly. So the guid hall has only very recently become available to me... and oh yeah... did I mention my guild is kindof dead... I think I saw a guildy online about a month ago. So, as you could guess, I have been inside my guild hall only once, and still don't know what it is good for. I am gathering that I can summon my corpse from any zone. I also heard I can soak in a hot-tub for faster mana regen, but it seems like a long trip for that.

So I am correct in gathering that it costs approx 320 plat to have an NPC summon my corpse to this room, which if my guild were active, would be a common place to find a guildy cleric?

I recall reading something about shrouding to a lvl one toon in order to corpse-summon for less, but, once again assuming... that is only useful if you have a guildy cleric in the room, yes?

I believe this is so closely related to the use of this macro that this is an appropriate place to post this if and only if it is a current thread, which it seems to be atm. If not, please forgive my lack of forum etiquette.

--Jimbo

 

[Druid]

costs 320 +/- if you're over lev 70...

costs considerably less for lowbies

 

[captboom]

Modification to include wait4rez.inc

|By Jmac
|Must be bound on West side by soulbinder
|

#include buy.inc
#include wait4rez.inc
Sub Main

    /declare i int outer

:Banker
/target a shrewd
/delay 1
/stick 9
/if (${Target.Distance}>=11) /goto :banker
/keypress U
/delay 1
/keypress U
/if (${Window[Bigbankwnd].Open}) /call getmoney
/goto :banker

Sub Getmoney
/declare I int local 
/declare J int local 
/declare S string local 

/declare item_count int local 320 

      /echo Path_BuySellItems: Gettin that money 
      /nomodkey /notify BigBankWnd BIGB_Money0 leftmouseup 
      /delay 3s ( ${Window[QuantityWnd].Open} ) 

      /for I 1 to 2 
         /varset J ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} 
         /echo  ${Window[QuantityWnd].Child[QTYW_SliderInput].Text} ${J} 
         /if ( ${J} > 0 ) { 
            /keypress backspace chat 
            /delay 3s ( ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} < ${J} ) 
            /varset I 1 
         } else { 
            /varset I 2 
         } 
      /next I 

      /varset S ${item_count} 
      /for I 1 to ${S.Length} 
         /keypress ${S.Mid[${I},1]} chat 
         /delay 3s ( ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length} == ${I} ) 
      /next I 

      /nomodkey /notify QuantityWnd QTYW_Accept_Button leftmouseup 
      /delay 3s ( !${Window[QuantityWnd].Open} ) 

      /varset I ${Me.Cash} 
      /autoinv 
      /delay 3s ( ${Me.Cash}!=${I} )
/keypress esc
/delay 5



/declare CompA item outer
/delay 1
/varset CompA "Glowing Soulstone"

:gotomerch
/delay 1
/target a disc
/stick 9
/if (${Target.Distance}>=11) /goto :gotomerch
/keypress U
/call Buy ${CompA} 1
/delay 2s
/keypress esc
/delay 2
/target a priest
/stick 9
/delay 3s
/nomodkey /ctrl /itemnotify ${FindItem[=Glowing Soulstone].InvSlot} leftmouseup
/delay 5
/target a priest
/face
/delay 5
:loop
/keypress U
/keypress U
/delay 5
/if (${Window[Givewnd].Open}) /call givestone
/goto :loop

Sub Givestone
/notify Givewnd GVW_Give_Button leftmouseup
/call Wait4Rez
/end