Simple little script im trying to get to work.. But it keeps going to the corner and not the BMP. Any help/suggestions would be great! Is the bitmap to small?
Code:program gppickin; var x, y,goldbmp: Integer; procedure DeclareBMPS; begin goldbmp := BitmapFromString(3, 3, 'B19115B19115B19115FBCF36' + 'B19115B19115826E497C6A477C6A47'); end; procedure ClickBMPS; begin wait(300+random(32)) movemousesmooth(x,y) wait(32+random(16)) clickmouse(x,y,true) end; procedure Findgifts; begin wait(4000+random(276)) if (findbitmap(goldbmp,x,y)) then writeln('holycow'); clickBMPS; end; begin repeat wait(1200+random(58)) declareBMPS; findgifts; until(false) end.





Reply With Quote






