Results 1 to 10 of 10

Thread: Need Help With dummy hitter

  1. #1
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help With dummy hitter

    hey, i need help making my dummy hitter work for one thing and I would like it to stop and go to the next player when the attack level is 8 or when it finds the text -there is nothing more you can learn from hitting the dummy.
    Could someone please make it work and tell me how/what they did or show/tell me how to do it, thanks.

    {
    __ __ ___ _ _ _
    | \/ |___ __ _ _ _ __ _ __ _ ___ / __| |_ _ _ __| (_)___ ___
    | |\/| / -_) _` | ' \/ _` / _` / -_) \__ \ _| || / _` | / _ (_-<
    |_| |_\___\__,_|_||_\__,_\__, \___| |___/\__|\_,_\__,_|_\___/__/
    |___/
    DummySpliter v1
    }

    program DummySplitter;
    {.include srl\srl.scar}
    const
    // Setup
    dummycolor1=8693442;// Dummy Color One.
    dummycolor2=8562113;// Dummy Color Two.
    rundir='S';
    runfar=true;
    // Player Setup

    procedure DeclarePlayers;

    begin
    HowManyPlayers:=1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:=0;

    Players[0].Name :='hjhghg';
    Players[0].Pass :='hhjjhjh';
    Players[0].Nick :='Emo';
    Players[0].Active:=True;

    end;

    var
    dummysHit : integer;

    procedure AntiBan2;
    begin
    writeln('Antiban');
    MouseSpeed := 9 +random(3)
    if (random (3)= 0) then
    MouseSpeed:= 8 + random(4);
    LeaveScreenEvery(5 + random(5));
    RotateEvery(4 + random(3));
    BoredEvery(50+random(10));
    PickUpMouseEvery(64+random(13));

    end;


    function HitDummy:boolean;
    var Tolerance :integer;
    DoFNR :integer;

    begin
    Tolerance:=10;
    DoFNR:=0;

    begin
    repeat
    if (FindColorSpiralTolerance(x,y,DummyColor1,197,61,3 84,204,Tolerance))or
    (FindColorSpiralTolerance(x,y,DummyColor2,197,61,3 84,204,Tolerance))then
    MMouse(x,y,1,1)
    if (IsUpText('ummy')) then
    result:= true;
    if not result then
    tolerance:= tolerance+1;
    if (tolerance=45) then
    begin
    writeln('Cant find dummys even if tolerance is rised, terminating.');
    logout;
    terminatescript;
    end;
    until (result) or (tolerance=45)
    begin
    if (FindObject(x,y,'ummy',DummyColor1,tolerance,true) ) or
    (FindObject(x,y,'ummy',DummyColor2,tolerance,true) ) then
    Mouse(x,y,1,1,true);
    end;
    if (FlagPresent) then
    begin
    FFlag(0);
    Wait(300+Random(400));
    end;
    Begin
    FindNormalRandoms;
    end;
    antiban2;
    writeln('starting waiting procedure...');
    AntiBan2;
    end;
    end;


    Function FindFastRandoms: Boolean; // By WT-Fakawi.

    Var
    i: Integer;

    Begin
    For I := 1 To 12 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;

    8 : If RC Then
    Result := True;

    9 : If FindFight Then
    Begin
    Result := True;
    RunTo(RunDir, RunFar);
    End;

    10: If FindTalk Then
    Result := True;
    End;
    Wait(1);
    End;
    End;

    procedure SetUp;
    begin;
    if(not(loggedin)) then begin
    loginplayer;
    wait(500+random(200))
    end;
    end;

    procedure Done;
    BEGIN
    if(Players[CurrentPlayer].Level[1] >= 8) or (InChat('is nothing more you can learn'))then
    NextPlayer(false);
    end;


    procedure mainloop2;
    Begin
    repeat;
    SetUp;
    hitdummy;
    FindFastRandoms;
    FindNormalRandoms;
    if(Players[CurrentPlayer].Level[1] >= 8) or (InChat('is nothing more you can learn'))then
    NextPlayer(false);
    mainloop2;
    end;


    begin
    setupSRL;
    Setup;
    DeclarePlayers:
    MainLoop2;
    end.

  2. #2
    Join Date
    Jan 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if(Players[CurrentPlayer].Level[1] >= 8) or (InChat('is nothing more you can learn'))then
      NextPlayer(false);

  3. #3
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks but now i get this error
    Line 171: [Error] (17832:1): Identifier expected in script C:\Documents and Settings\culllen\Desktop\DummySpliter Meanagestudios.scar

    edit:wow, sad, i accidently leave the username and pass of the noob i was using to make this and the pass is changed after 1 view. ffs

  4. #4
    Join Date
    Jan 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by meanage View Post
    Thanks but now i get this error
    Line 171: [Error] (17832:1): Identifier expected in script C:\Documents and Settings\culllen\Desktop\DummySpliter Meanagestudios.scar

    edit:wow, sad, i accidently leave the username and pass of the noob i was using to make this and the pass is changed after 1 view. ffs
    What is line 171?

    It is quite sad, but these days people will do anything for runescape and you have to do everything to stop it.

    You are probably feeling as if I did it, but all I can say to you is that I didn't. And I can quite understand if you think I did, but all you can do is take my word for it.

  5. #5
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont think it was you I trust you, there was 1 view before you and then it was gone, I just thort oh well but then i decided to mention it.

    line 171 is just end;
    edit, i changed script, its now line 173

  6. #6
    Join Date
    Jan 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks

    In mainloop2, you have repeat; without an ending. Either remove that, or remove the call to mainloop2 at the end of mainloop2 and add this

    SCAR Code:
    repeat
    //Code Here
    until(false)

  7. #7
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks, now i get this
    Line 173: [Error] (17834:1): Close round expected in script C:\Documents and Settings\culllen\Desktop\DummySpliter Meanagestudios.scar

    procedure mainloop2;
    Begin
    repeat;
    SetUp;
    hitdummy;
    FindFastRandoms;
    FindNormalRandoms;
    if(Players[CurrentPlayer].Level[1] >= 8) or (InChat('is nothing more you can learn'))then
    NextPlayer(false);
    until(false
    end; -lie 173

    add me to msn plz we could talk on there

  8. #8
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks, now it starts and clicks existing user but then stops and i get this
    [Runtime Error] : Out Of Range in line 117 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar

    Function FindFastRandoms: Boolean; // By WT-Fakawi.

    Var
    i: Integer;

    Begin
    For I := 1 To 12 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; //////////////////////////line 117

    6: If FindDemon Then
    Result := True;

    7: Begin
    If NoGameTab Then
    Begin
    Result := True;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
    End;
    End;

    8 : If RC Then
    Result := True;

    9 : If FindFight Then
    Begin
    Result := True;
    RunTo(RunDir, RunFar);
    End;

    10: If FindTalk Then
    Result := True;
    End;
    Wait(1);
    End;
    End;

    could you add me to msn please and help me there? you've been a big help to me

    Edit: fixed, declare players was after login player lol, tomorrow ill make a start message mentioning how much of a help you were, test and tweak it then post on free scripts section.

  9. #9
    Join Date
    Jan 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by meanage View Post
    thanks, now it starts and clicks existing user but then stops and i get this
    [Runtime Error] : Out Of Range in line 117 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar

    Function FindFastRandoms: Boolean; // By WT-Fakawi.

    Var
    i: Integer;

    Begin
    For I := 1 To 12 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; //////////////////////////line 117

    6: If FindDemon Then
    Result := True;

    7: Begin
    If NoGameTab Then
    Begin
    Result := True;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
    End;
    End;

    8 : If RC Then
    Result := True;

    9 : If FindFight Then
    Begin
    Result := True;
    RunTo(RunDir, RunFar);
    End;

    10: If FindTalk Then
    Result := True;
    End;
    Wait(1);
    End;
    End;

    could you add me to msn please and help me there? you've been a big help to me

    Edit: fixed, declare players was after login player lol, tomorrow ill make a start message mentioning how much of a help you were, test and tweak it then post on free scripts section.

    If you need any more help, send me your MSN address in a PM, I couldn't manage to find it.

  10. #10
    ronny.m.p Guest

    Default

    Cool i had almost completely forgotten about those functions...i made my dummy attacker stop when it found a bitmap...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Clippis Dummy curser
    By Clippi in forum First Scripts
    Replies: 8
    Last Post: 10-24-2008, 01:40 AM
  2. Need Dummy Puncher (varrok)
    By William in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 10-12-2008, 06:00 PM
  3. Ashur2Goods Dummy Trainer
    By Ashur2Good in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 10-11-2008, 10:05 PM
  4. Dummy Pwner!
    By Birfday_Cake in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 10-04-2007, 05:39 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
  •