SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
1.5 years

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

i have been here for about 3 weeks mayb and i have learned an immense amount of knowledge about scar. Most of my posts here have been helping other people so i will help people alot of the time.

edit: sorry that you have to have a members runescape account to test

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

program Mantheiver;
{.include Srl\Srl.scar}
// will thieve any men(or woman) but works alot better in places with lots
//version = beta
//never tested eating because health never got low but im postive it works
//of course it can thieve anything else you just have to edit right
const mancolor = 7736695;//obviously colors of man/woman
const mancolor2 = 7313605;
const mancolor3 = 14194830;
const food = true;//use food true or false
const foodcolor = 13158607;// if ^ is true
const hptoeat = 10;// if ^ is true at what hp should u eat

////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
const name = 'an';// dont touch at all unless your not thieving men

var TimesEaten,SuccessfulPickpockets,UnsuccessfulPickPockets,
Thievinglvlstart,Thievinglvlend,thievinglvlsgained,xp: integer;
var MoretoPickpocket: extended;

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


  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'sern';//3-4 letters of username
  Players[0].Active := True;
  Players[0].Integer1 := 5;// how many to pickpocket

  Players[1].Name := 'Username';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'sern';
  Players[1].Active := true;
  Players[1].Integer1 := 5;

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;
  Players[2].Integer1 := 5;

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;
  Players[3].Integer1 := 5;

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;
  Players[4].Integer1 := 5;

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;
  Players[5].Integer1 := 5;

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

procedure sig;
begin
  disguisescar('             J');
  wait(100);
  disguisescar('            JH');
  wait(100);
  disguisescar('           JHI');
  wait(100);
  disguisescar('          JHIL');
  wait(100);
  disguisescar('         JHILD');
  wait(100);
  disguisescar('        JHILDY');
  wait(100);
  disguisescar('       JHILDY''s');
  wait(100);
  disguisescar('      JHILDY''s ');
  wait(100);
  disguisescar('     JHILDY''s A');
  wait(100);
  disguisescar('    JHILDY''s Au');
  wait(100);
  disguisescar('   JHILDY''s Aut');
  wait(100);
  Disguisescar('  JHILDY''s Auto');
  wait(100);
  Disguisescar(' JHILDY''s Auto ');
  wait(100);
  disguisescar('JHILDY''s Auto P');
  wait(100);
  Disguisescar('HILDY''s Auto Pi');
  wait(100);
  disguisescar('ILDY''s Auto Pic');
  wait(100);
  disguisescar('LDY''s Auto Pick');
  wait(100);
  Disguisescar('DY''s Auto Pickp');
  wait(100);
  disguisescar('Y''s Auto Pickpo');
  wait(100);
  disguisescar('''s Auto Pickpoc');
  wait(100);
  disguisescar('s Auto Pickpock');
  wait(100);
  Disguisescar(' Auto Pickpocke');
  wait(100);
  Disguisescar('Auto Pickpocket');
  wait(100);
  Disguisescar('uto Pickpocket ');
  wait(100);
  disguisescar('to Pickpocket  ');
  wait(100);
  disguisescar('o Pickpocket   ');
  wait(100);
  disguisescar(' Pickpocket    ');
  wait(100);
  disguisescar('Pickpocket     ');
  wait(100);
  disguisescar('ickpocket      ');
  wait(100);
  disguisescar('ckpocket       ');
  wait(100);
  disguisescar('kpocket        ');
  wait(100);
  disguisescar('pocket         ');
  wait(100);
  disguisescar('ocket          ');
  wait(100);
  disguisescar('cket           ');
  wait(100);
  disguisescar('ket            ');
  wait(100);
  disguisescar('et             ');
  wait(100);
  disguisescar('t              ');
  wait(100);
  disguisescar(' ');
end;
procedure login;
begin
  if (not(loggedin)) then
  loginplayer;
end;

function findjail: boolean;
var dacage,x,y: integer;
begin
  dacage:=Createbitmapmaskfromtext('da cage',upchars);
  if findname=true then
  begin
    if findbitmapmasktolerance(dacage,x,y,3,3,515,336,0,40) then
    Result:=true;
    nextplayer(false);
  end;
end;


function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 9 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;
      9:  if findjail then
          result:=true;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

function waituntil(what: boolean;repeated: integer): boolean;
var i: integer;
begin
  i:=0;
  repeat
    i:=i+1;
    begin
      wait(1);
    end;
  until(what = true) or (i=repeated);
  result:=true;
end;


function GetLastChatTextblack(chat: string): Boolean;//changed to any color
var
  textx, texty: Integer;
begin
  if (IsTextInAreaEx(40, 415, 130, 415, textx, texty, '.', 0, smallchars, False,
   True, 0, 0, 0)) then
  begin
    chat := LowerCase(Trim(GetTextAtEx(textx + 8, 415, 0, SmallChars, False,
     False, 0, 1, 0, 40, False, tr_allChars)));
    Result := True;
  end;
end;

function FindPopUp(Option: string): Boolean;//i just edited it so it wouldnt click
var
  Top, Bottom: TPoint;
  dtmTop, dtmBottom, x, y: Integer;
begin
  dtmTop := DTMFromString('78DA63146464606801622C0026CA28006435A' +
    '3AA890D7147552345841A90393D04D4880259DD04D4880359ED04' +
    'D4280059AD04FC2504644DC4AF06000DC909E0');
  dtmBottom := DTMFromString('78DA635CCCC8C070198891406C883B9886893' +
    '22E02B22EA1AA8101B89A8540D64522CCB948843984EC02B9F910' +
    '01BBA610E1AF6944D80572F311026AE6005967F0DB05007BD4134' +
    '5');
  if (FindDTM(dtmTop, Top.x, Top.y, 10, 10, 764, 502) and FindDTM(dtmBottom,
    Bottom.x, Bottom.y, Top.x, Top.y, 764, 502)) then
    if (FindText(x, y, Option, upchars, 0, 0, Bottom.x, Bottom.y)) then
    begin
      Result := True;
      Wait(150 + Random(200));
    end else
      if (FindText(x, y, 'Cancel', upchars, Top.x, Top.y, Bottom.x, Bottom.y))
        then
        Mouse(x + 3, y + 2, 4, 3, True);
  FreeDTM(dtmTop);
  FreeDTM(dtmBottom);
end;

function pickpockets: boolean;
var v,b,r: integer;
begin
  r:= createbitmapmaskfromtext('What do you think',upchars);
  if Findbitmapmasktolerance(r,v,b,0,0,700,700,5,60) or
     (getlastchattextblack('I can')) then
  begin
    result:=false;
  end else;
  if getlastchattextblack('You pick the') then
  begin
    result:=true;
  end;
  freebitmap(r);
end;

procedure antiban;
begin
  case random(5) of

    1: Hoverskill('thieving',false);

    2: Pickupmouse;

    3: begin
         hoverskill('random',true);
         wait(1000+random(500));
         CloseWindow;
       end;

    4: almostlogout;

    5: Hoverskill('thieving',false);
  end;
end;

Function Findandpickpocket(x, y, Color1, color2, color3: integer; name1: string): boolean;
var i,v,b,man: integer;
begin
  man:= Createbitmapmaskfromtext(name1,upchars);
  i:=0;
  i:=i+1;
  if findcolortolerance(x,y,color1,1,1,700,700,2) or
     findcolortolerance(x,y,color2,1,1,700,700,2) or
     findcolortolerance(x,y,color3,1,1,700,700,2) then
  begin
    Mouse(x,y,0,0,false);
    if findpopup(name1) or
    (findbitmapmasktolerance(man,v,b,0,0,516,39,5,50)) then
    begin
      Popup('ickpock');
      wait(1000+random(1000));
    end;
    if (pickpockets=true) then
    begin
      findrandoms;
      result:=true;
      DisguiseScar('successful');
      wait(2000+random(1000));
      DisguiseScar('Trying again');
      successfulPickpockets:=successfulPickpockets+1;
      disguisescar(inttostr(successfulpickpockets-1)+' sucess '+
       inttostr(unsuccessfulpickpockets)+' unsuccess');
    end else;
    if (pickpockets=false) then
    begin
      findrandoms;
      Result:=false;
      UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
     disguisescar(inttostr(successfulpickpockets-1)+' success '+
       inttostr(unsuccessfulpickpockets)+' unsuccess');
    end;
  end;
end;

Function checkHp(Eatat: integer): boolean;
var l: integer;
Begin
  Gametab(2);
  l:=getHp;
  if l <= Eatat then
  begin
    result:=false;
  end else;
  result:=true;
end;

function eat(coloroffood: integer): boolean;
var x,y: integer;
begin
  Findcolortolerance(x,y,coloroffood,1,1,700,700,3);
  wait(50+random(30));
  MMouse(x,y,0,0);
  if isuptext('at') then
  begin
    Mouse(x,y,0,0,true);
    result:=true;
  end else;
  result:=false;
end;

procedure rotate;
begin
  case random(4) of

    1: makecompass('w');

    2: makecompass('s');

    3: makecompass('n');

    4: makecompass('e');
  end;
end;

procedure eating;
begin
  if (food = true) then
  begin
    if (checkhp(Hptoeat) = false) then
    begin
      eat(foodcolor);
      Timeseaten:=timeseaten+1;
    end;
  end else;
end;

function pickpocket: boolean;
begin
  repeat
    begin
      if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,name) = false then
      begin
        result:=false;
        eating;
        rotate;
      end else;
      if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,name) = true then
      result:=true;
    end;
  until(players[currentplayer].integer1<=successfulpickpockets)
  Nextplayer(true);
end;

procedure antibanned;
begin
  while pickpocket=true do
  antiban;
end;

Procedure Progress;
begin
  cleardebug;
  Thievinglvlsgained:=(thievinglvlstart-thievinglvlend);
  Xp:=Xptilnextlevel('thieving',false);
  Moretopickpocket:=(xp/8);
  Writeln('Auto Thiever By: Jhildy');
  Writeln(Inttostr(successfulpickpockets)+' sucessful pickpockets');
  writeln(inttostr(unsuccessfulpickpockets)+' unsucessful pickpockets');
  Writeln('Gained '+inttostr(thievinglvlsgained)+' thieving levels');
  Writeln('ate '+inttostr(timeseaten)+' times');
  writeln(inttostr(Xp)+' xp till next thieving level');
  writeln(Floattostr(Moretopickpocket)+' more men to pickpocket until next level');
end;

procedure main;
begin
  SetupSRL;
  activateClient;
  sig;
  Declareplayers;
  login;
  repeat
    SuccessfulPickpockets:=1;
    unSuccessfulPickpockets:=0;
    SetRun(true);
    ThievinglvlStart:=GetSkillLevel('thieving');
    pickpocket;
    antibanned;
    ThievingLvlend:=getSkilllevel('thieving');
    Progress;
  until(false)
end;

begin
main;
SRLRandomsReport;
end.

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

Well, most of the script is copied from srl functions. Needs to be little more challenging in other words a harder script to attempt. Also you need to include Player Switching, you got the multiple player slots but you dont use by calling NextPlayer or so. For now I will have to say No.

i do use next player…and the copied functions are edited so i can use for specific needs

function pickpocket: boolean;
begin
  repeat
    begin
      if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,name) = false then
      begin
        result:=false;
        rotate;
      end else;
      if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,name) = true then
      result:=true;
    end;
  until(players[currentplayer].integer1<=successfulpickpockets)
  Nextplayer(true);
end;
 

function findjail: boolean;
var dacage,x,y: integer;
begin
  dacage:=Createbitmapmaskfromtext('da cage',upchars);
  if findname=true then
  begin
    if findbitmapmasktolerance(dacage,x,y,3,3,515,336,0,40) then
    Result:=true;
    nextplayer(false);
  end;
end;
 

can people please post why there voting no if they do because im prett sure i put everything in the tutorial what you need to know to become a member besides radial road walk and this script doesnt need that at all.