SCAR Code:
program Fletcher;
{.include SRL/SRL.scar}
var oaklogs,willowlogs,knife,oakbowsshortun,willowbowsshortun,oakbowslongun,willowbowslongun,strings:integer;
const
withd='14';
procedure loadbmps;
begin
oaklogs:= BitmapFromString(24, 16, 'z78DAB595518EC3200C44' +
'AF446C6CCC2709E1FE475A367655479488DDD5B6D27C44D4F33A3' +
'64ECC31608C4EC3F7672B2242676161AA0525D291762AB0674C5B' +
'841CB83DE8CA19A79258F04C8D0366CFE075E431AA46156AA6841' +
'1CDD7EB32C3C8C33B019A7B826F03AF1FF2F9071255F3252AC88C' +
'51A057248094321DF8D2834E4C1219A0C9460DAAEA8D67A8CC420' +
'19AFE536E4478F3F295B53BB231E2DE5D080F4BE9E2B1343601DA' +
'73ED49889E7FFDEA4D3226A9BEBF7397C2059BE9C1356ECAB36FD' +
'238965D0AB55777DE3C7446822D4522C8FEF9075D77770C5EB963' +
'F47CAAEC1C8CE7CA6AE4D1DEE92DB3FACF3ABA3F9258C773AC404' +
'6729BDE37C9ED965D3DB50EBA29BAD55F66F024C673F60924EF98' +
'4F09546E3CB3BB36E3F1540B0C7E6BD9CD124A908DE79AE72CBD3' +
'3749BF6479E29D50283AF63FB476755F562D37C6CBA9E7916A8A6' +
'9BD09D5192D97E5ED9D52B5B71ECE0CC0503F4AF7F73E913AF3E3' +
'D4FA5F97CD8D8CAE06678E63BD338BC4F6FDAEF2DA2D6D13BE579' +
'66DD5F71D7CA1FF491C4AB65354CF29FDC57786627192B2E25F00' +
'3F741BF00DB0AEE73');
willowlogs:=BitmapFromString(16, 18, 'z78DAAD94519284200C44' +
'AF444888F2B928DEFF48EB1A6AAB9D80C5D48C56F587E2EBD024C' +
'ACA9539FC5D948EB4B22EAC596809AA5C93CA4E478A926943952A' +
'897E50FD9AB612F848BEF1072E1DC5F5973EF3356BE0327471B42' +
'FF0475A12F59E1B79C46F2EBB0A6F8DE0F5B9FEC49516D34EFD1F' +
'901B3F4B3C7B00B473CA8F4C2E2C24429CCF3A4DA166ABD072C67' +
'E43F2ED5BAF406BEAAA3597977EDEE2AE9C0A2F7E8F4375738169' +
'787E73B72E9AE97FA798F33F7F8D65D44B9D5398E0BFE4D3E5DF7' +
'AE95DFE95806AAA9C31998FF8D75B3B4123B7E4556A3CDEE03FFE' +
'37707E6766796AB2C08B433C6F54E3DBBED0A54DCA444A58E7D9B' +
'781C56BDBC5443E7EEF58ED888F2E9E3CA279F22F410C72A8');
knife:=BitmapFromString(5, 5, 'z78DA7D8C310AC0300C0' +
'3BFA436896C8D4EDDFF7FA9052F864235DC700702DE1D7652944D' +
'6E869137335CA90BBF75AD2178B1FB187259AF9DF5F9F5DCD3915' +
'51F9561201E');
oakbowsshortun:=BitmapFromString(33, 28, 'z78DACD974B72C4200' +
'C44AF244680F0127FE6FE470A199C9488078FC040EC85162ECAA5' +
'E7866EA11D6E883A568B2B3EE0FB51763604EBB4D153A9F826D6B' +
'8E64DE5DFF9AF7AE88A776EC920B809C89C109D7F7FD2807A64FF' +
'BC223C200205163400CE59BBBED528D7F9791D429153C76C7A014' +
'764211079DA52A29D4B42D18A454C715487EF377A5A1B88909C52' +
'9E9C53BA806538053F054722E3F5F4B3EBE29BB8A6B8FF52C7A8E' +
'AFFB8F3770AA34DD065B6BA09859CA5B4F3D3F3CB59DC42A8F267' +
'A4B49F2B14E2FE130AD0EAA3227514923E4BFDFF94654F19E6C98' +
'328E455E03C5C179E98598A3A9FA9A390A700D725CE3344B3CAA7' +
'E415963AC7AE62D11E97D4872B3D2A473192C562C8149EF80D32A' +
'E557A8AD3F9CF3C19882EB1F4982DC5E9C6F758E2C67798F08F2C' +
'9935DCC16E4A21AEB17FAF9DF99D1EEBFED80D28E29C5FAC488F7' +
'BCA659624E59BFAC9500AE6BD22450A7DBE375D36DFC5F782FB10' +
'ED8ABC6E8B8922FD283AB0EC14AFB991B334DE510359F80D2B7B4' +
'6EE4FE10954C2D29DA21B0BD76290221D583EF4CFEA176BF68BD5' +
'');
oakbowslongun:=BitmapFromString(30, 27, 'z78DAD5D7598EC3200' +
'C00D02B416D30F9244BEF7FA44181199949681D16356D257F20A2' +
'BC588E4DD0C20A0F3C44508FF0DF7FDA8251CA396B57B54E1B3DB' +
'58EEB31A2830D208B132AC037F178953C16CC3C72A1D970518EC8' +
'AAE0F7B4E5FEF41412738B5C603E663EE59F0C04FFD3DAE007725' +
'A7B724EE305F960738AFB5547BFF138FDD64F5C897B2E6BD95D3A' +
'980B159BCC064DC8F96CB18BF9B55CEE7CF99671B95B0874B9B6A' +
'F4A5A76BEEC09C9AC50BFCD769D59B272D1CCE5F1DDE45D718859' +
'1E05DD80E77C5264FEC93BF5815EDA939CCF864227249A757906B' +
'574836172F4B0E49DB0B26FC4F5BADE5E27B7107A389F9E95D3A4' +
'65EE4BFC6C6736DF777FA5BC5714CF0E5E2D593FBC83BCB087779' +
'55B98C5316A3D3AF377A6FA12733CD97E63B6B389D9A902879B59' +
'F713657BF47790C07C322BC527E14FF953B6F72F9D2CDBBDCC03E' +
'4C9BC9FA6B8BCD7141E2DE7DF0BC5DABE9BD993D299BCB379989C' +
'E7F924DBEDE601F2A2F6B3796EB8E30F29F6FB0A');
willowbowsshortun:= BitmapFromString(39, 20, 'z78DADDD85D6EC3200C0' +
'0E02B059BF9E7B111E9FD8FB42C66121323692990A6ADE487480D' +
'F96AB0DD7AC105D1E751FD84BE412CDD3F89D3CFCB89E31B04767' +
'403B62B38C1FA6EB5CA41EC2C8DC62084202213DCD9D302FAD952' +
'BE3343A08518BE864AFB19090382451329CB82249EC39AD36BEDD' +
'EFD7B26C6B86FED840A3B5052F28373DA4D1A8D96C14D6757D268' +
'C62B4A53853AD1DF9CE6AE138C8DA43183B3203AAB39255DE5BA6' +
'7494B5D72660FF33F3BB3E98ABDA5F929FB73120B791C54FDAAA4' +
'45D1B633ADEF9B2EE67133E6D9EC388FBD503DF24A12FB424157F' +
'A6C83F3D8541A45AA0E4951E6F5410ABA47440735E71DA489AE52' +
'6453D09849ECE58E5099A3B326CF27635A330F6AC8FE4CDBEA1BE' +
'83C933FD41176E7F66B792BB339C638E417E5411EDB4AF79F67CC' +
'BF2225E3C89C3EE9FD061BD1CAC7');
willowbowslongun:= BitmapFromString(23, 21, 'z78DAC5D6DB0E83200C06E' +
'057A2B4407BB9E97CFF47DA812D2999E5B00DA749638C87CF1FA9' +
'92904322C60B62BDBAFB0211C2E25190CF18F21EF3AC7C65AB5AC' +
'7BC5F27E28AFEBD3EEFBE10C39953DA101A9E9E5A4FC39014F9C4' +
'E87CE095E36BCF411263BC880941D29AA25F3FF47C2D293C881B8' +
'83896E6FB63BD4B7543F773E5BB6BD5B0C7927C34E27ABCF2363A' +
'7F5B0724DD63D12579CCAC6149758E7CE31111401EE8393F35684' +
'990401E7692B17ADD0449918CEEC6F5AE3B5BA2E6F533993F4976' +
'FAF0E112EDE1132342239963248F6FA5F634243F35EC78282D7E3' +
'393996C282490C46FDAD3F8EE4CF6E84C8A640E94E4BA63F89364' +
'E0AFA0E7EF6582E70A573D6316');
strings:= BitmapFromString(25, 21, 'z78DAB5964B1284200C44A' +
'F240485594E9573FF2BCD874D5B994E05215AF5360A3E1B08D474' +
'B472B652DBFEECDCBE57922D7FEECEF2289B940B9BBC4486A9FB2' +
'1ACCA0ADD3A690F616E694F39E5EE366078CFC76D885F1C359C27' +
'73C3F9C3DA32C3795EDCCCF4D0D3B6C5843BEDFF72CD90C175A16' +
'DB5337BAAE7866DE8B7B257E2A592E0881C724AD6A96A43F45C65' +
'45F9B34237668889855B29E2C8B2710CB1827C5856CCA7A717929' +
'269123EDB8995BF26E894D656E9F9AA8BB525A262B31C6CA295E7' +
'FD797A12F6EF26ABC8F6054DDC71FCAD66B8E00CE658F57F187CE' +
'E1AF689B6BA97D252AB37C29D8610');
end;
procedure oaks;
begin
OpenBank;
DepositAll;
FixBank;
wait(4000+random(30))
If(findbitmap(knife,x,y))then
wait(1000+random(30))
MMouse(x,y,1,1)
wait(4000+random(260))
end;
procedure willows;
begin
OpenBank;
DepositAll;
FixBank;
end;
const
mes='27';
procedure cutbows;
begin
mouseitem(28,true);//knife is going to be there
mouseitem(27,true);//Log of oak or willow there
Mouse(265,409,1,1,false)
wait(1000+random(400))
Mouse(250,430,1,1,true)
wait(1000+random(400))
typesend (mes)
wait(49000+random(30))
end;
begin
SetupSRL;
Repeat
oaks;
cutbows;
until (isfkeydown(12))
end.
i cant get the banking procedure right =[ with oaks i havnt tried making willows yet im sure its the same with different bitmaps
also i dont no how to make procedures choosable at the top of the script or anywhere i wanna make options so tht people can either choose oaks or willows to cut by forms but i have had a go at forms but cant get a grip of it so i failed there can any1 creat 1 so that i lets u select what logs u want cut and strung i will give u some glory by adding ur name to the creators =] when rleased
i will be gratefull if some1 can help thnx 
BTW i forgot to add this u need to have the logs u want cut which includes a few unstrungs at the top of the bank also u will need more than 1 knife as it is going to be a stringing procedure aswell as a cutter =] and everytime u with draw the knife if u have 1 when it banks it agen it wont find it because it scrolls to the top so make sure u have more thn 1 for stacking =]