SRL Archive - Help and Support

:confused: :confused: :confused: what the hell does duplicate identifier mean? i get this error:

Line 26: [Error] (9026:1): Duplicate identifier 'x' in script C:\Program Files\SCAR 2.03\Scripts\fallador auto miner by ub3r K1ll3r.scar

right in my variables…

how to fix?

X (along with Y) is declared in globals.scar therefore does not need to be re-declared in any script using srl ;) (So remove it from you variable declaration and you'll be good)

ok, i cannot seem to fix a lot of my errors, since i am a little new to this project, i will reveal my script… you may use it, but you will have to fix it:p . I dont get this stuff….

////////////////////////////
///    Auto-falador miner///
///    By ub3r l<1ll3r   ///
////////////////////////////
/// Instructions!        ///
///1. Go to the right-most///
///   bankbooth in east  ///
///   fally bank         ///
///2.have map facing     ///
///     super north      ///
///3. autocolorfinding   ///
/// procedures installed ///
///4.low quality, 32-bit////
/// and very bright     ///
////////////////////////////
///I am not responsible if you get banned.
///you cannot use a bronze pickaxe
///have pickaxe in first slot
///will mine coal in fally(not the guild)
///the road must be kind of brown
program miner;
{.include SRL/SRL.scar}
var
pickaxe,addypickaxe, mithpickaxe,steelpickaxe,ironpickaxe,
treecolor,cookingcolor,staircolor,stairscolor,rockcolor,miningcolor,
bankbooth:integer;
////////NO MODIFYING BEYOND THIS POINT ON!//////////
procedure bitmapspickaxes;
Begin
      pickaxe := BitmapFromString(33, 33, 'z78DAED97DD72832010855' +
       'F899F5DD4CB54C3FB3F52199726EB00BA22265C94CE9CC9B4893D' +
       '1FE72C4698405900898EF6696D460BEFF761A9B8F6AFB979A7B38' +
       'B35FBEA9375C9FF2ECB6A4AABF7A2D73A73E5D55B6F14E4D62A13' +
       '7C471D0C065DCCE38F68F35981F3038ADD56D05FF94ECAD50E306' +
       '1708E1A1F80B8B8016687CEBF18C3CF59FFEF0666290AFB19FFA3' +
       '0584E5B46A3030D9116604EB11F0492C7753647632752556FDD44' +
       'E2933EA9FD0F635054E117B75D2FF3E45744EFB46FEE514CA067F' +
       '5CB97F9A0B989C7673EC95C1D1C5A6898892199467714589824F3' +
       '78CE8DD9452D8193C8ED4B70C51E12439988B55A9B16795FBE729' +
       '440AF25FA2A0DCA9096946551450751F2CA5409A39C1888277987' +
       'ACB8956C60DCBEB7E7A4821274AFCA729F01329CD2E7312D27CD1' +
       'C4ADBFD99C697514022DA590FA4FF7619FCBCC210D43E9F044DA5' +
       '2485A54F25FD212176FD767282429C8E78E13D1EB561477A420F9' +
       'E67607856496DB52B49A8B92FF66290858EEA36896C2CD141FF57' +
       'FF86C788DE2F61609B48EA28B141A51F490421D456F295CA1E827' +
       '855614DF4DE12C85A44B9FF75F47C19F1A7A48E10A05690F2934A' +
       '638FB6CDBC17467BA54F79CFED5BB5ED1FF9758FCFFEA78FD0252' +
       '6079D1');
 
       addypickaxe := BitmapFromString(33, 33, 'z78DAED97D16E8330' +
       '0C457F29C40EB0475AE0FF3F69194693D18D83A13C4C5A5CC5A28' +
       '1463E5CDB49D7B559B366CDFEAEA59E678E8979A2D7C1EB79EB1A' +
       '9FB7FCF64CBE621A0BBF057F7852AD23F3FAEE81C2E33DD13A286' +
       'EB2C0BCF80245FDDD5A5A54E30F3FD6A1F75014D8419707281CF1' +
       '538839EEDD0F31653FC729849DA59A2D7817E74F320A88ACB75AF' +
       '7441C29D1C4631E31E56F3CA6177FFD32E6CF4945C0BCD6C54351' +
       '88A7A3398FAB7EE04403BDF99D07A5C4645198B964305A1485C83' +
       'F88BF5BBA3E843876F98D880A9AE25023467661456852A4D82397' +
       'F7E68E3F2E34C505BD8E5FEA82FB34722F14B4F24AABA86355BDA' +
       '79B79B4F8C40B85AE6E891F29A46A0A44F52EAD33CAE83692B157' +
       'BD8E5FABE0A210DD2513B6194D6465579DC2D55D415F4B05F1850' +
       'E26143A8725570D22CCB767F7EEBA0ABA23A176D84F747D09D7A1' +
       'A7A978AEEE17F53DD15201E34705EB5C316B95C74687F5F214852' +
       '78BCC7DC158D9E2C2EC726594FBA4714F05FF695913E9353D14D6' +
       'BEEFAFE59333C62DAFD7BC50DDD55AF0D4B2E7BC77CF5FEE518EF' +
       '80B2AF8FF25F92B14289A356BD6AC59B3FF63DFFD3F1EA6');
 
       mithpickaxe := BitmapFromString(33, 35, 'z78DAED995BAE8330' +
       '0C44B7646C07E827E5B1FF2595E2AA0A37846B1A1C52A9419A0F8' +
       '4D01CC6B6A2304D7F17B7341265D21B03B146A7832B2B859AC590' +
       '62793F3C5715EA3FDE4AC8C2F34F80B3EF9736E8661DB00350B19' +
       '851C4BE6D4C69BEF8462DB58E696270233BAEEBE6CD385FF9B3A0' +
       'F9BBB23BAC448E079F254AF15177585354635503605BDD0124059' +
       'F625557099D9E4E813DF68CA1FAFEA52F9898EA5716D453EF5A49' +
       '6745948542DF1142E1773723630D210535D43850119D96C5B3926' +
       '3EAFBF7535051C81C900E5AEE6C106599B4B11444372698508873' +
       'A1905A8D105953ECA7E04FA430BB7032FBFD255CFB93D98262DF7' +
       'F58E7FB5CD8614783E4124B249D4253451BFE77EB3CC615AB2E3B' +
       '0A4D0A2A5D9EF78956EF4CA6484A414F143C1376473A85A697AD7' +
       '7E99F51C4FC1F4EA1480AC3140C7620E5F84FA1C85A4506595C90' +
       '82CD6EF09A14CC284A48E15C8AEF3A8F2A612259505CEB3F71D21' +
       '692423AC5B5BDF0A32861AE9E4551CE99FF179CFCFFFE5F944691' +
       'BC037900B702061B');
 
       steelpickaxe := BitmapFromString(33, 36, 'z78DAED996B6E833' +
       '01084AFE4D7AEE16708F1FD8F5497B52A2358E32754556D691445' +
       '81CC97B117D838773ECCA43F5A0FD4D9086D4AD5158E7F8A9DCFB' +
       'F9D4515CB680AF13DE451FB128DA320B75A28EF3BA855E075552F' +
       '21FAB2945270BF2DA7E0608619173468EC6C25BA09ECDBBE7F18F' +
       'D6C6729A58015D0CF7C7D810183001F5871453F88E5618ACD55BE' +
       'CA8F4421D4241721288598A2785D312C951413483F931AFBA77D3' +
       '1093BF9B95158852F3FB774DA77FDB87D4114F1EEB6AB35D61C29' +
       'D0A200D742544A412B99D3D87F9C42A070D61B6629142CB084D75' +
       'B35C8272AAEB4C98AC7A5407ACC8BDCC61461C55265A39A30A3C4' +
       '0B965E14E914E28A74CC6E5799A9B28171C6855DB6BD93AE69232' +
       '8D2FE771E50AF5A5D7009B39899920A896C47F5A5C85945C13F1D' +
       '451E92CA7171AB6B1CC5490AD9141C17976C0B45710A0D1447A25' +
       'E5990CF9CBDDCEE3CAD75149CFF9314A25D7CA1F1270F15E04E8A' +
       '8B8AC4B9CABFEB608EADBB03A9F4CFFDDAA514CDD78B93671F6E1' +
       '58DA0E874ED6E4A61C4B379EDDD607D0AC37A0B2D14B7A6D0F5B9' +
       'FBB11406503CB01706535456CBF4B5EF964E4E530ABF8C6277B67' +
       '68A1B7B831D2806F46C5BBA0727E77CA8E75C4751D0D31EFCCF45' +
       '65B7B9E1BB58AEE6733E40314039B75FDE2F3770');
 
       ironpickaxe := BitmapFromString(33, 35, 'z78DAED996B6EC320' +
       '1084AF04EC92B83F5D3BDCFF48D9B25685C5A3601EA6558DB48AA' +
       '2289E8F61169C1813BEF0030560B42EF0021859CDA5AB54BFF8BA' +
       'A45F8FCFA4E72463C67A53B05A108A741FF5A934D55DAD421C2C3' +
       '514B65EA388CD6D74CE056CB0D11D356A0DB8E1A6577A89DF8C34' +
       'C67B013B2C340A2BD2EDC0B82C5514D5B928D52F5FF221845AE4A' +
       '710EC824B51BCAE1AA53BA076054DC3ABAE7ECE855EB4A4612970' +
       'C7858675A780A811457E2298C24DB7D668D0F814F84045234DD4B' +
       '4D3F24A8E5557BFEB421605F7014E907D27D09987EC173117B806' +
       '3A1853B0724B71748308516F8AB40B6E47F2BDF33BF3296596EBD' +
       '4D38650A4F5E3837429B7A6B9E0091224FB72CA4B538A9C55749A' +
       '438FC25F27312E7F75F5A608B8904DE19FB25C22F73BEB298A5DA' +
       '8A91E51CD39CAA7C8C97260FED32E0C3999C7F4176461628A0659' +
       '184251AC7F628A822C77505E4F71D185C99EBB5BED6BF3508CECA' +
       '86328C6EBAFA798C1859ABDBBC0857E148D7EC9C972E19750FCA0' +
       'FF9FA233C5CD6BA95DBAEFD75F4D3185FEFA93F9DFA618AEFF068' +
       'A6EFF34A5D5BE01F80D1C9B');
 
end;
procedure setup;
Begin
Bitmapspickaxes;
SetupSRL;
activateclient;
end;
procedure mining;
begin
   if (findcolortolerance(661,53,6651797,661,53,669,57,10)) then
   begin
   roadcolor:= getcolor(x,y) else
   logoff;
   movemouse(x,y)
   wait(300)
   clickmouse(x,y,True)
   wait(14000)
     Writeln('going to the mine')
        if (findcolortolerance(681,42,1861940,681,42,702,57,4) then
        begin
        treecolor:= getcolor(x,y) else
        logoff;
        movemouse(x,y)
        wait(300)
        clickmouse(x,y,True)
        wait(10000)
           if (findcolortolerance(679,79,1390932,679,79,708,97,5) then
           begin
           cookingcolor:= getcolor(x,y) else
           logoff;
           movemouse(x,y)
           wait(300)
           clickmouse(x,y,True)
           wait(14000)
           if (findcolortolerance(713,51,0,713,51,719,63,4) then
           begin
           staircolor:= getcolor else
           logoff;
           movemouse(x,y)
           wait(300)
           clickmouse(x,y,True)
           wait(14000)
              if (findcolortolerance(325,98,5921891,325,98,402,165,4) then
              begin;
              stairscolor:= getcolor(x,y) else
              logoff;
              movemouse(x,y)
              wait(300)
              clickmouse(x,y,True)
              wait(14000)
                  movemouse(603,124)
                  wait(300)
                  clickmouse(603,124,True)
                  wait(14000)
                     if (findcolortolerance(617,77,8158585,617,77,640,100,10) then
                     begin
                     miningcolor:= getcolor(x,y) else
                     logoff;
                     movemouse(x,y)
                     wait(300)
                     clickmouse(x,y,True)
                     wait(3000)
                     if (findcolortolerance(87,199,2043438,87,199,437,265,9) then
                     begin
                     rockcolor:= getcolor(x,y) and
                     picking; else
                     logoff;
end;
end;
end;
end;
end;
end;
end;
end;
procedure picking;
begin
repeat
 if (findcolortolerance(4,4,rockcolor,4,4,573,194,5)) then
 rockcolor:= getcolor(x,y) else
 wait(1000)
 movemouse(x,y)
 wait(300)
 clickmouse(x,y,True)
 anti;
 if (findbitmapin(pickaxe,571,216,568,212,604,242)False) and
 if (findbitmapin(addypickaxe,571,216,568,212,604,242)False) and
 if (findbitmapin(mithpickaxe,571,216,568,212,604,242)False) and
 if (findbitmapin(steelpickaxe,571,216,568,212,604,242)False) and
 if (findbitmapin(ironpickaxe,571,216,568,212,604,242)False) then
 findaxe;
 wait(10000)
 until(findcolortolerance(698,430,2636603,698,430,729,454,6)) then
 banking;
 end;
procedure anti;
Talktorand;
FindFight:boolean;
run;
end;
procedure run;
if (FindFight:True) then
clickmouse(644,13,True)
wait(9000)
clickmouse(651,149,True)else
DoNothing;
end;
procedure DoNothing;
begin
end;
procedure findaxe;
begin
wait(3000)
 if (findbitmaptolerancein(pickaxe,571,216,568,212,604,242,6)True) then
 clickmouse(x,y,True) and
 picking;
 if (findbitmaptolerancein(addypickaxe,571,216,568,212,604,242,6)True) then
 clickmouse(x,y,True)and
 picking;
 if (findbitmaptolerancein(mithpickaxe,571,216,568,212,604,242,6)True) then
 clickmouse(x,y,True)and
 picking;
 if (findbitmaptolerancein(steelpickaxe,571,216,568,212,604,242,6)True) then
 clickmouse(x,y,True)and
 picking;
 if (findbitmaptolerancein(ironpickaxe,571,216,568,212,604,242,6)True) then
 clickmouse(x,y,True)and
 picking;
 logoff;
end;
 
 
procedure banking;
begin
movemouse(695,29)
wait(300)
clickmouse(695,29,True)
wait(14000)
 if (findcolortolerance(638,55,602716,638,55,684,89,5) then
 begin
 staircolor:= getcolor(x,y) else
 logoff;
 movemouse(x,y)
 wait(300)
 clickmouse(x,y,True)
 wait(14000)
    if (findcolortolerance(288,83,stairscolor,288,83,418,244,5) then
    begin
    stairscolor:= getcolor(x,y) else
    logoff;
    movemouse(x,y)
    wait(300)
    clickmouse(x,y,True)
    wait(4000)
    repeat
    sendarrowsilent(1)
    until(findcolortolerance(663,63,15066358,663,63,663,63,5)
         if (findcolortolerance(x,y,3162233,577,75,596,101,5))then
         begin
         cookingcolor:= getcolor(x,y)
         movemouse(x,y)
         wait(300)
         clickmouse(x,y,True)
         wait(14000)
             if (findcolortolerance(580,101,3172673,580,101,595,116,6) then
             begin
             treecolor:= getcolor(x,y)
             movemouse(x,y)
             wait(300)
             clickmouse(x,y,True)
             wait(14000)
             movemouse(605,119)
             wait(300)
             clickmouse(605,119,True)
                   if (findcolortolerance(599,97,6871803,599,97,656,111,5)) then
                   begin
                   bankcolor:= getcolor(x,y)
                   movemouse(x,y)
                   wait(300)
                   clickmouse(x,y,True)
                   wait(14000)
end;
end;
end;
end;
end;
procedure bankbooth;
begin
if (findcolortolerance(54,173,4349557,54,173,328,265,5)) then
begin
bankbooth:= getcolor(x,y)
movemouse(x,y)
wait(300)
clickmouse(x,y,false)
wait(300)
clickmouse(x-4,y-1,True)
wait(1000)
clickmouse(579,267,False)
wait(300)
clickmouse(595,335,True)
wait(1000)
mining;
end;
procedure logoff;
begin
movemousesmooth(648,482)
wait(300)
clickmouse(648,482,True)
wait(300)
movemousesmooth(647,374)
wait(300)
clickmouse(647,374,True)
wait(300)
writeln('you either lost your pick, or the script may have not found some colors')
terminatescript;
end;
//////////////////////////////////////////////////////////////////////////
///    MAIN LOOP OF THE SCRIPT////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////
Begin
setup;
picking;
end.

Its my first 360 line script:p

I dont have the time to look for the problem right now, but one thing i did notice, is that your script doesnt have random mousemovements or clicking on a somewhat random point. Clicking on the same point every time will get you banned.

Instead of using "Clickmouse (300,300,true);", use something like "Clickmouse (300+random(5),300+random(5));" so it still clicks in the same area, just not on the same pixel. And use an srl function to move your mouse on a spline (curve) so you dont get banned right away.

I think the function you want to use is getcolor, not findcolortolerance.
Try replacing line 132 with:
if (getcolor(661,53)=6651797) then

Or if you want it to find the colour with tolerance:
(findcolortolerance(x,y,6651797,661,53,669,57,10)) then

The first two arguments are supposed to be variables.