Got script and got scar 3.08

What do I do copy and pass the scirpt and press play or what?

 

You do what it says. . .Usually you download scripts, but copy and pasting it would work as well. Be sure to set up your players correctly and make sure you have the latest version of SRL downloaded.

Go to File--> Download SRL.

 

Code:

//SmWoodcutter v1.0  Created by Sapmangat

//--->Version history:
// v1.0 fixed cutting procedure
// next version will have antirandoms ent, and put the axe head back on


//--->Instructions:
//Start with the axe you have equipped on to you
//go to the tree(s) that you want to cut down
//drag the crosshair over the rs2 screen
//click play and your ready to go
//------------------------------------------------------------------------------


program SmWoodcutter;
{.include si.txt}
const treecolor=1919040;
const logcolor=3892098;

procedure FindMiscRandoms;
var ax,ay:integer;
begin
 if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
   (FindColorSpiral(ax,ay,10658466,10,350,150,433))then
  begin
     logout;
     Writeln('Mod')
  end;
 if(FindColor(ax,ay,11503238,10,350,479,433))then
  begin
   logout;
   Writeln('Mime')
  end;
 if(GetColor(460,426)=0)and(GetColor(277,416)=0)and(GetColor(220,425)=0)or
   (GetColor(502,305)=0)and(GetColor(379,43)=0)then
   begin
   TakeScreen('Maze',1);
   logout;
   end;
   end;



procedure TalkToRand1;
var c:integer;
begin
  repeat
  c:=c+1;
  if(FindColorSpiral(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
      begin
      Mouse(x,y,50,2,true);
      wait(2500+Random(500));
      end;
  if(FindColorSpiral(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
      begin
      GetMousePos(x,y);
      Mouse(x,y,50,2,true);
      wait(2500+Random(500));
      end;
  until(GetColor(20,434)=0)or(c>=20)
end;

procedure FindText;
var mx,my:integer;
begin
if(FindColorSpiral(mx,my,65535,3,3,515,338))then//Find close
  begin
  MMouse(mx,my+15,1,1);
  repeat
  if(IsTextAt2(9,9,'Talk',100))then
    begin
    Mouse(mx,my+15,1,1,false);
    ClickText('Talk',5,5,515,338);
      begin
      Flag;
      wait(2500+Random(500));
      TalkToRand1;
      end;
    end;
  MMouse(mx,my+15,1,1);
  mx:=mx+5;
  wait(random(10)+10+random(10));
  until(mx>=515);
  if(mx>=515)then MMouse(mx+random(5),my+15,1,1);
  end;
end;



Procedure Randoms;
begin
FindText;
FindStrangeBox;
FindMiscRandoms;
Uselamp('mining')
end;



procedure DropColor(color:integer);
var
  x, y, Drop:Integer;
begin
  Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
     '1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
     'C346408D19A69B31D480FCCE875F0D00B9181450');
  while(FindColor(x,y,Color,548,168,761,496))do
  begin
    Mouse(x+5,y,1,1,false);
    Wait(450);
    if(FindDtm(Drop,x,y,548,168,761,496))then
    begin
      Mouse(x,y,1,1,true)
      Wait(450);
    end;
  end;
  FreeDtm(Drop);
end;

procedure cut;
begin
findcolorspiral(x,y,treecolor,3,3,515,336)
mouse(x,y,0,0,true)
wait(300+random(300))
end;

begin
loadinclude('iTunes')
repeat
cut;
if(invincount=28)
then dropcolor(3892098)
until(false)
end.

This is the script what do I do to it?

Code:

Program New;
Begin
End.

Do I just paste it or delete the program new stuff?

 

That script is really old.. I suggest using scripts hat use SRL, as that thing will get you banned, and please, use code tags.

 

To build on what Gofez0r said, you would delete the "Program New; beginn end." and replace it with the script but that one is too old and won't work anymore.