SRL Archive - General

my First script is not compiling

jijib

2008-07-18 01:33:22

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))th en//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;

can someone help me figure out wat to do with the parts not compiling plz

noidea

2008-07-18 01:47:57

Try using SCAR tags. SRL is here for a reason, you have alot of non-SRL commands/procedures ect which makes your script very ban-able. Use 'mouse, mmouse' those kinds of things. You need a procedure 'Loadbitmaps' to be able to use it. I also do not suggest using so many bit maps, makes the script lagg, and it wont find rocks with bitmaps. Hope I helped,

noidea

hahicx

2008-07-18 03:29:22

You've also missed out a lot of semicolons at the end of lines - this will stop it compiling.
Like noidea said, SRL isn't that scary to learn, and it will make your scripts a lot less bannable.

Also, try to indent your code properly, with 2 spaces. It will make it easier for us to read.

jijib

2008-07-18 15:41:57

k thx for the tips

StrikerX

2008-07-18 19:47:22

program powerminer;
var rocksmined, ironrockcolor, 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' +
    '0OO5GN5rERBPEhkaJoCgSsSB2lKJIkd4uFq70ovQO0sRCQspm zDi7' +
    '+2E/ZGZnZ/+uPdF82NmZZ86cD+/7nOee99wfBmBAKRaU1d28VYotK' +
    'QGgqhxTCtcyUFsJ8O31M7TeWXq3dY/vNPHdZoFxZ6O6HLZ8V2VFyf' +
    'WuquIGBmCvBKBDGRbUVICnjx88b763ODs0O9E3MfqSSe+07HF se2w' +
    '7KpAIV3Htz0quiktLoA+2pgo6gFu1dW0vWgnduE5caw/+6cLs2DJz' +
    'ZJ01zl4gozq2Wb+qlzPGiE19+AejxI762xUwJxTMU1v9I9KTl ibqG' +
    'JkxRaWO9lNI3Xz21AqTLBMydtUsAWf00MwPOEWIbIrw8vYgvp Hwqp' +
    'FGwnOXaZvsKf7aJAxTW1Pe1fF8aLDrzWscmYh/S+kVrk+rthbXV0Z' +
    '2lYsOlJvwKky6ebeJG3ZtKXlv+fMkGZtm1Ky5DAKPaauyDDxq uE0e' +
    '6iIPdcL2WfogZ4W6rV6VbU45jJt+hzjqkVm3l3JRddQtsuiYa a/Sh' +
    '/K8Bm7UJoo5t5KHMnijPz2sIRFfUSldk1TC2hJlk0PbUa24zEL4 7Y' +
    'hkMhVQhuwbab806RFnA7L0gSh7KP4YRy4yhkJYfRpQPG2+/eLZ/RE' +
    'Sjk7tZtD72EvDAjZ1T7uCahdR7Xw+huTj2nxEFXGtnyXUUSc3 7xXl' +
    '3fwPEdlFCilGlR9impbGmoHeZjh6xluCkDexNNMvXh+3bK9Zt 1eP/' +
    'KpsUHEcVmb80rRP/P5IlwuI34fExZD4S1L5e373U0z1xwna0lg9TH' +
    'z+htAyS+/lLpE3VocX6HivTeg0sMMuUcDKO/Ju5YLSlFdUSKgKcfn' +
    'XnO4irfqzgF5kka/ZnZxb1IOrHx58SuprnqP3LE0SROzR6ZHn79Km' +
    'mEuS9iuCFh4MUIipU27hSVhajCuSrrXL0+1vvzqi1rW/vwb/uQwTC' +
    'b8Q8A2UwScwAHtuYHWWME/DuU18G7IMHeIuIXR4F9fl/JLToKwQkf' +
    '916T6LSt8l1V/y+x9Sho9ptOfl/dedDayZ11LehIxH480PaDYnqP2' +
    'PmJRnPiM34RLGHPyzoPI8rChG1YWI8jypKh7vfD41XhYPLove GgDe' +
    '9DYyJ7rlG5OcuTdqwRSqWs74df1tdQPttR6Um/UqonZ+3ieHUzsPK' +
    'vNB2VlKmzvSFo73CzlLJQA3ywB3fgierhHNsplEo4blNYsP9n gTxM' +
    'ck/N2AmZ/zKRP2zROvPOUUQOWDimLekD3SFc9s92pBOQbU3wU6+Zx' +
    'SPK3dYiBSZsKjdu5wyPiHQ7h7JNwdJ7ISMm/497lptyxo5oat64Wk' +
    'PptAUjGkAgsqMN8d5qYHEc3crm5RI52GLzDikLj3eJSu+uFXd wZbb' +
    '4zi7/v318M2YdAhCrqEB1ZeKqqL+TXxAFKJAXdvAAatc4NF0Sindx' +
    'GmVDDmMfO8+7xCWJdxyQo+9blXk7QJx7vrvfsci345cCg6yaA WlOO' +
    'xS46jRkiEagBWGQM+m2RbPSPlk3IRrUO/kLAL84eSj0EkZeHnnVLW' +
    'cAulve4AWYBTM6in4z5Z0C05ObLGfDvVWPDoPkB13EOLZFcxj UhpW' +
    '6zBrE8Wgj+ykZd3SC6ThoWBprG2mzO9DTHzuku/nDwUOw2ryYAmFd' +
    '5PhkwVAEDJhXOZmPUmACErP2YXO7ULv2Vtxw7JtzMPo6ueRXz CHmm' +
    'ld9ZnHVuFkB6ONWIXHaAbX95HXRb1p0KsHKISC+D6sAooOGMW 5dJZ' +
    'YDuMCjI2ObOvmTPyitHTNNHRMDfwhNx217PNDZlEGa826dU7T MpPH' +
    '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;

Fixed

Daniel

2008-07-22 05:36:51

Wow, you stuffed it up strikerx25. Check the last if and see if you can spot it out yourself.

WithoutFear

2008-07-22 20:21:31

From: strikerx25

program powerminer;
var rocksmined, ironrockcolor, 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' +
    '0OO5GN5rERBPEhkaJoCgSsSB2lKJIkd4uFq70ovQO0sRCQspm zDi7' +
    '+2E/ZGZnZ/+uPdF82NmZZ86cD+/7nOee99wfBmBAKRaU1d28VYotK' +
    'QGgqhxTCtcyUFsJ8O31M7TeWXq3dY/vNPHdZoFxZ6O6HLZ8V2VFyf' +
    'WuquIGBmCvBKBDGRbUVICnjx88b763ODs0O9E3MfqSSe+07HF se2w' +
    '7KpAIV3Htz0quiktLoA+2pgo6gFu1dW0vWgnduE5caw/+6cLs2DJz' +
    'ZJ01zl4gozq2Wb+qlzPGiE19+AejxI762xUwJxTMU1v9I9KTl ibqG' +
    'JkxRaWO9lNI3Xz21AqTLBMydtUsAWf00MwPOEWIbIrw8vYgvp Hwqp' +
    'FGwnOXaZvsKf7aJAxTW1Pe1fF8aLDrzWscmYh/S+kVrk+rthbXV0Z' +
    '2lYsOlJvwKky6ebeJG3ZtKXlv+fMkGZtm1Ky5DAKPaauyDDxq uE0e' +
    '6iIPdcL2WfogZ4W6rV6VbU45jJt+hzjqkVm3l3JRddQtsuiYa a/Sh' +
    '/K8Bm7UJoo5t5KHMnijPz2sIRFfUSldk1TC2hJlk0PbUa24zEL4 7Y' +
    'hkMhVQhuwbab806RFnA7L0gSh7KP4YRy4yhkJYfRpQPG2+/eLZ/RE' +
    'Sjk7tZtD72EvDAjZ1T7uCahdR7Xw+huTj2nxEFXGtnyXUUSc3 7xXl' +
    '3fwPEdlFCilGlR9impbGmoHeZjh6xluCkDexNNMvXh+3bK9Zt 1eP/' +
    'KpsUHEcVmb80rRP/P5IlwuI34fExZD4S1L5e373U0z1xwna0lg9TH' +
    'z+htAyS+/lLpE3VocX6HivTeg0sMMuUcDKO/Ju5YLSlFdUSKgKcfn' +
    'XnO4irfqzgF5kka/ZnZxb1IOrHx58SuprnqP3LE0SROzR6ZHn79Km' +
    'mEuS9iuCFh4MUIipU27hSVhajCuSrrXL0+1vvzqi1rW/vwb/uQwTC' +
    'b8Q8A2UwScwAHtuYHWWME/DuU18G7IMHeIuIXR4F9fl/JLToKwQkf' +
    '916T6LSt8l1V/y+x9Sho9ptOfl/dedDayZ11LehIxH480PaDYnqP2' +
    'PmJRnPiM34RLGHPyzoPI8rChG1YWI8jypKh7vfD41XhYPLove GgDe' +
    '9DYyJ7rlG5OcuTdqwRSqWs74df1tdQPttR6Um/UqonZ+3ieHUzsPK' +
    'vNB2VlKmzvSFo73CzlLJQA3ywB3fgierhHNsplEo4blNYsP9n gTxM' +
    'ck/N2AmZ/zKRP2zROvPOUUQOWDimLekD3SFc9s92pBOQbU3wU6+Zx' +
    'SPK3dYiBSZsKjdu5wyPiHQ7h7JNwdJ7ISMm/497lptyxo5oat64Wk' +
    'PptAUjGkAgsqMN8d5qYHEc3crm5RI52GLzDikLj3eJSu+uFXd wZbb' +
    '4zi7/v318M2YdAhCrqEB1ZeKqqL+TXxAFKJAXdvAAatc4NF0Sindx' +
    'GmVDDmMfO8+7xCWJdxyQo+9blXk7QJx7vrvfsci345cCg6yaA WlOO' +
    'xS46jRkiEagBWGQM+m2RbPSPlk3IRrUO/kLAL84eSj0EkZeHnnVLW' +
    'cAulve4AWYBTM6in4z5Z0C05ObLGfDvVWPDoPkB13EOLZFcxj UhpW' +
    '6zBrE8Wgj+ykZd3SC6ThoWBprG2mzO9DTHzuku/nDwUOw2ryYAmFd' +
    '5PhkwVAEDJhXOZmPUmACErP2YXO7ULv2Vtxw7JtzMPo6ueRXz CHmm' +
    'ld9ZnHVuFkB6ONWIXHaAbX95HXRb1p0KsHKISC+D6sAooOGMW 5dJZ' +
    'YDuMCjI2ObOvmTPyitHTNNHRMDfwhNx217PNDZlEGa826dU7T MpPH' +
    '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;

Fixed

missed a then in the last if statement

Gold

2008-07-27 13:17:23

Dude for some just nicer parts make a form for players so they can do multiple also if you could put the rock colors in for them so they only have to say which to powermine