S1NYews

Printable View

Show 40 post(s) from this thread on one page

01-15-2012, 10:06 AM
actiav

its not logging in for me.
01-15-2012, 10:40 AM
pierre

Quote:

Originally Posted by Surfing

Since that everyone is using srl 5 now it is proberly best to update your script, i have already done it for personal use but there are some other aspects of the script that need updating to make it full functional which it as you are the only person that has the script working 100% i would say for everyone else it's not working as it should.

For srl 5 you need to change your file extensions from .scar to .simba.

I changed those extensions to .simba But than i get an error at line 18.

Quote:

Originally Posted by pierre

I changed those extensions to .simba But than i get an error at line 18.

Yeah sorry i forgot to mention you need to update the compass options ill just give you the modified script i have done. It will compile, cut the north the tree but there seems to be something wrong with radial walking so it doesn't bank properly if S1N could help me it would be great but if not ill try to get it 100% working soon.

Simba Code:

program S1NYews;
{$include srl/srl/misc/smart.simba}    // This is where i changed the file extension from .scar to .simba
{$I SRL/SRL.simba}                     // This is where i changed the file extension from .scar to .simba
{$I srl/srl/misc/debug.simba}          // This is where i changed the file extension from .scar to .simba
var
YewCount:Integer;

{Recent Changes-
1.1  January 2nd 2012
Revamped the whole code
Added numerous failsafes
Banking should be flawless

1.2  January 4th 2012
Cleaned up the whole code
Fixed Radial Walking bug(silly me :L)
added tons of failsafes
progress report

1.3
==To Come==
Seer's Village Support}

//Please start at the Yews.

{Currently featuring ONLY Edgeville.}
{Post on thread if you want support}
{for places such as Seers', GE, and whatever}
{Version 1.2}
{Updated January 4th, 2012}
//Script will be available for only a short time to prevent Yews from crashing
//Moving to Members+ as soon I can.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players

procedure AntiBan;
begin
  case random(50) of   //change the number in brackets to however you want the antiban to perform
      0: RandomRClick;
      1: PickUpMouse;
      2: RandomRClick;
      3: HoverSkill('woodcutting', False);
  end;
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'firemaking';           //change to whatever you want
  LevelUp;
  end;
{DONT TOUCH BElOW IF YOU HAVE NO EXPERIENCE AND DONT WANT YOUR BOT TO NOT START.
 IF YOU CHANGED SOMETHING AND IT DOESNT WORK, DONT YOU DARE COME CRYING TO ME
 AND SAYING "0mfG, w7f !s th1s bu11sh!t. Eet n0 w0rk foar m3." without having details.
 I WILL RESPOND WITH A "UMADBRUH?" TO YOU.
 Have a nice day :)
 }

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Functions=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function DepositEverything:Boolean;
var
x,y:Integer;
begin
FindObjCustom(x, y, ['eposit','items'], [2052490], 2);
Mouse(x, y, 0, 0, True);
end;
Function CloseDepositBox:boolean;
var
x2, y2:integer;
begin
  if FindObjCustom(x2, y2, ['Close'], [1580837], 0) then
  Mouse(x2, y2, 0, 0, True);
end;
function FindAndOpenDBox:Boolean;
var
x,y:Integer;
begin
repeat
if FindObjCustom(x, y, ['eposit'], [8092544, 789517], 2) then
  MMouse(x, y, 0, 0);
until(IsUpText('eposit'));
Mouse(x, y, 2, 2, True);
end;
function CheckIfLoggedin:Boolean;
begin
if Not LoggedIn then
  writeLn('Not Logged In, Ending Script');
  TerminateScript;
end;
function NorthAndHigh:Boolean;
begin
MakeCompass(0);
SetAngle(SRL_ANGLE_HIGH);   //I also changed this from 'True' to 'SRL_ANGLE_HIGH'
end;
function FindYewTree:Boolean;
var
x2,y2:Integer;
begin
FindObjCustom(x2, y2, ['hop', 'down'], [4937570, 4344918], 5);
end;
function RAngle:Boolean;
begin
MakeCompass(RandomRange(0,359));
end;
procedure Report;
begin
writeLn('========================');
writeLn('========S1NYews=========');
writeLn('===Time Running: ' + TimeRunning);
//writeLn('===Logs: ' + IntToStr(YewCount));
//writeLn('===Exp: ' + IntToStr(YewCount * 175));
writeLn('========================');
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Edgeville=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
procedure Bank;
begin
NorthAndHigh;
RadialWalkTolerance(5198946, 30, 45, 60, 1, 1, 2);
if IsMoving then
  begin
    wait(5000);
    MakeCompass(350);
    SetAngle(SRL_ANGLE_NONE);        //I changed this from 'False' to 'SRL_ANGLE_NONE'
    wait(1000);
  end else
    begin
      wait(10000);
      CheckIfLoggedIn;
    end;
    AntiRandoms;
  FindAndOpenDBox;
  if DidRedClick then
  begin
    wait(6000 + random(300));
  end else
    begin
      wait(6000);
      CheckIfLoggedIn;
    end;
  if DepositScreen then
    begin
      DepositEverything;
      CloseDepositBox;
    end else
      begin
        CheckIfLoggedIn;
        If LoggedIn then
          begin
            FindAndOpenDBox
            DepositEVERYthing;
            CloseDepositBox;
          end;
      end;
    MakeCompass(0);
    WriteLn('Walking Back');
    RadialWalk(3885138, 160, 180, 70, 1, 1);
    if FlagPresent then
    repeat
      begin
        wait(200);
      end
    until(Not IsMoving);
    RadialWalk(2833988, 230, 270,42, 1, 1);
    if FlagPresent then
    repeat
      wait(100);
    until(Not IsMoving);
    wait(20000);
    ClearDebug;
end;
procedure ChopNorthTree;
var
x,y:Integer;
begin
  SetAngle(SRL_ANGLE_NONE);      // I changed this from 'false' to 'SRL_ANGLE_NONE'
  MakeCompass(0);
  wait(300);
  repeat
    if FindObjCustom(x, y, ['hop', 'down'], [4937570, 4344918], 5) Then
      begin
        WriteLn('Found North Yew');
        MMouse(x, y, 2, 2);
      end;
  until(IsUpText('Chop down'));
  Mouse(x, y, 2, 2,True);
  repeat
    wait(100);
    MMouse(x, y, 2, 1);
  until(Not IsUpText('own') or InvFull);
      if FindBlackChatMessage('yew') then
      begin
        YewCount:= YewCount + 1
      end;
  AntiBan;
  writeLn('Yew Tree is down. Banking');                 //yawn    .........
end;
procedure Edgeville;
begin
  ClearDebug;
  SetupLogin;
  SetupSRL;
  writeLn('============================================');
  writeLn('WIELD YOUR HATCHET PLEASE!');
  writeLn('This is not an error message, just a warning');
  writeLn('============================================');
  DeclarePlayers;
  ActivateClient;
  repeat
    ChopNorthTree;
    //WalkToSouth
    //ChopSouthTree
    Bank;
    Report;
  until(false);
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Seers'========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================The GE========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Main Code=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
begin
  Edgeville;                     //Change this to your location (V1.3+ only)
end.

01-15-2012, 12:53 PM
actiav

problem with this your code.

[Hint] (86:10): Variable 'Result' never used at line 85
[Hint] (93:10): Variable 'Result' never used at line 92
[Hint] (100:10): Variable 'Result' never used at line 99
[Hint] (110:10): Variable 'Result' never used at line 109
[Error] (119:10): Unknown identifier 'SRL_ANGLE_HIGH' at line 118
Compiling failed.
01-15-2012, 01:00 PM
Drax

There shouldn't be a problem just make sure your simba is fully updated including your SRL, if it doesn't reconize SRL_ANGLE_HIGH that means you are still running srl 4.
01-15-2012, 02:07 PM
actiav

ok, why my simba not login in to accounts?
01-15-2012, 10:14 PM
Drax
Quote:

Originally Posted by actiav

ok, why my simba not login in to accounts?

If you are using a script that you downloaded or copied and pasted make sure you filled out declare players properly below is an example. IF you are using MSI make sure you didn't make any mistakes for adding a player. If you are still having problems there are alot of tutorials on this forum further explaining how to BOT with simba.
Simba Code:
```
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Player'; // Username
  Players[0].Pass := 'qwerty'; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
```
01-18-2012, 11:56 AM
shadowmarkus

So, you're selling the full version of the script? .....
01-18-2012, 12:10 PM
Sin

Quote:

Originally Posted by shadowmarkus

So, you're selling the full version of the script? .....

NO :O
Who said im selling it D:
Im only giving it to worthy members. Haven't given out a single copy yet...
01-20-2012, 07:07 PM
jordaneddy

Found North Yew
Yew Tree is down. Banking
Successfully executed.
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

Then it just sits there. Any solution?

Quote:

Originally Posted by Surfing

Simba Code:

program S1NYews;
{$include srl/srl/misc/smart.simba}    // This is where i changed the file extension from .scar to .simba
{$I SRL/SRL.simba}                     // This is where i changed the file extension from .scar to .simba
{$I srl/srl/misc/debug.simba}          // This is where i changed the file extension from .scar to .simba
var
YewCount:Integer;

{Recent Changes-
1.1  January 2nd 2012
Revamped the whole code
Added numerous failsafes
Banking should be flawless

1.2  January 4th 2012
Cleaned up the whole code
Fixed Radial Walking bug(silly me :L)
added tons of failsafes
progress report

1.3
==To Come==
Seer's Village Support}

//Please start at the Yews.

{Currently featuring ONLY Edgeville.}
{Post on thread if you want support}
{for places such as Seers', GE, and whatever}
{Version 1.2}
{Updated January 4th, 2012}
//Script will be available for only a short time to prevent Yews from crashing
//Moving to Members+ as soon I can.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players

procedure AntiBan;
begin
  case random(50) of   //change the number in brackets to however you want the antiban to perform
      0: RandomRClick;
      1: PickUpMouse;
      2: RandomRClick;
      3: HoverSkill('woodcutting', False);
  end;
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'firemaking';           //change to whatever you want
  LevelUp;
  end;
{DONT TOUCH BElOW IF YOU HAVE NO EXPERIENCE AND DONT WANT YOUR BOT TO NOT START.
 IF YOU CHANGED SOMETHING AND IT DOESNT WORK, DONT YOU DARE COME CRYING TO ME
 AND SAYING "0mfG, w7f !s th1s bu11sh!t. Eet n0 w0rk foar m3." without having details.
 I WILL RESPOND WITH A "UMADBRUH?" TO YOU.
 Have a nice day :)
 }

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Functions=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function DepositEverything:Boolean;
var
x,y:Integer;
begin
FindObjCustom(x, y, ['eposit','items'], [2052490], 2);
Mouse(x, y, 0, 0, True);
end;
Function CloseDepositBox:boolean;
var
x2, y2:integer;
begin
  if FindObjCustom(x2, y2, ['Close'], [1580837], 0) then
  Mouse(x2, y2, 0, 0, True);
end;
function FindAndOpenDBox:Boolean;
var
x,y:Integer;
begin
repeat
if FindObjCustom(x, y, ['eposit'], [8092544, 789517], 2) then
  MMouse(x, y, 0, 0);
until(IsUpText('eposit'));
Mouse(x, y, 2, 2, True);
end;
function CheckIfLoggedin:Boolean;
begin
if Not LoggedIn then
  writeLn('Not Logged In, Ending Script');
  TerminateScript;
end;
function NorthAndHigh:Boolean;
begin
MakeCompass(0);
SetAngle(SRL_ANGLE_HIGH);   //I also changed this from 'True' to 'SRL_ANGLE_HIGH'
end;
function FindYewTree:Boolean;
var
x2,y2:Integer;
begin
FindObjCustom(x2, y2, ['hop', 'down'], [4937570, 4344918], 5);
end;
function RAngle:Boolean;
begin
MakeCompass(RandomRange(0,359));
end;
procedure Report;
begin
writeLn('========================');
writeLn('========S1NYews=========');
writeLn('===Time Running: ' + TimeRunning);
//writeLn('===Logs: ' + IntToStr(YewCount));
//writeLn('===Exp: ' + IntToStr(YewCount * 175));
writeLn('========================');
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Edgeville=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
procedure Bank;
begin
NorthAndHigh;
RadialWalkTolerance(5198946, 30, 45, 60, 1, 1, 2);
if IsMoving then
  begin
    wait(5000);
    MakeCompass(350);
    SetAngle(SRL_ANGLE_NONE);        //I changed this from 'False' to 'SRL_ANGLE_NONE'
    wait(1000);
  end else
    begin
      wait(10000);
      CheckIfLoggedIn;
    end;
    AntiRandoms;
  FindAndOpenDBox;
  if DidRedClick then
  begin
    wait(6000 + random(300));
  end else
    begin
      wait(6000);
      CheckIfLoggedIn;
    end;
  if DepositScreen then
    begin
      DepositEverything;
      CloseDepositBox;
    end else
      begin
        CheckIfLoggedIn;
        If LoggedIn then
          begin
            FindAndOpenDBox
            DepositEVERYthing;
            CloseDepositBox;
          end;
      end;
    MakeCompass(0);
    WriteLn('Walking Back');
    RadialWalk(3885138, 160, 180, 70, 1, 1);
    if FlagPresent then
    repeat
      begin
        wait(200);
      end
    until(Not IsMoving);
    RadialWalk(2833988, 230, 270,42, 1, 1);
    if FlagPresent then
    repeat
      wait(100);
    until(Not IsMoving);
    wait(20000);
    ClearDebug;
end;
procedure ChopNorthTree;
var
x,y:Integer;
begin
  SetAngle(SRL_ANGLE_NONE);      // I changed this from 'false' to 'SRL_ANGLE_NONE'
  MakeCompass(0);
  wait(300);
  repeat
    if FindObjCustom(x, y, ['hop', 'down'], [4937570, 4344918], 5) Then
      begin
        WriteLn('Found North Yew');
        MMouse(x, y, 2, 2);
      end;
  until(IsUpText('Chop down'));
  Mouse(x, y, 2, 2,True);
  repeat
    wait(100);
    MMouse(x, y, 2, 1);
  until(Not IsUpText('own') or InvFull);
      if FindBlackChatMessage('yew') then
      begin
        YewCount:= YewCount + 1
      end;
  AntiBan;
  writeLn('Yew Tree is down. Banking');                 //yawn    .........
end;
procedure Edgeville;
begin
  ClearDebug;
  SetupLogin;
  SetupSRL;
  writeLn('============================================');
  writeLn('WIELD YOUR HATCHET PLEASE!');
  writeLn('This is not an error message, just a warning');
  writeLn('============================================');
  DeclarePlayers;
  ActivateClient;
  repeat
    ChopNorthTree;
    //WalkToSouth
    //ChopSouthTree
    Bank;
    Report;
  until(false);
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Seers'========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================The GE========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Main Code=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
begin
  Edgeville;                     //Change this to your location (V1.3+ only)
end.

Everyone use this code, this is the updated one!

01-21-2012, 12:06 AM
Sin

Haven't updated this script in so long...
I'll get on it asap...
01-21-2012, 12:38 AM
Chrome

Quote:

Originally Posted by S1N

Haven't updated this script in so long...
I'll get on it asap...

Thanks <3
01-21-2012, 01:27 AM
pk ownage94

would be sick if you updated :)
01-22-2012, 07:18 AM
jordaneddy

Im not sure if this is a working script, but as of so far NONE of the yew cutters are working.
01-24-2012, 12:21 AM
Jaybird

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from '' whats that mean?
01-24-2012, 02:08 AM
Drax

Quote:

Originally Posted by Jaybird

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from '' whats that mean?

The script isn't update for Srl5 yet.
01-24-2012, 08:13 AM
i wish peace

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

y is this doing this for??
01-25-2012, 04:06 AM
GetFresh

Quote:

Originally Posted by i wish peace

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

y is this doing this for??

if you read the post above, this script isn't updated yet.
01-25-2012, 04:25 AM
manup3

can anyone tell me how to run a script? i downloaded it but have no idea how to get the script up or where to look for it, i need help :o im new to simba.
01-25-2012, 04:28 AM
Adobe

Quote:

Originally Posted by manup3

can anyone tell me how to run a script? i downloaded it but have no idea how to get the script up or where to look for it, i need help :o im new to simba.

http://villavu.com/forum/search.php
01-31-2012, 09:55 PM
mikey603

Error

Exception in Script: Unable to find file 'ObjectDTM\ObjDTMInclude.simba' used from ''
I have it under extensions and i enabled it but i get this
02-02-2012, 08:10 PM
YILDIRIM

it would be great if you can add G.E yews good luck and nice script ill post a proggie soon :)
02-04-2012, 09:51 AM
ethanbear08

soo i used this script before the srl 5 and it pwnd. to bad its not updated...if anyone has a yew script do you mind posting...i think EVERYONE here agrees that its in high demand right now.
02-04-2012, 11:00 AM
LemonHaze

I really love your scripts man!
You should make a sw script (public...)

Quote:

Originally Posted by Sin

Hey guys, releasing my second script tonight -
S1NYews LITE.
This IS the lite version so there are a couple things it does and a couple things that it doesn't do.
Video Promo of it -
http://www.youtube.com/watch?v=RhUmO...&feature=inbox

Code:

What it does -

 

Chops ONE of the yew trees in edgeville

Banks

======================================

What it doesn't do -



Chop both of the Yew Trees in Edgeville

Does NOT have support for multiple locations

Does NOT wait for the inventory to be full before banking (in some ways it's more efficient)

Does NOT have many failsafes



How to get the full version -

Pay me 100M

Nahh im jk, just pm me WHY you want the script and what you'll use it for. Goldfarming is an instant NO. Yews are overexpensive atm and I want them t crash a bit so I can 99 Fletching a bit easier so... But I dont want yews to plummet to much. Full Version will be in Members as soon as i'm one :p

The Script:

Simba Code:

program S1NYews;
{$include srl/srl/misc/smart.scar}
{$I SRL/SRL.Scar}
{$I srl/srl/misc/debug.scar}
var
YewCount:Integer;

{Recent Changes-
1.1  January 2nd 2012
Revamped the whole code
Added numerous failsafes
Banking should be flawless

1.2  January 4th 2012
Cleaned up the whole code
Fixed Radial Walking bug(silly me :L)
added tons of failsafes
progress report

1.3
==To Come==
Seer's Village Support}

//Please start at the Yews.

{Currently featuring ONLY Edgeville.}
{Post on thread if you want support}
{for places such as Seers', GE, and whatever}
{Version 1.2}
{Updated January 4th, 2012}
//Script will be available for only a short time to prevent Yews from crashing
//Moving to Members+ as soon I can.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players

procedure AntiBan;
begin
  case random(50) of   //change the number in brackets to however you want the antiban to perform
      0: RandomRClick;
      1: PickUpMouse;
      2: RandomRClick;
      3: HoverSkill('woodcutting', False);
  end;
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'firemaking';           //change to whatever you want
  LevelUp;
  end;
{DONT TOUCH BElOW IF YOU HAVE NO EXPERIENCE AND DONT WANT YOUR BOT TO NOT START.
 IF YOU CHANGED SOMETHING AND IT DOESNT WORK, DONT YOU DARE COME CRYING TO ME
 AND SAYING "0mfG, w7f !s th1s bu11sh!t. Eet n0 w0rk foar m3." without having details.
 I WILL RESPOND WITH A "UMADBRUH?" TO YOU.
 Have a nice day :)
 }

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Functions=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function DepositEverything:Boolean;
var
x,y:Integer;
begin
FindObjCustom(x, y, ['eposit','items'], [2052490], 2);
Mouse(x, y, 0, 0, True);
end;
Function CloseDepositBox:boolean;
var
x2, y2:integer;
begin
  if FindObjCustom(x2, y2, ['Close'], [1580837], 0) then
  Mouse(x2, y2, 0, 0, True);
end;
function FindAndOpenDBox:Boolean;
var
x,y:Integer;
begin
repeat
if FindObjCustom(x, y, ['eposit'], [8092544, 789517], 2) then
  MMouse(x, y, 0, 0);
until(IsUpText('eposit'));
Mouse(x, y, 2, 2, True);
end;
function CheckIfLoggedin:Boolean;
begin
if Not LoggedIn then
  writeLn('Not Logged In, Ending Script');
  TerminateScript;
end;
function NorthAndHigh:Boolean;
begin
MakeCompass(0);
SetAngle(True);
end;
function FindYewTree:Boolean;
var
x2,y2:Integer;
begin
FindObjCustom(x2, y2, ['hop', 'down'], [4937570, 4344918], 5);
end;
function RAngle:Boolean;
begin
MakeCompass(RandomRange(0,359));
end;
procedure Report;
begin
writeLn('========================');
writeLn('========S1NYews=========');
writeLn('===Time Running: ' + TimeRunning);
//writeLn('===Logs: ' + IntToStr(YewCount));
//writeLn('===Exp: ' + IntToStr(YewCount * 175));
writeLn('========================');
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Edgeville=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
procedure Bank;
begin
NorthAndHigh;
RadialWalkTolerance(5198946, 30, 45, 60, 1, 1, 2);
if IsMoving then
  begin
    wait(5000);
    MakeCompass(350);
    SetAngle(False);
    wait(1000);
  end else
    begin
      wait(10000);
      CheckIfLoggedIn;
    end;
    AntiRandoms;
  FindAndOpenDBox;
  if DidRedClick then
  begin
    wait(6000 + random(300));
  end else
    begin
      wait(6000);
      CheckIfLoggedIn;
    end;
  if DepositScreen then
    begin
      DepositEverything;
      CloseDepositBox;
    end else
      begin
        CheckIfLoggedIn;
        If LoggedIn then
          begin
            FindAndOpenDBox
            DepositEVERYthing;
            CloseDepositBox;
          end;
      end;
    MakeCompass(0);
    WriteLn('Walking Back');
    RadialWalk(3885138, 160, 180, 70, 1, 1);
    if FlagPresent then
    repeat
      begin
        wait(200);
      end
    until(Not IsMoving);
    RadialWalk(2833988, 230, 270,42, 1, 1);
    if FlagPresent then
    repeat
      wait(100);
    until(Not IsMoving);
    wait(20000);
    ClearDebug;
end;
procedure ChopNorthTree;
var
x,y:Integer;
begin
  SetAngle(False);
  MakeCompass(0 + random(20));
  wait(300);
  repeat
    if FindObjCustom(x, y, ['hop', 'down'], [4937570, 4344918], 5) Then
      begin
        WriteLn('Found North Yew');
        MMouse(x, y, 2, 2);
      end;
  until(IsUpText('Chop down'));
  Mouse(x, y, 2, 2,True);
  repeat
    wait(100);
    MMouse(x, y, 2, 1);
  until(Not IsUpText('own') or InvFull);
      if FindBlackChatMessage('yew') then
      begin
        YewCount:= YewCount + 1
      end;
  AntiBan;
  writeLn('Yew Tree is down. Banking');                 //yawn    .........
end;
procedure Edgeville;
begin
  ClearDebug;
  SetupLogin;
  SetupSRL;
  writeLn('============================================');
  writeLn('WIELD YOUR HATCHET PLEASE!');
  writeLn('This is not an error message, just a warning');
  writeLn('============================================');
  DeclarePlayers;
  ActivateClient;
  repeat
    ChopNorthTree;
    //WalkToSouth
    //ChopSouthTree
    Bank;
    Report;
  until(false);
end;
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Seers'========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================The GE========================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
//==============================================================================
//================================Main Code=====================================
//==============================================================================
//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
begin
  Edgeville;                     //Change this to your location (V1.3+ only)
end.

Changelog:
January 2nd, 2011 - Initial Release
January 4th, 2011 - Bug Fixes

Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from '' wat do i do?

02-14-2012, 10:22 AM
Drax

It's out dated
02-16-2012, 03:14 AM
reorxsknight

Yew cutter Full

yeah, its out dated, try the cutter in MSI
02-26-2012, 09:39 AM
DnO_bob

Mmm,
Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

what's this?

*Never mine.. just red why..*
02-27-2012, 02:22 AM
exilednoob

Great script for my f2p account
would give proggy but i closed too soon

Show 40 post(s) from this thread on one page