SRL Archive - First Scripts

Hello, this is my first script in a year ~ for rs.
What does it do ? power chop normal trees, tested in draynor from 1-30wc.
Enjoy and please post proggies :D

program Normaltreecutter;
  {.include SRL\SRL\misc\SMART.SCAR}
  {.include SRL\SRL.scar}
  {.include SRL\SRL\Misc\stats.simba}
  {.include Reflection/Reflection.simba}

const
  SmartWorld = 25;//World to load.
  Members = False;//Members?
  SignedClient = True;//Used signed client?
  HighDetail = False;//Use high detail?
//###########################################
  SRLStats_Username = '';
  SRLStats_Password = '';

   procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  With Players[0] Do
  Begin
    Name        := '';
    Pass        := '';
    Nick        := '';
    Active      := True;
    Pin         := '';
    LampSkill   := 'woodcutting'
  End;
end;


procedure startsmart;
begin
  Smart_Server := SmartWorld;
  Smart_Members := Members;
  Smart_Signed := SignedClient;
  Smart_SuperDetail := HighDetail;
  SetupSRL;
end;

procedure startstats;
begin
SetupSRLStats(121, SRLStats_Username, SRLStats_Password);
end;



procedure instillkameravinkel;
begin
wait(2000);
repeat
if(getcolor(507, 407)=4413023) then break;
wait(1000);
until(false)
setangle(true);
MakeCompass('N');

end;


procedure hoggnedvanligetrer;
var
timer:longint;logs,th,tm,ts,wcxp,x,y,x2,y2,x3,y3,x4,y4,dup:integer;
begin
loadtelerandoms
repeat
x:=262;
y:=165;
wait(1000+random(250));
if(findcolorspiral(x,y,5672578,6,6,511,334)) then
begin
mmouse(x,y,0,0);
inc(dup);
end;
 if(IsUpText('Tree'))then
    begin
      GetMousePos(x2,y2);
      mouse(x2,y2,0,0,true);
      dup:=0;
      mouse(650, 177,15,21,true);
    end;
    wait(100);
    if(dup > 2) then
begin
x:=(10+random(500));
y:=(10+random(320));
dup:=0;
 if(findcolorspiral(x,y,3565918 or 5672578 or 4682857,6,6,511,334)) then
 begin
mmouse(x,y,0,0);
x:=x2;y:=y2;
end;
wait(50);
 if(IsUpText('Tree'))then
    begin
      GetMousePos(x2,y2);
      mouse(x2,y2,0,0,true);
    end;
end;
wait(100);
if R_FindRandoms then MakeCompass('N');
wait(100);
if(findcolortolerance(x,y,2507093,559, 215,739, 427,15)) then
begin
mouse(x,y,3,1,false);
mouse(x,y+49,3,1,true);
inc(logs);
incex(wcxp,25);
stats_IncVariable('Normal Logs Chopped', 1);
stats_IncVariable('Woodcutting EXP (Gained)', 25);
end;
wait(950+random(50));
 if not(findcolorspiraltolerance(x3,y3,3565918,6,6,511,334,50)) then
 begin
 x3:=633;
 y3:=98;
 if(findcolorspiraltolerance(x4,y4,537437,576, 31,678, 137,30)) then
 mouse(x4,y4,0,0,true);
 end;
wait(100);
timer:=GetTimeRunning;converttime(timer,th,tm,ts);
wait(100);
if not LoggedIn then LoginPlayer;
Stats_Commit;
wait(1000);
cleardebug;
writeln('You have been cutting wood for ['+inttostr(th)+' Hours '+inttostr(tm)+' Minutes '+inttostr(ts)+' Seconds '+'] And you have cutted ['+inttostr(logs)+'] amount of logs.'+' You have also received [' +inttostr(wcxp)+'] woodcutting experience.');
until(false)
end;



begin
startsmart;
DeclarePlayers;
startstats;
repeat
 wait(500);
 LoginPlayer;
  wait(500);
 until(loggedIn);
instillkameravinkel;
hoggnedvanligetrer;
end.

just a few helpful hints:

1. use SRL standards.

2. just use Loginplayer;

3. use ATPAs instead of trying to find a color.

4. use Uptext.

but overall, its not that shabby for a new/returning to rs color scripter.

Alright i will try to learn tpa but could you also give me a breifing on how i solve randoms properly ? FindNormalRandoms this will just find it but not solve it i guess?
can you do this ? if( FindNormalRandoms) then solveteleportrandoms;
also is uptext the normal chat text in rs?
and my method of logging in works why use loginplayer ?

Bump

FindNormalRandoms finds randoms and enables color randoms solving. uptext is the text in the upper-left corner of the screen when you mouse over something.

does it bank?

No it is a "power" chopper meaning it drops.