Help with simple macro

[fallenkal]

Ok, im stuck on this part the purpose of this macro is to basically hand 100pp to my target and click the give button... it doesnt seem to work. it gets to the quantity part of the platinum then nothing... basically how do i tell it i want 100PP to go onto the cursor? thanks in advance; the current code is below.

Code: Select all

Sub Main
:start

}
}
      /if (!${Window[InventoryWindow]}) /keypress inventory
      /if (${Cursor.ID}) /destroy
      /notify InventoryWindow IW_Money0 leftmouseup
      /delay 1s
      /click left target
      /delay 3s
      /notify GiveWnd GVW_Give_Button leftmouseup
      /delay ${Math.Rand[3]}s

      
   }
}

/goto :start

/return

[Jastur]

In your script you clicked on the platinum slot inside your inventory window. You still need to tell it how much platinum, and then click the Ok button to get the plat on the cursor. The rest of it looks fine, but if your target is a player, the currency will not be traded because you need to be using the trade window, not the give window.

[Villageidiot]

Code: Select all

Sub Main
:start

}
}
      /if (!${Window[InventoryWindow]}) /keypress inventory
      /if (${Cursor.ID}) /destroy
      /notify InventoryWindow IW_Money0 leftmouseup
      /delay 1s
      /notify QuantityWnd QTYW_InputSlider newvalue 100
      /delay 1s
      /notify QuantityWnd QTYW_Accept_Button leftmouseup
      /delay 1s
      /click left target
      /delay 3s
      /notify GiveWnd GVW_Give_Button leftmouseup
      /delay ${Math.Rand[3]}s

      
   }
}

/goto :start

/return

That would be my guess but for some reason the /notify QuantityWnd QTYW_SliderInput newvalue 100 isn't working

[mystikule]

Code: Select all

    /for i 1 to ${j}
      /varset itemp ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}
      /nomodkey /keypress backspace chat
      /delay 3s ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}!=${itemp}
    /next i
    /for i 1 to ${GrabCount.Length}
      /nomodkey /keypress ${GrabCount.Mid[${i},1]} chat
      /delay 3s ${Window[QuantityWnd].Child[QTYW_SliderInput].Text.Length}==${i}
    /next i
    /nomodkey /notify QuantityWnd QTYW_Accept_Button leftmouseup
  }

This is from one of my old macs..... used to work, but I haven't played eq in 1.5yrs. Hope it helps