TheGuyWhoGotOn
2007-07-31 09:47:56
<!– BEGIN TEMPLATE: formanswers –>
TheGuyWhoGotOn - SRL Member Application Form
TheGuyWhoGotOn
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, Java, Delphi, Python, Pascal, Basic, Visual Basic
Other Communitys
Freddy1990.com
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm a moderator on Freddy1990.com, I'm a very active member and I'm constantly trying new things in scripting. I spend all the time on Freddy's site but it's not as active as I would like it to be therefor I get bored. I think I would like being a member of SRL and posting around here.
The script I will be showing you IS going to be improved with the following:
- Walks into the Lumby forest to get trees when it dies
- Multi accounts
- A little anti - random
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
TheGuyWhoGotOn - SRL Member Application Form
TheGuyWhoGotOn
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, Java, Delphi, Python, Pascal, Basic, Visual Basic
Other Communitys
Freddy1990.com
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm a moderator on Freddy1990.com, I'm a very active member and I'm constantly trying new things in scripting. I spend all the time on Freddy's site but it's not as active as I would like it to be therefor I get bored. I think I would like being a member of SRL and posting around here.
The script I will be showing you IS going to be improved with the following:
- Walks into the Lumby forest to get trees when it dies
- Multi accounts
- A little anti - random
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program SimpleLogCutter;
{.include PH.scar}
var yougetsome, xx, yy, clickcontinue, drop, yourinv: integer;
tc: array[1..10] of integer;
logs: array[1..5] of integer;
nofirstslot: string;
procedure setcb;
begin
yougetsome := BitmapFromString2(False, 'a812A178DAB5575B928' +
'4200CBC1238C3EB131CBDFF9176E26EB95031B1119D8F2E2A86B1' +
'4393C41863AC33F45BFC177C5A08ED44E8C962677AE832595CDC7' +
'C5CDCEDFE9D777FB7FADD678A6F5ABB79B77B7231D1A42F06B712' +
'CEF462FF098485D6A1D0AE905FFF3EAFCFFE74B5B49EFC5C722E3' +
'16FA44D49D945FB879BBDB1F4E2EF3FD488EF9D520AEE0081BD07' +
'B1E8AC46B0E4254DA285AFEFC25A359C6DAF5EF85E49AFBB5493D' +
'88E6B2A29F80076EB85A830AEFB0076AB7657263E97591C8113A8' +
'7F9C6D63E7A707C47BF0169C0FCB47917367A47ABC8D0FCF32E65' +
'9E748B34BC8A3134FE1BE499D8EC702A929D49093BD4006E19E52' +
'4E1D7010F20E8F54B4F02AA75A0EECEA0D1C6128F13CE9A76A9F6' +
'DB4A8985F546DBCAA48765D11EEA3EE124F09574DB05F540DE729' +
'D4253CFBAE7537F13EE0379947742D46DE2B75CEAC62200CF57C1' +
'F51EDF1AF917B554374547356EA9848CDD7EB06D4A3813A89E751' +
'AFA73E87E2DF21F89974E8C8CE07E2F3C4043A3CC775CC2323CC9' +
'F9EC43BA7667C76F8011E3');
tc[1]:= 9087930
tc[2]:= 2781296
tc[3]:= 3096632
tc[4]:= 1718328
tc[5]:= 199690
tc[6]:= 2908240
tc[7]:= 1724488
tc[8]:= 2252880
tc[9]:= 3295304
tc[10]:= 3823696
clickcontinue := BitmapFromString2(False, 'a8C1A678DAD558D1928' +
'52008FD25B5B47AACB6FEFF936E5A53EEB8D0216C67F785719010' +
'81039231C639678CB1B6DDA80F63A44B1FE9B45C9CAF48ED6C123' +
'FD13E6C3434F3B9DE77838FDF06EB2EF9A461E704D39E32BBFE83' +
'13C2A9C7F5C9129F34AFE91497340FCD463B17F9611D2E8E8D067' +
'57E8DB48D3ABBA93D650ECEEC2367DAA85D9A7497AE9D86D1F756' +
'4AA329EB9AAF734E29595248C60D43E70FC97C0D5BC89FCBCBF33' +
'2BB3DD2BB6BBC8D784975E2AE27A7424F3E93D1C84B330ACF8183' +
'3F8E533FD6CA1F3DD6349C6FFC22D63FF015163EB42A79FB26228' +
'AD3F1FC27EB0FB5AB39F18D0866FAA5FEA9EBEDDFD1560B711A64' +
'9591BDF95688323DD69EC542A013BF115F79CA5DCAB7557D88449' +
'0B7595A19FE17D6F46F181587C890F225F65E3540EC443A299557' +
'54E6931811F61ADE366907212382E40C827469BF43E4FF3CD620C' +
'DC54BE93DAC515306520FF159438A35FC440447A44EBEAF011589' +
'9FAAA06C57638D8C97663A28F500B7AB8635361BF9D941DA2304B' +
'324312DE2532A557B49B4F2F98FBFA98476E27F48F07E8DF4445C' +
'27F442A8D44F915B3F9344F299DC05F2E7193A6EEE82FF8BCBE43' +
'F198');
logs[1]:= 5411248
logs[2]:= 5542835
logs[3]:= 5345198
logs[4]:= 6129318
logs[5]:= 6063524
drop := BitmapFromString2(False, 'aE4DFA78DAED53410E80200CF' +
'B5255607A349AFDFF495A498C09D932C3C18B3D34632B4B810100' +
'EB7C12F24612C665625C86914CC2382756AB46CB9D2F2BF3B2702' +
'159C9529B513928F4015CC87B4E49ACFC57FCD6A71AF03BFBCA88' +
'BEDF271EB0F656586E23FA1E9FADC3FEB347DEAEA7E7EF3382C8E' +
'CBDFD177E4FFFF6E0A2F5E0572D657C9E5B1CEF7');
yourinv := BitmapFromString2(False, 'aD610478DAB5554B168' +
'33008BC1249259F65D2D6FB1FA9820B934749895A17F37CFC0CCC' +
'4800C0C5021B2E7EC390DF848EDF43207C3CC94B0058D90B0B612' +
'4C4140E0BA62397B3F66A3E71249205578EA7104890378CB8123E' +
'913093C3B337ACEC5DA8427C7156C5C352972397B3B89A739E2CE' +
'E116A2E985C8BC04F2DA5A6D2BE9F4451FF6496764E43E46D7865' +
'0EB5BCB3EFA6BA5BFE81ED17A5E5C23C413CB2D3CEAEE84A46AA4' +
'A336BA03B95CF39628B5D774D65ADEB894E79AA5D643BF326528D' +
'11153485C82F6ADE0E67196FBBD3EC1AE343FB789E6A058517B51' +
'7C9B859875FB46138BFA9A681298DD3B1666E605CE9F724E35A47' +
'62136A7FCAC43E31EC843F766AE162A88789898DBD77316EFF472' +
'C8C8F6F2885DF73BB7A769FDBEFA91FDA183335AB31C34ED8F103' +
'536');
end;
procedure continue;
begin
if findbitmap(clickcontinue, xx, yy) then
begin
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
clickmouse(xx, yy, true);
end;
end;
procedure recievelogs;
var waited: integer;
begin
waited:= 0
repeat
wait(500 + random(500));
waited:= waited + 1;
until((findbitmapin(yougetsome, xx, yy, 18, 413, 128, 429))or(findbitmap(yourinv, xx, yy))or(waited = 20))
end;
procedure clicktree;
var click: boolean;
begin
click:= true
if click = true then
begin
if mscolour(tc[1]) then
begin
clickmscolour(tc[1], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[2]) then
begin
clickmscolour(tc[2], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[3]) then
begin
clickmscolour(tc[3], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[4]) then
begin
clickmscolour(tc[4], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[5]) then
begin
clickmscolour(tc[5], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[6]) then
begin
clickmscolour(tc[6], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[7]) then
begin
clickmscolour(tc[7], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[8]) then
begin
clickmscolour(tc[8], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[9]) then
begin
clickmscolour(tc[9], true, true);
click:= false
end;
end;
if click = true then
begin
if mscolour(tc[10]) then
begin
clickmscolour(tc[10], true, true);
click:= false
end;
end;
end;
function findtree: boolean;
begin
if (mscolour(tc[1]))or(mscolour(tc[2]))or(mscolour(tc[3]))or(mscolour(tc[4]))or(mscolour(tc[5]))or(mscolour(tc[6]))or(mscolour(tc[7]))or(mscolour(tc[8]))or(mscolour(tc[9]))or(mscolour(tc[10])) then result:= true
end;
function lastlog: boolean;
begin
if (findcolorTolerance(xx, yy, logs[1], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[2], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[3], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[4], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[5], 694, 436, 710, 459, 75)) then result:= true
end;
procedure droplogs;
begin
repeat
if invcolourtol(logs[1], 75) then
begin
if nofirstslot = 'yes' = false then
begin
clickinvcolourtol(logs[1], 75, false, false);
wait(350 + random(250));
findbitmap(drop, xx, yy);
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(100));
clickmouse(xx, yy, true);
end;
end;
wait(900 + random(500));
if invcolourtol(logs[2], 75) then
begin
clickinvcolourtol(logs[2], 75, false, false);
wait(350 + random(250));
findbitmap(drop, xx, yy);
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(100));
clickmouse(xx, yy, true);
end;
wait(900 + random(500));
if invcolourtol(logs[3], 75) then
begin
if nofirstslot = 'yes' = false then
begin
clickinvcolourtol(logs[3], 75, false, false);
wait(350 + random(250));
findbitmap(drop, xx, yy);
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(100));
clickmouse(xx, yy, true);
end;
end;
wait(900 + random(500));
if invcolourtol(logs[4], 75) then
begin
clickinvcolourtol(logs[4], 75, false, false);
wait(350 + random(250));
findbitmap(drop, xx, yy);
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(100));
clickmouse(xx, yy, true);
end;
wait(900 + random(500));
if invcolourtol(logs[5], 75) then
begin
clickinvcolourtol(logs[5], 75, false, false);
wait(350 + random(250));
findbitmap(drop, xx, yy);
xx:= xx + random(3)
yy:= yy + random(3)
movemousesmooth(xx, yy);
wait(100 + random(100));
clickmouse(xx, yy, true);
end;
wait(900 + random(500));
until(lastlog = false)
end;
begin
SetupPH;
scriptname:= 'TGWGOsmplpwrcutter' //TheGuyWhoGotOn's Simple Power Cutter
validate;
setcb;
readln('WARNING, this only works with regular trees and oak trees, please try to avoid others. Also this is a SIMPLE power chopper and it will NOT avoid randoms');
nofirstslot:= readln('Ignore more colours? ("yes" if the bot keeps dropping your axe(s))');
FindWindowBySize(766, 504)
activateclient;
mcbox(521, 5, 551, 432, true);
makecompass('N', true);
repeat
if findtree then
begin
wait(2500 + random(1000));
clicktree;
recievelogs;
end;
if lastlog then droplogs
wait(1000 + random(1000));
continue;
if underattack then
begin
mcbox(648, 10, 661, 17, true);
wait(5000 + random(10000));
end;
until(false)
end.——————————————————
<!– END TEMPLATE: formanswers –>