SRL Archive - OSR Help

I am watching YoHoJo's video here:

http://www.youtube.com/watch?v=qfumZWrm_DE&feature=related
at 7:46

and he types in findobj and selects FindObject etc. etc.

When I type in findobj Only DTM's show up.

Is the video outdated possibly? If so, what do I do?

Video is not outdated
What do you mean by only DTMs come up?
Make sure you have included SRL at the top of the script!
Type FindObj and then hold down control and tap space you should see a bunch.

I put "findobj" in the search bar and a list of things comes up on the left. It goes DTM with an expanded list under it, as well as Script, Other, Math, Window, etc.

Typing FindObj and holding down control and tapping space gives me "constant FindObj". But the result only pops up if I do that in the coding area.

I have included SRL in the script, I double checked. Everything is also up to date.

Edit: I uh, might have mistyped include when including SRL..my bad. *embarassed*

At 10:17 of your video where you put in Antibans, can I put in different ones, and if so, how? If I go to the left index and click Includes>Antiban there are some procedures, would I put these in somehow?

Example:

Procedure Antiban;
Begin
  Case Random(350) Of
    0: HoverSkill('Mining', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(5000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
  End;
End; 

To add more, just keep going after the '5'

Procedure Antiban;
Begin
  Case Random(350) Of
    0: HoverSkill('Mining', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(5000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
    6: More Antiban
    7: More Antiban
    8: More Antiban
  End;
End; 

Make sure if the antiban you put is more than just one function, to have a begin and end before/after the code like

Procedure Antiban;
Begin
  Case Random(350) Of
    0: Begin 
          HoverSkill('Mining', False);
          MMouse(Random(MSX2), Random(MSY2), 0, 0);
          WriteLn('weeeeeeeee');
          MakeCompass('E');
       End;
  End;
End; 

Good luck.

After I click Compile another tab opens in the coding section called "smart". It looks like this:

{$DEFINE SRL_SMART}
{$DEFINE SMART}
{$ifdef Simba}
{.loadlib libsmart}
{$endif}

{$ifdef Simba}
function IsKeyDown(C:Byte): Boolean;
begin
Result := SmartIsKeyDown(C);
end;
{$else}
function IsKeyDown(C:Char): Boolean;
begin
Result := SmartIsKeyDown(ord©);
end;
{$endif}

and it continues on.

P. S. How do I put the above in a text box like you?

P. S. How do I put the above in a text box like you?

Use Simba Tags :D

 TEXT HERE 

No spaces though

Post the whole scirpt around simba tags

like this

so we can see exactly what is going on. We can't help if we don't have a script to work with.

This is my actual script I wrote. (Kinda. I took most of it from other scripts, but I am only trying to learn how at this point. Not releasing anything just yet.)

program PowerChopper
{$DEFINE SMART}
{.include SRL\SRL.scar}
{.Include SRL\SRL\Misc\Debug.SCAR}
{$i SRL\SRL\Misc\Stats.simba}

Const;
 BreakEvery = //How long the script will run until stopping.
 BreakFor = //How long until the script starts running again.
 SRLStats_Username = ''; // Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 NumbOfPlayers= 1;     //How many players are you using
 StartPlayer=   0;     //Player to start auoting with! (0 means first character)






procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['XP'];

  with Players[0] do
  begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;
    Integers[1] := 4;
    Integers[2] := 4;
  end;

end;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Function CheckAndClick(X,Y:Integer):Boolean;
Begin
  MMouse(x, y, 5, 5);
  {Wait(100 + Random(50));
  If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
  If WaitUpTextMulti(['chop','tree'], 150) Then
  Begin
    Result:=True;
    GetMousePos(x, y);
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
  End;
End;

Procedure Antiban;
Begin
  Case Random(350) Of
    0: HoverSkill('Woodcut', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(5000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(1500 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
  End;
End;

Function ChopDown;

Var
  x, y:Integer;

Begin
  If FindObjCustom(x, y, ['chop', 'down', 'tree', 'yew'], [1384993, 791058, 1384222, 1713957], 30) Then
  WriteLn('Look! A tree!');
end;


begin
  SetupSRL;
  DeclarePlayers;
  //Repeat
    Chopdown;
  //Until (False);
end.

And this is what pops open in another tab.

{$DEFINE SRL_SMART}
{$DEFINE SMART}
{$ifdef Simba}
{.loadlib libsmart}
{$endif}

{$ifdef Simba}
function IsKeyDown(C:Byte): Boolean;
begin
  Result := SmartIsKeyDown(C);
end;
{$else}
function IsKeyDown(C:Char): Boolean;
begin
  Result := SmartIsKeyDown(ord(c));
end;
{$endif}

procedure MoveMouse(x, y: Integer);
begin
  SmartMoveMouse(x, y);
end;

{$ifdef Simba}
procedure HoldMouse(x, y: Integer; button : integer);
begin
  if button = mouse_left then
    SmartHoldMousePlus(x,y,1)
  else if button = mouse_middle then
    SmartHoldMousePlus(x,y,2)
  else if button = mouse_right then
    SmartHoldMousePlus(x,y,3)
  else 
    raiseexception(ercustomerror,'Unknown mouse button in SmartHoldMousePlus');
end;

procedure ReleaseMouse(x, y: Integer; button : integer);
begin
  if button = mouse_left then
    SmartReleaseMousePlus(x,y,1)
  else if button = mouse_middle then
    SmartReleaseMousePlus(x,y,2)
  else if button = mouse_right then
    SmartReleaseMousePlus(x,y,3)
  else 
    raiseexception(ercustomerror,'Unknown mouse button in SmartReleaseMousePlus');
end;
{$else}
procedure HoldMouse(x, y: Integer; left: Boolean);
begin
  SmartHoldMouse(x, y, left);
end;

procedure ReleaseMouse(x, y: Integer; left: Boolean);
begin
  SmartReleaseMouse(x, y, left);
end;
{$endif}

procedure KeyUp(key: Byte);
begin
  If Key = 13 Then
    Key := 10;
  SmartReleaseKey(key);
end;

procedure KeyDown(key: Byte);
begin
  If Key = 13 Then
    Key := 10;
  SmartHoldKey(key);
end;

procedure SendKeys(S: String);
begin
  SmartSendKeys(S);
end;

procedure GetMousePos(var x, y: Integer);
begin
  SmartGetMousePos(x, y);
end;

function GetColor(x, y: Integer): Integer;
begin
  result:= SmartGetColor(x, y);
end;

procedure SmartSetTarget;
{$ifdef Simba}
begin
  SetTargetArray(SmartImageArray, 765,503);
end;
{$else}
var
  Smart_Bitmap: Integer;
begin
  Smart_Bitmap:= BitmapFromString(765,503,'');
  GetBitmapCanvas(Smart_Bitmap).Handle:= SmartGetDC;
  SetTargetBitmap(Smart_Bitmap);
  FreeBitmap(Smart_Bitmap);
end;
{$endif}

function FindWindow(Title: String): Boolean;
begin
  result:= true;
end;

procedure ActivateClient;
begin
end;

function FindWindowBySize(Width, Height: Integer): Boolean;
begin
  result:= true;
end;

{procedure SmartSaveSettings(v: TVariantArray);
var
  i: Integer;
  ts: TStringArray;
begin
  ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/misc/smartINI.ini'];
  for i := 0 to 4 do
    WriteINI('SMART', ts[i], v[i], ts[5]);
end;   }

procedure SmartSetupEx(Server: integer; members, signed, superdetail: boolean);
var
  prefix: string;
begin
  {$IFDEF SIMBA}
  prefix := ReadINI('World' + IntToStr(Server), 'Prefix', IncludePath + 'SRL/SRL/misc/worlds.ini');
  {$ELSE}
  prefix := ReadINI('World' + IntToStr(Server), 'Prefix', {$IFDEF SCAR325_UP} IncludesPath {$ELSE} AppPath + 'Includes\' {$ENDIF} + 'SRL\SRL\misc\worlds.ini');
  {$ENDIF}
  if(prefix = '')then
  begin
    writeln('Invalid world number or corrupted world list. Please review your settings');
    TerminateScript;
  end;
  SmartSetup('http://'+prefix+'.runescape.com/', ',f5', 765, 503, 's');
  //SmartSaveSettings([Server, Members, Signed, SuperDetail, SmartGetDC]);
end;

{function SmartLastSettings: TStringArray;
var
  i: Integer;
  ts: TStringArray;
begin
  ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/Misc/smartINI.ini'];
  SetLength(Result, 5);
  for i := 0 to 4 do
    Result[i] := ReadINI('SMART', ts[i], ts[5]);
end; }

{$ifndef Simba}
Procedure SaveScreenshot(s : string);
var
  TempBMP : integer;
  TempS : String;
begin;
  Temps := s;
  While FileExists(Temps) do
  begin;
    Temps := ExtractFilePath(s) + Copy(ExtractFileName(Temps),1,LastPos('.',ExtractFileName(Temps))-1) + '2' + ExtractFileExt(s);
    Writeln(Temps);
  end;
  TempBMP := BitmapFromString(765,503,'');
  Try
    CopyClientToBitmap(TempBMP,0,0,765,503);
    SaveBitmap(TempBMP, Temps);
  Except
  end;
  FreeBitmap(TempBMP);
end;
{$endif}

The tab is titled "smart"

You need to remove

{$DEFINE SMART}
}

In fact you probably only need
{.include SRL\SRL.scar}