Results 1 to 19 of 19

Thread: help with this script

  1. #1
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default help with this script

    i am going to post my whole script and if i see it taken you will be reported and banned and if i see any part of it taken without my permission i will report you also

    SCAR Code:
    program Mantheiver;
    {.include Srl\Srl.scar}
    // will thieve any men(or woman) but works alot better in places with lots
    //version = beta
    const mancolor = 7736695;//obviously colors of man/woman
    const mancolor2 = 7313605;
    const mancolor3 = 14194830;
    const food = true;//uxse food true or false
    const foodcolor = 13158607;// if ^ is true
    const hptoeat = 10;// if ^ is true at what hp should u eat
    const times = 5;// how many times to pickpocket(doesnt count failed attempts)

    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 := 'fuck you';
      Players[0].Pass := 'bitch';
      Players[0].Nick := 'uxr';
      Players[0].Active := True;

      Players[1].Name := 'fuck you';
      Players[1].Pass := 'bitch';
      Players[1].Nick := 'hil';
      Players[1].Active := true;

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

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

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

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

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

    procedure login;
    begin
      if (not(loggedin)) then
      loginplayer;
    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;



    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, 3, 3, 515, 336, 0, 40)=false) and
         (getlastchattextblack('I can')=false)  then
      begin
        result:=true;
      end;
      if Findbitmapmasktolerance(r,v,b,0,0,700,700,5,60) or
         (getlastchattextblack('I can')) then
      begin
        result:=false;
      end;
      freebitmap(r);
    line 211 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;
      repeat
        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
            typesend(' ');
            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));
          end else;
          if (pickpockets=false) then
          begin
            findrandoms;
            Result:=false;
            UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
            disguisescar(inttostr(successfulpickpockets)+' '+inttostr(unsuccessfulpickpockets));
          end;
        end;
      until(true) or (i>=10);
    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;

    function pickpocket: boolean;
    begin
      begin
        if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,'an') = false then
        begin
          result:=false;
        end else;
        if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,'an') = true then
        result:=true;
      end;
    end;

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

    procedure rotate;
    begin
      case random(4) of

        1: makecompass('w');

        2: makecompass('s');

        3: makecompass('n');

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


    procedure Pickpocketed;
    begin
      repeat
        while PickPocket = false do
        begin
          rotate;
          eating;
        end;
       until(successfulpickpockets=times);
    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;
      Declareplayers;
      login;
      SuccessfulPickpockets:=0;
      unSuccessfulPickpockets:=0;
      SetRun(true);
      ThievinglvlStart:=GetSkillLevel('thieving');
      pickpocketed;
      ThievingLvlend:=getSkilllevel('thieving');
      Progress;
    end;

    begin
    main;
    SRLRandomsReport;
    end.

    i know multi player isnt complete and there are no antibans it is still in the making but i keep having this problem where it says
    Line 211: [Warning] (14613:11): Calculation always evaluates to True in script C:\Program Files\SCAR 3.06\Scripts\theiving.scar
    and then the function doesnt even result true and iv been working on this specific problem for a week and probably have tried every text finding procedure but i am just completely out of ideas.

  2. #2
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    until(true) or (i>=10);
    that way it will always stop the repeat so its useless, i think that is the error that was given, not sure though
    Infractions, reputation, reflection, the dark side of scripting, they are.

  3. #3
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    did u mean to have those names in there?
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  4. #4
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program Mantheiver;
    {.include Srl\Srl.scar}
    // will thieve any men(or woman) but works alot better in places with lots
    //version = beta
    const mancolor = 7736695;//obviously colors of man/woman
    const mancolor2 = 7313605;
    const mancolor3 = 14194830;
    const food = true;//uxse food true or false
    const foodcolor = 13158607;// if ^ is true
    const hptoeat = 10;// if ^ is true at what hp should u eat
    const times = 5;// how many times to pickpocket(doesnt count failed attempts)

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


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


      Players[0].Name := 'x puxre x';
      Players[0].Pass := 'bmxtra';
      Players[0].Nick := 'uxr';
      Players[0].Active := True;

      Players[1].Name := 'jhild737';
      Players[1].Pass := 'bmextra';
      Players[1].Nick := 'hil';
      Players[1].Active := true;

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

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

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

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

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

    procedure login;
    begin
      if (not(loggedin)) then
      loginplayer;
    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;



    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, 3, 3, 515, 336, 0, 40)=false) and
         (getlastchattextblack('I can')=false)  then
      begin
        result:=true;
      end;
      if Findbitmapmasktolerance(r,v,b,0,0,700,700,5,60) or
         (getlastchattextblack('I can')) then
      begin
        result:=false;
      end;
      freebitmap(r);
    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;
      repeat
        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
            typesend(' ');
            Popup('ickpock');
            wait(1000+random(1000));
          end;
          if (pickpockets=true) then
          begin
           // findrandoms;
            DisguiseScar('successful');
            wait(2000+random(1000));
            DisguiseScar('Trying again');
            successfulPickpockets:=successfulPickpockets+1;
            disguisescar(inttostr(successfulpickpockets));
            PickPocketResult:= true;
            break;
          end else;
          if (pickpockets=false) then
          begin
           // findrandoms;
            UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
            disguisescar(inttostr(successfulpickpockets)+' '+inttostr(unsuccessfulpickpockets));
            PickPocketResult:= false;
            break;
          end;
        end;
      until(i>=10);
    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;

    function pickpocket: boolean;
    begin
      begin
        if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,'an') = false then
        begin
          result:=false;
        end else;
        if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,'an') = true then
        result:=true;
      end;
    end;

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

    procedure rotate;
    begin
      case random(4) of

        1: makecompass('w');

        2: makecompass('s');

        3: makecompass('n');

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


    procedure Pickpocketed;
    begin
      repeat
        while PickPocket = false do
        begin
          rotate;
          eating;
        end;
       until(successfulpickpockets=times);
    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 CheckIfThieved;
    begin
    if(PickPocketResult=true)then
    begin
    Writeln('Thieved succesfully!');
    end;
    if(PickPocketResult=false)then
    begin
    Writeln('Thieved unsuccesfully');
    Writeln('* *Your stunned* *');
    end;
    end;

    begin
    SetupSRL;
    CheckIfThieved;
    end.

    I edited your function Findandpickpocket so that if it succesfully thieves some1 the result is true and then it stops the loop(I used break for this). If it thieves unsuccsefully then result is false and then it stops the loop again. So if you wanna do something in the next procedure with if it succesfully thieved or not use result. I added this procedure but thats just for you to know that you can check if it thieved with PickPocketResult :
    SCAR Code:
    procedure procedure CheckIfThieved;
    begin
    if(PickPocketResult=true)then
    begin
    Writeln('Thieved succesfully!');
    end;
    if(PickPocketResult=false)then
    begin
    Writeln('Thieved unsuccesfully');
    Writeln('* *Your stunned* *');
    end;
    end;
    It's not wise to use Result in your script because the FindFastRandoms by WT-Fakawi alreaddy uses it and it sometimes messes up. SO always use others, like i did: PickPocketResult.
    More questions? Post here or PM me

  5. #5
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    no and im pissed cus they fucking stole the fucking accounts god dammit when i try to help out shit always goes wrong and jhild was my main iv had for a year and a half god k well everyone im not going to be here anymore unless i get my account back so thanks for all the help except for the fucking leechers that steal my fucking accounts

  6. #6
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    no and im pissed cus they fucking stole the fucking accounts god dammit when i try to help out shit always goes wrong and jhild was my main iv had for a year and a half god k well everyone im not going to be here anymore unless i get my account back so thanks for all the help except for the fucking leechers that steal my fucking accounts
    That's very sad for you but why the Fcking help do you put your acc name and pass in the script and then post it?!?!?!
    Let JaGeX freez your acc and then if that happend then unfreeze with the recovery questions so that you can change your pass.

  7. #7
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    i didnt mean to as i said i was testing and i got my main back but i want my pure account back im trying atm to get it back

  8. #8
    Join Date
    Mar 2006
    Location
    USA
    Posts
    948
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Dude, there are people in this community who are completely trustworthy but then there are those who are not, you have to make sure that you don' leave the possibility to loose something of your own when you use these forums. On the other note, I am sorry you have lost an account because some lowlife took it.

  9. #9
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i lost 5m before because i left my username and pass in a program (autologin in a client i developed and released)...and the biggest reason.. you don't know who took it. When you think everyone is trust worthy.

    But you got to be more carefull next time.

  10. #10
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    ok i sucessfully got my accounts back whoever was fucking gay enough to take my accounts i hope you burn in hell

  11. #11
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    damn, sorry to hear, if i'd seen it i would have changed it and pmed the new pass(thats what most people here do btw...)
    Infractions, reputation, reflection, the dark side of scripting, they are.

  12. #12
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by iloveit8 View Post
    damn, sorry to hear, if i'd seen it i would have changed it and pmed the new pass(thats what most people here do btw...)
    Watch a Mod/Admin go in and read the pm.. Lol.. i would feel unsafe here =p

  13. #13
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    ok i sucessfully got my accounts back whoever was fucking gay enough to take my accounts i hope you burn in hell
    Few.. Your lucky to have the accs back. But are all your stuff still on the accs??

  14. #14
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    do you think any of the mods/admins on srl forums would do that... even think about doing that... i dont think so..
    Infractions, reputation, reflection, the dark side of scripting, they are.

  15. #15
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by iloveit8 View Post
    do you think any of the mods/admins on srl forums would do that... even think about doing that... i dont think so..
    no... it was a joke. wheres your sense of humour =S

  16. #16
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    not home today^^
    Infractions, reputation, reflection, the dark side of scripting, they are.

  17. #17
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    program Mantheiver;
    {.include Srl\Srl.scar}
    // will thieve any men(or woman) but works alot better in places with lots
    //version = beta
    const mancolor = 7736695;//obviously colors of man/woman
    const mancolor2 = 7313605;
    const mancolor3 = 14194830;
    const food = true;//uxse food true or false
    const foodcolor = 13158607;// if ^ is true
    const hptoeat = 10;// if ^ is true at what hp should u eat
    const times = 5;// how many times to pickpocket(doesnt count failed attempts)

    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 := 'poop';
      Players[0].Nick := 'uxr';
      Players[0].Active := True;

      Players[1].Name := 'username';
      Players[1].Pass := 'lolol';
      Players[1].Nick := 'hil';
      Players[1].Active := true;

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

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

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

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

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    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;
      end;
    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;

    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;
      result:=true;
      freebitmap(r);
    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;
      repeat
        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));
          end else;
          if (pickpockets=false) then
          begin
            findrandoms;
            Result:=false;
            UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
            disguisescar(inttostr(successfulpickpockets)+' '+inttostr(unsuccessfulpickpockets));
          end;
        end;
      until(i>=10);
    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,'an') = false then
          begin
            result:=false;
            rotate;
          end else;
          if Findandpickpocket(x,y,mancolor,mancolor2,mancolor3,'an') = true then
          result:=true;
        end;
      until(successfulpickpockets=times)
    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;
      Declareplayers;
      login;
      SuccessfulPickpockets:=0;
      unSuccessfulPickpockets:=0;
      SetRun(true);
      ThievinglvlStart:=GetSkillLevel('thieving');
      pickpocket;
      ThievingLvlend:=getSkilllevel('thieving');
      Progress;
    end;

    begin
    main;
    SRLRandomsReport;
    end.

    k well now i have it semi working but it wont stop when sucessful pickpockets = times and i have no clue why

    edit: lol the person didnt even take anything cus my main had a pin and my pure didnt but everything was still there (2mil 2k bloods)

  18. #18
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    Watch a Mod/Admin go in and read the pm.. Lol.. i would feel unsafe here =p
    do you mean someone sent me my pass cus no i did it the hard way my recovs were gone and i didnt have any on my pure but i got back so everythings done with but help with this new problem above

  19. #19
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nvm about that. but ill try to find a problem in the script

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •