alright so im just starting to get back into scripting again(i wasnt even that good before) so im really bad now and i need such serious help on this auto fighter its not even funny. all criticism will be taken wether it is constructive or not, and all HELP IS GREATLY APPRECIATED! i also understand certain parts i didnt even put in there mainly because i started to give up about half way through when i realised i completely forgot what i am doing.




Code:
program NCDSautofight;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
//------------------------------------------------------------------------------
var
   x, y, Bitmap: integer;
   
//------------------------------------------------------------------------------
const  MonsterName   = '';//monster to attack (case sensitive)
const  Color1        = '';//first monster color
const  Color2        = '';//second monster color
const  Color3        = '';//third monster color
const  Color4        = '';//fourth monster color
const  Color5        = '';//fifth monster color
const  LogHP         = '';//HP level to log out at
//------------------------------------------------------------------------------
procedure NCDS;
begin
   ClearDebug;
   Writeln('       xxxx    xx      xxxxxxxx     xxxxxx      xxxxxxx       ')
   Writeln('  x x  xx xx   xx      x            x     x     x        x x  ')
   Writeln('   x   xx  xx  xx      x            x      x    xxxxxxx   x   ')
   Writeln('  x x  xx   xx xx      x            x     x           x  x x  ')
   Writeln('       xx    xxxx      xxxxxxxx     xxxxxx      xxxxxxx       ')
   Writeln('                                                              ')
   Writeln('Under attack, will you defend your honor? ')
   Writeln('When no one has your back, will you press on or cowar?')
end;

//------------------------------------------------------------------------------
procedure AntiBan;
begin
   case Random(10) of
      0: TypeSend('Im soo bored')
      1: TypeSend('Str lvl?')
      2: TypeSend('Att Lev?')
      3: TypeSend('Defence leval?')//miss spelled for more lifelike behavior
      4: TypeSend('how long you been playing this game?')
      5: TypeSend('keep singing nowww!!! haha')
      6: TypeSend('i hate all those woodcutting bots')
      7: TypeSend(' i wish jagex would ban all the WC bots!')
      8: TypeSend('mining lvl?')
      9: TypeSend('ugh my friends keep IMing me')
      10:TypeSend('i wish i had friends')
end;

//------------------------------------------------------------------------------
procedure AutoRetaliate; // fawaki's autoretaliate
begin
  GameTab(1);
  if Retaliate then
  begin
    If not FindColor(x, y, 1777020, 624, 385, 719, 396) then
    begin
      Mouse(666, 381, 8, 8, True);
    end;
  end;
  if not Retaliate then
  begin
    If FindColor(x, y, 1777020, 624, 385, 719, 396) then
    begin
      Mouse(666, 381, 8, 8, True);
    end;
  end;
end;

//------------------------------------------------------------------------------
procedure HighAngle;
begin
   KeyDown(38);
   Wait(4000+random(500));
   KeyUp(38);
end;

//------------------------------------------------------------------------------
procedure DeclareBMPS;
begin
logout_ := BitmapFromString(10, 9, 'beNqbWl8SZFHhZghE9YFGQB' +
       'LItVEUf3x9MxBdO7kcqyxQHIj2bpiEVRYovnnVzFULOnDJAhGyLNC' +
       'oNfVRENnFfdlANKEuGS4LlEowFoLINhVEZKdGMTAw4nEVfjcDHYZV' +
       'FigORPMAVzptnQ==');
       
logout_screen := BitmapFromString(16, 15, 'beNolkldPUwEYhn+' +
       'W40aNEcpoobvQvTfdLR20hbZQWqCFFjqYLUGGkWGAoEI0iCZovHLd' +
       'oFf+EJ/E5Ls65z3v97zvdzqtfnGfQNKndxqCqVAkE/1x972zt+Xw2' +
       'Z1+x1ytPD1fsLjNCq1cOipZbFa3djd5lZnN1tbrs7VSIBn0x3yr3f' +
       'b+8V55qWT1WMSqYW/Y093v1NpLBrt+UDogU0t7xQKz17K+u3H77TP' +
       '6cDKE0ua1FubyrHAHXUMKERNJhReW53kFCaM0qh48faizauF5e/2m' +
       'sbEyFvEaHYZ4dpwnDFYiuRB/oVJkcBlL9fLhxVF0IgKAZETMJKcS8' +
       '/U5ZGjuP7qXmU5vH3S1Fg0wVp+NyCrTiC86tra9enR+2Npqjmdiep' +
       'uOgGR59foEHrarTaPI7AEH/genL+qrNfjZq9Qp4F9qLbKFjcF4gM/' +
       'JYnaZgMdfopHK9Yph5RCamy8fqI7InpC7WJmZLGZNTqN9zJadyWDV' +
       'LxsgbH6h8O72/dXNJRHwPLk4hjaUCMJA/5WVhYl8asSgIks4HYlmY' +
       'yAx51dnZEwXJnATygZj6ejGzjq2/4OkckmeI9PadVSUyCc1ZjW0Z5' +
       'enn75+REafCDhTu9NKTMZdAadKrxy1qNFz3Ean+evPT8wRDEj65Ro' +
       'Z5JybJrlFvpzLlaY4nCfq9cX9RrfJ5DH3CJ8Fxv3PX+5QYHOzgQYG' +
       'UlA7i1gHmExHfSKuUGlVf/+9qzYq/GMUCxX8fcMClNT7RPC4V9TDh' +
       '5izgkr9iQAyKuJ/m60Wl9fqRKAQbg05Pbf/Aal3Ux8=');

end;




//------------------------------------------------------------------------------
Procedure HPCheck;
begin
   gethp;
      if (gethp <= LogHP) then
         begin
            Logout;
         end;
     end;
     
//------------------------------------------------------------------------------
Procedure logout;
   If(FindBitmap(logout,x,y)) then
   Wait(1000+random(500))
   mouse(x,y)
   Wait(500+random(1000))
   MMouse(x,y,true)
   until(findBitmap(logoutscreen,x,y))
   Writeln('whew, almost died!')
end;


//------------------------------------------------------------------------------
Procedure fight;
begin
    if(findcolor(x,y:Color1)
       then
          Wait(600+random(100))
          mouse(x,y)
          Wait(200+random(500))
          MMouse(x,y,true)
          Wait(5000+random(1000))
end;

//------------------------------------------------------------------------------
Procedure setup;
begin
NCDS;
DeclareBMPS;
AutoRetaliate;
HPCheck;
HighAngle;
AntiBan;
fight;
end;
end.