SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
bustinghard - SRL Member Application Form
bustinghard

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
PHP, Pascal, C++ and ASM

Other Communitys


How Long have You Played Runescape
almost 3 years

Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.



——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program fightClub;

// Run at near goblins. Very simple autofighter, yet works
// perfectly. Just a sample of what I can do. Also,
// check my powerminer at freescripts area
// (BustingHard's Powerminer)

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}

type
TColor_ = record
color: integer;
updated: boolean;
end;

TMonster = record
name: string;
colors: array of TColor_;
tolerance: integer;
end;

var
monsters: array of TMonster;
imgBone, imgBury, imgDrop, imgTakeBone, imgAttack, imgCancel,
totalMonsters, totalBones: integer;

procedure initialize;
begin
setupSRL;

rs_DeleteUID;

howManyPlayers := 1;
mouseSpeed := 4;
numberOfPlayers(howManyPlayers);

players[0].name := '';
players[0].pass := '';
players[0].nick := '';
players[0].active := true;

setArrayLength(monsters, 1);
setArrayLength(monsters[0].colors, 3);

monsters[0].name := 'Goblin';
monsters[0].tolerance := 5;
monsters[0].colors[0].color := 1990008;
monsters[0].colors[1].color := 3509139;
monsters[0].colors[2].color := 3376781;

imgDrop := bitmapFromString2(false, 'a05E8F78DAED954B0AC020' +
'0C44AF94FAAD4B41BCFF916A280521186275A1601683C4313C215' +
'1802FE255C4E550D4EB84EBE48B9ADB602628549B51310D0ED0AF' +
'A3CA8DB0C91AE357D39AF0BDF7CACC9496E6F7A2ADF37BD1CAFBB' +
'C772224FE715AA8A275969F08B97F849672CEAA297901462A1F5A' +
'9EF65F4FF64E0D5F53E207362809BFDB72CAFB5CC2B0DA2BBACBE' +
'F7F68E7AAA44B1F5A8');

imgBury := bitmapFromString2(false, 'a95F3678DAED55CB0AC020' +
'0CFBA5CEE73CCAC4FFFFA4D9C3A0502C552F3D2C87205DCDC2962' +
'AC0877A0D4ABD0CCEBEE1BAE5C12139AC3C11B9E0FA06EC4980FD' +
'BEBA2E22B61842B6C3D41B10D8F4CCDDCAF5DFED9E5B0E9A0DDE3' +
'FD3D1E8AFEEDDCBEDEABF58FD0272FDE4ED7B759E2BCB6E4F66C7' +
'825BFD04AD4E99ACACCFE48C67B343F782088DB2DCAF51D327C42' +
'6DB3FF3F52789B57BCAA64F7916E8D317425');

imgBone := bitmapFromString2(false, 'a96FAF78DA8D505BAA4431' +
'08DB521FDAEA67D476FF4B1A3BBD170E0C036320D8D41729E53F5' +
'093C6D6E4D9E3E4319369B4A3F03E4CEBE8C6C97D1DA56C7937D7' +
'B09889080971B67C5EFDC9D13CE353FF9D795050BBB96F9704992' +
'7040157D7AA154D87F2FDBD8A1510C8061C96B5CD9A7783695694' +
'C4BB32C897AF4070F0ED9A32D38EE776AFA626779A2EEDDA0552A' +
'5DCDE3C83BC67C1968DA2AC0C56A8E6D682F277030350536C6CDB' +
'964EDE6B9F5B7A69092642B76F3EDCCB73D4D2F5BB7BD63031AE0' +
'34AA222CF8D2F027');

imgTakeBone := BitmapFromString2(False, 'a23A3378DAED57D10E8' +
'3200CFC255090F8A871FCFF270DB66521616DAE148D2EF6E1622E' +
'B56A0F7A68CC27AC7509A738270CE396AFB790D0CF2F3ED8CCDB3' +
'55FAF3EA19B86CCF898D13DBE7C58C684D1E60AC3B24420FCE69D' +
'0B52D457903F7136CE5078CC3B1C89EF8551F6D954A151ADAD824' +
'6B532FE5BBBBE7D3E836A3C7FAB76AB7666D570EFABABE1F96D9E' +
'C8FB1A35ED711F6CF3CD5EF9F45B71AA51AE47759852A1EE9EB47' +
'22F5FD3E49777ED519F8F5E7BADBE0BD18B7FAE74C64A27A49EAF' +
'55D0D46FDD9BDABDC6AB269D8DBCD667500DE7F1895D9EEA9133B' +
'05435298FCC5264265C51B53DBE6BEF0949F178E5E34F23BFFCB7' +
'E7C4437CB36D6FF27FE5C8FAD1F06D2BB3AD029E2FFD224DC7A8C' +
'C2789F');

imgAttack := BitmapFromString2(False, 'a8B7D678DAED94490AC0' +
'200C45AFA475C2A503DEFF488D94164122D158BA69161F09CFF09' +
'B260A71472A20B67850A7723D6707AA8DAC99A81FB5AE66AC5735' +
'2323A84909F408C164A3B5FB4A4B13BBC8B77D5EBDE793BFCF599' +
'FE319A09374BEF74927DB18336B35B1CAD8AD5D9DEFEF726AF60E' +
'E93529FDDCFBED6B933CEB87B3C5B33BC2F9EF9C3DA2BCEAD8B48' +
'F99351E63B0FC09C8E');

imgCancel := BitmapFromString2(False, 'aE89DF78DADD55DB0EC3' +
'2008FD256775AC8F6D9DFFFF49839A26260682652E993C9C90538' +
'A5C049DBBE4C808CFBC22C292484F801860211D1EC48737E9EBC9' +
'EC91187F20BE768FE8B72DA6180214CC8DD45FFF1DB9BC6ABED47' +
'5BE0AC839BA4A8A7DCBCC9DFB4CF77C44EE9911BDA53C4D76FF23' +
'72E76644B34934FB84F3DF4E9F2592117D6FFD682294EDF55DE8E' +
'547F4FD5E2496DCB9FAF79ED8FB1AFE86D777817B9B64CF9AEAD9' +
'EFFCBD48ECBB545355B97AB225F7572F2FFBFF56241FF56');
end;

function findNewMonster(var dp: TPoint): boolean;
var
i: integer;
begin
i := 0;
result := false;

status('Looking for a fight…');

while i < length(monsters[0].colors) do begin
if (findColor(dp.x, dp.y, monsters[0].colors.color, MSX1, MSY1, MSX2, MSY2)) then begin
i := 99;
result := true;status('no found');
end else begin status('no found…');
inc(i);
end;
end;
end;

function findNewBone(var dp: TPoint): boolean;
begin
status('Finding bones…');

if (findColor(dp.x, dp.y, 13553364, MSX1, MSY1, MSX2, MSY2)) or
(findColor(dp.x, dp.y, 15066600, MSX1, MSY1, MSX2, MSY2)) or
(findColor(dp.x, dp.y, 10790063, MSX1, MSY1, MSX2, MSY2)) then begin
result := true;
end else begin
result := false;
end;
end;

function inFightAt(p: TPoint): boolean;
var
dx, dy: integer;
begin
result := false;

if (findColor(dx, dy, 65280, p.x - 20, p.y - 30, p.x + 20, p.y + 30) or
findColor(dx, dy, 255, p.x - 20, p.y - 30, p.x + 20, p.y + 30) or
findColor(dx, dy, 16728128, p.x - 20, p.y - 30, p.x + 20, p.y + 30) or
findColor(dx, dy, 192, p.x - 20, p.y - 30, p.x + 20, p.y + 30)) then begin
result := true;
end;
end;

procedure updateReport;
begin
clearreport;

addtoReport('Total monsters : '+inttostr(totalmonsters));
addtoReport('Total bones buried: '+inttostr(totalbones));
end;

procedure dropAllItemsAndBuryBones();
var
p, bp: TPoint;
oms: integer;
begin
oms := mouseSpeed;
mouseSpeed := 5;

for p.y := 0 to 6 do begin
for p.x := 0 to 3 do begin
if not (findBitmapToleranceIn(imgBone, bp.x, bp.y, 566 + (p.x * 42), 212 + (p.y * 36),
608 + (p.x * 42), 248 + (p.y * 36), 100)) then begin
if (existsItem(p.y * 4 + p.x + 1)) then begin
mouse(566 + p.x * 42 + (((608 + (p.x * 42)) - (566 + (p.x * 42))) / 2),
212 + p.y * 36 + (((248 + (p.y * 36)) - (212 + (p.y * 36))) / 2), 0, 0, false);

wait(200 + random(30));

if (findBitmapToleranceIn(imgDrop, bp.x, bp.y, 470, 191, 769, 500, 100)) then begin
mouse(bp.x + 6, bp.y + 3, 0, 0, true);
end;
end;
end else begin
mouse(566 + p.x * 42 + (((608 + (p.x * 42)) - (566 + (p.x * 42))) / 2),
212 + p.y * 36 + (((248 + (p.y * 36)) - (212 + (p.y * 36))) / 2), 0, 0, false);

wait(200 + random(30));

if (findBitmapToleranceIn(imgBury, bp.x, bp.y, 470, 191, 769, 500, 100)) then begin
mouse(bp.x + 6, bp.y + 3, 0, 0, true);

totalBones := totalBones + 1;

updatereport;
end;
end;
end;
end;

mouseSpeed := oms;
end;

procedure antiban;
begin
case random(1200) of
0: begin
gameTab(2);
wait(3000+random(500));
gameTab(4);
end;
1: RandomRClick;
2: hoverSkill('attack', false);
3: hoverSkill('strength', false);
4: hoverSkill('defence', false);
5: hoverSkill('prayer', false);
6: pickUpMouse;
7: almostLogout;
end;
end;

procedure doAttackMonster;
var
p: TPoint;
walkTimer, count, tx, ty, ty2: integer;
doneFighting: boolean;
begin
doneFighting := false;
mousespeed := 4 + random(1);

if (random(100) > 40) then begin
findNormalRandoms;

if (invFull) or (random(100) < 30) then begin
findNormalRandoms;

dropAllItemsAndBuryBones;
end else if (findNewBone(p)) then begin
findNormalRandoms;

mouse(p.x, p.y, 0, 0, false);

if (findBitmapToleranceIn(imgTakeBone, p.x, p.y, MSX1, MSY1, MSX2, MSY2, 100)) then begin
mouse(p.x + 6, p.y + 3, 0, 0, true);
end;

mmouse(random(MSX2), random(MSY2), 0, 0);
markTime(walkTimer);

while (flagPresent) and (timeFromMark(walkTimer) < 8000) do begin
wait(100);
end;
end;
end else if (findNewMonster(p)) and not (inFightAt(p)) then begin
findNormalRandoms;

mouse(p.x, p.y, 0, 0, false);

wait(500);

tx := p.x - 150;
ty := p.y + 150;
ty2 := p.x + 150;

if (tx < 0) then begin
tx := 0;
end;

if (ty > 480) then begin
ty := 480;
end;

if (ty2 > 750) then begin
ty2 := 750;
end;

if (findBitmapToleranceIn(imgAttack, p.x, p.y, tx, p.y, ty2, ty, 100)) then begin
mouse(p.x + 6, p.y + 2, 0, 0, true);

markTime(walkTimer);
mmouse(random(MSX2), random(MSY2), 0, 0);

while (flagPresent) and (timeFromMark(walkTimer) < 8000) do begin
wait(100);
end;

markTime(walkTimer);

p.x := 258; // 260
p.y := 167; // 166

repeat
wait(90);

antiban;

if (timeFromMark(walkTimer) < 2500) then begin
if (inFightAt(p)) then begin
count := 0;

status('Fighting…');
end else begin
inc(count);

status('Cooling down: ' + inttostr(round(count / 29 * 100)) + '%');
end;
end else begin
if (count > 26) then begin
doneFighting := true;
end else begin
markTime(walkTimer);
end;
end;
until (doneFighting) or (count > 28);

totalMonsters := totalMonsters + 1;

updatereport;
end else begin
if (findBitmapToleranceIn(imgCancel, p.x, p.y, tx, p.y, ty2, ty, 100)) then begin
mouse(p.x + 6, p.y + 2, 0, 0, true);
end;
end;
end;
end;

begin
initialize;

// nextPlayer;

repeat
doAttackMonster;
until false;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

no multiplayer, other things too but multiplayer is the main thing. no sorry.

I'm not even sure he made this..

I think he did make it. I voted no because he didn't use scar tags.

Lmao. I should start doing that too.

From: SantaClause
Lmao. I should start doing that too.

Yep, if its no scar tags then its either copied, bad script. The main reason i do it is because its very annoying.

No, a post count of 25 means that you 1. don't care about the community, or 2. you copied the script.

standards… and failsafes

I think its the same guy as that mod richie and 1/2 under another name. He keeps doing this for some unknown reason.

25 posts. No
bad script. No
Scam. No
= NO.

Look, if you want to take the time to learn to script, thats good, and you will get all the suposrt in the world. This forum is very helpful for people trying to do better. Please, take the time to get to know the community, read a few tutorials, and make a good script.
You will be proud of yourself, and youl be a member too:)

I don't think you coded that script.

It looks pretty advanced, and at that level, people usually understand how to use code/scar tags. ;/

Exactly my point..

Hate do be a digga but SCAR TAGS FTW!

Use Scar Tags.

Im sucha copycat..:

USE SCAR TAGS PL0X!!!