SRL Archive - General

This is my code:

procedure dropunwanted;
begin

Var
egg,chicken,bearmeat,cowhide,ash: Integer;

egg := BitmapFromString(15, 12, 'z78DA9592596EC0200C44AF0478C1' +
       'FEF402F73F52694825A2B4559B488E2391E7C9784A59571DC5ACF' +
       'B90A8D686877B593D180E765719E020B6CF645A638FAE95867721' +
       '62E9DC6062823428170D4A5B7739C99BE3110E0F72F32A3DA7699' +
       '7341DDCB368E71A249342B35754F6C55E4FA05637F3265FDFFEA8' +
       'B65AF45C6A9147B2066384229700497259EA21785081EF3493ABE' +
       '25F7C48546308D54633AA04990A0F6422C8D6BF216F872DD4C6DD' +
       'EF59A70F698525DB22B5EDF3E73C9C3A3BA0B1A0B5799209D1C06' +
       'FFE3FC91EA224DD49C1DE9A1FE4EDC3B24EDBA85E0417B3777A6F' +
       'CD4D3A892C5FB0F44A0DE864DE64C6C47693D987E64067996B6B4' +
       '36A0EE35E53349963287D6D6DE76D393E51762A1E6A2FE6591FDB' +
       'DC9A4FF2CEC3B5B5F5278A53D63BE44F6AB71B677FA671D747D27' +
       '61E2EB56F1F1E6A37F9554F0DEF59677DA87DE9FC7DCA7BD6BBBE' +
       'CF7F006D7DEB98');
       
bearmeat := BitmapFromString(19, 20, 'z78DABD955D8EC3200C84AF44CCFF' +
       '2336E6FE47DA29E681284DD56AB79B51509534FE18634C4CA1078' +
       'A2134CF6BBC79E21ED761630FA29048848A3828B1B20A71E5D21C' +
       'F983EEC6157FA76C4F9E503E8CFF9A883BF872A24419D02FE2DF1' +
       '19F50FE28FE755C94D48FEE842588FF06E509B174EA249185F99D' +
       'AF7870846EC6B788AD4764B30909FD1351E0B260F58A94EF11EDE' +
       'D226AAFD0AC99DF13EFB8DCDA68C388EAE0522CB7DFAB99DDA3FA' +
       '3EE093E471CD3DFECE8A7C908DD86010B7ABCB239289571A95943' +
       'A63AFA4459FB5047EE1FCE91C16EB6811F23543BD52A51351B469' +
       'D5AC0132D7B3A2567F9BBBD53A83CDE12D963407D5AAE0651426E' +
       'FC411060DD2A140819DA1E97A5FE5D591AC877BC6F6DDE7B058CC' +
       '07944113A6965BAEADBA328AC7CF66DDFBC4CD234234DC70203F5' +
       'AEAEEDAAA7A768C9579952CC9BA87D1171734F0A6C72AF5A82E8F' +
       '9C72DA4FA5BDBBAE8A2A70194F4E2DCFB587EECD6F3F906F5E5C5' +
       'BF7D9F997BBB976B9E79083C53C9D5673F48E201BAF73B035450F' +
       '7EA46C3F1F6786F7ACC259AAA970A1B2BEB5984FCEC7CB29F97A0' +
       'E7013A0B9BBD72E9895B9FF678F70F578255EDFBE9EC39572625D' +
       'E3EF4E6F5CBF5E8B5B4733CE0F0BECF1D4');

ash := BitmapFromString(22, 15, 'z78DA9D955BB2C3200886B7648C46' +
       '78E462F6BFA443C5073BD6D49E32C36468221F3F90E42B698A392' +
       '53AD9AED2097E9D3D3EFD1B5EBF63E5DF9E9A4ED88AAF48DAB567' +
       '018504270B47B34C4CC4814E33C48AFA85C7CF5CF13C930C0C9E5' +
       'D50A2D9C5DA2C990155523E289B31DE787F21D9D664669093AD78' +
       'BDF4D0A087185227B939737EEED4E8BDC65EE98E4A43FCF9E433C' +
       '4E0B78403190F0C9410F1A551A488170870E172967ECEAAE3FFF3' +
       '9E7D6470C5A49842B7444606EF97F38C4F8DD5214005757EEB684' +
       '203C382852E24249FBA5E51BB074AA9454BB8E082B9FBBF32F7F3' +
       '8502059F738E54C864B31877EF53970C07FA2EB4D973428C60BF7' +
       '92FC65CB37F9B763F9FF9306BD3E55E822958BA921EF77B886EAA' +
       '7D377D171A3F151464576FEB8D314EBB770D2498F9DEB12439452' +
       '49B793CDB12F0071E57A9E9B6527BE72DE14F69B49CA249AA54CD' +
       '72CBDDB7EF45573A95D3B67DEC544DAB39EFA8F607BFD067AC426' +
       'FA566D96C7C1B54A3B9BA3E8DEA87AA570C53649CD5CE230ACDA2' +
       '99ABD414FB907D957123EFCACF3CFB1D5F7D77E6AFC056A75AFC7' +
       '9BFBEE8FF38937F07DCAB7F');

cowhide := BitmapFromString(28, 14, 'z78DAA5D45BB2C3200806E02D2546' +
       '7379046CF6BFA432E2C39F2178EC9C32659A4BDB2F882C8BBED69' +
       'A445F751516AE8B5C1AB79C72C847DFBB9ECDB2E9B9A471CAA2B1' +
       '73E52A456FE79E135FACD7F8E443AF650DE65583E8A64F984FFA5' +
       '0E5427AC8992E3A39D14107AF54A82CCDB62D49C33ECBC67AEBCF' +
       'DA836FBE7B06B91E170DD30A278DB1D9B40709319ABDD37EF90FA' +
       '748D1B08C66945B6DADAAA84595997D062D0A7FA8A7AFAACFE6C7' +
       'AEC04EB0AA4E6BD159F65C73B2DCB5ED5FA6563F72DA67D3B667B' +
       '7DC6B6B5AABDBD01C39511B3A51E285BE87B16F5B6DBB165739D0' +
       '8E9D2FDAFF3B611A3CE680399DD67766C999367ED1B6F35D6B4ED' +
       'C4763273E9169AD9ED6037E6AD91E07F3A392261C3A1F7D1B3951' +
       '884EACAD55D54F57DC59C11E7F78C666D076F3B0928FFA47AB8F7' +
       'B2ADAE3DE36E1B48C73EC21F74EAB2AD6D3CF5570863D39A10A73' +
       'FBAE9FC0986D56BC541567545BFD70AD833E7CE984E8FEE0EA581' +
       'EE5705FC37FE971DECE29FFCC55F7146818E799FA7C01FB0319A3' +
       '');
       
chicken := BitmapFromString(12, 25, 'z78DA8D956B8EE4200C84AF4408F8' +
       'F1D326C9FD8FB41ECAAB75D4EAD1CE48A52898CFE582EE9E63D8E' +
       '993C6353AB4FDFC1DD089D52F8A9AD8334EF924F0A4872E7E5899' +
       '92869AD2312B9D27F7574D5DBD987988C8CFD366566F59A37C724' +
       '34DE5E09916110DA1F0B2A0787FB61EFFD0E4301F74CB252C67CD' +
       '412818AE8F347E9C7468D7159CAB726A3D7C6A1717C11BEB32A4F' +
       'B8C9DCD4F6DF27C23A8C79C2E8B0F6EDCE922C7747C510C05823D' +
       '72CBFA4A6036166BD2A599898AF8111D6F5BE147D3CF7EFE24BC3' +
       '89385C922566174C4EC2FCE5EADB357D516277BA613104C592712' +
       'A81C4C2742375D32281AF113A73633FF2712E83665CA090F7EEB5' +
       '2431AD53F2AC151899B6548520E52623C1BC5F94EBFD45456B7C3' +
       '5AD898FA3A719C57EAEEAB9D896792711376AA6BD8B451FDB0D03' +
       '11F545ACC2C8ED95337ED75A3F6AE2516E1F8A341AA3923BDCCAD' +
       'EAEE8EAC6ACD728FAC57B3A63772CED3DFDDF11E53AFD38675E48' +
       '0E9B2864C23367030DD8A0ACEBEDBDB9AC646584DDD643801396B' +
       'C496ADB5BCFB916963C69D58F6AA0A575885CF4FCECE2ADFA3175' +
       '6FFEABFD5DA714F5AA7C87BB84F04E79E5343CD1EBB52E10D93FE' +
       'CA4C0E7C565AF5065AF58FF3DA53D7FBBC2E1FDE9306859F4F1AB' +
       'C81B61DBE38B74F9F4983D61941DB9CCF4F71FD66588F8B53D2A0' +
       'DBD5EFBBAAD6EFEDFFDFF5F92B03CEB7FAEC557F71AA56CED63F6' +
       '1978B71');


if FindBitmapToleranceIn(cowhide, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

if FindBitmapToleranceIn(ash, x1,y1, 561, 214, 730, 460, 150)=true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;


if FindBitmapToleranceIn(bearmeat, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

if FindBitmapToleranceIn(chicken, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

if FindBitmapToleranceIn(egg, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

end;

and I keep getting this error:

Failed when compiling
Line 4: [Error] (4:1): Identifier expected in script C:\Program Files\programs\rs\auto\SCAR 2.03\includes\dropunwanted.txt

What do I do?

Put the "begin" after variables but before bitmaps. Don't forget to declare x1,y1,ranclickx, ranclicky variables also.
[php]
[Error] (178:1): Unexpected end of file[/php] :), works now.

Btw, bitmaps could be hacked down a size and use Mouse(x, y, ranx, rany : integer; left : Boolean);
It will move to coord (x, y)a bit off specified by ranx, rany which are random pixels off. 0, 0 would be perfect click. True is left click, false is right.

dude that is a nice script tho