SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Iron man ftw - SRL Member Application Form
Iron man ftw

What is the meaning to life?


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


Programming Knowledge
very little of c++

Other Communitys
www.runespot.com (I'm a moderator there). http://skilldscripts.freeforums.org/ (I'm a admin there).

How Long have You Played Runescape
1 year 7 months

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

I think I am a nice person, mostly only if your nice to me though. I got into SCAR when I was into private servers, I was on moparscape one day and saw a link to moparisthebest. I then saw a link to SCAR download. I haven't touched a private server since :D.

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

//Al Kharid Warrior Killer
program Killer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/Misc/Trade.scar}
{.include SRL/SRL/Skill/Magic.scar}
{.include SRL/SRL/Skill/Ranging.scar}


var
  x, y, WarriorsKilled : integer;
  NextPlayerTime, LevelTrained, i, FailSafes, FailSafes2: integer;
  WarriorColor : Array[0..4] of Integer;
  dtmLumRoad, dtmCookedLobster, dtmScimitar : integer;
  bmpDesertRoad, bmpBuildingColor1 , bmpBuildingColor2 : integer;


const
  BankForLobbies = false;  //True to bank for lobbies (bank slot 1)

  DeadWalk2 = True; //walk back to warriors if you die?

  BankForGP = True; //Only if you use dead walk and have to pay 10 gp to get through gate
  //!!GP MUST BE IN SECOND BANK SPOT!!
  
  WhichSpell = 'Wind Strike';   //which spell to use. (only if using mage cmb in declare players
  
  PickUpArrows = False;  //Pickup arrows? (if combatstyle is range)


procedure DeclarePlayers;
begin
  HowManyPlayers := 2; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

  Players[0].Name        := ''; //Put your Username here
  Players[0].Pass        := ''; //Put your Password here
  Players[0].Nick        := ''; //Nickname here
  Players[0].Strings[0]  := 'Melee'; //Melee, Mage, Range
  Players[0].Skill       := 'Attack'; //Attack, Strength, Defence (only for melee)
  Players[0].Integers[0] := 99; //Level to train it to
  Players[0].Booleans[0] := False; //Eat or not, only lobsters atm
  Players[0].Active      := True;

  Players[1].Name        := '';
  Players[1].Pass        := '';
  Players[1].Nick        := '';
  Players[1].Strings[0]  := 'Melee';
  Players[1].Skill       := 'Strength';
  Players[1].Integers[0] := 99;
  Players[1].Booleans[0] := False;
  Players[1].Active      := True;
end;



procedure DeclareDTMS;
begin

  dtmCookedLobster := DTMFromString('78DA63946666600862644006DB13C519F8813' +
       '448F43F10302A01D5B8A2AA81C8C248202D0954134D408D10508D' +
       '3F0135DC4035E1F8D50000F3A50768');

  dtmScimitar := DTMFromString('78DA634C6462609063644006A222220CFF813' +
       '44C943113A84604550D4C16AE260EA84695809A04A01A29026AA2' +
       '806A1408A84907AA91C7AF06006DDF0459');
       
  dtmLumRoad := DTMFromString('78DA63DCC4C4C010CA8002AA8B8B188C80342' +
       '310FF0702C6F54035A5B8D58000E32AA01A2722D4A41250B30DA8' +
       '2600BF1A001E941117');
end;



procedure DeclareBitmaps;
begin
  bmpDesertRoad := BitmapFromString(5, 5, 'beNprimlrohICAClKIsU=' +
       '');

  bmpBuildingColor1 := BitmapFromString(6, 16, 'beNqbljV72ijCjQ' +
       'ADaZoh');

  bmpBuildingColor2 := BitmapFromString(6, 13, 'beNorLaouHRkIAI' +
       'Nva90=');
end;


procedure SetAttackMode;
begin
  case Players[CurrentPlayer].Skill of
    'Attack' :
      SetFightMode(1);
    'Strength' :
      SetFightMode(2);
    'Defence' :
      SetFightMode(4);
  end;
end;



function Eat: Boolean;
var
  FailSafes: integer;
begin
  if Players[CurrentPlayer].Booleans[0] = True then
  if (Damage > 12) then
  begin
     Result := False;
     MarkTime(FailSafes);
     repeat
       if not LoggedIn then Break;
       DTMRotated(dtmCookedLobster, x, y, mix1, miy1, mix2, miy2);
       Wait(50 + Random(200));
       Mouse(x, y, 3, 3, true);
     until((Damage < 12) or (TimeFromMark(FailSafes) > 30000));
     FreeDTM(dtmCookedLobster);
     Result := True;
  end;
end;



procedure SetupPlayers;
begin
  Wait(1000 + Random(500));
  SetAttackMode;
  Wait(200 + Random(200));
  SetRun(true);
  Wait(200 + Random(200));
  SetAngle(true);
  Wait(200 + Random(200));
  Eat;
  GameTab(4);
  SetChat('on', 1);
  Wait(25 + Random(500));
  SetChat('off', 2);
  Wait(25 + Random(500));
  SetChat('off', 3);
  Wait(25 + Random(500));
  SetChat('on', 4);
  Wait(25 + Random(500));
  SetChat('off', 5);
  Wait(25 + Random(10));
  if DTMRotated(dtmScimitar, x, y, mix1, miy1, mix2, miy2) then
  begin
    Wait(50 + Random(100));
    Mouse(x, y, 3, 3, False);
    Wait(200 + Random(400));
    ChooseOption('ield');
    Wait(25 + Random(200));
    WriteLn('Wielded rune scimitar since they work the best for f2p');
  end;
  FreeDTM(dtmScimitar);
end;



procedure SleepWhenLogged;
begin
  if not LoggedIn then
  begin
    case Random(20) of
      0: begin
           Disguise('2-3 min sleep');
           WriteLn('Sleeping for 2-3 minutes');
           Wait(200000 + Random(100000));
           PickupMouse;
         end;
       1: begin
           Disguise('1-2 min sleep');
           WriteLn('Sleeping for 1-2 minutes');
           Wait(100000 + Random(100000));
           PickupMouse;
         end;
      2: begin
           Disguise('3-4 min sleep');
           WriteLn('Sleeping for 3-4 minutes');
           Wait(300000 + Random(100000));
           PickupMouse;
         end;
    end;
  end;
end;



procedure GoToNextPlayerTrue;
begin
  Logout;
  Wait(1000 + Random(1000));
  SleepWhenLogged;
  Wait(25 + Random(25));
  NextPlayer(True);
  Wait(50 + Random(2000));
  MarkTime(NextPlayerTime);
  SetupPlayers;
  Wait(50 + Random(50));
  SRLRandomsReport;
end;



procedure GoToNextPlayerFalse;
begin
  Logout;
  Wait(1000 + Random(1000));
  SleepWhenLogged;
  Wait(25 + Random(25));
  NextPlayer(False);
  Wait(50 + Random(2000));
  MarkTime(NextPlayerTime);
  SetupPlayers;
  Wait(50 + Random(50));
  SRLRandomsReport;
end;


function FindIfDead: Boolean;
begin
  Result := False;
  if DTMRotated(dtmLumRoad, x, y, mmx1, mmy1, mmx2, mmy2) then
  begin
    Result := True;
  end;
  FreeDTM(dtmLumRoad);
end;



procedure Randoms;
begin
  FindLamp(Players[CurrentPlayer].Skill);
  FindNormalRandoms;
end;



procedure AntiBan;
begin
  if not LoggedIn then exit;
  case Random(140) of
    0: begin
         Wait(100 + Random(500));
         RandomMovement;
         Wait(100 + Random(500));
         RandomRClick;
       end;
    1: begin
         Wait(50 + Random(500));
         PickupMouse;
         Wait(50 + Random(500));
         RandomRClick;
       end;
    2: begin
         Wait(50 + Random(500));
         PickupMouse;
       end;
    3: begin
         Wait(50 + Random(500));
         AlmostLogout;
         Wait(50 + Random(500));
       end;
    4: begin
         Wait(100 + Random(900));
         HoverSkill('random', false);
       end;
    5: begin
         Wait(100 + Random(900));
         HoverSkill(Players[CurrentPlayer].Skill, false);
       end;
    6: begin
         Wait(50 + Random(950));
         BoredHuman;
       end;
    7: begin
         Wait(200 + Random(400));
         GameTab(3 + Random(12));
         Wait(100 + Random(200));
       end;
    8: begin
          Wait(200 + Random(300));
          GameTab(2 + Random(5));
          Wait(200 + Random(300));
        end;
    9: begin
          Wait(200 + Random(500));
          GameTab(6 + Random(1));
          Wait(50 + Random(50));
        end;
    10: begin
          Wait(200 + Random(400));
          GameTab(2 + Random(3));
        end;
    11: begin
          Wait(200 + Random(200));
          DoEmote(2 + Random(5));
        end;
    12: begin
          Wait(200 + Random(200));
          DoEmote(5 + Random(9));
        end;
    13: begin
          Wait(200 + Random(200));
          GameTab(7 + Random(5));
        end;
    14: begin
          Wait(200 + Random(200));
          AlmostLogout;
        end;
  end;
end;



procedure TradePeople;
begin
  if InFight then exit;
  if SomeoneTrades then
  begin
    WriteLn('Someone wants to trade to you, not going to trade but responding');
    case Random(5) of
      0: begin
           Wait(1000 + Random(1000));
           TypeSend('nty');
         end;
      1: begin
           Wait(1000 + Random(1000));
           TypeSend('no thanks');
         end;
      2: begin
           Wait(1000 + Random(1000));
           TypeSend('i dont want to trade');
           Wait(500 + Random(200));
         end;
      3: begin
           Wait(1000 + Random(1000));
           TypeSend('busy');
         end;
      4: begin
           Wait(1000 + Random(500));
           TypeSend('i am busy right now');
         end;
    end;
  end;
end;



procedure OpenDoor;
begin
  if FindObjCustom(x, y,['pen'], [0, 0], 15) then
  begin
    Wait(25 + Random(50));
    Mouse(x, y, 4, 4, false);
    Wait(500 + Random(400));
    if not ChooseOption('pen') then
    ChooseOption('oor');
  end;
end;



function FindTheWarriors(Color: integer; TextUp: string): Boolean;
var
  WarriorTPA : TPointArray;
  i, Lengths: Integer;
begin
  if not LoggedIn then exit;
  Result := False;
  SetLength(WarriorTPA, 3);
  Lengths := High(WarriorTPA);
  for i := 0 to Lengths do
  begin
    WarriorTPA[i].x := MSX1;
    WarriorTPA[i].y := MSY1;
  end;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(x, y, WarriorTPA, Color, msx1, msy1, msx2, msy2, 15);
  begin
    ColorToleranceSpeed(1);
    MMouse(x, y, 2, 2);
    Wait(50 + Random(200));
    if IsUpText(TextUp) then
    Result := True;
  end;
end;



procedure KillThem;
begin
  if not LoggedIn then exit;
  Randoms;
  if InFight = True then exit;
  begin
    WarriorColor[0] := 8523907;
    WarriorColor[1] := 9016468;
    WarriorColor[2] := 5263446;
    WarriorColor[3] := 1647653;
    WarriorColor[4] := 7802744;
    for i := 0 to 4 do
    begin
      if (FindTheWarriors(WarriorColor[i], 'ttack')) or
      FindObjCustom(x, y, ['ttack', 'tta', 'ack'], [WarriorColor[i]], 15) then
      begin
        Wait(50 + Random(50));
        Wait(400 + Random(200));
        Mouse(x, y, 3, 3, false);
        ChooseOption('ttack');
        Wait(50 + Random(25));
        MarkTime(FailSafes);
        repeat
          FFlag(0);
        until((FlagPresent = False) or (TimeFromMark(FailSafes) > 10000));
        if (TimeFromMark(FailSafes) > 15000) then exit;
        MarkTime(FailSafes2);
        repeat
          Wait(100);
        until((InFight = False) or (TimeFromMark(FailSafes2) > 25000));
        WarriorsKilled := WarriorsKilled + 1;
        AntiBan;
        Disguise('killed around ' +IntToStr(WarriorsKilled));
      end;
    end;
  end;
end;



function PickupTheArrows: Boolean;
begin
  if FindObjCustom(x, y, ['ake'], [868972, 857964], 15) then
  begin
    Mouse(x, y, 3, 3, false);
    if not ChooseOption('ake') then exit;
    Result := True;
  end;
end;



procedure BankForFood;
var
  BuildingColor : integer;
begin
  BuildingColor := AutoColorThis(bmpBuildingColor1, 50, mmx1, mmy1, mmx2, mmy2);
  if (BankForLobbies = true) and
  (FindSymbol(x, y, 'bank')) then
  begin
    Wait(500 + Random(500));
    Mouse(x, y, 4, 4, true);
    OpenBankFast('akb');
    FixBank;
    WithDraw(1, 1, 27);
    if not RadialWalk(6392462, 68, 97, 584, 1, 1) then
    begin
      GotoNextPlayerFalse;
      WriteLn('Could not walk back to bank right, switching players');
    end;
  end else
  WriteLn('Couldnt find the bank');
end;



function FindGate : Boolean;
var
  FSafes : integer;
begin
  FindObjCustom(x, y, ['pen'], [9013908, 9605789, 8947858, 7105652, 9803424], 10);
  Mouse(x, y, 3, 3, false);
  Wait(500 + Random(200));
  if not ChooseOption('ay') then exit;
  MarkTime(FSafes);
  repeat
    FFlag(0);
  until((FlagPresent = False) or (TimeFromMark(FSafes) > 15000));
  if (TimeFromMark(FSafes) > 15000) then Result := False;
  Result := True;
end;



procedure OpenKharidDoor;
begin
  if FindObjCustom(x, y, ['pen', 'arge'], [1541295, 2640749, 1676483], 10) then
  begin
     Mouse(x, y, 3, 3, false);
     Wait(500 + Random(500));
     ChooseOption('pen');
     FFlag(0);
     Wait(2000 + Random(2000));
  end;
end;




function ClimbUpStairs(UpText : String): Boolean;
begin
  if FindObjCustom(x, y, [UpText], [669262, 803682], 5) then
  begin
    Mouse(x, y, 2, 2, false);
    Wait(1000 + Random(100));
    ChooseOption('limb');
    FFlag(0);
    Wait(1000 + Random(1000));
    Result := True;
  end;
end;



function ClimbDownStairs: Boolean;
begin
  if FindObjCustom(x, y, ['limb', 'down'], [735571, 602697], 5) then
  begin
    Mouse(x, y, 2, 2, false);
    Wait(500 + Random(700));
    ChooseOption('down');
    FFlag(0);
    Wait(1000 + Random(1000));
    Result := True;
  end;
end;



procedure BankAfterDead;
var
  FailSafeTime, FailSafeTime2, LumRoadColor, GP : integer;
begin
  LumRoadColor := FindRoadColor;
  GP := CoinAmount('inv');
  if not RadialWalk(LumRoadColor, 213, 217, 53, -1, -1) then
  if not RadialWalk(LumRoadColor, 212, 217, 47, -1, -1) then
  if not RadialWalk(LumRoadColor, 214, 218, 54, -1, -1) then
  begin
    WriteLn('Couldnt walk to the bank right, going to next player');
    GoToNextPlayerFalse;
  end;
  Wait(1000 + Random(200));
  if not RadialWalk(LumRoadColor, 253, 268, 30, -1, -1) then
  if not RadialWalk(LumRoadColor, 249, 261, 32, -1, -1) then
  if not RadialWalk(LumRoadColor, 266, 281, 37, -1, -1) then
  begin
    WriteLn('Couldnt walk to the bank right, going to next player');
    GoToNextPlayerFalse;
  end;
  Wait(1000 + Random(2000));
  if not ClimbUpStairs('limb') then
  begin
    WriteLn('Couldnt walk to the bank right, going to next player');
    GoToNextPlayerFalse;
  end;
  Wait(2000 + Random(1000));
  if not ClimbUpStairs('up') then
  begin
    WriteLn('Couldnt walk to the bank right, going to the next player');
    GoToNextPlayerFalse;
  end;
  if FindSymbol(x, y, 'bank') then
  begin
    Mouse(x, y, 3, 3, true);
  end;
  Wait(3000 + Random(1000));
  if not FindSymbol(x, y, 'bank') then
  begin
    if not RadialWalk(LumRoadColor, 19, 31, 48, 1, 1) then
    if not RadialWalk(LumRoadColor, 0, 18, 48, 1, 1) then
    if not RadialWalk(LumRoadColor, 7, 24, 44, 1, 1) then
    begin
      WriteLn('Couldnt walk to the bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    MarkTime(FailSafeTime);
    repeat
      OpenBankFast('lb');
    until((BankScreen = True) or (TimeFromMark(FailSafeTime) > 30000));
    Wait(2000 + Random(3000));
    MarkTime(FailSafeTime2);
    repeat
      FixBank;
      Wait(1000 + Random(1000));
      WithDraw(1, 2, 10);
    until((GP > 10) or (TimeFromMark(FailSafeTime2) > 30000));
    if (TimeFromMark(FailSafeTime2) > 35000) then
    begin
      WriteLn('Could not bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    CloseBank;
    Wait(1000 + Random(500));
    if not RadialWalk(LumRoadColor, 176, 190, 46, -1, -1) then
    if not RadialWalk(LumRoadColor, 180, 191, 43, -1, -1) then
    if not RadialWalk(LumRoadColor, 187, 196, 47, -1, -1) then
    begin
      WriteLn('Could not bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    if not ClimbDownStairs then
    begin
      WriteLn('Could not bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    Wait(1000 + Random(1000));
    if not ClimbDownStairs then
    begin
      WriteLn('Couldnt bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    Wait(1000 + Random(1000));
    if not RadialWalk(LumRoadColor, 49, 55, 59, 1, 1) then
    if not RadialWalk(LumRoadColor, 43, 49, 58, 1, 1) then
    if not RadialWalk(LumRoadColor, 32, 38, 58, 1, 1) then
    begin
      WriteLn('Didnt bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    if not RadialWalk(LumRoadColor, 53, 108, 18, 1, 1) then
    if not RadialWalk(LumRoadColor, 49, 109, 16, 1, 1) then
    if not RadialWalk(LumRoadColor, 65, 117, 17, 1, 1) then
    begin
      WriteLn('Didnt bank right, going to next player');
      GoToNextPlayerFalse;
    end;
    WriteLn('Banked for GP and made it back good!');
  end;
end;



procedure DeadWalk;
var
  DesertRoad, RoadColor, BuildingColor1, BuildingColor2 : integer;
begin
  if not (LoggedIn) then exit;
  if (DeadWalk2 = true) then
  begin
    if FindIfDead = true then
    begin
      RoadColor := FindRoadColor;
      DesertRoad := AutoColorThis(bmpDesertRoad, 40, mmx1, mmy1, mmx2, mmy2);
      BuildingColor2 := AutoColorThis(bmpBuildingColor2, 40, mmx1, mmy1, mmx2, mmy2);
      Wait(3000 + Random(1000));
      if not RadialWalk(RoadColor, 83, 95, 49, 1, 1) then
      if not RadialWalk(RoadColor , 90, 120, 63, 1, 1) then
      begin
        WriteLn('Couldnt walk back when you died, going to next player');
        GoToNextPlayerFalse;
      end;
      Wait(500 + Random(500));
      if not RadialWalk(RoadColor, 61, 90, 72, 1, 1) then
      if not RadialWalk(RoadColor, 71, 100, 72, 1, 1) then
      begin
        WriteLn('Couldnt walk back right when you died, going to next player');
        GoToNextPlayerFalse;
      end;
      Wait(500 + Random(500));
      if not RadialWalk(RoadColor, 75, 82, 52, 1, 1) then
      if not RadialWalk(RoadColor, 93, 110, 53, 1, 1) then
      begin
        WriteLn('Couldnt walk back right when you died, going to next player');
        GoToNextPlayerFalse;
      end;
      Wait(500 + Random(500));
      if not FindGate then
      begin
        WriteLn('Couldnt walk back right when you died, going to next player');
        GoToNextPlayerFalse;
      end;
      Wait(2000 + Random(200));
       if not RadialWalk(DesertRoad, 125, 132, 70, 1, 1) then
       if not RadialWalk(DesertRoad, 128, 136, 73, 1, 1) then
       if not RadialWalk(DesertRoad, 125, 131, 73, 1, 1) then
       begin
         WriteLn('Couldnt walk back right when you died, going to next player');
         GoToNextPlayerFalse;
       end;
       Wait(1000 + Random(500));
       if not RadialWalk(DesertRoad, 92, 102, 59, 1, 1) then
       if not RadialWalk(DesertRoad, 99, 106, 58, 1, 1) then
       if not RadialWalk(DesertRoad, 87, 96, 60, 1, 1) then
       begin
         WriteLn('Couldnt walk back when you died, going to next player');
         GoToNextPlayerFalse;
       end;
       if not RadialWalk(DesertRoad, 156, 162, 63, 1, 1) then
       if not RadialWalk(DesertRoad, 146, 154, 58, 1, 1) then
       if not RadialWalk(DesertRoad, 147, 155, 58, 1, 1) then
       begin
         WriteLn('Couldnt walk back when you died going to next player');
         GoToNextPlayerFalse;
       end;
       if not RadialWalk(DesertRoad, 201, 207, 66, 1, 1) then
       if not RadialWalk(DesertRoad, 199, 209, 71, 1, 1) then
       if not RadialWalk(DesertRoad, 194, 203, 63, 1, 1) then
       begin
         WriteLn('Couldnt walk back when you died, going to next player');
         GoToNextPlayerFalse;
       end;
       if not RadialWalk(BuildingColor2, 196, 205, 70, 1, 1) then
       if not RadialWalk(BuildingColor2, 197, 205, 70, 1, 1) then
       if not RadialWalk(BuildingColor2, 192, 200, 64, 1, 1) then
       begin
         WriteLn('Didnt walk back when you died, going to next player');
         GoToNextPlayerFalse;
       end;
       OpenKharidDoor;
       if not RadialWalk(BuildingColor1, 224, 262, 21, 1, 1) then
       if not RadialWalk(BuildingColor1, 215, 263, 26, 1, 1) then
       if not RadialWalk(BuildingColor1, 219, 260, 30, 1, 1) then
       begin
         WriteLn('Didnt walk back when you died, going to next player');
         GoToNextPlayerFalse;
       end;
       FreeBitmap(DesertRoad);
       FreeBitmap(BuildingColor1);
       FreeBitmap(BuildingColor2);
    end;
  end;
end;



procedure WhichToDo;
begin
  case Players[CurrentPlayer].Strings[0] of
    'Melee' : begin
                KillThem;
              end;
    'Mage' : begin
               if not Cast(WhichSpell) = true then exit;
               KillThem;
             end;
    'Range' : begin
                KillThem;
                PickupTheArrows;
              end;
  end;
end;



procedure Responder;
var
  Strength, Attack, Defence: Integer;
begin
  if not LoggedIn then exit;
  if InChat('tr l') or
  InChat('trength l') then
  begin
    WriteLn('Someone asked your strength level, responding');
    Strength := GetSkillInfo('strength', false);
    case Random(3) of
      0: begin
           Wait(50 + Random(200));
           TypeSend(IntToStr(Strength));
         end;
      1: begin
           Wait(100 + Random(400));
           TypeSend('my strength level is ' + IntToStr(Strength));
         end;
      2: begin
           Wait(500 + Random(500));
           TypeSend('my str lvl is ' + IntToStr(Strength));
         end;
    end;
    if InChat('ttack l') or
    InChat('tk l') then
    Attack := GetSkillInfo('attack', false);
    begin
      WriteLn('Someone asked your attack level, responding');
      case Random(3) of
        0: begin
             Wait(500 + Random(500));
             TypeSend(IntToStr(Attack));
           end;
        1: begin
             Wait(500 + Random(500));
             TypeSend('my att is ' + IntToStr(Attack));
           end;
        2: begin
             Wait(500 + Random(500));
             TypeSend('my attack level is ' + IntToStr(Attack));
           end;
      end;
      if InChat('ef l') or
      InChat('nce l') then
      Defence := GetSkillInfo('defence', false);
        begin
          WriteLn('Someone asked your defence level, responding');
          case Random(4) of
            0: begin
                 Wait(200 + Random(800));
                 TypeSend(IntToStr(Defence));
               end;
            1: begin
                 Wait(500 + Random(200));
                 TypeSend('mine is ' + IntToStr(Defence));
               end;
            2: begin
                 Wait(200 + Random(800));
                 TypeSend('my def lvl is ' + IntToStr(Defence));
               end;
            3: begin
                 Wait(200 + Random(500));
                 TypeSend('my defence level is ' + IntToStr(Defence));
               end;
          end;
        end;
    end;
  end;
end;



procedure Proggie;
begin
  WriteLn('***********************************************');
  WriteLn('***********************************************');
  WriteLn('*******Al Kharid Killer by Iron man ftw********');
  WriteLn('Worked for ' + TimeRunning);
  WriteLn('Killed about ' + IntToStr(WarriorsKilled) + ' warriors');
  WriteLn('***********************************************');
  WriteLn('***********************************************');
end;




begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  if not LoggedIn then LoginPlayer;
  DeclareDTMS;
  DeclareBitmaps;
  Wait(25)
  SetupPlayers;
  Wait(25 + Random(25));
  MarkTime(NextPlayerTime);
  LevelTrained := GetSkillInfo(Players[CurrentPlayer].Skill, false);
  repeat
    WhichToDo;
    Wait(25 + Random(25));
    BankForFood;
    Wait(25 + Random(25));
    DeadWalk;
    Wait(10 + Random(10));
    TradePeople;
    Wait(10 + Random(10));
    Randoms;
    Wait(10 + Random(10));
    Responder;
    Eat;
    Wait(25 + Random(25));
    ClearDebug;
    Proggie;
    if (LevelTrained = Players[CurrentPlayer].Integers[0]) or
    (TimeFromMark(NextPlayerTime) = 1000000) then
    begin
      Wait(25 + Random(50));
      GoToNextPlayerTrue;
    end;
  until(false);
end.

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

Yes, looks ok.

Big no. Horrible script. I hate it.

Go take a SMOKE Gof. oF Malboro….

From: BobboHobbo
Go take a SMOKE Gof. oF Malboro….

Marlboro.. *Droool* .. But you know I'm quitting, bitch :D

Malboro…. OMG tastes like nail polish remover.

Smoke some FADS

Yeah, I'm voting yes because its original and has most of the things you need for members.

Thank you for applying with something different, most people just apply with willow choppers that are either too simple or have too much of other peoples scripts.

Fuck you DR :P

My Willow Chopper was good, and I didnt steal anything from it. I made 13 versions of that!

I vote yes aswell. It fits all standards needed for SRL Membership.

TOF: You script was a good willow cutter, so you deserved it. It was detailed, had plenty of failsafes and it worked like a bomb!

So you deserve it.

Voting yes.

If my WC was that good why does noone ever use it :'(

=P

Naah. Good luck Iron man :]

Yes from me.

One thing:

DTMRotated(dtmCookedLobster, x, y, mix1, miy1, mix2, miy2);

DTMRotated? just use FindDTM if its in the inv :p

Yes

And to the voters:
Can we cut the profanities from you posts and obscene references to drugs…

Sowwie Hobbit =[

*Cyber Apology Cookie*

All the object finding is FindObjCustom.

You have a couple of unnecessary begins and ends…I'm not even sure why they're there:

function FindTheWarriors(Color: integer; TextUp: string): Boolean;
var
  WarriorTPA : TPointArray;
  i, Lengths: Integer;
begin
  if not LoggedIn then exit;
  Result := False;
  SetLength(WarriorTPA, 3);
  Lengths := High(WarriorTPA);
  for i := 0 to Lengths do
  begin
    WarriorTPA[i].x := MSX1;
    WarriorTPA[i].y := MSY1;
  end;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(x, y, WarriorTPA, Color, msx1, msy1, msx2, msy2, 15);
  begin
    ColorToleranceSpeed(1);
    MMouse(x, y, 2, 2);
    Wait(50 + Random(200));
    if IsUpText(TextUp) then
    Result := True;
  end;
end;

Also for the above procedure…you do SetLength(WarriorTPA, 3) and then you assign a variable for High(WarriorTPA) when you already know that it will be 2…

procedure GoToNextPlayerTrue;
begin
  Logout;
  Wait(1000 + Random(1000));
  SleepWhenLogged;
  Wait(25 + Random(25));
  NextPlayer(True);
  Wait(50 + Random(2000));
  MarkTime(NextPlayerTime);
  SetupPlayers;
  Wait(50 + Random(50));
  SRLRandomsReport;
end;
 
 
 
procedure GoToNextPlayerFalse;
begin
  Logout;
  Wait(1000 + Random(1000));
  SleepWhenLogged;
  Wait(25 + Random(25));
  NextPlayer(False);
  Wait(50 + Random(2000));
  MarkTime(NextPlayerTime);
  SetupPlayers;
  Wait(50 + Random(50));
  SRLRandomsReport;
end;

Above 2 procedures could have been made into one. Overall, I think the script could be dramatically shortened…for example by making all the procedures using FindObjCustom into just one procedure.

For now, it's a no. Sorry.

Yes, good job

nice, yes.

Sure yes. Might be more complex…Good luck

You had something

if not chooseoption('lol') then exit;
result := true;

might be

result := chooseoption('lol')[SCAR]

g2g

YES!

And, keep up your attitude here on SRL. I like it. ^_^

Welcome, sir!