SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
extreme300 - SRL Member Application Form
extreme300

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
none

Other Communitys
MoparIsTheBest.com

How Long have You Played Runescape
5 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I've been using scar for two to three years. I started out leeching but then I decided to start making my own. I started by writing an autotalker which i used for a while and released some time ago. I have just recently completed my AutoFighter which is what i am posting for you today.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{=========================================================================]
[                   Extreme300's AutoFighter                              ]
[                                                                         ]
[                                                                         ]
[           WRITER      : Extreme300                                      ]
[           CATEGORY    : Fighter                                         ]
[           DESCRIPTION : Automaticaly mights monsters                    ]
[           USAGE       : To fight monsters automaticaly                  ]
[           AUTOCOLOR   : No                                              ]
[           CONTACT     : [email]pizza_boy80@hotmail.com[/email]                         ]
[                                                                         ]
[                                                                         ]
[=========================================================================]
[         This is a empty Template for a Collecting Script                ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                          ]
[ 2. Set your Screen to 32 bit TRUE color.                                ]
[ 3. Complete The Setup                                                   ]
[ 4. SET HOWMANYPLAYERS inside DeclarePlayers                             ]
[ 5. Start script Logged Out!                                             ]
[=========================================================================}

program Extreme300sAutoFighter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}

Const
////////////SetUp\\\\\\\\\\\\\\\\\\\\\\\

Color1 = 0;//First colour of the monster
Color2 = 0;//Second colour of the monster
Color3 = 0;//Third colour of the monster
MonsterName = '';//The name of the monster

EatFood = false;//True to eat food, False to not eat food
EatHp = 0;//How low you Hp will get before you eat
FoodColor = 0;//Colour of the food
FoodName = '';//Name of the food

NumToKill = 0;//Number of monsters attacked before switching

FightType = 0;//use number 1-4

//Dont Touch this\\
var MonstersKilled: Integer;
///////////////////

///Setup Continued\\\

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

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'Nickname';
  Players[0].Active := True;

  Players[1].Name := 'Username';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'Nickname';
  Players[1].Active := False;

  Players[2].Name := 'Username';
  Players[2].Pass := 'Password';
  Players[2].Nick := 'Nickname';
  Players[2].Active := False;

  Players[3].Name := 'Username';
  Players[3].Pass := 'Password';
  Players[3].Nick := 'Nickname';
  Players[3].Active := False;

  Players[4].Name := 'Username';
  Players[4].Pass := 'Password';
  Players[4].Nick := 'Nickname';
  Players[4].Active := False;

  Players[5].Name := 'Username';
  Players[5].Pass := 'Password';
  Players[5].Nick := 'Nickname';
  Players[5].Active := False;

/////////End of Setup\\\\\\\\\\\\\\\\\\\

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

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

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

procedure ChangePlayer;
begin
  wait(1000+random(1000));
  NextPlayer(True);
end;

procedure lAntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(10) of
    0: PickUpMouse;

    1: begin
         HoverSkill('Attack', false);
         wait(2000+random(1000));
         GameTab(4);
       end;

    2: begin
         HoverSkill('Strength', false);
         wait(2000+random(1000));
         GameTab(4);
       end;

    3: begin
         HoverSkill('Defence', false);
         wait(2000+random(1000));
         GameTab(4);
       end;

    4: begin
         GameTab(1 + Random(12));
         wait(1000+random(1000));
         GameTab(4);
       end;

    5: MouseBox(MSX1,MMY1,MMX2,MMY2,3);

    6: PickUpMouse;

    7: begin
         mouse(816,175,1,1,true);
         mouse(667,276,6,6,false);
       end;

    8: begin
         KeyDown(VK_LEFT);
         wait(500+random(700));
         KeyUp(VK_LEFT);
       end;

    9: wait(500);

  end;
end;

procedure ProggyReport;
begin
  Writeln('|<><><><><><><><><><><><><><><><><><>|');
  Writeln('       Extreme300s AutoFighter');
  Writeln('');
  Writeln(' Worked For : ' + ScriptTime2(2))
  Writeln(' Killed '+ IntToStr(MonstersKilled) + ' Monsters');
  Writeln('');
  Writeln('|<><><><><><><><><><><><><><><><><><>|');
end;

procedure FightleMonster;
var Tries: Integer;
begin
  if(not(LoggedIn))then
  Exit else
  repeat
    begin
      FindRandoms;
      wait(100+random(100));
      Tries := Tries + 1;
      wait(2500+random(1000));
      KAttackMonster(Color1,Color2,Color3,5,MonsterName);
      lAntiBan;
      KeyDown(VK_LEFT);
      wait(250+random(750));
      KeyUp(VK_LEFT);
    end;
    if(InFight = True) then
    begin
      MonstersKilled:= MonstersKilled+1;
    end;
    if(EatFood = True) and (InFight = True)then
    begin
      repeat
      RealEatIfNeeded(FoodColor, EatHp, True);
      FindRandoms;
      until(InFight = False)
    end else
    repeat
      wait(500+random(500));
    until(Infight = False);
    MonstersKilled:= MonstersKilled+1;
  until(InFight = False);
end;

procedure SetupScript;
begin
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
end;

begin
  SetupScript;
  repeat
    SetFightMode(FightType);
    repeat
      FindRandoms;
      ClearDebug;
      ProggyReport;
      Wait(1000+random(250));
      FightleMonster;
    until(MonstersKilled = NumToKill)
    ProggyReport;
    ChangePlayer;
  until(false);
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Hmm…sorry but this script is too simple. It's a no from me, unless you can improve in a short amount of time.

No from me too, very simple..what's up with your #7 in your antiban case?

You still have some more learning to do..but you are on the right track!

Try making something where you can showcase your skills a little more, like a powerminer or a powerchopper.

I was thinking the same about AntiBan. He has a wait(500); in number 9.

I think with number 7 he tried something like MouseBox but ended up doing 2 movements to 2 different co-ordinates.

Which is extremely suspicious

If the script runs long enough to have that part of AntiBan repeated.

It's a good script, but it is very simple. If you really look at it, only one of the methods was reeally yours. (The fighting one).

Now, if it really was you who made this, then don't be discoraged. Its a good script and it demonstrates a few things that you will need. If you want to become a member, you should read a few tutorials on what is required, I don't think you demonstrated them all very well.

It is possible that you already know what it takes to be a member, just spend a little bit more time, (mabey expand this script) and make a script thats is a bit more complex and .. stable too.

Good luck.