SRL Archive - First Scripts

i made my first script :)
i used some things from other people when i was stressed (like when i had to much homework)

if there are some bugs or stuff that dont work post here plz than i will try to fix or some other people do ^^ plz help me to with the bugs cause this is just my first 1 so i dont know real if evrything works
i attach it but you can copy to or look it over so you can help me with the wrong stuff ^^

here the script ^^ i hope it works

program willowkiller;
{.include SRL\SRL.scar}
//———————————————————————
// stroeks willow cutter and banker
//1. Start at Draynor Bank
//2. Start With an axe Equipped or Wielded.
//4. Fill Out Setup from lines 21 to 66
//5.
//
//———————————————————————
var
Tries, Mark, x, y: Integer;
Const
WillowColor = 3119232;
BankScreenColor = 7763582;
TimePerHit = 5; //in seconds
TimePerLoad = 6; //in minutes

//————————-Declare Players—————————–

Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Leave at 6
NumberOfPlayers(HowManyPlayers); // Sets the Players
CurrentPlayer:=0; // Starting Player

Players[0].Name :='name';
Players[0].Pass :='password';
Players[0].Nick :='om';
Players[0].Active:=True;
Players[0].Booleans[1]:=True; //True if axe is equiped








writeln(inttostr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

//————————–Dont Change Below————————–


//—————————-Progress Report————————–
procedure ProgressReport;

var Active: string;
begin
WriteLn(' ');
WriteLn('<—————-> Version 1 - Progress Report <————>');
SRLRandomsReport;
Writeln(' ');
writeln('———————————————–');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Number : '+ inttostr(CurrentPlayer));
writeln('Woodcutting : '+ Players[CurrentPlayer].Skill);
writeln('Worked for : '+ inttostr(Players[CurrentPlayer].Worked)+' minutes.');
writeln('Banked : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active : '+ Active);
writeln('———————————————–');
end;
//—————————Anti-Randoms——————————

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;

//———————————————————————

procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;

//—————————-Anti-Ban———————————

Procedure AntiBanning;
begin
if(not(LoggedIn)) then
exit;
case random(7) of
0: PickUpMouse;
1: begin
HoverSkill('Strength',false)
wait(354 + random(823))
GameTab(4);
end;
2: SleepAndMoveMouse(2000+random(2000))
3: Typesend('WC lvls?')
4: begin
MakeCompass('E')
MakeCompass('N')
end;
5: Typesend('woodcutting 4 life lol')
6: begin
case random(3) of
0: MakeCompass('W')
1: MakeCompass('E')
2: MakeCompass('S')
end;
MakeCompass('N')
end;
end;
end;


//————————-Walk to willows————————

Procedure GoToWillows;
begin
MakeCompass('N')
RadialWalk(FindWaterColor, 242, 211, 65, 0, 0);
Flag;
Wait(400+random(300));
if(not(FindSymbol(x,y,'fish'))) then
begin
Tries:=0
repeat
Wait(345+random(634));
if(Tries=25) then break;
Tries:=Tries+1
until FindSymbol(x,y,'fish');
end;
MMouse(x,y,2,2);
Mouse(x,y,2,2,true);
end;

//—————————Cut willows————————–

Procedure WillowCutter;
begin
if(not(LoggedIn)) then Exit;
MarkTime(Mark);
repeat
if(not(FindObj(x,y,'illow',WillowColor,30))) then
begin
Tries:=0
repeat
Wait(345+random(634));
if(Tries=25) then
begin
Writeln('not right no tree founded')
NextPlayer(false)
end;
Tries:=Tries+1
until FindSymbol(x,y,'fish');
end;
Mouse(x,y,2,2,true)
FindFastRandoms;
Wait(TimePerHit*1000-500+random(1000));
until(InvFull or (TimeFromMark(Mark)>TimeperLoad*60000));
end;

//————————–Bank Willows—————————

Procedure BankWillows;
begin
if(not(FindSymbol(x,y,'bank'))) then
begin
Tries:=0
repeat
Wait(345+random(634));
if(Tries=25) then
begin
Writeln('where is that bank')
NextPlayer(false)
end;
Tries:=Tries+1
until FindSymbol(x,y,'bank');
end;
MMouse(x,y,2,2);
Mouse(x,y,2,2,true);
AntiBanning;
Flag;
wait(100+random(300));
MakeCompass('W');
if(not(FindObj(x,y,'booth',BankScreenColor,30))) then
begin
Tries:=0
repeat
Wait(345+random(634));
if(Tries=25) then
begin
Writeln('Couldnt find bank')
NextPlayer(false)
end;
Tries:=Tries+1
until FindObj(x,y,'booth',BankScreenColor,30);
end;
Mouse(x,y,2,2,false)
flag;
Wait(200+random(500));
ChooseOption('quickly')
if(Players[CurrentPlayer].Booleans[1] = true) then
begin
DepositAll;
end else Deposit(2,28,2);
CloseBank;
end;

//———————————————————————

Procedure SetUp;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
ActivateClient;
end;

//———————————————————————
// Main EventLoop
//———————————————————————
begin
Setup;
repeat
if(not(LoggedIn)) then exit;
HighestAngle;
MakeCompass('N')
GoToWillows;
WillowCutter;
BankWillows;
ProgressReport;
until(false);
end.

this is good or a first scipt ill check it later wen i have more fre time… well done

[edi]w00t first post

From: spaztaz666
this is good or a first scipt ill check it later wen i have more fre time… well done

[edi]w00t first post

ty

Very nice. Browsed through the code and everything looked lovely. Good job.

everything here looks good…ill post report after use

nice it worked well

its good

so all happy? spammers?! use scar tags [(nothing here)scar] ;)

very good for fiirst script. :D

nice it works well

idk, can't get to work :confused:

looks alright but it doesnt work

Thaaaaaaaank You Man ! :d

Best Script Ever :d Woorked Very Well :d

its not banking idk y?

i get this error what should i do Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
Failed when compiling
Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
Failed when compiling get it at almost every script

From: 2pacfan
i get this error what should i do Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
Failed when compiling
Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
Failed when compiling get it at almost every script

Hey gravedigging isnt allowed here. Your problem is becouse you dont have SRL…

edit:
when i try it says:

Failed when compiling
Line 40: [Error] (12683:1): Unknown identifier 'NickNameBMP' in script C:\Users\Chris\Downloads\SCAR stuff\wood (filled out).scar

help?