Sol Ro Faction macro

SukMage · Post by **SukMage** » Wed Jun 09, 2004 1:10 am

Ok... I made simple macros for like fishing and foraging and stuff but I'm not sure how to go about making one to give Rathmana Umptyscrunch , the merchant in Sol Ro, 30 gold then auto inventory looped back... I killed my Sol Ro Tower faction and the fingers are getting sore giving about 1-2k in 30 gols shots to this guy...

I know there's a way to give target 30 gold then autoinventory then :loop. Anyone able to point me in the right direction or type up a simple macro for that?

Catt · Post by **Catt** » Wed Jun 09, 2004 4:23 am

Take a look at:

http://macroquest2.com/phpBB2/viewtopic.php?t=6811

it may help you.

SukMage · Post by **SukMage** » Wed Jun 09, 2004 6:37 pm

Thanks. It's prolly a really newbish question but I've been macroing for all of about 2 months and haven't quite gotten all of the stuff down. My appologies. Bear with me and I'll get up to par but I can see modifying it if I were giving an item. How would I go about picking up the 30 gold instead of an item in my inventory?

colt45 · Post by **colt45** » Thu Jun 10, 2004 6:27 am

dont know how much it will help you, but use the

Code: Select all

/mouseto gold
/click left
/notify somewindow SomeSlider newvalue 30  (whatever it is for the moeny slider)
/notify enter (moneywindow)

then check out the casino script for the give commands, sorry i cant help you more . . . andi dont even kow if this works, but its worth a shott

SukMage · Post by **SukMage** » Thu Jun 10, 2004 5:14 pm

Okay. This is what I have so far...

Code: Select all

|SukMage's Failed Attempt to gain Sol Ro Temple Faction June 10, 2004
|Based heavily on Casino Plat-waster by Groo Apr 29, 2004 

Sub Main 
   /declare i int 
   :Loop 
      /for i 0 to 3 
         /call PickupGold 
         /call GiveGold ${i} 
      /next i 
      /call ClickTrade 
      /call ClearCursor 
      } 
      /delay 1s 
      /goto :Loop 
   /return 

Sub GiveGold(i) 
   /if (${i}>0) { 
      /notify GiveWnd GVW_MyItemSlot${i} leftmouseup 
   } else { 
      /click left target 
      :Loop 
         /delay 1s
         /if (!${Window[GiveWnd].Open}) /goto :Loop 
   } 
   /delay 3s 
   /return 

Sub PickupGold 
   :Loop 
      /if (!${Cursor.ID}) {
         /windowstate InventoryWindow open 
         /notify InventoryWindow IW_Money1 leftmouseup
[color=red]|insert command to clear the quantity window and change value to 30
        /notify enter |is that correct to "hit enter key"?[/color]
   }
   /delay 1s 
   /return 

Sub ClickTrade 
   /notify GiveWnd GVW_Give_Button leftmouseup    
   /delay 1s 
   /return 

Sub ClearCursor 
    :Loop 
      /if (!${Cursor.ID}) /return 
      /autoinv 
      /delay 1s 
      /doevents 
      /goto :Loop 
    /return

The suggested:

Code: Select all

/mouseto gold 
/click left

didn't work so I poked around and found how to open inventory and click the "gold" part to open the quantity window. Need to figure out how to move the slider now.

Brick 37 · Post by **Brick 37** » Tue Apr 27, 2010 6:47 pm

Just a quick bump, 6 years later.

Hacked this macro together to work, as the QuantityWindow slider still is unworking in MQ :)

Will max your Sol Ro faction from Kos to Ally in about 15mins (make sure you don't have more than 2k pp on you)

Code: Select all

Sub Main
   /declare i int
   :Loop
         /call PickupGold
         /call GiveGold
      /call ClickTrade
      /call ClearCursor
      }
      /delay 1s
      /goto :Loop
   /return

Sub GiveGold(i)
/target Rathmana   
/face
/click left target
      :Loop
         /delay 1s
         /if (!${Window[GiveWnd].Open}) /goto :Loop
   }
/return

Sub PickupGold
   :Loop
      /if (!${Cursor.ID}) {
         /windowstate InventoryWindow open
         /notify InventoryWindow IW_Money0 leftmouseup

/declare I int local
/declare J int local
/for I 1 to 2
         /varset J ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}
         /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

/keypress 3 chat


        /notify QuantityWnd QTYW_Accept_Button leftmouseup
   }
   /delay 1s
   /return

Sub ClickTrade
   /notify GiveWnd GVW_Give_Button leftmouseup   
   /delay 1s
   /return

Sub ClearCursor
    :Loop
      /if (!${Cursor.ID}) /return
      /autoinv
      /delay 1s
      /doevents
      /goto :Loop
    /return

Sol Ro Faction macro

Sol Ro Faction macro

Re: Sol Ro Faction macro