Adblock breaks this site

Need help with script

Discussion in 'Scar/Simba Help' started by Kreks, Jan 3, 2008.

Thread Tools

Thread Tools

  1. Kreks

    Kreks Guest

    Referrals:
    0
    Need help with script
    I'm using this script

    Code:
    program SPMReborn;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\mining.scar}

//==============================[Setup]===================================\\
const
  MiningInDwarvenMine = False;//Are we mining in the dwarven mines?
  MineNewRocks        = False;//Are we mining the new (Rimmington) rocks? PICK YOUR OWN COLORS !!!
  UseTimeOut          = True; //If player doesnt mine for 5 minutes it logs out > set to false.
  CheckForHealth      = True; //If true checks health first, if damaged, it runs.
  MaxSecToWait        = 10;   //Max seconds to wait before clicking again.
  MaxMinPerLoad       = 10;   //Max minutes per load.
  RunDir              = 'W';  //Direction to run to (N / E / W / S).
  RunFar              = True; //Runfar? (Recommended!)
  TheOreTolerance     = 5;    //Tolerance the color of the ore can have. 10 for new rocks.
  RandomlyChooseRock  = False;//Randomly choose one of the rocks selected?
  MMouseWhenWaiting   = True; //Sometimes moves the mouse when waiting for rock.
  UseAntiBan          = True; //AntiBan will be used if set to true.
  AntiBanAmount       = 3;    //0 is lots of antiban, 1 less, 2 even more less, etc.
  OresDropDir         = 'None';//N / E / W / S / Random / None.

  UsePlayerForm       = True; //If false DeclarePlayers(below)will be used.
  ShowPlayerForm      = True; //Show the playerform when started?
  LoadsPerPlayer      = 2;    //Loads to do before switching.
  RandomLoads         = 2;    //Randomness that will be added to above.
  StartPlayer         = 0;    //Player to start with, 0 is the first one.

  VersionNumber       = '0.65';//Current version number.
  DebugStyle          = 'Write';//Write / Status / Disguise / None.
  PartOfRCName        = 'umil';//Part of the RC Master ( NOT NEEDED )

//==============================[Colors]==================================\\
//If your mining new rocks you might need to set your own color.
const
  CopperColor       = 3824768;
  TinColor          = 7829375;
  ClayColor         = 4553880;
  IronColor         = 2569045;
  SilverColor       = 12434885;
  CoalColor         = 2834753;
  GoldColor         = 1881051;
  MithrilColor      = 7359564;
  AdamantColor      = 6322272;
  RuniteColor       = 0;

//==========================[Player Setup]================================\\
procedure DeclarePlayers;
begin
     HowManyPlayers := 6;//MAKE SURE THIS ONE IS CORRECT!

     CurrentPlayer := StartPlayer;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name    :='Username';
     Players[0].Pass    :='Password';
     Players[0].Nick    :='sern';  // 3-4 letters from your name, NO CAPITALS (that includes the first character)
     Players[0].String1 :='Coal';  //Will be mined most (unless RandomlyChooseRock is set)
     Players[0].String2 :='Gold';//Will be mined less, unless ^
     Players[0].String3 :='Adamant';   //Will be mined even less, unless ^
     Players[0].Active:= True;

     {Players[1].Name    :='Username';
     Players[1].Pass    :='Password';
     Players[1].Nick    :='sern';
     Players[1].String1 :='Coal';
     Players[1].String2 :='Gold';
     Players[1].String3 :='Iron';
     Players[1].Active:= True;

     Players[2].Name    :='Username';
     Players[2].Pass    :='Password';
     Players[2].Nick    :='sern';
     Players[2].String1 :='Copper';
     Players[2].String2 :='Tin';
     Players[2].String3 :='Iron';
     Players[2].Active:= True;

     Players[3].Name    :='Username';
     Players[3].Pass    :='Password';
     Players[3].Nick    :='sern';
     Players[3].String1 :='Addy';
     Players[3].String2 :='Mith';
     Players[3].String3 :='Gold';
     Players[3].Active:= True;

     Players[4].Name    :='Username';
     Players[4].Pass    :='Password';
     Players[4].Nick    :='sern';
     Players[4].String1 :='Coal';
     Players[4].String2 :='Copper';
     Players[4].String3 :='Tin';
     Players[4].Active:= True;

     Players[5].Name    :='Username';
     Players[5].Pass    :='Password';
     Players[5].Nick    :='sern';
     Players[5].String1 :='Iron';
     Players[5].String2 :='Addy';
     Players[5].String3 :='Coal';
     Players[5].Active:= True;}
end;

//=========================[DONT TOUCH BELOW]=============================\\
var
  arOreColor, arOreColorResults: TPointArray;
  I, bmpOreMask, bmpClayMask, OresMined, LoadsDone,
  TotalLoadsDone, GasAvoided, MineMax, TheLoads, MaxMin,
  TheMinCount: Integer;
  PlayerStatus: Boolean;

//------------------------------------------------------------------------\\
{                Signature - To prove its mine, lol.                      ||
\\------------------------------------------------------------------------//}

procedure Signature;
begin
 Writeln('  _______              __ __ __');
 Writeln(' / _____/__ __  _____ |__|  |__| ___  ____');
 Writeln(' \___  \|  |  \/     \|  |  |  |/ _ \/    \');
 Writeln(' /      \  |  /  Y Y  \  |  |  ( <_> )  |  \');
 Writeln('/_____  /____/|__|_|  /__|__|__|\___/|__|  /');
 Writeln('      \/            \/                   \/');
 Writeln('Scripts Brings You:');
 Writeln('                 SumPowerMiner');
end;

//------------------------------------------------------------------------\\
{             ProgressReport - Shows what the script has done             ||
\\------------------------------------------------------------------------//}

procedure ProgressReport;//Made by Fakawi, i think, edited by me
var
  PActive: string;
  I: Integer;
begin
  SRLRandomsReport;
  if Players[CurrentPlayer].Active then PActive:='True' else PActive:='False';
  Writeln(' ');
  Writeln('<============= SumPowerMiner ==============>');
  Writeln('<========= -'+VersionNumber+'- Progress Report =========>');
  Writeln('/==========================================\');
  Writeln('      Worked for '+ TimeRunning);
  Writeln('      Mined ' + IntToStr(OresMined) + ' ores.');
  if(GasAvoided > 0)then Writeln('      Avoided gas ' + IntToStr(GasAvoided) + ' times.');
  Writeln('\==========================================/');
  Writeln('    Name       : '+Players[CurrentPlayer].Name);
  Writeln('    Mining Lvl : '+IntToStr(Players[CurrentPlayer].Level[15]));
  Writeln('    Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
  Writeln('    Loads done : '+IntToStr(Players[CurrentPlayer].Integer1));
  Writeln('    Active     : '+PActive);
  Writeln('    Location   : '+Players[CurrentPlayer].Loc);
  Writeln('\\----------------------------------------//');
   for I := 0 to HowManyPlayers-1 do
    begin
      if(Players[I].Active = True)then PActive := 'True' else PActive := 'False';
      Writeln(IntToStr(I) + ' : ' + Players[I].Name + ' = '+ PActive +
      ' , Loads: ' + IntToStr(Players[I].Integer1) +
      ', Lvl: ' + IntToStr(Players[I].Level[15]) +
      ', Loc: ' + Players[I].Loc);
    end
  Writeln('<==========================================>');
 end;

//------------------------------------------------------------------------\\
{                KeepUpStats - Updates the statistics.                    ||
\\------------------------------------------------------------------------//}

procedure KeepUpStats;
begin
  OresMined := OresMined + CountItemBmpMaskTol(bmpOreMask, 5, 5);
  OresMined := OresMined + CountItemBmpMaskTol(bmpClayMask, 5, 5);
  LoadsDone := LoadsDone + 1;
  TotalLoadsDone := TotalLoadsDone + 1;
  Players[CurrentPlayer].Integer1 := Players[CurrentPlayer].Integer1 + 1;
  ReportVars[0] := ReportVars[0] + CountItemBmpMaskTol(bmpOreMask, 5, 5);
  ReportVars[0] := ReportVars[0] + CountItemBmpMaskTol(bmpClayMask, 5, 5);
  ReportVars[1] := ReportVars[1] + 1;
end;

//------------------------------------------------------------------------\\
{                LoadImages - Loads images in memory.                     ||
\\------------------------------------------------------------------------//}

procedure LoadImages;
begin
  bmpOreMask := BitmapFromString(9, 8, 'z78DA333040076E6080C9C60' +
       'F064A17F17A71E9C2AFD70D03E09725DE4CF2DC0F00DCD05C59');
  bmpClayMask := BitmapFromString(9, 6, 'z78DA33302016B88101F' +
       '12A4905B86CC1AF9E3CB7E1329F787F218B03004FC54795');
end;

//------------------------------------------------------------------------\\
{            DebugMe - Shows info of what the script is doing.            ||
\\------------------------------------------------------------------------//}

procedure DebugMe(Info: string);
begin
  case(LowerCase(DebugStyle))of
    'write'   : Writeln(Info);
    'status'  : Status(Info);
    'disguise': DisguiseScar(Info);
  end;
end;

//------------------------------------------------------------------------\\
{              PlayerLost - Deactivates player if needed.                 ||
\\------------------------------------------------------------------------//}

procedure PlayerLost(Info: string);
begin
  Writeln(Info);
  PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wav');
  Logout;
end;

//------------------------------------------------------------------------\\
{       MouseAntiBan - Moves mouse human-like (Anti-ban). By Yakman       ||
\\------------------------------------------------------------------------//}

procedure MouseAntiBan;
begin
  if not(LoggedIn)then Exit;
  case Random(6) of
    0 : IdleTime(1000 + Random(350),500,1.0);
    1 : IdleTime(1000 + Random(350),1000,1.0);
    2 : IdleTime(1000 + Random(350),750,0.5);
    3 : SleepAndMoveMouse(2500 + Random(2500));
    4 : SleepAndMoveMouse(1500 + Random(1500));
    5 : SleepAndMoveMouse(500 + Random(500));
  end
end;

//------------------------------------------------------------------------\\
{                  MyAntiBan - Anti-Ban procedure by Yakman.              ||
\\------------------------------------------------------------------------//}

procedure MyAntiBan;//From Yakman
var
  DItem, DBanMe, AntiBanRatio: Integer;
begin
  if not(LoggedIn)then
    Exit;
  if not(UseAntiBan)then
    Exit;
  AntiBanRatio := 25 + (25 * AntiBanAmount);
  DBanMe := Random(AntiBanRatio);
  case DBanMe of
    0 : MMouse(Random(MSX2), Random(MSY2),0,0);
    1 : RandomRClickEvery(2 + Random(13));
    2 : HoverSkill('mining', False);
    3 : HoverSkill('smithing', False);
    4 : RotateEvery(20+random(10));
    5 : LeaveScreenEvery(5+random(5));
    6 : HoverEvery(15+random(5),'random');
    7 : HoverEvery(15+random(5),players[currentplayer].skill);
    8 : MouseAntiBan;
    9 : begin
          DItem:=1+random(14);
          if(ExistsItem(DItem))then
            DragItem(DItem,15+random(10));
        end
    10 : begin
           GameTab(1+random(12));
           wait(1500+random(500));
           GameTab(4);
         end;
  end;
end;

//------------------------------------------------------------------------\\
{                    DropOres - Drops all the ores.                       ||
\\------------------------------------------------------------------------//}

procedure DropOres;
var
  i, Dx, Dy: Integer;
  RDir: string;
begin
  if(Lowercase(OresDropDir) = 'random')then
  begin
    case Random(4) of
      0 : RDir := 'S';
      1 : RDir := 'N';
      2 : RDir := 'E';
      3 : RDir := 'W';
    end;
  end
  else
    RDir := OresDropDir;
  if not(RDir = 'None')then
    RunAwayDirection(RDir);
  Dx := x;
  Dy := y;
  GameTab(4);
  while(FindBitmapMaskTolerance(bmpOreMask, x, y, MIX1, MIY1, MIX2, MIY2, 10, 5))or
       (FindBitmapMaskTolerance(bmpClayMask, x, y, MIX1, MIY1, MIX2, MIY2, 10, 5))and
       (i < 5)do
  begin
    ClickAllItemsBmpMaskTolWait('Drop', bmpOreMask, 5, 5, 300);
    ClickAllItemsBmpMaskTolWait('Drop', bmpClayMask, 5, 5, 300);
    if(FindColor(x, y, 16777215, MIX1, MIY1, MIX2, MIY2))then
      Mouse(x, y, 5, 5, false);
    ChooseOption(x, y, 'cel');
    i := i + 1;
  end;
  if(FindColor(x, y, 16777215, MIX1, MIY1, MIX2, MIY2))then
    Mouse(x, y, 5, 5, false);
  ChooseOption(x, y, 'cel');
  x := Dx;
  y := Dy;
  if not(RDir = 'None')then
  RunBack;
  GameTab(4);
end;

//------------------------------------------------------------------------\\
{               SetOreColor - Sets the desired OreColors                  ||
\\------------------------------------------------------------------------//}

procedure SetOreColor;
begin
  case LowerCase(Players[CurrentPlayer].String1) of
    'copper'  :  OreColor1 := CopperColor;
    'tin'     :  OreColor1 := TinColor;
    'clay'    :  OreColor1 := ClayColor;
    'iron'    :  OreColor1 := IronColor;
    'silver'  :  OreColor1 := SilverColor;
    'coal'    :  OreColor1 := CoalColor;
    'gold'    :  OreColor1 := GoldColor;
    'mithril' :  OreColor1 := MithrilColor;
    'adamant' :  OreColor1 := AdamantColor;
    'runite'  :  OreColor1 := RuniteColor;
  end;
  case Lowercase(Players[CurrentPlayer].String2) of
    'copper'  :  OreColor2 := CopperColor;
    'tin'     :  OreColor2 := TinColor;
    'clay'    :  OreColor2 := ClayColor;
    'iron'    :  OreColor2 := IronColor;
    'silver'  :  OreColor2 := SilverColor;
    'coal'    :  OreColor2 := CoalColor;
    'gold'    :  OreColor2 := GoldColor;
    'mithril' :  OreColor2 := MithrilColor;
    'adamant' :  OreColor2 := AdamantColor;
    'runite'  :  OreColor2 := RuniteColor;
   end;
   case Lowercase(Players[CurrentPlayer].String3) of
    'copper'  :  OreColor3 := CopperColor;
    'tin'     :  OreColor3 := TinColor;
    'clay'    :  OreColor3 := ClayColor;
    'iron'    :  OreColor3 := IronColor;
    'silver'  :  OreColor3 := SilverColor;
    'coal'    :  OreColor3 := CoalColor;
    'gold'    :  OreColor3 := GoldColor;
    'mithril' :  OreColor3 := MithrilColor;
    'adamant' :  OreColor3 := AdamantColor;
    'runite'  :  OreColor3 := RuniteColor;
  end;
end;

//------------------------------------------------------------------------\\
{  SumFindPickHeadColor - Advanced FindPickHeadColor, finds the paxe      ||
\\------------------------------------------------------------------------//}

function SumFindPickHeadColor: Boolean;
var
  InvPAxe, WieldPAxe, Ix, Iy, Wx, Wy: integer;
  dtmPaxes: Array[1..6] of integer;
begin
  dtmPaxes[1] := DTMFromString('78DA637463646008664001068A0C0C5C401A2' +
       '8C3F01F0818C381AC40543536FE11703520C0E80B6479A0AAF149' +
       '2D405103000A07084F');  //Rune
  dtmPaxes[2] := DTMFromString('78DA631463646008634001068A0C0C5C401A2' +
       '8C3F01F08183580AC405435561E56703520C028076479A0AAF188' +
       'F142510300D923076A');  //Addy
  dtmPaxes[3] := DTMFromString('78DA637CCEC0C010C680020C141918B880342' +
       '310FF0702C69F404620AA1A73F300B81A10607C0F243C50D5B8BA' +
       'A7A3A8010086BD09E1');  //Mith
  dtmPaxes[4] := DTMFromString('78DA63DCC9C0C010CC80020C141918B880342' +
       '310FF0702C653404620AA9ACCA424B81A10603C00243C50D5B4D6' +
       'D4A0A801007D560A4B');  //Steel
  dtmPaxes[5] := DTMFromString('78DA63EC62606008654001068A0C0C5C409A1' +
       '188FF0301E36C202310558DBB93135C0D08304E04121EA86AA242' +
       '4250D400003C4908E3');  //Iron
  dtmPaxes[6] := DTMFromString('78DA638C62606008634001068A0C0C5C409A1' +
       '188FF0301630E901188AAC6D1480EAE0604189380843BAA1A3B2D' +
       '0614350000CD0781');    //Bronze
  GameTab(4);
  for InvPAxe := 1 to 7 do
  begin
    if(InvPAxe = 7)then Break;
    if(FindDtm(dtmPaxes[InvPAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
     Break;
  end;
  GameTab(5);
  for WieldPAxe := 1 to 7 do
  begin
    if(WieldPAxe = 7)then Break;
    if(FindDtm(dtmPaxes[WieldPAxe], Wx, Wy, MIX1, MIY1, MIX2, MIY2))then
      Break;
  end;

  if(InvPAxe = 7) and (WieldPAxe = 7)then begin Result := false; Exit; end;
  if((InvPAxe-WieldPAxe) < 0)then EquipPick := false else EquipPick := true;
  Result := true;
  if(EquipPick)then
  begin
    GameTab(5);
    hc1 := GetColor(585, 295);
    hc2 := GetColor(597, 297);
    hc3 := GetColor(594, 296);
    hc4 := GetColor(588, 295);
    hc5 := GetColor(582, 294);
  end else
  begin
    GameTab(4);
    if(Ix > 592) and (Iy > 238)then Drag(Ix, Iy, 5, 5, 579, 227, 5, 5, true);
    FindDtm(dtmPaxes[InvPAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2);
    hc1 := GetColor(587, 216);
    hc2 := GetColor(587, 219);
    hc3 := GetColor(592, 222);
    hc4 := GetColor(584, 216);
    hc5 := GetColor(577, 219);
  end;
  for WieldPAxe := 1 to 6 do
    FreeDtm(dtmPaxes[WieldPAxe]);
  WriteLn('Pick head colors... ' + IntToStr(hc1) + ' ' + IntToStr(hc2) + ' ' +
      IntToStr(hc3) + ' ' + IntToStr(hc4) + ' ' + IntToStr(hc5));
end;

//------------------------------------------------------------------------\\
{        FindFastRandoms - Finds basic randoms fast. By WT-Fakawi.        ||
\\------------------------------------------------------------------------//}

function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for I := 1 to 11 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 not MiningInDwarvenMine then
            begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
           end;

       9 : if RC then
             Result := True;

       10 : if FindFight then
              begin
                Result := True;
                RunTo(RunDir, RunFar);
              end;

       11: if FindTalk then
             Result := True;
    end;
    Wait(1);
  end;
end;

//------------------------------------------------------------------------\\
{            HandleGas - Handles the player when there is gas.            ||
\\------------------------------------------------------------------------//}

procedure HandleGas;
var
  TempMouseSpeed, GasTime: Integer;
begin
  Writeln('Gas found!');
  TempMouseSpeed := MouseSpeed;
  MouseSpeed := 5;
  Mouse(MMCX, MMCY, 5, 5, true);
  MarkTime(GasTime);
  MouseSpeed := TempMouseSpeed;
  while(TimeFromMark(GasTime) < 35000)do
    if(Random(20) > 15)then
      IdleTime(500, 500, 0.4)
    else
      Wait(1000);
  MarkTime(MineMax);
  GasAvoided := GasAvoided + 1;
  ReportVars[3] := ReportVars[3] + 1;
end;

//------------------------------------------------------------------------\\
{              FindNewOre - Finds new ores in the inventory.              ||
\\------------------------------------------------------------------------//}

function FindNewOre(InvSpot: Integer): Boolean;
begin
  Result := ExistsItem(InvSpot);
end;

//------------------------------------------------------------------------\\
{      FindColorsArray - Finds specified rock colors. Thnx to Lorax.      ||
\\------------------------------------------------------------------------//}

function FindColorsArray(Color, Tolerance, Step, MaxTol: Integer): TPointArray;
var
  Count, tx, ty: Integer;
begin
  while (not FindColorTolerance(tx, ty, Color, MSX1, MSY1, MSX2, MSY2, Tolerance + Count * Step))and
        (Count * Step <= MaxTol) do
    Count := Count + 1;
  FindColorsSpiralTolerance(MSCX, MSCY, Result, Color, MSX1, MSY1, MSX2, MSY2, Tolerance + Count * Step);
end;

//------------------------------------------------------------------------\\
{ getArrayFromBox - Splits above results in groups of size. Thnx to Lorax ||
\\------------------------------------------------------------------------//}

function getArrayFromBox(arColor: TPointArray; Width, Height, MinCount, Dist: Integer): TPointArray;
var
  Count, Count2, Count3, Count4, TempArrayLength: Integer;
  Average : TPoint;
begin
  Count2 := 1;
  TempArraylength := GetArrayLength(Result);
  SetArrayLength(Result, Count2);
  for Count := 1 to GetArrayLength(arColor) - 1 do
  begin
    if(arColor[Count].x < arColor[Count - 1].x + Width)and
      (arColor[Count].y < arColor[Count - 1].y + Height)and
      (arColor[Count].x > arColor[Count - 1].x - Width)and
      (arColor[Count].y > arColor[Count - 1].y - Height)and
      (Count < GetArrayLength(arColor)-1)then
    else
    begin
      Average.x := 0;
      Average.y := 0;
      for Count3 := Count4 to Count - 1 do
      begin
        Average.x := Average.x + arColor[Count3].x;
        Average.y := Average.y + arColor[Count3].y;
      end;

      if((Count3-Count4) > MinCount)then
      begin
        if(Distance(Average.x, Average.y, MSCX, MSCY) > Dist)then
        begin
          Average.x := Average.x / (Count3 - Count4);
          Average.y := Average.y / (Count3 - Count4);
          SetArrayLength(Result, Count2);
          Result[Count2 - 1].x := Average.x;
          Result[Count2 - 1].y := Average.y;
          Count2 := Count2 + 1;
        end;
      end;
    end;
    if(GetArrayLength(Result)>TempArrayLength)then
    begin
      TempArrayLength := GetArrayLength(Result);
      Count4 := Count;
    end;
  end;
end;

//------------------------------------------------------------------------\\
{          UpdateColor - Updates the coords of the rock. By Lorax.        ||
\\------------------------------------------------------------------------//}

function UpdateColor(var ax, ay: Integer; tColor: Integer): boolean;
var
  Checker: Integer;
begin
  Checker := GetSystemTime;
  while(FindColorSpiralTolerance(ax, ay, tColor, ax - 20, ay - 20, ax + 20, ay + 20, 10))and
       (TimeFromMark(Checker) < 10000)and
       (FlagPresent)do
    Wait(16);
  for Checker := 0 to 62 do
  begin
      FindColorSpiralTolerance(ax, ay, tColor, ax - 10, ay - 10, ax + 10, ay + 10, 10);
      Wait(16);
  end;

  Result := FindColorSpiralTolerance(ax, ay, tColor, ax - 10, ay - 10, ax + 10, ay + 10, 10);
end;

//------------------------------------------------------------------------\\
{                RockGone - Results true if the rock is gone.             ||
\\------------------------------------------------------------------------//}

function RockGone(Rx, Ry, Squarex, Squarey, Color, Tol: Integer): Boolean;
begin
  if not(UpdateColor(Rx, Ry, Color))then
  begin
    Result := True;
    Exit;
  end;
  Result := not(FindColorSpiralTolerance(x, y, Color, Rx - Squarex, Ry - Squarex, Rx + Squarex, Ry + Squarey, Tol));
end;

//------------------------------------------------------------------------\\
{          WaitWhileWorking - Waits while mining. Thnx to Lorax.          ||
\\------------------------------------------------------------------------//}

procedure WaitWhileWorking(Ax, Ay, InvSpot, MineMark: Integer);
begin
  while (LoggedIn) do
  begin
    if(NoPick)then
    begin
      if not(SumFindPickHeadColor)then
      begin
        PlayerLost('Player lost, no more paxes');
        NoPick := False;
        Exit;
      end;
    NoPick := False;
    end;
    if not(MineNewRocks)then
      if(RockGone(Ax, Ay, 10, 10, OreColor, TheOreTolerance))then
        Exit;
    Wait(10);
    if(GasCheck(Ax, Ay))then
    begin
      PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wav');
      HandleGas;
      DebugMe('We got gas while waiting');
      Exit;
    end;
    Wait(10);
    if(FindFastRandoms)then
    begin
      MarkTime(MineMax);
      DebugMe('Found a random while waiting');
      PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wav');
      Exit;
    end;
    Wait(50);
    if not(FindPick)then
    begin
      MarkTime(MineMax);
      PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wav');
      DebugMe('Something is wrong with our pickaxe.');
      Exit;
    end;
    if(TimeFromMark(MineMark) > MaxSecToWait * 1000)then
    begin
      DebugMe('Time ran out while waiting');
      Exit;
    end;
    if(FindFight)then
    begin
      PlaySound('C:\WINDOWS\Media\winAquariumCritStop.wav');
      RunTo(RunDir, True);
      DebugMe('We got into a fight');
      Exit;
    end;
    Wait(10);
    if(FindNewOre(InvSpot))then
      Exit;
    if(MMouseWhenWaiting)then
      if(Random(20)+1 > 15)then
        IdleTime(200 + Random(500), 500, 0.4);
  end;
end;

//------------------------------------------------------------------------\\
{              FindRock - Finds closest rocks on the screen.              ||
\\------------------------------------------------------------------------//}

function FindRock: Boolean;
var
  i: Integer;
begin
  for i := 1 to 3 do
  begin
    if(RandomlyChooseRock)then
    begin
      case(Random(2) + 1)of
        1 : OreColor := OreColor1;
        2 : OreColor := OreColor2;
        3 : OreColor := OreColor3;
      end;
    end
    else
      case I of
        1 : OreColor := OreColor1;
        2 : OreColor := OreColor2;
        3 : OreColor := OreColor3;
      end;
    arOreColor := FindColorsArray(OreColor, 4, 2, TheOreTolerance);
    arOreColorResults := getArrayFromBox(arOreColor, 20, 20, TheMinCount, 20);
    Result := (GetArrayLength(arOreColorResults) > 0);
    if(Result)then
      Exit;
  end
  DebugMe('Rock NOT found...');
end;

//------------------------------------------------------------------------\\
{   PowerMine - Main PowerMiner function. Combinds all mine procedures.   ||
\\------------------------------------------------------------------------//}

function PowerMine: Boolean;
var
  Mx, My, TempColor, InvSpot, MaxWait : Integer;
  FoundRock: Boolean;
begin
  if not(LoggedIn)then Exit;
  if(FindRock)then
  begin
    GameTab(4);
    for InvSpot := 1 to 28 do
      if not(ExistsItem(InvSpot))then
        Break;
    MarkTime(MaxWait);
    for I := 0 to GetArrayLength(arOreColorResults) - 1 do
    begin
      MMouse(arOreColorResults[I].x, arOreColorResults[I].y, 0, 0);
      if(IsUpText('Mine'))then
      begin
        FoundRock := True;
        Break;
      end;
      Wait(300);
      if(TimeFromMark(MaxWait) > 2000)then
        Exit;
    end;
    if not(FoundRock)then
      Exit;
    Result := True;
    GetMousePos(Mx, My);
    TempColor := GetColor(Mx, My);
    if not(GasCheck(Mx, My - 20))then
    begin
      if Random (20) < 19 Then Mouse(Mx, My, 0, 0, True)
      else
      begin
        Mouse(Mx, My, 0, 0, False);
        ChooseOption(x, y, 'Mine');
      end;
    end
    else
    begin
      HandleGas;
      Exit;
    end;
    MarkTime(MineMax);
    MarkTime(MaxWait);
    WaitWhileWorking(Mx, My, InvSpot, MineMax);
  end;
end;

//------------------------------------------------------------------------\\
{                 PlayersTime - Time to switch players ?                  ||
\\------------------------------------------------------------------------//}

procedure PlayersTime;
begin
  if not(LoggedIn)then
    Exit;
  if(LoadsDone >= TheLoads)then
  begin
    Writeln('Logging out player, loads done.');
    Players[CurrentPlayer].Loc := 'Done Mining';
    Logout;
  end;
end;

//------------------------------------------------------------------------\\
{             CheckVersion - Gets latest version if needed                ||
\\------------------------------------------------------------------------//}

procedure CheckVersion;
var
  TheFileNumber: Integer;
  CurrentVersion: Extended;
  TheScriptString, ScriptName, CurrentVersionString: string;
begin
  CurrentVersionString := GetPage('http://sumilionscripts.freehostia.com/SPMVersion.txt');
  CurrentVersion := StrToFloat(CurrentVersionString);
  if(CurrentVersion > StrToFloat(VersionNumber))then
  begin
    Writeln('Your current version is not the latest.');
    Writeln('Downloading new version, please wait...');
    TheScriptString := GetPage('http://sumilionscripts.freehostia.com/SPM.scar');
    ScriptName := 'SPM v' + CurrentVersionString + '.scar';
    TheFileNumber := ReWriteFile(ScriptPath + ScriptName, false);
    WriteFileString(TheFileNumber, TheScriptString);
    Writeln('Updated script can be found at :');
    Writeln(ScriptPath + ScriptName);
    TerminateScript;
  end;
end;

//------------------------------------------------------------------------\\
{          SetupClient - Makes SCAR ready to handle the script.           ||
\\------------------------------------------------------------------------//}

procedure SetupClient;
begin
  SetupSRL;
  SetupSRLMining;
  ScriptID := '12';
  LoadImages;
  CheckHPFirst := CheckForHealth;
  if(MineNewRocks)then
    TheMinCount := 2
  else
    TheMinCount := 0;
  RCMaster := PartOfRCName;
  Cleardebug;
  Signature;
  CheckVersion;
  DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
  if(UsePlayerForm)then
    StartPlayers(ShowPlayerForm, 'string1 string2 string3')
  else
    DeclarePlayers;
  CurrentPlayer := StartPlayer;
  ActivateClient;
  Wait(500+Random(1000));
end;

//------------------------------------------------------------------------\\
{          SetupUser - Makes Character ready to handle the script.        ||
\\------------------------------------------------------------------------//}

procedure SetupUser;
 begin
   LoginPlayer;
   SetOreColor;
   TheLoads := LoadsPerPlayer + Random(RandomLoads);
   LoadsDone := 0;
   MakeCompass('N');
   HighestAngle;
   if not SumFindPickHeadColor then
    begin
      Writeln('No Paxe found... logging out.');
      Logout;
      NextPlayer(false);
    end;
   Players[CurrentPlayer].Level[15] := GetSkillLevel('mining');
   Players[CurrentPlayer].Loc := 'Mining';
   SetRun(true);
   MarkTime(MineMax);
 end;

//------------------------------------------------------------------------\\
{                    Main line - Combinds all magic =].                   ||
\\------------------------------------------------------------------------//}

begin
  SetupClient;
  repeat;
    SetupUser;
    repeat;
      MarkTime(MaxMin);
      while(InvCount < 28)and
           (TimeFromMark(MaxMin) < MaxMinPerLoad * 1000 * 60)and
           (LoggedIn)do
      begin
        if(UseTimeOut)then
          if(TimeFromMark(MineMax) > 300000)then
            Break;
        Wait(20);
        PowerMine;
        Wait(20);
        if(FindNormalRandoms)then
          MarkTime(MineMax);
        MyAntiBan;
        Wait(20);
      end;
      if(UseTimeOut)then
        if(TimeFromMark(MineMax) > 300000)then
          PlayerLost('Player lost, timed out.');
      if(LoggedIn)then
      begin
        KeepUpStats;
        DropOres;
      end;
      ProgressReport;
      PlayerStatus := LoggedIn;
      PlayersTime;
    until not(LoggedIn);
    NextPlayer(PlayerStatus);
  until not(Players[CurrentPlayer].Active);
end.
    And I got this error -
    Line 57: [Error] (15389:12): Unknown identifier 'STRING1' in script C:\Documents and Settings\Kreks\Desktop\SPM v0.65\SPM v0.65.scar
     
    Kreks, Jan 3, 2008
    #1
  2. Nightmare0

    Nightmare0 Active Member

    Joined:
    Mar 31, 2007
    Posts:
    104
    Referrals:
    0
    Sythe Gold:
    0
    Need help with script
    I had to deal with the same error not too long ago, it just means that the script is outdated.

    Scar now recognizes String1 as : Strings[0] and String2 as : Strings[1] and so on.

    You can either replace all the outdated identifiers (which i tried and there were too many to find updated versions for), or get a new one.
     
    Nightmare0, Jan 3, 2008
    #2
  3. Kreks

    Kreks Guest

    Referrals:
    0
    Need help with script
    Ok, but why script sometimes mines many loads and then stops, sometimes only like 7 ores and then stops?
     
    Kreks, Jan 3, 2008
    #3
  4. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    Need help with script
    It's outdated.
     
    Town, Jan 3, 2008
    #4
< Error by scar | Sumilions Rimmington Miner noob help >


 
 
Adblock breaks this site