SRL Archive - First Scripts

I'M DONE! It chops the willows, brings them to the bank and deposits them. The only problem is that once it deposits the willows, the camera turns north to the highest angle, cutting off view of the willows, thus preventing the script continuing without human intervention. Can you tell me how to fix this? Thanx! :D

not bad, try finish it before posting.. anyway heres something without errors, that compiles.( did the chop part to not sure it works )

check attachment

Hey guys i'd like to do a willow/banker in draynor, where is a good guide to make
it?

just try some tutorials and with some little improvise you can do it :)

Here's your edited script. I added a proggy :D:

program WillowBanker;
{.include srl/srl.scar}
Const
     WillowColor=2185809;
     BankSymbolColor=4901104;
     
Var Chopped: Integer;
Procedure DeclarePlayers;
begin
  HowManyPlayers:= 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;
  Players[0].Name        := 'Username'; //UserName
  Players[0].Pass        := 'Password'; //Password
  Players[0].Nick        := 'Nick'; //2-4 letters of username
  Players[0].Integers[1] := 10; //Number of loads before switching
  Players[0].Booleans[1] := True; //Is the axe wielded?
  Players[0].Active      := True; //Active
  Players[1].Name        := 'Username'; //UserName
  Players[1].Pass        := 'Password'; //Password
  Players[1].Nick        := 'Nick'; //2-4 letters of username
  Players[1].Integers[1] := 10; //Number of loads before switching
  Players[1].Booleans[1] := True; //Is the axe wielded?
  Players[1].Active      := True;
  Players[2].Name        := 'Username'; //UserName
  Players[2].Pass        := 'Password'; //Password
  Players[2].Nick        := 'Nick'; //2-4 letters of username
  Players[2].Integers[1] := 10; //Number of loads before switching
  Players[2].Booleans[1] := True; //Is the axe wielded?
  Players[2].Active      := True; //Active
  Players[3].Name        := 'Username'; //UserName
  Players[3].Pass        := 'Password'; //Password
  Players[3].Nick        := 'Nick'; //2-4 letters of username
  Players[3].Integers[1] := 10; //Number of loads before switching
  Players[3].Booleans[1] := True; //Is the axe wielded?
  Players[3].Active      := True; //Active
  Players[4].Name        := 'Username'; //UserName
  Players[4].Pass        := 'Password'; //Password
  Players[4].Nick        := 'Nick'; //2-4 letters of username
  Players[4].Integers[1] := 10; //Number of loads before switching
  Players[4].Booleans[1] := True; //Is the axe wielded?
  Players[4].Active      := True; //Active
  Players[5].Name        := 'Username'; //UserName
  Players[5].Pass        := 'Password'; //Password
  Players[5].Nick        := 'Nick'; //2-4 letters of username
  Players[5].Integers[1] := 10; //Number of loads before switching
  Players[5].Booleans[1] := True; //Is the axe wielded?
  Players[5].Active      := True; //Active
  Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Login;
begin
 if (not(LoggedIn)) then
 LoginPlayer;
end;
procedure DoChats;
begin
  if (not(LoggedIn)) then
  Exit;
  SetChat('off', 1);
  SetChat('friends', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 10 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;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: Respond;
    end;
    wait(1);
  end;
end;
procedure FindRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    RunBack;
  end;
end;
procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case Random(8) of
    0: RandomRClick;
    1: HoverSkill('Woodcutting', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
       end;
    end;
end;
procedure Chop;
begin
 if Findcolor(x,y,WillowColor,333,218,350,230) then
  mouse(x, y, 1, 1, false);
  if IsupText('willow') then
  chooseoption('chop');
  status('chopped down a willow');
  Chopped := Chopped + 1;
end;

begin                   // These functions will start te script ( login player find window ect..)
  SetupSRL;
  FindWindowBySize(766, 504);
  Activateclient;
  DeclarePlayers;
  LoginPlayer;
  repeat       // all function below here will repeat untill false.
    FindFastRandoms;
    FindRandoms;
    Antiban;
    Chop;
    // bank needs here if you made a bank function
    WriteLn('Chopped '+ IntToStr(Chopped) + ' willows!');
    until(false);
end.

Is there s certain spot you are supposed to start out on this? I started it in the draynor bank and the mouse just moved around in random places and did nothing. Although it did exam the ground once. The script I was using was the one dumpin posted

LOL?! thats my script… not his… you just added a writeln and removed the spaces between the declare players? lol

From: ChoobR
Please, let me know if i'm doing anything wrong so far.
Note: Some sections are not complete.

good script, ran it for a while nice :D

Hey I want to try out this script but when I try to run it I get this.

Line 7: [Error] (7:11): Identifier expected in script C:\DOCUME~1\MATTPR~1\LOCALS~1\Temp\First Script.scar
Line 7: [Error] (7:13): colon (':') expected in script C:\DOCUME~1\MATTPR~1\LOCALS~1\Temp\First Script.scar

Can someone please tell me what this means because I am a noob at scar.

My first scrip is compleated…aside from the fact it needs fixing up a bit. See first post for details.:D

Revised Final Version Completed: See first post for more details.

Try if findobj. Because then it will hover over the same colors which is very detectable.

->{Nauman}<-

final version is pretty good , good job !

I Havent tried it yet but it looks pretty good - ill leave an edit in a min.

Line 27: [Error] (14707:32): Identifier expected in script C:\Documents and Settings\Home\Desktop\Draynor Wood Cutter and Banker.scar - doesnt want to work for me - nothing does.

Pretty solid for your first script man. you got to post the finished master piece up man.. keep it dude

l8rs
West syd:google:

sorry man didnt mean to add the last icon.. but still keep it up man

good job man

lol ^^ stop spamming or your post count will be 0 and you never will be junior member

lol im saying what i think about it… lol

Nauman… How would if Findobj keep the script flowing? The problem is that there are no willows on screen after it deposits the willows in the bank. I don't see how if Findobj would fix that…

cool

good SCRIPT !!

From: derrick slay
good SCRIPT !!

thanks…
I'm suprised on how good I did for my first script.
It still has a few bugs to work out though…

i got error

very gd

this is nice ran it for a while got me like 100 logs

yea i can not get my scar to do anything all it says is

Line 144: [Error] (14825:14) : Unknown idnetifier 'x' in script
Faild when compiling
Line 144: [Error] (14825:14) : Unknown idnetifier 'x' in script
Faild when compiling
plzzzz help i am a noob at scar also am i doing somthing rong


This is the scriptVVVVVV

program WillowBanker;
{.include srl/srl.scar}
Const
WillowColor=2185809;
BankSymbolColor=4901104;

Var Chopped: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers:= 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := 'Username'; //UserName
Players[0].Pass := 'Password'; //Password
Players[0].Nick := 'Nick'; //2-4 letters of username
Players[0].Integers[1] := 10; //Number of loads before switching
Players[0].Booleans[1] := True; //Is the axe wielded?
Players[0].Active := True; //Active
Players[1].Name := 'Username'; //UserName
Players[1].Pass := 'Password'; //Password
Players[1].Nick := 'Nick'; //2-4 letters of username
Players[1].Integers[1] := 10; //Number of loads before switching
Players[1].Booleans[1] := True; //Is the axe wielded?
Players[1].Active := True;
Players[2].Name := 'Username'; //UserName
Players[2].Pass := 'Password'; //Password
Players[2].Nick := 'Nick'; //2-4 letters of username
Players[2].Integers[1] := 10; //Number of loads before switching
Players[2].Booleans[1] := True; //Is the axe wielded?
Players[2].Active := True; //Active
Players[3].Name := 'Username'; //UserName
Players[3].Pass := 'Password'; //Password
Players[3].Nick := 'Nick'; //2-4 letters of username
Players[3].Integers[1] := 10; //Number of loads before switching
Players[3].Booleans[1] := True; //Is the axe wielded?
Players[3].Active := True; //Active
Players[4].Name := 'Username'; //UserName
Players[4].Pass := 'Password'; //Password
Players[4].Nick := 'Nick'; //2-4 letters of username
Players[4].Integers[1] := 10; //Number of loads before switching
Players[4].Booleans[1] := True; //Is the axe wielded?
Players[4].Active := True; //Active
Players[5].Name := 'Username'; //UserName
Players[5].Pass := 'Password'; //Password
Players[5].Nick := 'Nick'; //2-4 letters of username
Players[5].Integers[1] := 10; //Number of loads before switching
Players[5].Booleans[1] := True; //Is the axe wielded?
Players[5].Active := True; //Active
Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;
procedure DoChats;
begin
if (not(LoggedIn)) then
Exit;
SetChat('off', 1);
SetChat('friends', 2);
SetChat('on', 3);
SetChat('off', 4);
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure FindRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunBack;
end;
end;
procedure AntiBan;
begin
if (not(LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Woodcutting', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;
procedure Chop;
begin
if Findcolor(x,y,WillowColor,333,218,350,230) then
mouse(x, y, 1, 1, false);
if IsupText('willow') then
chooseoption('chop');
status('chopped down a willow');
Chopped := Chopped + 1;
end;

begin // These functions will start te script ( login player find window ect..)
SetupSRL;
FindWindowBySize(766, 504);
Activateclient;
DeclarePlayers;
LoginPlayer;
repeat // all function below here will repeat untill false.
FindFastRandoms;
FindRandoms;
Antiban;
Chop;
// bank needs here if you made a bank function
WriteLn('Chopped '+ IntToStr(Chopped) + ' willows!');
until(false);
end.
program New;
begin
end.