[SRl] MyUberMultiFighter(MAGE/MELEE/RANGE)

Here is my Huber script
please post any questions and proggies abuse as much as u can so legit players cant train combat

FIXED SRL CHECK IT CHECKED FOR 3.82 INSTEAD 3.81...
REPORT IF STILL LOGGING OUT AFTER 1 MIN SHOULD NOW BE FIXED

NOW AUTO COLORS ARROWS

Code:

{             ÜÜÛÛÛÛÛÛÛ²ÜÜÜÜ
            ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²ÜÜÜ
          ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛßÛÛÛÛÜÜ
        ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜÛÛÛÛÛÛÛÛÜ
      ±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛßÛÛÛÛÛÛÛÛÛÛÛÛÜ
     ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜ
   ±ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß    ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜ
   ²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ       ±ß²ÛÛÛÛÛÛÛÛÛÛÛÛÛÜ
  ²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ±          ÛÛÛÛÛÛÛÛÛ ßÛÛÛÛ
 ²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²            ÛÛÛÛÛÛÛÛ² ²ÛÛÛ
 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ±            ÛÛÛß²ÛÛÛ  ßÛ
 ÛÛÛÛÛÛÛÛßÛÛÛÛÛÛÛ²  ßÛ        Û±   ÛÛ  ²ÛÛ  ßÜßßßÜÜÜÜ
 ÛÛÛÛÛÛÛ² ßÛÛÛÛÛÛÛÜ   ß      ±Ûß   ±ß   ÛÛ     ÛßÜÜÜ ßßÜÜ
 ²ÛÛÛÛÛÛÛÛ ßÛÛÛÛÜßÛÜ       ÜÜÛßß       °ß       Û  °ßßÜܲßßÜÜ
  ÛÛÛÛÛÛÛÛ²  ßÛÛÛÜÜß    ßßßÛßßß                Û° °±°  °ßßÜ ²ßÜÜ
   ßÛÛßÛÛÛÛÛÜÜ  ßßßßßÜÛ±                °     Üß °°°°±°±°°°ßßÜ ²ßÜ
    ßÛÛ ßÛßÛÛÛßß   ÜÛÛ ß±          Ü°         Û°°°°±±±±±²°±°° ßÜ ²ßÜ
       ßÜÜßÜ  ßßÛßßÛß   ßÜÜÜß     ²ÛÛ     Ü  Üß ±°±±±°°±±±°±°° °ßÜ ²Û
          ßßÛÛÜ ß  ß    ß        ÜÛÛß   °Û  Üß °±±°±±±°°±±°°±±°±° ßܲßÜ
               ßÜ            ÜÜÛÛÛß     Üß Üß °±²±°°±±±±°±±±°°°²°°±ßÜ ²Û
           ÜÜßßß ßÜ     Ü ÜÛßßß        Üß Üß°°±±°±±±±±±°°±±°°±±±°°°±²Û ²ßÜ
        ÜßÛ       ßßÜ                Üß Üß °±±±°°°±±±±±±±±°±±±°°±°° ±²Û  ßÜ
       Üß         ÜÜÜÛÜÜ          ÜÜß ÜÜß °°±°±°±±±±±±±±°±±±°°±±±±°° ±ßÜ ²ßÜ
       Û       Üßß±   °±ÛßßÜÜÜÜßßß ÜÜß  °°°±±±°±°±±±±±±±±±°±±°°±²°°  °²Û ° ßÜ
       ßÜ     Ûß°   ±Üßß ±°° °±° ßß° °°°±±±°°±±±±±±±±±±±°±±±°±±±°°Üß ÜÛß °° ßÜ
         Û   Û±°  ±Üß °°±±±±±±±±²°±°°±±±°°±±±±±±±±±±°±±±°±±°±°°°Üß Üß° °°±°°²Û
      °   ßßÜß   ±²Û°°°±±±±°±±±°°±±±±±±±±±±±±±±±±±±±±±±°±±°±±°Üß Üß °°°±±°±° ßÜ
     Ü      Û±° ±±Û °°²±±±±±±±°±±±±±±±±±±±±±±±±±°±±°±°° °±°ÜßßÜÜß° °°±±°±±±°°²Û
   ±ÛÛÛÜ     ßÜ °²Û°°°±±±±±±±°°±±°±±±±±±±±±°°±±±±°±±°±°ÜÜßßÜßß ° °°±±±°±±±±±° Û
  ±ÛÛÛÛÛÛÛÜ    ßßÜÛ° °±±±±±±±±°°±±±±±±±±°±±±±±°°±°ÜÜÜßßÜÜßß° °°±°±°±±±±±±±°±°²Û
   ²ÛÛÛÛÛÛÛÛÜÜ    ßßܱ° ±²°°±±±°°±±°±±°±±°±°ÜÜÜÜßßÜÜßßß°    Ü °°±±±°±±±±±±±°°²Û
    ßÛÛÛÛ²ÛÛÛÛÛÛÜÜ   ßßßÜÜÜÜܱ° °±±±° °±ßßÛÛÜÜÜßßß°   ÜÜÛÛÛÛ°  °°±°±°±±±±±°° Üß
          ßßÛÛÛÛÛÛÜÜÜÜ
            ßßÛÛÛÛÛÛß   Scripter : Djarn0/Mx1ooo
          Ü  ²ÛÛÛÛÛß   ScriptÄ: MyUberMutliFighter
          ÛÛ ÛÛÛÛÛß   VersionÄ: 4.0
         ±ÛÛ ÛÛÛÛÛ   GenreÄÄÄ: Fighting
        ±²ÛÛ  ÛÛÛ²   Cre.date: 2oo7
        ²ÛÛÛÛ ²ÛÛ±   Rel.date: Sunday,July 4,2oo7
        ±ÛÛÛÛ  ßÛ    DelphiÄÄ: Srl
         ²ÛÛÛÛÜ  ÛÜ
          ²ÛÛÛÛÜ  Û   RipperÄÄ: All Leeches On Sythe/Moparisthebest/srl-Forums
          ±ÛÛÛÛÛÛÜ    QualityÄ: The Best There Is
           ²ÛÛÛÛÛÛÜ   SizeÄÄÄÄ: 0,0222 MB
        ÜÜÛÛÛÛÛÛÛÛÛß
                                                ÜÜÜÛÛÛÛ²ÜÜ
                                         ÜܲÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜ
                                   ÜܲÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²
   ÛÜ                        ÜܲÛÛÛÛÛÛÛÛÛÛÛßßß       ßßß²ÛÛÛÛÛÜ           Ü
  ±²ÛÛÜ                    ÜÛÛÛÛÛÛÛÛßßßß                 ßßÛÛÛÛÛÛ²ÜÜÜÜܲÛÛß
  ±²ÛÛÛÛÛÜ               ²ÛÛÛÛÛÛß        .S C R I P T.     ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²
   ±²ÛÛÛÛÛÛÛ²Ü        ÜÛÛÛÛÛÛÛ²            .I N F O.ß²ÛÛÛÛ²      ÛÛÛÛÛÛÛÛÛÛÛÛ²±
    ±²ÛÛÛÛÛÛÛÛÛÛÛÛ²ÜÛÛÛÛÛÛÛÛÛ        Added Spec Attack Func          ßßß±
      ßÛÛÛÛÛÛßÛÛÛÛÛÛÛÛÛÛÛ²ß          Check If Out Of Runes Func      ÛÛÛ²±
     ±²ÛÛÛÛÛß    ßßßßßß              Equip Arrows Func              ÛÛß
  °    ±ÛÛÛ²                         Power Range Func            ²ÛÛ±
     ±²ÛÛ²                           Eat Func                       °Û²±
   °   ±ÛÛÛ                          Item Pickup Func              ²ÛÛ±
      ±²ÛÛÛÛÛÜÜ  ÜÜÜÛÜÜÜÜÜ           Arrow Pickup Func              ÛÛÛÛ²±
     ±²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜ        Full Regual Magic Support ÜÜÜÜÛÛÛÛÛ²±
      ÜÛÛÛÛÛÛßßß    ßßßßÛÛÛÛÛÛÛÜ     Full Melee Support      ܲÛÛÛÛÛÛÛÛÛÛÛÜ
    ±²ÛÛÛßß              ß²ÛÛÛÛÛÛ²ÜÜÜ                     ÜÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²
      ²Ûß                    ßßÛÛÛÛÛÛÛÛÛÛÛ²ÜÜÜÜ      ÜÜÜÛÛÛÛÛÛÛßß        ßÛ
                               ßßß²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²
                                          ßß²ÛÛÛÛÛÛÛÛÛÛ²ßß               °



 ÜÜÛßßßß   ÜÜÜÜÛÛÛÛÛÛÛÛÛÛ²ÜÜ                                      °
    Ü ÜÜÛÛÛÛ²ßßßßßßß ßßÛÛÛÛÛÛÛÜÜ              °
                  ÜÜÜ   ßßÛÛÛÛÛÛÛÛ²ÜÜÜÜ                 ÜܲÛÛÜÜÜÜÜ
             ÜܲÛÛÛÛÛÛÜÜ   ßßÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²ÜÜÜÜ  ÜÜÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²Ü Ü
          ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜ   ßßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²ßßßßßß
        ܲÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜÜ   ßßßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛßß
      ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜÜ    ßßßß²ÛÛÛÛÛÛÛÛÛ²ß        ÜÛÛÛÛÛÛÛÛÛÜ
    ±²ÛÛÛÛÛÛÛÛÛÛ²ßßßßß²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜÜ     ßßßßß         ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   ±ÛÛÛÛÛÛÛÛÛß           ßßßß²ÛÛÛÛÛÛÛÛÛÛÛÛÛÜÜÜ          ÜÜÜÛÛÛÛÛÛÛß   ßßÛÛÛÛÛ±
  ±²ÛÛÛÛÛÛ²±                     ßßß²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß±       ±ÛÛÛÛ²±
  ²ÛÛÛÛÛÛ±                             ßßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²ßß            ²ÛÛÛ±
 ±ÛÛÛÛÛß                                     ßßßßßßßßßß                ÜÛÛß
 ±ÛÛÛÛß                                                              ÜÛß
  ÛÛÛß                                                              ÜÛß
  ÛÛß                                                              Üß

//****************************************************************************//

!!!!!!! IF USE MAGIC MAKE SURE U SETTED PLAYER SKILL PROPER !!!!!!!
WORKS GERMAN SERVER TOO
SRL DOES NOT SUPPURT GERMAN SERVER
my first proper scar script
greetz djarn0/mx1000
edited dawuautofighter/chicken fighter
edit ftfawakiegardfighter

//****************************************************************************//

Updates:
Added Check If You Have Right SRL Version
Added Perfect Right Clicking for items and fighting!
Lumbridge detect function ty SantaClause
Added level up check :D
Added NextPlayer When Attacked Npc's You Want
Added Auto Color
Added NextPlayer After Hp 2 Logout
Disquise scar as redtube.com title :D
Added German Or English Right Click Option
Added RightClickOption
Added Simple Mouse Speed Option
Added AutoRetaliate Check
Added special attack function
Added Check funtion if we are out of runes or not
Added EquipArrow Function
Added powerrange function
Added some fawki style anti-ban (copy past srr :( )
Added eat function.
Made hp check random need little help tough
Added Skill Exp Check Random, More Anti Ban , from dawufighter 1.4...
Added Full Melee support
Added Random Food Check
Added Item Pickup.
Made Script overview easier!
}

//****************************************************************************//

program MyUberMultiFighter;
        {.include SRL\SRL.SCAR}
        {.include SRL\SRL\skill\Fighting.scar}

//****************************************************************************//

var
  SST1, SST2, ArrowColor, ArrowTip, MaxTolerance, FindNorMalRandomsTime,
  EAWS:integer; EFP:integer; FindFastRandomsTime: LongInt; IPSF:integer;
  LVLSG:integer;

//****************************************************************************//
                 {SETUP UNTIL LINE 223 PLEASE SETUP PROPER}
Const

  MSpeed      = 4;         // MouseSpeed ? 1 Uber Fast 3/4 tha best 15 u slowpoke :)
  HowManyAtt  = 100;       // Homany Npc To Attack Until Next Player?
  SpecAttack  = True;     // True , Or False (Random Depends On W2CHP)
  IntGerServ  = 'ake';    // ehm german server, ake international server.
  RightClick  = False;     // Right Click Or Not?
  Server      = 'ttack';   // Angreifen or Attack (-A) For Right Click
  S3rver      = 'ancel';   // Cancel or ?

//****************************************************************************//

Const

  Pickarrows  = False;   // True pickup False powerange, false for melee also
  Equiparrow  = False;   // Equip arrows or you got ava accumulator?
  ArrowName   = 'rrow';  // First letter off the metal  example, Bronze= ronze NOTE if rrow it picks ALL arrows :)
  ArrowTol    = 3;       // Arrow Tolerance?

//****************************************************************************//

Const

  MFM  =  'NoDefenseExp';  // DefenseExp or NoDefenseExp
  S2C  =  '4';             // Spell Too AutoCast
// '1' = Wind Strike, '2' = Water Strike, '3' = Earth Strike, '4' = Fire Strike,
// '5' = Wind Bolt,   '6' = Water Bolt,   '7' = Earth Bolt,   '8' = Fire Bolt,
// '9' = Wind Blast,  '10'= Water Blast,  '11'= Earth Blast,  '12'= Fire Blast,
// '13'= Wind Wave,   '14'= Water Wave,   '15'= Earth Wave,   '16'= Fire Wave.

//****************************************************************************//

Const

  Itempickup  = True;    // Want To pickup items?
  Itemcolor   = 1413297; // Color of the item
  ItemName    = 'oins';    // Item Name i prefer all runes :)

//****************************************************************************//

Const
     //   You want too be sure? Lets eat then! //
  UseFood = True;         // True or false
  W2CHP   = 20;            // 10 or higher, 10 does anti ban after every npc
  HTSE    = 30;           // Hp To Start Eating?
  HTRF    = 47;           // Hp To Resume Fighting?
  FC      = 1798355;      // Color food 2 dif colors
  FC2     = 1599941;      // Is Possible To Use 2 Different Food
  H2L     = 10;           // Hp To Logout
  NPT     = False;        // Next player after H2L ?

//****************************************************************************//

Const
     //   COLOR OF YOURE DESIRED NPC AND NAME  //
  ColTolNpc  = 3;        // Color Tolerance Npc
  NPCTimeOut = 2000;      // milliseconds before clicking on next NPC.
  UseTimer   = False;     // Use The Timer Or Wait Till Npc = Dead or u 1 hit k0
  NpcName    = 'vel-2';    // Name of npc whitout capital first letter
  Color1     = 2840954;
  Color2     = 5466491;
  Color3     = 3171978;
  Color4     = 5862531;
  Color5     = 1586242;
  Color6     = 4815774;
                                                                                                                                                                                                                                                                                                                                                                                                                                                version = '4.0';
//****************************************************************************//
      {Setup This To And Be Sure Of Youre Nick For Full Random Support}
Procedure DeclarePlayers;

begin

  HowManyPlayers    :=   1;          // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
  CurrentPlayer:=0;

  Players[0].Name   :='';
  Players[0].Pass   :='';
  Players[0].Nick   :='';
  Players[0].Skill  :='Strength'; // Valid: 'Accurate', 'Rapid' , 'Longrange' , 'Attack' , 'Strength' , Defence, 'Magic'
  Players[0].Active :=True;

{  Players[1].Name   :='0';
  Players[1].Pass   :='0';
  Players[1].Nick   :='';
  Players[1].Skill  :='Rapid'; // Valid: 'Accurate', 'Rapid' , 'Longrange' , 'Attack' , 'Strength' , Defence, 'Magic'
  Players[1].Active :=True;  }

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  if (HowManyPlayers = 1) then
    begin
     writeln('        '+inttostr(HowManyPlayers)+' Player');
    end;
  if (HowManyPlayers >= 2) then
    begin
     writeln('        '+inttostr(HowManyPlayers)+' Players');
    end;
end;

//****************************************************************************//

procedure CheckForLevel;
  begin
    repeat
    if FindText(x, y, 'continue', npcchars, mcx1, mcy1, mcx2, mcy2) then
      begin
        FindText(x, y, 'lick', npcchars, mcx1, mcy1, mcx2, mcy2);
        Mouse(x, y, 100, 12, true);
        LVLSG := LVLSG+1;
      end;
    Wait(500+random(250));
    if (not(LoggedIn)) then Exit;
    until(not FindText(x, y, 'continue', npcchars, mcx1, mcy1, mcx2, mcy2));
  end;

//****************************************************************************//

Function FindFastRandoms: Boolean;
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';
             writeln('Logged out "NoGameTab"');
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             writeln('Logged out "InBlack"');
             Logout;
             Exit;
           end;
         end;
    end;
    wait(1);
  end;
end;

//****************************************************************************//

Function DetectLumby : Boolean;
var rx, ry : Integer;
 begin //TY for helping SantaClause i modifiy tough
  Result :=  (GetSymbolColor(rx, ry, 'water source') > 0) and
             (GetSymbolColor(rx, ry, 'guide') > 0);
  if not result then
    begin
        // NextPlayer(False);
         status('Not Yet Lumbridge');
    end;
end;

//****************************************************************************//

procedure W2L;
begin
     If (GetHp <= H2L) Then
        begin;
              Logout;
              if (NPT = true) then
              begin
                   Writeln('Logged We Have 2 Low Hp');
                   NextPlayer(True);
                   LoginPlayer;
              end;
              if (NPT = false) then
              begin
              exit;
             terminatescript;
         end;
     End;
End;

//****************************************************************************//

function Aquiparrow:boolean;
         begin
             if (Equiparrow = True) then begin
                 Gametab(4);
             if FindColorSpiralTolerance(x,y,Arrowcolor,569, 211,739, 306,2)then Begin
                      x:= x+random(15);
                      y:= y-random(20);
                       MMouse(x,y,3,3);
          if IsUpTextMulti('Wi','iel','eld')then Begin
            getmousepos(x,y)
            Mouse(x,y,1,1,true)
            EAWS := EAWS+1;
           wait(250+random(250))
           FindFastRandoms;
          end;
       end;
   end;
end;

//****************************************************************************//

Procedure Heal;
   begin
   W2L;
   If (UseFood = True) Then
    begin;
    WriteLn('See If We Need Food.');
     If (GetHp <= HTSE) Then
      begin;
       repeat;
        WriteLn('Attemting too eat');
        GameTab(4);
        If (GameTab(4)) Then
         begin;
          If (FindColorTolerance(x, y, FC, MIX1, MIY1, MIX2, MIY2, 3)or
              FindColorTolerance(x, y, FC2, MIX1, MIY1, MIX2, MIY2, 3)) Then
               begin;
                MMouse(x, y, 2, 3);
                If (IsUpText('Eat')) Then
                 begin;
                  MMouse(x, y, 2, 3);
                  Mouse(x, y, 2, 3, True);
                  EFP:=EFP+1;
                 end;
                 end;
                end else;
              begin;
             GameTab(4);
            end;
          until(GetHp >= HTRF);
        end;
       end;
      end;

//****************************************************************************//

procedure SkillCheck;
begin

 if(Players[0].Skill = 'Rapid') then begin
   HoverSkill('Range',false);
 end;

 if(Players[0].Skill = 'Accurate') then begin
   HoverSkill('Range',false);
 end;

 if(Players[0].Skill = 'Longrange') then begin
   HoverSkill('Range',false);
   end;

 if(Players[0].Skill = 'Attack') then begin
   HoverSkill('Attack',false);
   end;

 if(Players[0].Skill = 'Strength') then begin
   HoverSkill('Strength',false);
   end;

 if(Players[0].Skill = 'Defence') then begin
   HoverSkill('Defence',false);
   end;

 if(Players[0].Skill = 'Magic') then begin
   HoverSkill('Magic',false);
   end;

end;

//****************************************************************************//

function Arrowpickup: boolean;
  begin
  if (Pickarrows = True) then
  begin
     wait(500+random(200));
      if (FindColorTolerance(x, y, ArrowColor, MSX1, MSY1, MSX2, MSY2,ArrowTol)) then
       begin
       repeat
             mouse(x,y,3,2,false);
             wait(10+random(5));
             ChooseOption(x, y, arrowname);
             if not (ChooseOption(x, y, arrowname)) then begin
              ChooseOption(x, y, s3rver);
             end;
             FFlag(2);
             wait(500+random(247));
     until(not (FindColorTolerance(x, y, ArrowColor, MSX1, MSY1, MSX2, MSY2,ArrowTol)));
     end;
   FindFastRandoms;
  end;
end;


//****************************************************************************//

procedure SpecialAttack;
begin
     if (SpecAttack = True) then
     begin
         GameTab(1);
           mouse(650,415,5,5,true)
            Wait(250+Random(2500));
             GameTab(4);
         end;
     if (SpecAttack = False) then
        begin
             Heal;
        end;
end;

//****************************************************************************//

Procedure CheckHP;
Begin
if not loggedin then exit;
 Status('Anti-Ban')
  Case (Random(W2CHP)) of
   1 : Heal;
   2 : SkillCheck;
   3 : RandomEmote;
   4 : HoverSkill('Health',False);
   5 : Heal;
   6 : Aquiparrow;
   7 : Heal;
   8 : setrun(true);
   9 : SpecialAttack;
   10: Heal;
  End;
End;

//****************************************************************************//

procedure FindRandoms;
begin
  FindNormalRandoms;
  FindFastRandoms
  CheckForLevel;
   if(InBlack)then
    begin
     Players[CurrentPlayer].loc := 'InBlack';
     Logout;
     Exit;
    end;
  if NoGameTab then
   begin
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
  end;
end;

//****************************************************************************//

procedure NiceStart;

begin
     ClearDebug;
           Writeln('');
           wait(750);
           Writeln('            ßßÛÛÛÛÛÛß   Scripter : Djarn0/Mx1ooo');
           wait(750);
           Writeln('          Ü  ²ÛÛÛÛÛß   ScriptÄ: MyUberMutliFighter');
           wait(750);
           Writeln('          ÛÛ ÛÛÛÛÛß   VersionÄ: '+(version)+' ');
           wait(750);
           Writeln('         ±ÛÛ ÛÛÛÛÛ   GenreÄÄÄ: Fighting');
           wait(750);
           Writeln('        ±²ÛÛ  ÛÛÛ²   Cre.date: 2oo7');
           wait(750);
           Writeln('        ²ÛÛÛÛ ²ÛÛ±   Rel.date: Thursday,June 21,2oo7');
           wait(750);
           Writeln('        ±ÛÛÛÛ  ßÛ    DelphiÄÄ: Srl');
           wait(1000);
end;

//****************************************************************************//

procedure TipColor;
begin
 if (Pickarrows = True) or (Equiparrow = True) then
  begin
   ArrowColor:= 10;
    ArrowTip := BitmapFromString(18, 5, 'z78DA8D904B0EC0200844AFE4' +
       '6FAC2C4D6AEF7FA4A2E382C6DA14928922CE1373F3702D0F45897' +
       '0924D255755713D3C2BF1987BADACFDACF034BAA049450FFF7036' +
       '6A3DD9CFF537856B7B0B01219D23852F9FBAA17CB3ECD4EB2D525' +
       '20F6F1DACAE94DD5FED584A90045250204868B850ADF31FCAEAFC' +
       '32D160F10FA93766306E30');
       //ty rikjess i suck at bitmaps i dunno how to do, they always fail :)
  MaxTolerance := 50;
  GameTab(5);
  ArrowColor := AutoColorThis(ArrowTip, MaxTolerance, MIX1, MIY1, MIX2, MIY2);
  FreeBitmap(ArrowTip);
  If (ArrowColor = 10) then
     Writeln('Cant AutoColor Please Restart Script!');
     Writeln('And make sure you equiped the arrows!');
  Exit;
 end;

end;

//****************************************************************************//

procedure SetUpAutoCast(AutoSpell:String;Style:String);

begin
GameTab(1);

if (MFM = 'DefenseExp') and (GetColor(572, 274) <> 1777020) then

      begin
           Mouse(681, 274, 2, 2, True);
           Wait(2000 + Random(500));
      end;

if (MFM  = 'NoDefenseExp') and (GetColor(615, 276)<> 1711221) then

      begin
           Mouse(680, 330, 2, 2, True);
           Wait(2000 + Random(500));
      end;

if (Lowercase(S2C) = 'wind strike') or (S2C = '1') then

        begin
             Mouse (586, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water strike') or (S2C = '2') then

        begin
             Mouse (628, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth strike') or (S2C = '3') then

        begin
             Mouse (668, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'fire strike') or (S2C = '4') then

        begin
             Mouse (706, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'wind bolt') or (S2C = '5') then

        begin
             Mouse (586, 269, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water bolt') or (S2C = '6') then

        begin
             Mouse (628, 269, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth bolt') or (S2C = '7') then

        begin
             Mouse (668, 269, 2, 2, True);
             Wait(1000+Random(500));
        end;

if (Lowercase(S2C) = 'fire bolt') or (S2C = '8') then

        begin
             Mouse (706, 269, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'wind blast') or (S2C = '9') then

        begin
             Mouse (586, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water blast') or (S2C = '10') then

        begin
             Mouse (628, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth blast') or (S2C = '11') then

        begin
             Mouse (668, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'fire blast') or (S2C = '12') then

        begin
             Mouse (706, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'wind wave') or (S2C = '13') then

        begin
             Mouse (586, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water wave') or (S2C = '14') then

        begin
             Mouse (628, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth wave') or (S2C = '15') then

        begin
             Mouse (668, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'fire wave') or (S2C = '16') then

        begin
             Mouse (706, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

end;

//****************************************************************************//

Function WeDoNotHaveEnoughResources: Boolean;
var Tx, Ty:Integer;
begin
  if (IsTextInAreaEx(21, 415, 130, 415, Tx, Ty, 'You do not have e',
  0, smallchars, False, True, 0, 0, 0) or (IsTextInAreaEx(21, 415, 130, 415, Tx, Ty, 'There is no ammo ',
  0, smallchars, False, True, 0, 0, 0))) then
       begin
         Writeln('!! Warning closed down we used all youre runes/arrows !!');
       Logout;
     exit;
  end;
end;

//****************************************************************************//

function Pickup: boolean;
  begin
  if (Itempickup = True) then
  begin
  FindFastRandoms;
   wait(500+random(250))
    if(FindObj(x,y,IntGerServ,itemcolor,2))then
     begin
     repeat
     mouse(x,y,3,2,false)
     wait(10+random(5));
     ChooseOption(x, y, itemname);
     if not (ChooseOption(x, y, server)) then begin
       ChooseOption(x, y, s3rver);
     end;
     FFlag(2);
     wait(500+random(247))
     IPSF := IPSF+1;
     until(not(FindObj(x,y,IntGerServ,itemcolor,2)))
      end;
  end;
end;

//****************************************************************************//

Procedure FTWaitAll(Time:Integer);
var t: integer;
  begin
    For T:=1 to Time do
    begin
      Wait(100+Random(25));
      FindTalk;
      Wait(100+Random(25));
      RC;
    end;

    FindFastRandoms;
    MarkTime(FindNorMalRandomsTime);
    if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
      begin
        FindNorMalRandoms;
        RC;
        MarkTime(SST1);
      end;

    MarkTime(FindFastRandomsTime);
    if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
      begin
        FindFastRandoms;
        RC;
        MarkTime(SST2);
        end;
end;

//****************************************************************************//

Procedure ProgressReport;

begin
  writeln('');
  writeln('   !!MyUberMultiFighter!!');
  writeln('');
  writeln('Worked for '+ TimeRunning);
  writeln('Attacked '+inttostr(NPCS)+' NPCs.');
  writeln('Gained '+inttostr(LVLSG)+' Levels So Far.');
  if (Equiparrow = True) then
  WriteLn('We Equiped '+inttostr(EAWS)+' Piles Of Arrows So Far');
  if (Itempickup = True) then
  WriteLn('We Picked up '+inttostr(IPSF)+' So Far');
  if (UseFood = True) then
  WriteLn('You Ate '+IntToStr(EFP)+' Pieces Of Food');
  SRLRandomsReport;
end;

//****************************************************************************//

procedure Reports;

begin
   ClearDebug;
   FindFastRandoms;
   ProgressReport;
end;

//****************************************************************************//

procedure APABAIP;

begin
        Arrowpickup;
        pickup;
end;

//****************************************************************************//

Function AttackNpc(Color1, Color2, Color3, Color4, Color5, Color6, tol, TimeOut:integer): Boolean;
var I,  Color: Integer;

begin
  for I  :=  1 to 6 do
  begin
   case I of
   1: Color :=  Color1;
   2: Color :=  Color2;
   3: Color :=  Color3;
   4: Color :=  Color4;
   5: Color :=  Color5;
   6: Color :=  Color6;
  end;

  WeDoNotHaveEnoughResources;
  if (Loggedin) then
  begin
     if (not (InFight) and (not(IsFightAt(x, y)))and(FindObj(x, y, npcname, Color, tol))) then
     begin
        Result := True;
        if(not (Loggedin) or (DetectLumby)) then break;
        GetMousePos(x, y);

        If (RightClick = True) then
        begin
        Mouse(x, y, 2, 2, False);
        ChooseOption(x, y, server);
        end;
        if not (ChooseOption(x, y, server)) then begin
        ChooseOption(x, y, s3rver);
           end;
        end;

        If (RightClick = False) then begin
        Mouse(x, y, 2, 2, True);
        end;

        FFlag(10);
        FTWaitAll(1);
        MarkTime(Mark);
        repeat
           if(not (Loggedin) or (WeAreDead)) then break;
           FindRandoms;
           if (UseTimer = True) then
           if (TimeFromMark(Mark) > TimeOut) then break;
           FTWaitAll(1);
        until ( (not (inFight) or (WeAreDead) ));
        NPCS := NPCS+1;
        FindRandoms;
        Aquiparrow;
        APABAIP;
      Reports;
     end
     else
      Result := False;
   end;
 end;

//****************************************************************************//

procedure Retaliate(AutoRet:Boolean);

begin
  GameTab(1)
  wait(200 + random(300));
  if AutoRet then
  begin
    If not FindColor(x, y, 1777020, 624, 385, 719, 396) then
    begin
      Mouse(666, 381, 8, 8, True);
      Status('AutoRetaliate is now enabled');
    end;
  end;

  if not AutoRet then
  begin
    If FindColor(x, y, 1777020, 624, 385, 719, 396) then
    begin
      Mouse(666, 381, 8, 8, True);
      Status('AutoRetaliate was already enabled,');
    end;
  end;
end;

//****************************************************************************//

procedure SetFight;

begin
GameTab(1);
  if(Players[CurrentPlayer].Skill='Accurate') then
    SetFightMode(1);

  if(Players[CurrentPlayer].Skill='Rapid') then
    SetFightMode(2);

  if(Players[CurrentPlayer].Skill='Longrange') then
    SetFightMode(3);

  if(Players[CurrentPlayer].Skill='Attack') then
    SetFightMode(1);

  if(Players[CurrentPlayer].Skill='Strength') then
    SetFightMode(2);

  if(Players[CurrentPlayer].Skill='Defence') then
    SetFightMode(2);

  if(Players[CurrentPlayer].Skill='Magic') then

    SetUpAutoCast(MFM, S2C);
  Wait(500+Random(750));
  GameTab(4);

end;

//****************************************************************************//

procedure RuneOnce;

begin
  if SRLVersionNumber = '3.81' then begin
  DisguiseScar('RedTube - Home of Porn - Red Tube - Mozilla Firefox');
  mousespeed := MSpeed;
  DeclarePlayers;
  if not loggedIn then begin
     loginplayer;
  end;
  ActivateClient;
  Retaliate(True);
  SetRun(true);
  TipColor;
  SetFight;
  end else
  cleardebug;
  writeln(' ');
  writeln(' ');
  writeln('        http://freddy1990.com/files/SCAR306setup.exe');
  writeln(' ');
  writeln(' ');
  writeln('     If you have divi then:');
  writeln(' ');
  writeln('        File -> Download SRL.');
  writeln(' ');
  writeln(' ');
  writeln('                Then Restart Script!');
  wait(3600000);
end;

//****************************************************************************//

Begin
  SetupSRL;
  ChangeReportWidth(150);
  NiceStart;
  RuneOnce;
  repeat
        AttackNpc(Color1, Color2, Color3, Color4, Color5, Color6, ColTolNpc, NPCTimeOut);
        ProgressReport;
  until ((DetectLumby) {or (NPCS = HowManyAtt) }or (not (Loggedin)))

        if DetectLumby then
        begin
         logout;
         writeln('Logged Out Because DetectLumby');
          if HowManyPlayers >= 2 then
          begin
           nextplayer(true);
           writeln('Player dead logged nextplayer');
            LoginPlayer;
            end;
        end;

        if NPCS = HowManyAtt then
        begin
         logout;
          if HowManyPlayers >= 2 then
          begin
           nextplayer(true);
           writeln('Player attacked what we wanted logged nextplayer');
            LoginPlayer;
            end;
        end;
End.

 

this script rocks and is one of the best autofighters for scar+srl

 

Where are good places to set it up? For Range and melee?

 

I useally f2p on my Auto Main Acount down at pirate cafe hobbies
and on my pure cows ftw crafting guild ofcourse

 

Lol....You just added SRL procedures to make you're script longer Most of the script you don't need because you have Include/srl.....At the top



-Ashur

 

some functions are tweaked and also the first 100 lines or so are show xD

 

im very computer illitirate but i would like to lrn to use scar so what do i do ?? copy and and paste the whole thing even the lil pics u drew at the top into my scar? and its good to go?

 

It says "{SETUP UNTIL LINE 198 PLEASE SETUP PROPER}"

Setup all that.

 

thanx heaps town 1 mopr question if i only want to level range do i still c&p all the bits about magic and melee?

 

i get stuck on this line here
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;

i keep getting this message
Failed when compiling
Line 72: [Error] (72:1): Unknown identifier 'HowManyPlayers' in script

 

can sum1 plz help?

 

then just do //NumberOfPlayers(HowManyPlayers);
works fine here
what scar and srl version you got?

 

doesnt work lol i tired that

 

u dont know schit about scar ?
anyways i post update when i feel like that

 

i know lol i odnt i feel so nooby but i cant figure out line 72 that town posted for the life of me

 

nice script

 

Yeah it failed to run for me..

 

lmfao it did work....
i copied and pasted wrong..
kewl script by da way

 

doesnt work for me.

 

FUCK ME. Nice!