/run local l,d,b="list","bid"for i=1,GetNumAuctionItems(l)do b=select(20,GetAuctionItemInfo(l,i))if b and b==500000 then PlaceAuctionBid(l,i,b)elseif CanSendAuctionQuery()then QueryAuctionItems()end end