SRL Archive - RS3 Outdated / Broken Scripts

News Dude: The LevExidus producions have come a long way from its AutoTalkers to its AutoMiner. It was established by Jvwarrior who is also the one who scripted the scripts. Now we have Jvwarrior here for an exclusive interview. Jvwarrior?

Jvwarrior: Well hello news dude.

News Dude: So Jvwarrior tell us about the LevExidus Power Miner.

Jvwarrior: Well the Power Miner is my newest release and it includes Anti-Randoms, Anti-Ban, and ModScans. Some of the Randoms include FindMaze, FindMime, and much more! It has FindFastRandoms and FindNormalRandoms. I made this to allow the best Power Mining for the fellow people. It mines the ore that was specified and drops them all until you hold down the F10 key. Although there seems to be a problem with that it still works as long as its held down long enough.

News Dude: Seems like a very great script! Tune in next time for News Dude Interviews!

LOL ok that was basically a little something I thought would be pretty cool. As explained up top the LevExidus Power Miner is very suffisticated and has jsut about the best protection I'v ever seen. The instructions are included inside. Here is the script:

{   LevExidus AutoMiner        ]
[       By Jvwarrior           ]
[______________________________]
[      Instructions:           ]
[1. First find the ore you     ]
[   would like to mine.        ]
[   Then click on the color    ]
[   picker on your top bar.    ]
[   Use the color picker to get]
[   your ore color.            ]
[                              ]
[2. When you have the ore color]
[   copy and paste it into     ]
[   orecolor1 using ctrl+alt+c ]
[   to copy.                   ]
[                              ]
[3. Specifie the RS window     ]
[   using the Crosshairs on    ]
[   your top bar. Drag them to ]
[   the runescape screen.      ]
[                              ]
[4. Start the script. Watch as ]
[   SCAR automatically mines   ]
[   your ore for you.          ]
[      HAPPY CHEATING!         ]
[______________________________}
program Autominer;
{.Include SRL/SRL.Scar}

{!*================EDIT ORE COLOR!=================*!}
const
  orecolor1 = 2371663;
{!*=================OK YOUR GOOD===================*!}
{!*==============NOW EDIT YOUR PLAYER==============*!}

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

  Players[0].Name := 'Username'; //place your username here
  Players[0].Pass := 'Password'; //place your password here
  Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[0].Active := True;
end;
{!*================NO TOUCHING!====================*!}
var
  x, y: Integer;
  ModBMP, x, y: Integer;

procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
    '430307732774215C71481005743574354BDB84C43560911C1540F' +
    '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
    '000AB69B141');
end;

procedure Cred;
begin
  Writeln('LevExidus AutoMiner')
    Writeln('By Jvwarrior')
    Writeln('Enjoy The Script!')
end;

procedure StartMe;
begin
  Writeln('Starting')
    Writeln('J')
    Wait(200)
    Writeln('JV')
    Wait(200)
    Writeln('JVW')
    Wait(200)
    Writeln('JVWA')
    Wait(200)
    Writeln('JVWAR')
    Wait(200)
    Writeln('JVWARR')
    Wait(200)
    Writeln('JVWARRI')
    Wait(200)
    Writeln('JVWARRIO')
    Wait(200)
    Writeln('JVWARRIOR')
    Wait(200)
    Writeln('OWNZ THIS SCRIPT!')
end;

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    wait(2000);
    case Random(10) of
      6: typesend('Mining lvls?');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
end;

procedure DisableChats;
begin
  if (not (LoggedIn)) then
    Exit;
  SetChat('off', 1);
  SetChat('friends', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;

procedure Login;
begin
  if (not (LoggedIn)) then
    LoginPlayer;
end;

procedure ScanForMod;
begin
  if (findbitmap(ModBMP, x, y)) then
  begin
    writeln('OMG Mod!');
    TerminateScript;
  end;
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 FindTheRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Mining');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 + Random(3000));
    RunBack;
  end;
end;

procedure ABan;
begin
  if (not (LoggedIn)) then
    Exit;
  case Random(8) of
    0: RandomRClick;
    1: HoverSkill('Mining', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: begin
        GameTab(1 + Random(12));
        wait(2000 + Random(1000));
        GameTab(4);
      end;
  end;
end;

begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  Login;
  DisableChats;
  repeat
    LoadBMP;
    FindFastRandoms;
    FindTheRandoms;
    ScanForMod;
    ABan;
    Mining;
  until (IsFKeyDown(10));
end.

Please post any bugs and any way to improve this scipt.
I hope someone can fully test this for me. It compiles and works but I havnt had the time to test it long enough. The longest test time was probably 20 minutes.


EDIT: EDITED AND WORKS GREAT!
Download Below:

looks good

procedure ScanForMod;
begin
if (findbitmap(ModBMP, x, y)) then
begin
writeln('OMG Mod!');
TerminateScript;
end;
end;

but personally i would put logout and wait a while instead of terminate:)

Use scar tags… just like code tags only change code to scar…

Looks pretty good although I would add some Nextplayer(true) //true means last plays Activity will be true. Also add loads instead of until F 10…

Add

Const
load := 5; //number of loads till switch player.
TotalLoads:= 100; //loads of all players.

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    wait(2000);
    case Random(10) of
      6: typesend('Mining lvls?');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
Loads:= Loads +1;
end;

begin
  SetupSRL;
  ActivateClient;
  Loads:= 0;
  repeat
    DeclarePlayers;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    Login;
    DisableChats;
    repeat
      LoadBMP;
      FindFastRandoms;
      FindTheRandoms;
      ScanForMod;
      ABan;
      Mining;
    until (Load:= Loads);
    Nextplayer(true)
    TL:= Loads;
  until(TotalLoads:= TL;)
end.

Hope this helps,
~Stupedspam

Read comments:

program Autominer;
{.Include SRL/SRL.Scar}

{!*================EDIT ORE COLOR!=================*!}
const
  orecolor1 = 2371663;
{!*=================OK YOUR GOOD===================*!}
{!*==============NOW EDIT YOUR PLAYER==============*!}

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

  Players[0].Name := 'Username'; //place your username here
  Players[0].Pass := 'Password'; //place your password here
  Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[0].Active := True;
end;
{!*================NO TOUCHING!====================*!}
var
  x, y: Integer;

procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
    '430307732774215C71481005743574354BDB84C43560911C1540F' +
    '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
    '000AB69B141');
end;

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    wait(2000);
    case Random(10) of
      6: typesend('Mining lvls?');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
end;

procedure DisableChats;
begin
  if (not (LoggedIn)) then
    Exit;
  SetChat('off', 1);
  SetChat('friends', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;

procedure Login;
begin
  if (not (LoggedIn)) then
    LoginPlayer;
end;

procedure ScanForMod;
begin
  if (findbitmap(ModBMP, x, y)) then
  begin
    writeln('OMG Mod!');
    TerminateScript;
  end;
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 FindTheRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 + Random(3000));
    RunBack;
  end;
end;

procedure ABan;
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;

begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); //Unneeded
  Login;
  DisableChats;
  repeat
    LoadBMP; //Don't load the bitmap every time; it will make the script crash after a while.
    FindFastRandoms;
    FindTheRandoms;
    ScanForMod;
    ABan;
    Mining;
  until (IsFKeyDown(10))
end.

Learn & use multiplayer.

Not a bad script, keep working and you'll become a good scripter.

From: rockman
looks good



but personally i would put logout and wait a while instead of terminate:)

Yea what would the commands for that be? I'v seen it before but I just dont remember.

From: stupedspam
Use scar tags… just like code tags only change code to scar…

Looks pretty good although I would add some Nextplayer(true) //true means last plays Activity will be true. Also add loads instead of until F 10…

Add

Const
load := 5; //number of loads till switch player.
TotalLoads:= 100; //loads of all players.

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    wait(2000);
    case Random(10) of
      6: typesend('Mining lvls?');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
Loads:= Loads +1;
end;

begin
  SetupSRL;
  ActivateClient;
  Loads:= 0;
  repeat
    DeclarePlayers;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    Login;
    DisableChats;
    repeat
      LoadBMP;
      FindFastRandoms;
      FindTheRandoms;
      ScanForMod;
      ABan;
      Mining;
    until (Load:= Loads);
  Nextplayer(true)
  TL:= Loads;
  until(TotalLoads:= TL;)
end.

Hope this helps,
~Stupedspam

Thanx i think i get it but the Next player is not needed until i add multiple players right?

From: jvwarrior
Yea what would the commands for that be? I'v seen it before but I just dont remember.

Logout;
writeln('Mod found, waiting');
Wait(90000 + random(120000));
LoginPlayer;

Thanx i think i get it but the Next player is not needed until i add multiple players right?

But what if the user adds in extra players themselves?

oh

Thanx for the feedback SmatzKid and the advice.

Ok everyone this is what i got so far:

{   LevExidus AutoMiner V.2    ]
[       By Jvwarrior           ]
[______________________________]
[      Instructions:           ]
[1. First find the ore you     ]
[   would like to mine.        ]
[   Then click on the color    ]
[   picker on your top bar.    ]
[   Use the color picker to get]
[   your ore color.            ]
[                              ]
[2. When you have the ore color]
[   copy and paste it into     ]
[   orecolor1 using ctrl+alt+c ]
[   to copy.                   ]
[                              ]
[3. Specifie the RS window     ]
[   using the Crosshairs on    ]
[   your top bar. Drag them to ]
[   the runescape screen.      ]
[                              ]
[4. Start the script. Watch as ]
[   SCAR automatically mines   ]
[   your ore for you.          ]
[      HAPPY CHEATING!         ]
[______________________________}
program Autominer;
{.Include SRL/SRL.Scar}

{!*================EDIT ORE COLOR!=================*!}
const
  orecolor1 = 2371663;
  load:= 5; //number of loads
  TotalLoads:= 5;
{!*=================OK YOUR GOOD===================*!}
{!*==============NOW EDIT YOUR PLAYER==============*!}

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

  Players[0].Name := 'Username'; //place your username here
  Players[0].Pass := 'Password'; //place your password here
  Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[0].Active := True;
end;
{!*================NO TOUCHING!====================*!}
var
  x, y: Integer;

procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
    '430307732774215C71481005743574354BDB84C43560911C1540F' +
    '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
    '000AB69B141');
end;

procedure Cred;
begin
  Writeln('LevExidus AutoMiner')
    Writeln('By Jvwarrior')
    Writeln('Enjoy The Script!')
end;

procedure StartMe;
begin
  Writeln('Starting')
    Writeln('J')
    Wait(200)
    Writeln('JV')
    Wait(200)
    Writeln('JVW')
    Wait(200)
    Writeln('JVWA')
    Wait(200)
    Writeln('JVWAR')
    Wait(200)
    Writeln('JVWARR')
    Wait(200)
    Writeln('JVWARRI')
    Wait(200)
    Writeln('JVWARRIO')
    Wait(200)
    Writeln('JVWARRIOR')
    Wait(200)
    Writeln('OWNZ THIS SCRIPT!')
end;

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    wait(2000);
    case Random(10) of
      6: typesend('Mining lvls?');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
  Loads:= Loads +1;
end;

procedure DisableChats;
begin
  if (not (LoggedIn)) then
    Exit;
  SetChat('off', 1);
  SetChat('friends', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;

procedure Login;
begin
  if (not (LoggedIn)) then
    LoginPlayer;
end;

procedure ScanForMod;
begin
  if (findbitmap(ModBMP, x, y)) then
  begin
    writeln('OMG Mod!');
    TerminateScript;
  end;
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 FindTheRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 + Random(3000));
    RunBack;
  end;
end;

procedure ABan;
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;

begin
  SetupSRL;
  ActivateClient;
  Loads:= 0;
  repeat
    DeclarePlayers;
    Login;
    DisableChats;
      LoadBMP;
      repeat
      FindFastRandoms;
      FindTheRandoms;
      ScanForMod;
      ABan;
      Mining;
    until (Load:= Loads);
    Nextplayer(true)
    TL:= Loads;
  until(TotalLoads:= TL;)
end.

but it gives me this error:

Failed when compiling
Line 33: [Error] (14714:5): is ('=') expected in script C:\Program Files\SCAR 3.12\Scripts\LevExidus AutoMiner.scar

turns out line 33 is the

load:=5

part

Sorry I always put a : just take them out…

~Stupedspam

And umm smartzkid i think you do need

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

cause now it gives me an error about ModBMP. It gives:

Failed when compiling
Line 71: [Error] (14752:1): Unknown identifier 'ModBMP' in script C:\Program Files\SCAR 3.12\Scripts\LevExidus AutoMiner.scar

and when i have

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

it doesnt.. oh my bad it does. Well what now im extremely needy.

This is what I'v got so far but it still gives me the error above, what now?

{   LevExidus AutoMiner V.2    ]
[       By Jvwarrior           ]
[______________________________]
[      Instructions:           ]
[1. First find the ore you     ]
[   would like to mine.        ]
[   Then click on the color    ]
[   picker on your top bar.    ]
[   Use the color picker to get]
[   your ore color.            ]
[                              ]
[2. When you have the ore color]
[   copy and paste it into     ]
[   orecolor1 using ctrl+alt+c ]
[   to copy.                   ]
[                              ]
[3. Specifie the RS window     ]
[   using the Crosshairs on    ]
[   your top bar. Drag them to ]
[   the runescape screen.      ]
[                              ]
[4. Start the script. Watch as ]
[   SCAR automatically mines   ]
[   your ore for you.          ]
[      HAPPY CHEATING!         ]
[______________________________}
program Autominer;
{.Include SRL/SRL.Scar}

{!*================EDIT ORE COLOR!=================*!}
const
  orecolor1 = 2371663;
  load= 5; //number of loads
  TotalLoads= 25;//All the loads between players
{!*=================OK YOUR GOOD===================*!}
{!*==============NOW EDIT YOUR PLAYER==============*!}

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

  Players[0].Name := 'Username'; //place your username here
  Players[0].Pass := 'Password'; //place your password here
  Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[0].Active := True;
  Players[1].Name := 'Username'; //place your username here
  Players[1].Pass := 'Password'; //place your password here
  Players[1].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[1].Active := True;
  Players[2].Name := 'Username'; //place your username here
  Players[2].Pass := 'Password'; //place your password here
  Players[2].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[2].Active := True;
  Players[3].Name := 'Username'; //place your username here
  Players[3].Pass := 'Password'; //place your password here
  Players[3].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[3].Active := True;
  Players[4].Name := 'Username'; //place your username here
  Players[4].Pass := 'Password'; //place your password here
  Players[4].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[4].Active := True;
end;
{!*================NO TOUCHING!====================*!}
var
  x, y: Integer;

procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
    '430307732774215C71481005743574354BDB84C43560911C1540F' +
    '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
    '000AB69B141');
end;

procedure Cred;
begin
  Writeln('LevExidus AutoMiner')
    Writeln('By Jvwarrior')
    Writeln('Enjoy The Script!')
end;

procedure StartMe;
begin
  Writeln('Starting')
    Writeln('J')
    Wait(200)
    Writeln('JV')
    Wait(200)
    Writeln('JVW')
    Wait(200)
    Writeln('JVWA')
    Wait(200)
    Writeln('JVWAR')
    Wait(200)
    Writeln('JVWARR')
    Wait(200)
    Writeln('JVWARRI')
    Wait(200)
    Writeln('JVWARRIO')
    Wait(200)
    Writeln('JVWARRIOR')
    Wait(200)
    Writeln('OWNZ THIS SCRIPT!')
end;

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    wait(2000);
    case Random(10) of
      6: typesend('Mining lvls?');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
  Loads:= Loads +1;
end;

procedure DisableChats;
begin
  if (not (LoggedIn)) then
    Exit;
  SetChat('off', 1);
  SetChat('friends', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;

procedure Login;
begin
  if (not (LoggedIn)) then
    LoginPlayer;
end;

procedure ScanForMod;
begin
  if (findbitmap(ModBMP, x, y)) then
  begin
    writeln('OMG Mod!');
    Logout;
    Writeln('Mod Found Ettempting to Evade');
    Wait(90000 + random(100000));
    LoginPlayer;
  end;
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 FindTheRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 + Random(3000));
    RunBack;
  end;
end;

procedure ABan;
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;

begin
  SetupSRL;
  ActivateClient;
  Cred;
  StartMe;
  Loads:= 0;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  LoadBMP;
  repeat
    DeclarePlayers;
    Login;
    DisableChats;
      repeat
      FindFastRandoms;
      FindTheRandoms;
      ScanForMod;
      ABan;
      Mining;
    until (Load:= Loads);
    Nextplayer(true)
    TL:= Loads;
  until(TotalLoads:= TL;)
end.

well thats not all of it i still have to add more credits.

From: jvwarrior
This is what I'v got so far but it still gives me the error above, what now?

{!*================NO TOUCHING!====================*!}
var
  ModBMP, x, y: Integer; // Add "ModBMP" to the variable :p
 
procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
    '430307732774215C71481005743574354BDB84C43560911C1540F' +
    '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
    '000AB69B141');
end;

umm it doesnt work it says duplicae identifier in script and it says that about the line you told me for the variable

EDIT: nevermind my fault thanx

Yes, it's because it's global variable, just change all modbmp to something else, example : modbmpp , and it works great… anyways nice start, but should be posted in first script section

edit:

EDIT: nevermind my fault thanx

oops!

its ok and umm why would this be in first script? This was my 7th script apart from my autotalkers.