SRL Archive - Archive

lewwy44 - SRL Member Application Form
lewwy44

What is the meaning to life?


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


Programming Knowledge
delphi

Other Communitys
habbo midlands

How Long have You Played Runescape
3 years

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

IM fairly new to scripting i have made a script but it still needs alot of work it doesnt yet run as there is an error but i will post it anyway so i may get a responce to its problem

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

program TeakSmasher;

//Script owned by lewwy44//
//Edit at own will//
//Do not sell or claim as own//

{.include Si.scar}

var x,y : integer;

const
waittime=1;
treecolor=0;
loadstodo=0; //amount need to do//
procedure cuttree;

begin
findcolor(x,y,7383496,-1244037, -5094993)
procedure DropIfNeeded;
begin
  if(InventoryFull)then
  begin
    Beer := BitmapFromString(5, 5,
    '000001C9C1C9CDC5CDD0CAD0CDC5CD000001D7D1D7D9D2D8DAD5D9' +
    'DDD9DD564D42000001E6E2E6E7E4E7E8E5E8564D42000001C09018' +
    'F4F2F4F2F0F2544A3B000001C09018C09018C09018');
    DroppedOres:=DroppedOres+(CountItemBmpTol(Ore,50));
    if(FindItemBmpTol(Beer,50))then
      begin
      ClickAllItemsNameWait('Drop','Eat',0);
      ClickAllItemsNameWait('Drop','Drink',0);
    end;
    if(DropAllButPick)then
    begin
      ClickAllItemsNameWait('Drop','Use',0);
    end else
      ClickAllItemsBmpTolWait('Drop',Ore,50,0);
    ProgressReport;
    FreeBitmap(Beer);
  end;
procedure DropIfNeeded;
begin
  if(InventoryFull)then
  begin
    Beer := BitmapFromString(5, 5,
    '000001C9C1C9CDC5CDD0CAD0CDC5CD000001D7D1D7D9D2D8DAD5D9' +
    'DDD9DD564D42000001E6E2E6E7E4E7E8E5E8564D42000001C09018' +
    'F4F2F4F2F0F2544A3B000001C09018C09018C09018');
    DroppedOres:=DroppedOres+(CountItemBmpTol(Ore,50));
    if(FindItemBmpTol(Beer,50))then
      begin
      ClickAllItemsNameWait('Drop','Eat',0);
      ClickAllItemsNameWait('Drop','Drink',0);
    end;
    if(DropAllButPick)then
    begin
      ClickAllItemsNameWait('Drop','Use',0);
    end else
      ClickAllItemsBmpTolWait('Drop',Ore,50,0);
    ProgressReport;
    FreeBitmap(Beer);
  end;
wait(5000)
until (InvFull);
wait(5000)
end;

procedure procedure DropIfNeeded;
begin
  if(InventoryFull)then
  begin
    Beer := BitmapFromString(5, 5,
    '000001C9C1C9CDC5CDD0CAD0CDC5CD000001D7D1D7D9D2D8DAD5D9' +
    'DDD9DD564D42000001E6E2E6E7E4E7E8E5E8564D42000001C09018' +
    'F4F2F4F2F0F2544A3B000001C09018C09018C09018');
    DroppedOres:=DroppedOres+(CountItemBmpTol(Ore,50));
    if(FindItemBmpTol(Beer,50))then
      begin
      ClickAllItemsNameWait('Drop','Eat',0);
      ClickAllItemsNameWait('Drop','Drink',0);
    end;
    if(DropAllButPick)then
    begin
      ClickAllItemsNameWait('Drop','Use',0);
    end else
      ClickAllItemsBmpTolWait('Drop',Ore,50,0);
    ProgressReport;
    FreeBitmap(Beer);
  end;
begin
repeat
cuttree;
DropIfNeeded;
until(loadstodo-amountloads);
end.

——————————————————

Use SRL.
Use multiplayer.
Make more posts.
Read my tut.