• Log in or sign up for an account here: https://www.sythe.org/login

ok having an error!@

irn928

irn928

Forum Addict
Joined
Jun 11, 2007
Sythe Gold
0
Messages
257
Location
everywhere
ok so i downloaded the srl yada yada i put in the script i do all it says and then it finds this error

line 399: [error] (15731:7) : unknown identifier 'find items' in script c:\documents and settings\owner\my documents\download\power miner .scar


and thats about it...if some on could please help me that would be very much appreciatied
 
Could you post the script (or as an attachment)? The error could be that the author used SRL incorrectly, SRL got outdated, did not identify his variable/procedure, etc. It really depends.

So just post the script (or link us to it)
 
Code: 
{===========================================\
|    This is a Power Miner made by Weibs.   |
|===========================================|
|             Instructions                  |
|-------------------------------------------|
| 1. Setup the Const's on lines 38-49.      |
|                                           |
| 2. Setup the Players Info within the      |
|    DeclarePlayers; Procedure.             |
|                                           |
| 3. Position the characters by the rocks   |
|    you want to mine.                      |
|                                           |
| 4. Run the script!                        |
|-------------------------------------------|
|              Other Info                   |
|-------------------------------------------|
| This is a FREE script, if you payed for   |
|   it, you were scammed.                   |
|                                           |
| SCAR Version: 2.03                        |
|                                           |
| SRL Version: 3.4                          |
|                                           |
| Script Version: .9                        |
|-------------------------------------------|
|  Please, post progress reports and        |
|   suggestions wherever you got this.      |
\-------------------------------------------}

Program WeibsPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

Const
{=======================}
  VersionNumber = '.9';
{=======================}

Const
//------------Setup Here-----------//

  TotalPlayers   = 1;        //Number of players declared below.
  StartingPlayer = 1;        //Staring Player Number.

  WaitTime       = 10;        //Wait Time inbetween rocks, IN SECONDS!
  MinsPerLoad    = 8;        //Minutes per load.
  LoadsToDo      = 100;        //# of loads to do for each user.
                             //Set at 0 to mine until stuck.

  UseAutoColor   = True;     //Use AutoColor? Recommended!
  RunDirection   = 'N';      //Dir to run when fight occurs.
  UseBenMouse    = True;     //Use BenMouse? Recommended.
  TheMouseSpeed  = 9;        //Mouse Speed. Lower = Faster.

//----------------------------------------------------------------------------//

Procedure DeclarePlayers;
Begin

  NumberOfPlayers( 1 );
  CurrentPlayer := StartingPlayer;

  Players[0].Name := '';   //Username.
  Players[0].Pass := '';        //Password.
  Players[0].Nick := '';     //3-4 Chars of the Username.
  Players[0].Active := True;    //Will this player be Active?
  Players[0].String1 := 'Iron'; //Ore to mine.
  Players[0].Loc := '';         //Do NOT Touch.

  Players[1].Name := '';        //Username.
  Players[1].Pass := '';        //Password.
  Players[1].Nick := '';        //3-4 Chars of the Username.
  Players[1].Active := True;    //Will this player be Active?
  Players[1].String1 := 'Iron'; //Ore to mine.
  Players[1].Loc := '';         //Do NOT Touch.

  Players[2].Name := '';        //Username.
  Players[2].Pass := '';        //Password.
  Players[2].Nick := '';        //3-4 Chars of the Username.
  Players[2].Active := True;    //Will this player be Active?
  Players[2].String1 := 'Iron'; //Ore to mine.
  Players[2].Loc := '';         //Do NOT Touch.

  Players[3].Name := '';        //Username.
  Players[3].Pass := '';        //Password.
  Players[3].Nick := '';        //3-4 Chars of the Username.
  Players[3].Active := True;    //Will this player be Active?
  Players[3].String1 := 'Iron'; //Ore to mine.
  Players[3].Loc := '';         //Do NOT Touch.

  Players[4].Name := '';        //Username.
  Players[4].Pass := '';        //Password.
  Players[4].Nick := '';        //3-4 Chars of the Username.
  Players[4].Active := True;    //Will this player be Active?
  Players[4].String1 := 'Iron'; //Ore to mine.
  Players[4].Loc := '';         //Do NOT Touch.

  Players[5].Name := '';        //Username.
  Players[5].Pass := '';        //Password.
  Players[5].Nick := '';        //3-4 Chars of the Username.
  Players[5].Active := True;    //Will this player be Active?
  Players[5].String1 := 'Iron'; //Ore to mine.
  Players[5].Loc := '';         //Do NOT Touch.

  WriteLn( IntToStr( HowManyPlayers ) + ' Players');
End;

//----------------------------------------------------------------------------//

Var
  ClayColor, TinColor, CopperColor, IronColor, GoldColor: Integer;
  TheOreColor, Clay, OreMask, TotalOres: Integer;
  LoadTime, TotalTimeWorking: LongInt;
  UsedAC: Boolean;

//----------------------------------------------------------------------------//

Procedure CheckVersion;
Var
  s, v: String;

Begin
  s := GetPage('http://weibs.awardspace.com/version.html');
  v := Between('(', ')', s);
  If (Not (v = VersionNumber)) Then
  Begin
    WriteLn('A new version of this script is available!');
    Wait(5000);
  End;
  WriteLn('/============================\');
  WriteLn(' Current Script Version: ' + VersionNumber);
  WriteLn(' Newest Script Version : ' + v);
  WriteLn('\============================/');
End;

Procedure LoadColors;
Begin
  ClayColor   := 9157847;
  TinColor    := 9539996;
  CopperColor := 5541863;
  IronColor   := 2832988;
  GoldColor   := 2017267;
End;

//----------------------------------------------------------------------------//

Procedure LoadBitmaps;
Begin
  Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
       '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
       '8F60A58D5FA1895C');

  OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
       '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
       'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
       'B599CC1');
End;


Procedure Loc(Location: String);
Begin
  Players[CurrentPlayer].loc := Location;
End;

//----------------------------------------------------------------------------//

Function SetColors: Boolean;
Begin
  Result := True;
  Case Lowercase(Players[CurrentPlayer].String1) Of
    'clay'   : TheOreColor := ClayColor;
    'tin'    : TheOreColor := TinColor;
    'copper' : TheOreColor := CopperColor;
    'iron'   : TheOreColor := IronColor;
    'gold'   : TheOreColor := GoldColor;
  Else
    Begin
      WriteLn('Invalid Rock Type.');
      Loc('lost');
      Result := False;
      Exit;
    End;
  End;
  WriteLn('Default OreColor: ' + IntToStr(TheOreColor) + '.');
End;

//----------------------------------------------------------------------------//

Function Lost: Boolean;
Begin
  Result := False;
  If Lowercase(Players[CurrentPlayer].loc) = 'lost' Then
    Result := True;
End;

//----------------------------------------------------------------------------//

Procedure ModSetRun(Run: Boolean);
Var
  WX, WY: Integer;

Begin
  GameTab(11);
  If Run Then
  Begin
    If (Not (FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5))) Then
    Begin
      Mouse(648, 431, 20, 20, true);
      Wait(100+Random(100));
    End;
  End Else
  Begin
    If FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5) Then
    Begin
      Mouse(648, 431, 20, 20, true);
      Wait(100+Random(100));
    End;
  End;
End;

//----------------------------------------------------------------------------//

Procedure ModRunTo(dir: String; runfar: Boolean);
Begin
  MakeCompass('N');
  ModSetRun(true);
  If (runfar) Then
    Case UpperCase(dir) of
      'N': MouseFlag(648, 83 - 63, 0, 0)
        'S': MouseFlag(648, 83 + 63, 0, 0)
        'E': MouseFlag(648 + 63, 83, 0, 0)
        'W': MouseFlag(648 - 63, 83, 0, 0)
    End;
  If (Not runfar) Then
    Case UpperCase(dir) of
      'N': MouseFlag(648, 83 - 30, 0, 0)
        'S': MouseFlag(648, 83 + 30, 0, 0)
        'E': MouseFlag(648 + 30, 83, 0, 0)
        'W': MouseFlag(648 - 30, 83, 0, 0)
    End;
  wait(6500);
  IdleTime(6000, 500, 1.0);
  If (runfar) Then
    Case Uppercase(dir) of
      'N': MouseFlag(648, 83 + 63, 0, 0)
        'S': MouseFlag(648, 83 - 63, 0, 0)
        'E': MouseFlag(648 - 63, 83, 0, 0)
        'W': MouseFlag(648 + 63, 83, 0, 0)
    End;
  If (Not runfar) Then
    Case UpperCase(dir) of
      'N': MouseFlag(648, 83 + 30, 0, 0)
        'S': MouseFlag(648, 83 - 30, 0, 0)
        'E': MouseFlag(648 - 30, 83, 0, 0)
        'W': MouseFlag(648 + 30, 83, 0, 0)
    End;
  ModSetRun(False);
  GameTab(4);
End;

//----------------------------------------------------------------------------//


Procedure Randoms(CheckPick: Boolean);
Begin
  If CheckPick Then
    FindPick;

  FindNormalRandoms;

  If FindFight Then
    ModRunTo(RunDirection, false);
End;

//----------------------------------------------------------------------------//

Procedure MyAntiBan;
Begin
  Case 1 + Random(6) of
    1 : BoredHuman;
    2 : PickUpMouse;
    3 : HoverSkill('random', false);
    4 : RandomMovement;
    5 : RandomRClick;
    6 : GameTab(1 + Random(13));
  End;
End;

//----------------------------------------------------------------------------//

Procedure AutoColor;
Var
  WX, WY, Tries, Tol: Integer;

Begin
  HighestAngle;
  Tol := 10;
  UsedAc := False;
  WriteLn('Starting AutoColor Procedure...');
  Repeat
    Tries := Tries + 1;
    If FindColorSpiralTolerance(WX, WY, TheOreColor, 1, 1, 516, 338, Tol) Then
    Begin
      MMouse(WX, WY, 0, 0);
      If IsUpTextMulti('ine', 'e Ro', 'ocks') Then
      Begin
        TheOreColor := GetColor(WX, WY);
        UsedAC := True;
        WriteLn('Found New Ore Color: ' + IntToStr(TheOreColor) + '.');
        Exit;
      End;
    End Else Tol := Tol + 2;
    WX := WX + 103;
    WY := WY + 66;
  Until(Tries = 5);
  WriteLn('Could not find a new ore color.');
  WriteLn('Moving to next player.');
  Loc('lost');
End;

//----------------------------------------------------------------------------//

Procedure PowerMine;
Var
  WX, WY: Integer;
  MiningTime: LongInt;
  FoundC: Boolean;

Begin
  WX := 1 + Random(516);
  WY := 1 + Random(338);
  FoundC := False;
  GameTab(4);

  If UsedAC Then
  Begin
    If FindColorSpiral(WX, WY, TheOreColor, 1, 1, 516, 338) Then
      FoundC := True;
  End Else
  Begin
    If FindColorSpiralTolerance(WX, WY, TheOreColor, 1, 1, 516, 338, 15) Then
      FoundC := True;
  End;

  If FoundC Then
  Begin
    FoundC := False;
    MMouse(WX, WY, 3, 3);
    If IsUpTextMulti('Mine', 'ne R', 'ocks') Then
    Begin
      GetMousePos(WX, WY);
      If Random(25) = 24 Then
      Begin
        Mouse(WX, WY, 0, 0, False);
        ChooseOption(WX, WY, 'ine');
      End Else Mouse(WX, WY, 0, 0, true);
      Flag;
      Randoms(True);
      If GasCheck(WX, WY) Then
      Begin
        RunTo(RunDirection, false);
        Wait(8000+Random(4000)); // Found Gas, Waiting.
      End Else
      Begin
        MarkTime(MiningTime);
        Randoms(True);
        If Random(6) = 5 Then
          MyAntiBan;
        Repeat
          Randoms(True);
          FTWait(2);
        Until((IsChatMessage('manage')) or (TimeFromMark(MiningTime) > ((WaitTime*1000)-Random(1000)+Random(2000))));
      End;
    End Else
    Begin
      WX := 1 + Random(516);
      WY := 1 + Random(338);
    End;
  End Else
  If UseAutoColor Then
  Begin
    AutoColor;
  End Else
   Loc('lost');
End;

//------------DwarfItem; Modified by Sumillion.-------------------------------//
//----------The Kebab Color Was Too Close To The Emerald :P-------------------//

Procedure ModDwarfItem;
Var
  tp: TPointArray;
  i: Integer;

Begin
  GameTab(4);
  tp := FindItems(1876180, 10, 'Drink Be', 0);
  For i := 0 to (GetArrayLength(tp) - 1) Do
  Begin
    Mouse(tp[i].x, tp[i].y, 1, 1, false);
    ClickOption('Drop', 2);
  End;
  tp := FindItems(611425, 10, 'Eat Ke', 0);
  For i := 0 to (GetArrayLength(tp) - 1) Do
  Begin
    Mouse(tp[i].x, tp[i].y, 1, 1, false);
    ClickOption('Drop', 2);
  End;
  tp := FindItems(5470833, 10, 'Eat Sp', 0);
  For i := 0 to (GetArrayLength(tp) - 1) Do
  Begin
    Mouse(tp[i].x, tp[i].y, 1, 1, false);
    ClickOption('Drop', 2);
  End;
End;

//------This Procedure Is Taken From Wizzup?'s PowerMiner.--------------------//
//-----------I Take Absolutely NO Credit For It.------------------------------//
//----------------------------------------------------------------------------//
//-------The Reason For Using This Procedure Is Simply------------------------//
//--------------Because There Really Is No Other------------------------------//
//-----------------Efficient Way To Do This.----------------------------------//

Procedure CountOres;
Begin
  Players[CurrentPlayer].Integer2:= Players[CurrentPlayer].Integer2+
  CountItemBmpMaskTol(OreMask, 20, 25);

  Players[CurrentPlayer].Integer2:= Players[CurrentPlayer].Integer2+
  CountItemBmpTol(Clay, 10);

  TotalOres := TotalOres + CountItemBmpMaskTol(OreMask, 20, 25);
  TotalOres := TotalOres + CountItemBmpTol(Clay, 10);
End;

//------Part Of This Procedure Is Take From Wizzup?'s PowerMiner--------------//
//-----------I Take Absolutely NO Credit For Those Parts.---------------------//
//----------------------------------------------------------------------------//
//-------The Reason For Using These Parts Is Simply---------------------------//
//--------------Because There Really Is No Other------------------------------//
//-----------------Efficient Way To Do This.----------------------------------//

Procedure DropOres;
Begin
  CountOres;

  ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30+Random(30));
  ClickAllItemsBmpTolWait('rop', Clay, 10, 30+Random(30));

  ModDwarfItem;

  If (InvFull) Then
  Begin
    WriteLn('Could not find any ores in Inventory.');
    WriteLn('Could not empty Inventory.');
    WriteLn('Moving to next player.');
    Loc('lost');
  End Else
    Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + 1;

  If Random(10) = 9 Then
    MyAntiBan;
End;

//----------------------------------------------------------------------------//

Function AtMine: Boolean;
Var
  WX, WY: Integer;

Begin
  If FindSymbol(WX, WY, 'mining site') Then
  Begin
    Result := True;
  End Else Result := False;
End;

//----------------------------------------------------------------------------//

Procedure Prepare;
Begin
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

  SetColors;

  If (Not (FindPickHeadColor)) Then
    Loc('lost');

  If UseAutoColor Then
    AutoColor;

  Players[CurrentPlayer].Integer3 := GetSkillLevel('mining');
  Players[CurrentPlayer].Integer4 := Players[CurrentPlayer].Integer3;

  GameTab(4);
End;

//----------------------------------------------------------------------------//

Function TimeWorked: String;
Var
  Hours, Mins, Secs, Ex: Integer;
  M: LongInt;

Begin
  Ex := 25;
  M := TimeFromMark(TotalTimeWorking);
  Repeat
    If M >= 3600000 Then
    Begin
      Hours := Hours + 1;
      M := M - 3600000;
    End;
  Until(M < 3600000);

  Repeat
    If M >= 60000 Then
    Begin
      Mins := Mins + 1;
      M := M - 60000;
    End;
  Until(M < 60000);

  Repeat
    If M >= 1000 Then
    Begin
      Secs := Secs + 1;
      M := M - 1000;
    End;
  Until(M < 1000);

  If Hours > 0 Then
  Begin
    If ((Mins > 0) or (Secs > 0)) Then
    Begin
      Result := IntToStr(Hours) + ' hr(s), ';
    End Else
      Result := IntToStr(Hours) + ' hr(s).';
  End;

  If Mins > 0 Then
  Begin
    If (Secs > 0) Then
    Begin
      Result := Result + IntToStr(Mins) + ' min(s), ';
    End Else
      Result := Result + IntToStr(Mins) + ' min(s).';
  End;

  If Secs > 0 Then
  Begin
    Result := Result + IntToStr(Secs) + ' sec(s).';
  End;

  If ((Hours = 0) and (Mins = 0) and (Secs = 0)) Then
  Begin
    Result := 'Less than a second.';
  End;
End;

//----------------------------------------------------------------------------//

Procedure ProgressReport;
Var
  i: Integer;
  Active: String;

Begin

  Players[CurrentPlayer].Integer4 := GetSkillLevel('mining');

  WriteLn('/===========================================');
  WriteLn('| Thank You For Using Weibs'' PowerMiner!');
  WriteLn('|===========================================');
  WriteLn('| Total Ores Mined  : ' + IntToStr(TotalOres) + '.');
  WriteLn('| Total Time Worked : ' + TimeWorked);
  WriteLn('|                                              ');
  WriteLn('|----------Individual Player Reports--------');
  WriteLn('|');

  For i := 0 To HowManyPlayers-1 Do
  Begin
    WriteLn('| ' + Players[i].Name + ':');
    WriteLn('|-----');
    If Players[i].Active = True Then Active := 'True'; If Players[i].Active = False Then Active := 'False';
    WriteLn('|  Active: ' + Active + '.');
    WriteLn('|  Loads Done : ' + IntToStr(Players[i].Integer1));
    WriteLn('|  Ores Mined : ' + IntToStr(Players[i].Integer2));
    WriteLn('|  Starting Mining Level: ' + IntToStr(Players[i].Integer3));
    WriteLn('|  Current Mining Level : ' + IntToStr(Players[i].Integer4));
    WriteLn('|-------------------------------------------');
  End;
  WriteLn('\===========================================');

End;

//----------------------------------------------------------------------------//

Procedure SetChats;
Begin
  SetChat('off', 1);
  SetChat('off', 2);
  SetChat('off', 3);
End;

//----------------------------------------------------------------------------//

Procedure SetupScript;
Begin
  CheckVersion;
  MarkTime(TotalTimeWorking);
  SetupSRL;
  SetupSRLMining;

  LoadColors;
  LoadBitmaps;

  HowManyPlayers := TotalPlayers;
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

  BenMouse := UseBenMouse;
  MouseSpeed := TheMouseSpeed;

  If Loggedin Then
    LogOut;
  LoginPlayer;
End;

{====================\
| Weibs Power Miner  |
|====================|
|     Main Loop      |
\====================}

Begin
  SetupScript;


  Repeat
    If AtMine Then
    Begin

      If Players[CurrentPlayer].Integer1 = 0 Then
      Begin
        SetChats;
        Prepare;
      End;

      GameTab(4);

      MarkTime(LoadTime);
      If ((Not (InvFull)) and (Not (Lost))) Then
      Begin
        Repeat
          PowerMine;
          If (Not (Loggedin)) Then Break;
        Until((InvFull) or (TimeFromMark(LoadTime) > (MinsPerLoad*60000)));

        DropOres;
        ProgressReport;
      End Else

      Begin
        DropOres;
        ProgressReport;
      End;

      If (Not (AtMine)) Then
        Loc('lost');

    End Else
    Begin
      Loc('lost');
    End;

    If ((Loggedin) and (Lost)) Then
    Begin
      SetChat('off', 1);
      Randoms(False);
      MyAntiBan;
      LogOut;
      NextPlayer(false);
    End;

    If Players[CurrentPlayer].Integer1 = (LoadsToDo) Then
    Begin
      MyAntiBan;
      LogOut;
      NextPlayer(False);
    End;

    If (Not (Loggedin)) Then
    Begin
      Wait(3000+random(2000));
      NextPlayer(false);
    End;

    If (Not (Loggedin)) Then
    Begin
      Break;
    End;
  Until(False);
End.


ok so here is the script if someone could please redo it or whatever it takes to make it work if u could or just tell me what to do with it thnx l8er
 
That's a scripting error, delete the space.
 
You must log in or register to reply here.
Runescape Gamblingrunescape gambling
Back
Top