SRL Archive - SRL Archives

This is an antiban procedure i made.
What it does it open a random tab and does something related to that tab.
Examples:

Tab1: Comabt: Clicks a random combat style
Tab2: Skills: Hovers over a random skill
Tab3: Quests: Scolls down the quest list
Tab4: Inventory: Finds any item and examines it
Tab5: Equieped: Scrolls though stat bonuses
Tab6:Prayers: Hovers over a random prayer
Tab7:Magic Book: Hovers over a random spell

Sugestions and negative feedback are welcome!

{.include SRL\SRL.scar}
var dtmLogs,Axe,Three,T,N:integer;
Procedure Load;
begin
  dtmLogs:= DTMFromString('78DA639CCAC4C0E0C1C8800A18914820BD08A' +
  '8C695809A79403551F8D50000BF8402CF');
  Axe:= DTMFromString('78DA637461626078C600065C108AA134809DE' +
  '13F906604E2FF40C0E80E54731D550D44164602693FA09A1B986A' +
  '1891D5D803D57CC46F0E0030240AA2');
  Three := DTMFromString('78DA6334676260C861640001260608D0D3566' +
  '66005D28C503E6309916ABA09A83127AC0600A6B70565');
end;

Procedure RandomTab;
Begin
  Case  (7)+1  of
  1:begin
      Gametab(1)
      Wait(2000+Random(534))
        If (not(FindDTM(Three,x,y,561, 361,637, 401)))then
          begin
            case Random(4)+1 of
            1:begin Mouse(596, 286,5,5,true) end;
            2:begin Mouse(595, 328,5,5,true) end;
            3:begin Mouse(594, 366,5,5,true) end;
            4:begin Mouse(594, 412,5,5,true) end;
            end;
          end;
        If FindDTM(Three,x,y,561, 361,637, 401) then
          begin
            Case Random(3)+1 of
            1:begin Mouse(595, 289,5,5,true) end;
            2:begin Mouse(590, 335,5,5,true) end;
            3:begin Mouse(596, 383,5,5,true) end;
            end;
          end;
    end;
  2:begin
      Gametab(2)
      Wait(2000+Random(524))
      Hoverskill('random')
    end;
  3:begin
      Gametab(3)
      Wait(3000+Random(345))
      repeat
      HoldMouse(734, 446,true)
      Wait(5+Random(5))
      T:=T+1
      until T=(3+Random(3))
    end;
  4:begin
     Mouse(650, 187,5,5,true)
     Wait(2000+Random(782))
     N:=0
     Repeat
     N:=N+1
     MMouseItem(N)
     Wait(3000+Random(500))
     Until IsUpText('Eat') or IsUpText( 'Wield') or IsUpText  ('Use')
     If IsUpText('Eat') or IsUpText( 'Wield') or IsUpText  ('Use') then
      begin
      Getmousepos(x,y)
       Mouse(x,y,2,2,false)
       Wait(1000+Random(383))
       ChooseOption(x,y,'examine')
     end;
    end;
  5:begin
      Gametab(5)
      Wait(1000+Random(514))
      repeat
        HoldMouse(730, 456,true)
        Wait(10+Random(10))
        T:=T+1
      until(T=(3+Random(3)))
    end;
  6:begin
      Gametab(6)
      Wait(1000+Random(300))
      Case Random(9)+1 of
      1:MMouse(631,230,3,3)
      2:MMouse(715, 229,3,3)
      3:MMouse(592, 261,3,3)
      4:MMouse(672, 266,3,3)
      5:MMouse(630, 299,3,3)
      6:MMouse( 709, 298 ,3,3)
      7:MMouse( 590, 338,3,3)
      8:MMouse(670, 338,3,3)
      9:MMouse( 637, 380,3,3)
      end;
      Wait(3000+Random(1549))
    end;
  7:begin
      GameTab(7)
      Wait(500+Random(1784))
      Case Random(10)+1 of
      1:MMouse(589,227,2,2)
      2:MMouse(637,328,2,2)
      3:MMouse(610,371,2,2)
      4:MMouse(709,277,2,2)
      5:MMouse(586,301,2,2)
      6:MMouse(588,374,2,2)
      7:MMouse(655,257,2,2)
      8:MMouse(684,226,2,2)
      9:MMouse(588,249,2,2)
      10:MMouse(683,299,2,2)
      end;
      Wait(3000+Random(1840))
    end;
  end;
end;

begin
SetupSRL
Wait(1000)
Load;
RandomTab;
end.

Thx to Drigger for standardizing:p

Good job.

Very nice. More suggestions: Maybe for tab 8 and 9 add the last person who spoke and then delete them(or not, your preference). Tab 10 act like your going to log out and hover over it then "change your mind" and dont log out. For 11 fool around with the brightness and volume then return to vbright and volume off. 12, open up house options. and 13(music) pick a random green song.

I think most people only consider the top ones gametabs. Not the bottom.
And people dont really mess with the bottom ones when they play legit.
Thanks for the idea though, i might add.

ahhm!
http://82.92.130.193/forums/showthread.php?t=188

But your is much better :( *cries*

Oh jeeze. Never saw urs before.
Owell mine is better.:p :D

Better coded but mine has more features :( *cries*

This is good Anti - Ban. Mind if I borrow it? ;D

=) Yeah no prob.
Credit me though.
If its good enought it might get imlimented to SRL =)
Its gona be in my powerchoper.
My frist and just about only script.
I hella remade it.
I used to be writeen is si.scar =p