It's for 07. This is my first day coding, this is what I made it works.
Code:program PowerMiner; {$I SRL\SRL.Simba} {$I P07Include.Simba} var x, y: integer; procedure MineOre; begin repeat FindColorTolerance(x, y, 5077417, 0, 0, 520, 340, 4) MoveMouse (x, y); wait(200) if (P07_GetUpText = 'Mine Rocks')then ClickMouse (x,y,1); Wait(10000) until(P07_InvFull) end; begin repeat mineOre; P07_DropAll; until(false); end.


Reply With Quote

















