im not sure this is going to work.
u have to be at the western iron area at the dwarvan mines.
im not sure this is going to work.
u have to be at the western iron area at the dwarvan mines.
If this is your first time Gj. Maybe add Srl Players setup, antirandoms, antiban?
Also why make bitmaps for your colour maybe use Ac or Findobjcustom? Try script standards as well. Script standards are when your script looks neat and tidy
Fixed some errors and added Script standards
SCAR Code:program powerminer;
var rocksmined, x, y, mine: integer;
const
rock1color = 1976385;
procedure mining;
begin
if (FindColorSpiralTolerance(x, y, Rock1Color, 5, 5, 514, 337, 2)) then
movemousesmooth(x, y); //moves the mouse towards the color
wait(1000 + 500) //wait a random time
if (FindBitmapToleranceIn(mine, x, y, 6, 6, 126, 23, 1)) then //this is the bitmap we made earlier
begin
getmousepos(x, y) //gets the position of the mouse
clickmouse(x, y, true) // clicks the mouse at its current position
wait(3000 + 1000) //waits 3 seconds + 1 second
end;
end;
procedure minecolor;
begin
Mine := BitmapFromString(17, 17, 'z78DADD94DB0' +
'A80200C407F69B38BFAA8ADFFFFA5861B44880F6952B60303 D9F4' +
'A0E000AA2282874573EF18C4B2DB7D65522EF590671C6D142 9B45' +
'8783F831E2DDAA225810601428B45B8545DAA76B00872BE5A DC09' +
'CC8C69B1E8FB64F7D2D5A396628F5826E62F16C3E0F016E9A 9B2D' +
'C0EB16433A7EE1FBD3CA53F603900F40458C2');
procedure ironrockcolor;
begin
iron_rock := BitmapFromString(22, 25, 'beNpdlOdTWlkYxg/YNdH' +
'0OO5GN5rERBPEhkaJoCgSsSB2lKJIkd4uFq70ovQO0sRCQspmzDi7' +
'+2E/ZGZnZ/+uPdF82NmZZ86cD+/7nOee99wfBmBAKRaU1d28VYotK' +
'QGgqhxTCtcyUFsJ8O31M7TeWXq3dY/vNPHdZoFxZ6O6HLZ8V2VFyf' +
'WuquIGBmCvBKBDGRbUVICnjx88b763ODs0O9E3MfqSSe+07HFse2w' +
'7KpAIV3Htz0quiktLoA+2pgo6gFu1dW0vWgnduE5caw/+6cLs2DJz' +
'ZJ01zl4gozq2Wb+qlzPGiE19+AejxI762xUwJxTMU1v9I9KTlibqG' +
'JkxRaWO9lNI3Xz21AqTLBMydtUsAWf00MwPOEWIbIrw8vYgvpHwqp' +
'FGwnOXaZvsKf7aJAxTW1Pe1fF8aLDrzWscmYh/S+kVrk+rthbXV0Z' +
'2lYsOlJvwKky6ebeJG3ZtKXlv+fMkGZtm1Ky5DAKPaauyDDxquE0e' +
'6iIPdcL2WfogZ4W6rV6VbU45jJt+hzjqkVm3l3JRddQtsuiYaa/Sh' +
'/K8Bm7UJoo5t5KHMnijPz2sIRFfUSldk1TC2hJlk0PbUa24zEL47Y' +
'hkMhVQhuwbab806RFnA7L0gSh7KP4YRy4yhkJYfRpQPG2+/eLZ/RE' +
'Sjk7tZtD72EvDAjZ1T7uCahdR7Xw+huTj2nxEFXGtnyXUUSc37xXl' +
'3fwPEdlFCilGlR9impbGmoHeZjh6xluCkDexNNMvXh+3bK9Zt1eP/' +
'KpsUHEcVmb80rRP/P5IlwuI34fExZD4S1L5e373U0z1xwna0lg9TH' +
'z+htAyS+/lLpE3VocX6HivTeg0sMMuUcDKO/Ju5YLSlFdUSKgKcfn' +
'XnO4irfqzgF5kka/ZnZxb1IOrHx58SuprnqP3LE0SROzR6ZHn79Km' +
'mEuS9iuCFh4MUIipU27hSVhajCuSrrXL0+1vvzqi1rW/vwb/uQwTC' +
'b8Q8A2UwScwAHtuYHWWME/DuU18G7IMHeIuIXR4F9fl/JLToKwQkf' +
'916T6LSt8l1V/y+x9Sho9ptOfl/dedDayZ11LehIxH480PaDYnqP2' +
'PmJRnPiM34RLGHPyzoPI8rChG1YWI8jypKh7vfD41XhYPLoveGgDe' +
'9DYyJ7rlG5OcuTdqwRSqWs74df1tdQPttR6Um/UqonZ+3ieHUzsPK' +
'vNB2VlKmzvSFo73CzlLJQA3ywB3fgierhHNsplEo4blNYsP9ngTxM' +
'ck/N2AmZ/zKRP2zROvPOUUQOWDimLekD3SFc9s92pBOQbU3wU6+Zx' +
'SPK3dYiBSZsKjdu5wyPiHQ7h7JNwdJ7ISMm/497lptyxo5oat64Wk' +
'PptAUjGkAgsqMN8d5qYHEc3crm5RI52GLzDikLj3eJSu+uFXdwZbb' +
'4zi7/v318M2YdAhCrqEB1ZeKqqL+TXxAFKJAXdvAAatc4NF0Sindx' +
'GmVDDmMfO8+7xCWJdxyQo+9blXk7QJx7vrvfsci345cCg6yaAWlOO' +
'xS46jRkiEagBWGQM+m2RbPSPlk3IRrUO/kLAL84eSj0EkZeHnnVLW' +
'cAulve4AWYBTM6in4z5Z0C05ObLGfDvVWPDoPkB13EOLZFcxjUhpW' +
'6zBrE8Wgj+ykZd3SC6ThoWBprG2mzO9DTHzuku/nDwUOw2ryYAmFd' +
'5PhkwVAEDJhXOZmPUmACErP2YXO7ULv2Vtxw7JtzMPo6ueRXzCHmm' +
'ld9ZnHVuFkB6ONWIXHaAbX95HXRb1p0KsHKISC+D6sAooOGMW5dJZ' +
'YDuMCjI2ObOvmTPyitHTNNHRMDfwhNx217PNDZlEGa826dU7TMpPH' +
'zKFk9hRwl2OBZUQdBjwcx0wKteO/ej7qO0i7R5ua1ge7lwkdZz79j' +
'MuPQXfNE/pLMRtUZcun3CGfJbPn/MlEPGlANIJgwHwXV0r4TEFLHr' +
'Pnor1ljQ5gB/vbT/228/CByHbznHEdV0DM0PIwq6qKkzJFexrqsuu' +
'qXut8qv7+Z/K/1NQcoXlH3S+1r952TZR');
end;
procedure mine;
if (FindColorSpiralTolerance(x, y, Rock1Color, 5, 5, 514, 337, 5))
begin
loadbitmaps;
repeat
mining
writeln('mined' + inttostr(rocksmined) + 'rocks so far');
until (false)
end;
Keep working. I would not say this script is ready for use but is a good starts.
Btw wrong section![]()
yeah, your supposed to put in first script Trevor naughty! hahahaha but now that you know some scripting you can help me with my script!! its almost done but needs some failsafes and crap still
Will test most scripts, offering members account to certain scripters! PM Me.
Also need helping making a powerminer, Pst/Aim me!
your random times...aren't actually random
SCAR Code:wait(250+random(250));
correct
SCAR Code:wait(1000 + 500);
Incorrect
There are currently 1 users browsing this thread. (0 members and 1 guests)