Results 1 to 2 of 2

Thread: randoms

  1. #1
    Join Date
    Jan 2008
    Location
    england
    Posts
    232
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default randoms

    i dont know where to put anti randoms

    if it opens the inventory everytime after i teleport, it will look a bit computer like lol

    SCAR Code:
    //smart version\\
                     //-----------------\\
                   //created by ben600006 \\
                  //                      \\
                  //                      \\
                  //                       \\
               //setup player on lines 24- 31 \\
             //---------------------------------\\
           //start with correct runes in inventory\\
           /////////////////////////////////////////
           ////////////////////////////////////////

    program new;
    {.include SRL\SRL\Misc\Smart.scar}
    {.include srl/srl.scar}
    var x, y, teleport, Clicked, AntiBanz, tab7, AntiRandomz : Integer;

    const
    world = 68;//change the world number if desired\\

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Amount of Characters using
      NumberOfPlayers(HowManyPlayers); //Don't touch
      CurrentPlayer := 0; //Player to start with (eg. Players[0] = 0)

      Players[0].Name := ''; //Username
      Players[0].Pass := ''; //Password
      Players[0].Nick := ''; //3-4 small letters of the username
      Players[0].Active := True; //Using Character? True = yes; False = no
    end;

                                  //do not edit below here\\

    procedure bitmaps;
    begin
    teleport := BitmapFromString(11, 12, 'beNrr/dzXC0IigvpAVFX1' +
           'E44gInBZZClMZXAFpiZ5cISsAC77799fOIKrgcsyMDACxYEkHMHVQ' +
           'GQhCiAITQ2yAmQTMA3BagWaIzH1EvQmwYAiENQAjrClCQ==');
           
    tab7 := BitmapFromString(26, 24, 'beNqF1EFLVFEYxvFpb6Nm2gzO' +
           '2BCiIy0mQYVkNo3WolaGigrqQheBROOiGFsEgrQURZdBhCvXIS2VP' +
           'oKfqD898vBy7p0RHg7n3nvOj/Oee88t9n2dqpGD+tP9iern+hgt2R' +
           'sfdXaflZ2tWul9ZYS8Kz8mi6VH5NXIIGkODxAokB5aofBAMbgxlpq' +
           'JJudLvaZOpK5/n31YaLxtDJtFW/0PZleoSnG0NpJLzU2Wt5eaikxR' +
           'jkyVllQXqdb8bKTam6+j6fTQRJ1+Wl9uNUx1dho2FR5x8+J47+TbD' +
           'lOotAelGo14VZEFZBhhVrVayS0woXAuvzeVw48rXCr0CSBJNN6+Kc' +
           'ZAeUlyztuzikBaCiTaQyjiLzNSbFek7BAtT62ov1c/pbFv2VWZYi5' +
           'adHKp25sfUYsU2+VVeXPipsUCRf35daS3gMZJoaP3IkrjNTEbzISi' +
           'Qzla3lr1CZ3Om2niGuNcd/iu9Gl1owjHTRo3ecoYIlMVJelBceo5v' +
           '1zyPRCeMiYxvQkKn1Y36uVQUWsjDOMpYxKT+1TKO6JMWi5zKUV/AB' +
           '9ebV1iGtTacikWRsvBF8h9g1lTx6cb5fCRGLzXTCj/crOgWnW6mfw' +
           'E/LvwdGpUZgaLWdyxiYATqbhdchTL3kmPiab2338eT7Tzov/h82Kf' +
           'Lz0AQf0o+6VrYXEWyF3+AT7A8+w=');

    end;


    procedure report;
    begin
      WriteLn('[-------------progress report-------------]');
      WriteLn('[ clicked ' + IntToStr(Clicked) + ' times ]');
      WriteLn('[ ------Ran for ' + TimeRunning + '-------]');
      writeln('[-antiban ' + IntToStr(AntiBanz) + 'times-]');
      writeln('[-antirandom ' + IntToStr(AntiRandomz) + 'times-]');
      WriteLn('[-----------created by ben600006----------]');
    end;


    procedure AntiRandoms;
    Begin
      mouse(x,y,0,0,true);
      findnormalrandoms;
      flag;
      ftwait(2);
    end;


                                 
    procedure AntiBan;
    begin
      if not LoggedIn then loginplayer;
      case Random(50) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
      end;
      AntiBanz := AntiBanz + 1;
    end;

    procedure teleporting;
    begin
    gametab(7);
    wait (2000+random(265+random(659)))
         repeat
    if not(findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,20)) then
    begin
    gametab(7)
    end else
        wait (200+random(200));
        if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
        begin
        Mouse(x,y,10,10,true);
        Clicked := Clicked + 1;
        end else
    begin
    AntiRandoms
    if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
    begin
    teleporting
    end else
    begin
    logout;
    exit;
    end;
        wait (2000+random(500))
        antiban
        if not (loggedin) then
       begin
       loginplayer;
       teleporting;
       end;
           if not (findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,20)) then
           begin
           AntiRandoms
           gametab(7)
           end;
       end;
    until not (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20))
    end;



    procedure SetupSMART;
    begin
        SmartSetupEx(World, False, True);
        SetTargetDC(SmartGetDC);

    end;

    begin
    SetupSMART;
    SetupSRL;
    writeln('please wait whilst SMART loads')
    DeclarePlayers
    bitmaps
    LoginPlayer
    AntiRandoms
    teleporting
    srlrandomsreport
    report
    end.

  2. #2
    Join Date
    Mar 2007
    Location
    Eugene, Oregon
    Posts
    195
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I recommend making a MainLoop procedure.

    Maybe make it look more like this...

    SCAR Code:
    //smart version\\
                     //-----------------\\
                   //created by ben600006 \\
                  //                      \\
                  //                      \\
                  //                       \\
               //setup player on lines 24- 31 \\
             //---------------------------------\\
           //start with correct runes in inventory\\
           /////////////////////////////////////////
           ////////////////////////////////////////

    program new;
    {.include SRL\SRL\Misc\Smart.scar}
    {.include srl/srl.scar}
    var x, y, teleport, Clicked, AntiBanz, tab7, AntiRandomz : Integer;

    const
    world = 68;//change the world number if desired\\

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Amount of Characters using
      NumberOfPlayers(HowManyPlayers); //Don't touch
      CurrentPlayer := 0; //Player to start with (eg. Players[0] = 0)

      Players[0].Name := ''; //Username
      Players[0].Pass := ''; //Password
      Players[0].Nick := ''; //3-4 small letters of the username
      Players[0].Active := True; //Using Character? True = yes; False = no
    end;

                                  //do not edit below here\\

    procedure bitmaps;
    begin
    teleport := BitmapFromString(11, 12, 'beNrr/dzXC0IigvpAVFX1' +
           'E44gInBZZClMZXAFpiZ5cISsAC77799fOIKrgcsyMDACxYEkHMHVQ' +
           'GQhCiAITQ2yAmQTMA3BagWaIzH1EvQmwYAiENQAjrClCQ==');

    tab7 := BitmapFromString(26, 24, 'beNqF1EFLVFEYxvFpb6Nm2gzO' +
           '2BCiIy0mQYVkNo3WolaGigrqQheBROOiGFsEgrQURZdBhCvXIS2VP' +
           'oKfqD898vBy7p0RHg7n3nvOj/Oee88t9n2dqpGD+tP9iern+hgt2R' +
           'sfdXaflZ2tWul9ZYS8Kz8mi6VH5NXIIGkODxAokB5aofBAMbgxlpq' +
           'JJudLvaZOpK5/n31YaLxtDJtFW/0PZleoSnG0NpJLzU2Wt5eaikxR' +
           'jkyVllQXqdb8bKTam6+j6fTQRJ1+Wl9uNUx1dho2FR5x8+J47+TbD' +
           'lOotAelGo14VZEFZBhhVrVayS0woXAuvzeVw48rXCr0CSBJNN6+Kc' +
           'ZAeUlyztuzikBaCiTaQyjiLzNSbFek7BAtT62ov1c/pbFv2VWZYi5' +
           'adHKp25sfUYsU2+VVeXPipsUCRf35daS3gMZJoaP3IkrjNTEbzISi' +
           'Qzla3lr1CZ3Om2niGuNcd/iu9Gl1owjHTRo3ecoYIlMVJelBceo5v' +
           '1zyPRCeMiYxvQkKn1Y36uVQUWsjDOMpYxKT+1TKO6JMWi5zKUV/AB' +
           '9ebV1iGtTacikWRsvBF8h9g1lTx6cb5fCRGLzXTCj/crOgWnW6mfw' +
           'E/LvwdGpUZgaLWdyxiYATqbhdchTL3kmPiab2338eT7Tzov/h82Kf' +
           'Lz0AQf0o+6VrYXEWyF3+AT7A8+w=');

    end;


    procedure report;
    begin
      WriteLn('[-------------progress report-------------]');
      WriteLn('[ clicked ' + IntToStr(Clicked) + ' times ]');
      WriteLn('[ ------Ran for ' + TimeRunning + '-------]');
      writeln('[-antiban ' + IntToStr(AntiBanz) + 'times-]');
      writeln('[-antirandom ' + IntToStr(AntiRandomz) + 'times-]');
      WriteLn('[-----------created by ben600006----------]');
    end;


    procedure AntiRandoms;
    Begin
      mouse(x,y,0,0,true);
      findnormalrandoms;
      flag;
      ftwait(2);
    end;



    procedure AntiBan;
    begin
      if not LoggedIn then loginplayer;
      case Random(50) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
      end;
      AntiBanz := AntiBanz + 1;
    end;

    procedure teleporting;
    begin
    gametab(7);
    wait (2000+random(265+random(659)))
         repeat //probably Take out Repeat here and your Until if used in the MainLoop.
    if not(findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,20)) then
    begin
    gametab(7)
    end else
        wait (200+random(200));
        if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
        begin
        Mouse(x,y,10,10,true);
        Clicked := Clicked + 1;
        end else
    begin
    AntiRandoms //Maybe take out AntiRandoms here if you repeat them as the first step in MainLoop.
    if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
    begin
    teleporting
    end else
    begin
    logout;
    exit;
    end;
        wait (2000+random(500))
        antiban
        if not (loggedin) then
       begin
       loginplayer;
       teleporting;
       end;
           if not (findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,20)) then
           begin
           AntiRandoms
           gametab(7)
           end;
       end;
    until not (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20))
    end;


    Procedure MainLoop;
    Repeat
    AntiRandoms;
    teleporting;
    srlrandomsreport;
    report;
    Until(False);


    procedure SetupSMART;
    begin
        SmartSetupEx(World, False, True);
        SetTargetDC(SmartGetDC);

    end;

    begin
    SetupSMART;
    SetupSRL;
    writeln('please wait whilst SMART loads');
    DeclarePlayers;
    bitmaps;
    LoginPlayer;
    MainLoop;
    end.

    Try that. If thats not doing what you want try explaining what your looking for a little more and ill try to help you out.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with randoms
    By trav280 in forum OSR Help
    Replies: 3
    Last Post: 04-27-2008, 07:10 AM
  2. Help with randoms
    By knassyl in forum OSR Help
    Replies: 11
    Last Post: 04-23-2008, 04:30 PM
  3. Replies: 3
    Last Post: 03-31-2007, 02:34 AM
  4. randoms
    By falven in forum OSR Help
    Replies: 35
    Last Post: 12-28-2006, 04:17 AM

Posting Permissions

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