Results 1 to 7 of 7

Thread: Edgeville Dungeon RATZ!

  1. #1
    Join Date
    Oct 2006
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Edgeville Dungeon RATZ!

    well im not taking credit for this script other than editing it this is not my script also leave comments on how to make it more anti ban

    // MonsterColor Setup on line 197
    // MonsterName: Setup on line 201

    program BumFighterAdvanced;
    {.include SSI2.txt}
    {.include BoxBreaker2.txt}
    var
    ABCase1,ABCase2,ABCount: Integer;
    ABMouse,ABMouse2,Fighting,Looking,ScreenCharsFight ing: Boolean;
    MonsterColor,MonsterName: Integer;

    Procedure Review;
    Begin
    Writeln('')
    Writeln('')
    Writeln('BumSlaughter V1.0')
    Writeln('::::::::::::::::::')
    If ABMouse=True Then
    Begin
    Writeln('Status: Human Simulation')
    End;
    If ABMouse2=True Then
    Begin
    Writeln('Status: Fighting/Human Simulation')
    End;
    If Looking=True Then
    Begin
    Writeln('Status: Not Fighting, Looking For Monster.')
    End;
    Writeln('')
    Writeln('')
    Writeln('')
    End;

    Procedure AntiBan1;
    Begin
    ABMouse:=True
    Status('AntiBan Activated!')
    ABCase1:=Random(4)
    ABCase1:=Random(4)
    Review;
    Case ABCase1 Of
    1:
    Begin
    MMouse(586,310,21,21)
    Wait(100+Random(100))
    MMouse(457,202,40,40)
    Wait(100+Random(100))
    MMouse(307,388,40,40)
    Wait(100+Random(100))
    MMouse(194,248,40,40)
    Wait(100+Random(100))
    MMouse(246,98,40,40)
    Wait(100+Random(100))
    End;
    2:
    Begin
    Status('Checking Stats!')
    Mouse(586,184,7,7,true)
    Wait(20+Random(20))
    GetMousePos(x,y)
    MMouse(x,y,2,2)
    Wait(125+Random(125))
    MMouse(636,251,2,2)
    Wait(12+random(9))
    MMouse(648,222,7,7)
    Wait(20+random(25))
    GetMousePos(x,y)
    MMouse(x,y,2,4)
    Wait(1000+Random(1000))
    End;
    3:
    Begin
    MMouse(600,276,20,12)
    Wait(45+Random(25))
    MMouse(616,283,12,17)
    Wait(45+Random(25))
    MMouse(614,423,12,17)
    Wait(190+Random(225))
    Mouse(559,186,7,7,True)
    Wait(500+Random(500))
    GetMousePos(X,Y)
    Wait(20+Random(5))
    MMouse(x,y,2,6)
    Mouse(584,187,2,2,true)
    Wait(1000+random(200))
    End;
    End;
    ABMouse:=False;
    Review;
    End;

    Procedure AntiBan2;
    Begin
    ABMouse2:=True
    ABCase2:=Random(7)
    ABCase2:=Random(7)
    Review;
    Case ABCase2 Of
    1:
    Begin
    MMouse(266,175,250,160)
    Wait(300+Random(50))
    MMouse(266,175,250,160)
    Wait(300+Random(50))
    MMouse(266,175,250,160)
    Wait(300+Random(50))
    End;
    2:
    Begin
    MMouse(266,175,250,160)
    Wait(50+Random(50))
    MMouse(266,175,250,160)
    Wait(300+Random(50))
    MMouse(266,175,250,160)
    Wait(50+Random(50))
    MMouse(266,175,250,160)
    Wait(800+Random(50))
    MMouse(266,175,250,160)
    Wait(50+Random(50))
    End;
    3:
    Begin
    Wait(2000+Random(1200))
    End;
    4:
    Begin
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    MMouse(327,199,300,180)
    Wait(75+Random(400))
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    End;
    5:
    Begin
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    MMouse(327,199,300,180)
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    End;
    6:
    Begin
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    Wait(25+Random(20))
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    Wait(25+Random(20))
    End;
    7:
    Begin
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    Wait(105+Random(20))
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    Wait(200+Random(22))
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    Wait(200+Random(22))
    End;
    End;
    ABMouse2:=False;
    Review;
    End;

    Procedure FindFiend;
    Begin
    Looking:=True;
    Review; {*Color*}
    If FindColorTolerance(x,y,6645641,0,0,510,333,10) Then
    Begin {^Color^}
    MMouse(x,y,3,3)
    Wait(500+Random(500)) {*Monster*}
    If IsTextInAreaEx(53,6,117,22,x,y,'Giant rat',100,UpChars,True,false,0,1,57054) then
    Begin {^Monster^}
    GetMousePos(x,y)
    Mouse(x,y,1,1,True)
    FindStrangeBox;
    Wait(1600+Random(900))
    Looking:=False;
    End;
    End;
    End;

    Procedure SetVariables;
    Begin
    ABCount:=0
    UpChars:= LoadChars2(AppPath + 'CharsRS22\');
    ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    End;

    Procedure Engine;
    Begin
    Repeat
    Wait(20+Random(20))
    Review;
    ABCount:=ABCount+1
    If FindColorTolerance(x,y,65280,0,0,508,330,10) Then
    Begin
    Fighting:=True;
    End
    If Not FindColorTolerance(x,y,65280,0,0,508,330,10) Then
    Begin
    Fighting:=False;
    End
    If Fighting=False Then
    Begin
    FindFiend;
    End;
    If Fighting=True Then
    Begin
    AntiBan2;
    End;
    Until(False);
    End;

    begin
    BoxOpenerSetup;
    SetVariables;
    Engine;
    end.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    1st of all Please upload it not post it
    2nd of all that script is WAAAY! outdated any inlcude that isnt SRL isnt fuctional anymore
    3rd of all wtf does it do?
    4th of all *STANDARDS*

  3. #3
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Relax, it's probably his first try at scripting. Anyway, ( I don't mean this mean, but) can someone delete this, these old functions are usually very detectable. Use SRL my friend

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    i am releaxed wtf..
    and you just posted beascial exactly what i said...
    and as he sid its not HIS script ^

  5. #5
    Join Date
    Feb 2006
    Posts
    406
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    moved

    it doesnt use srl and is REALLY old

  6. #6
    Join Date
    Oct 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    old script :S

  7. #7
    Join Date
    Dec 2006
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Edgeville dungeon coal miner?
    By tears in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-22-2007, 05:54 PM
  2. Dungeon Runners
    By lefamaster in forum Gaming
    Replies: 0
    Last Post: 05-31-2007, 04:26 PM
  3. yay dungeon update! f2p!
    By Dark_Sniper in forum RS has been updated.
    Replies: 8
    Last Post: 07-08-2006, 06:23 PM

Posting Permissions

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