MacroQuest64

Posted: **Sat May 01, 2004 12:47 pm**

Anyone get the above (Subject line) to work? I get no error but it doesn't update the value in the Quantity window.

From EQUI_QuantityWnd.xml:

<Editbox item = "QTYW_SliderInput">
<ScreenID>QTYW_SliderInput</ScreenID>
<DrawTemplate>WDT_Inner</DrawTemplate>
<RelativePosition>true</RelativePosition>
<Style_Border>true</Style_Border>
<Location>
<X>5</X>
<Y>40</Y>
</Location>
<Size>
<CX>70</CX>
<CY>20</CY>
</Size>
<TextColor>
<R>255</R>
<G>255</G>
<B>255</B>
</TextColor>
</Editbox>

<Screen item = "QuantityWnd">


<RelativePosition>false</RelativePosition>
<Location>
<X>300</X>
<Y>10</Y>
</Location>
<Size>
<CX>150</CX>
<CY>90</CY>
</Size>
<Text>Quantity</Text>
<Style_Transparent>false</Style_Transparent>

<DrawTemplate>WDT_Rounded</DrawTemplate>
<Style_Titlebar>true</Style_Titlebar>
<Style_Closebox>true</Style_Closebox>
<Style_Minimizebox>false</Style_Minimizebox>
<Style_Border>true</Style_Border>
<Style_Sizable>false</Style_Sizable>
<Pieces>QTYW_Slider</Pieces>
<Pieces>QTYW_SliderInput</Pieces>
<Pieces>QTYW_Accept_Button</Pieces>
</Screen>

Posted: **Sat May 01, 2004 3:27 pm**

in what context? Are you setting it to 50 when the range is 0-20 buying an item or picking up a stack?

Posted: **Sat May 01, 2004 4:03 pm**

in what context?

After /notify BazaarWnd BZW_Money0 leftmouseup

I just double checked and the max values for these sliders seem to be:
BZW_Money0 : 1000000 (pp)
BZW_Money1 : 100 (gp)
BZW_Money2 : 100 (sp)
BZW_Money3 : 100 (cp)

Appreciate your dedication to this project

Posted: **Sat May 01, 2004 4:06 pm**

i'll check on it. The problem with this previously is it would set the value but not update the display, I'm not sure if that's still the case

Posted: **Tue Jun 22, 2004 12:03 pm**

Yeah I'm trying to get some plat out of the bank and I can't get:
/notify QuantityWnd QTYW_SliderInput newvalue 50
To work
This should select 50pp in the bank but it doens't. It doens't give any error or anything just...nope.

Also The value of ${Target.CurrentHPs} of a corpse is not accurate. Returns an integer of like 4309283 or something.
It might have been or ${Target.PctHPs} I forget now

Posted: **Sat Sep 10, 2005 2:57 am**

I was unable to get /notify QuantityWnd QTYW_SliderInput newvalue 50 to work so ended up coding some replacement code that can enter arbitrary values into the QTYW_SliderInput:

Code: Select all

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

/declare item_count int local 50

      /echo Path_BuySellItems: Get Shared Bank Coin
      /nomodkey /notify BigBankWnd BIGB_SharedMoney0 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} )