Results 1 to 12 of 12

Thread: Hermpie's curser v0.1 beta

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Hermpie's curser v0.1 beta

    Hermpie's curser v0.1 beta

    setup:
    got full iron and all the runes or a staff fill in the player aray right or it wont work!
    start at the zammy monk(you can play it somewhere else then edit )


    features:
    -multiplayer(under construction)
    -no color setup
    -staff checking and runes checkign
    -good anti-ban,randoms
    -level checker and a good level,proggy


    i dont like attachments(takes a lot time )
    SCAR Code:
    program New;
    {.include srl/srl.scar}
    {.include srl/srl/skill/magic.scar}
    var
      x, y, SpellX, SpellY: integer;
      Ran, Casted: integer;
      WaterRune, EarthRune, BodyRune: integer;
      OutOfrunes: boolean;
      ToCast: string;
    const
    ////////////////////////////
      CompassDirection = 'E'; // If your at the monk of zamorak then let this, else change!
      Color0 = 8103122;       // If your at the monk of zamorak then let this, else change!
      Color1 = 3883688;       // If your at the monk of zamorak then let this, else change!
      UpText1 = 'onk';        // If your at the monk of zamorak then let this, else change!
      UpText2 = 'of';         // If your at the monk of zamorak then let this, else change!
      Tolerance = 25;         // Let this!
    ////////////////////////////


    function FindRune(DTM: string): boolean;
    begin
      GameTab(4);
      if (DTM = 'Water Rune') then
      begin
        WaterRune := DTMFromString('78DA63CC656660E8636440062252CB1924813' +
          '448F43F1030C603D5B4A3AA81C8C248209D0A54339D809A02A09A' +
          '9904D45402D54C26A0A61AA8A69B0873DAF0AB01001E4B0C12');
        if (FindDTM(WaterRune, x, y, MIX1, MIY1, MIX2, MIY2)) then
        begin
          writeln('Found Water Rune');
        end else
        begin
        writeln('Did NOT Found Water Rune');
        OutOfrunes:=true;
        LogOut;
        end;
      end else
        if (DTM = 'Earth Rune') then
        begin
          EarthRune := DTMFromString('78DA639CCECCC0D0C5C8800C723C781924813' +
            '448F43F10307601D54C405503918591407A2250CD0C026AE611A1' +
            '6629504D3701354B806A261250D30954D3895F0D00B54F0D18');
          if (FindDTM(EarthRune, x, y, MIX1, MIY1, MIX2, MIY2)) then
          begin
            writeln('Found Earth Rune');
          end else
          begin
          writeln('Did NOT Found Earth Rune');
          OutOfrunes:=true;
          LogOut;
          end;
        end else
          if (DTM = 'Body Rune') then
          begin
            BodyRune := DTMFromString('78DA637461666098C8C8800C4404051924813' +
              '448F43F10309A02D5F4A0AA81C8C248206D0E543389801A5BA09A' +
              '1904D4B803D5CC24A0C61FA8663201358144B819644E1B0135664' +
              '035ADF8D5000022460BED');
            if (FindDTM(BodyRune, x, y, MIX1, MIY1, MIX2, MIY2)) then
            begin
              writeln('Found Body Rune');
              end else
              begin
                writeln('Did NOT Found Body Rune');
                OutOfrunes:=true;
                LogOut;
             end;
          end;
    end;


    function GetLevel(Skill: string; Option: boolean):integer;
    begin
      if not LoggedIn then Exit;
      if (Option = True) then
      begin

        GameTab(2);
        Players[CurrentPlayer].Integers[1] :=0;
        Players[CurrentPlayer].Integers[1] :=GetSkillLevel(Skill);
      end else
      begin
        GameTab(2);
       Players[CurrentPlayer].Integers[1] :=0;
       Players[CurrentPlayer].Integers[2] := GetSkillLevel(Skill);
      end;
    end;

    Function NPCFindNClick( NPCColor1, NPCColor2,HMTolerance:integer; UpText1,
    UpText2, COption:string;
    HMTries, HowLong:integer; RepeatUntil, RightOrLeft:boolean):boolean;
    var
      TMT :Integer;
      Coord123X :Integer;
      Coord123Y :Integer;
    begin
      TMT:=0;
      repeat
        FindTalk;
        TMT:=TMT + 1
        Wait(50+random(10));
        if FindObjCustom(Coord123X, Coord123Y, [Uptext1, Uptext2], [NPCColor1, NPCColor2],HMTolerance) then//Thanks killerDou!:)
        begin
          Wait(50+random(10));
          Mouse(Coord123X, Coord123Y, 1, 1, RightOrLeft);
          Wait(50+random(10));
          if (RightOrLeft=False) then
          begin
            if ChooseOption(COption) then
            begin
              Result:=True;
              WriteLn('Found Npc');
              Wait(HowLong+Random(500));
              Break;
            end;
          end;
        end;
      until (RepeatUntil) or (TMT>HMTries)
      if RepeatUntil then Result:=true;
    end;



    Procedure CheckRunes;
    begin
      GameTab(4);
      if (Players[CurrentPlayer].Booleans[0] = true) then
      begin
        if (Players[CurrentPlayer].Strings[0] = 'Earth') then
        begin
          FindRune('Body Rune');
          FindRune('Water Rune');
        end else
          if (Players[CurrentPlayer].Strings[0] = 'Water') then
          begin
            FindRune('Body Rune');
            FindRune('Earth Rune');
          end;
      end else
        if (Players[CurrentPlayer].Booleans[0] = False) then
        begin
          FindRune('Body Rune');
          FindRune('Earth Rune');
          FindRune('Water Rune');
        end;

    end;




    procedure Proggy;
    begin
      WriteLn('//////////////////////////////////////////////////////');
      WriteLn('//         Thanks for using my Auto-Curser.         //');
      WriteLn('//             post Proggy,s and bugs.              //');
      WriteLn('//////////////////////////////////////////////////////');
      WriteLn('// Ran for ' + (timerunning) + '//');
      WriteLn('// You started with Magic level : ' + inttostr(Players[CurrentPlayer].Integers[1]) + '');
      WriteLn('// You Magic level is now  : ' + inttostr(Players[CurrentPlayer].Integers[2]) + '');
      WriteLn('//////////////////////////////////////////////////////////////');
    end;

    Procedure Anti;
    begin
      FindNormalRandoms;
      If FindFight then
      begin
        RunAwayDirection('s');
        wait(5000+random(2500));
        RunBack;
      end;
    end;

    Procedure spell;
    begin
      GameTab(7);
     case lowercase(ToCast) of
      'curse':begin
                SpellX:=666;
                SpellY:=262;
              end;
      'weaken':begin
                SpellX:=570;
                SpellY:=262;
              end;
      'confuse':begin
                  SpellX:=618;
                  SpellY:=238;
                end;
      end;
      MMouse(SpellX,SpellY,5,5);
      Mouse(SpellX,SpellY,5,5,true);
    end;

    procedure Choose;
    begin
      Ran:=0;
      if (Players[CurrentPlayer].Integers[2])>18 then ToCast:='curse' else
      if (Players[CurrentPlayer].Integers[2])>10 then ToCast:='weaken' else
      if (Players[CurrentPlayer].Integers[2])> 2 then ToCast:='confuse';
    end;

    procedure left;
    begin
      Gametab(7);
      spell;
      NPCFindNClick(Color0,Color1,tolerance,uptext1,uptext2,'ttack',0,2000,false,True);
      Anti;
    end;

    Procedure AntiBan;
    begin
      Proggy;
      Choose;
      case Random(20)+1 of
      1: PickUpMouse;
      2: left;
      3: PickUpMouse;
      4: left;
      5: AlmostLogout;
      6: left;
      7: left;
      8: HoverSkill('Magic', False);
      9: left;
     10: HoverSkill('Magic', False);
     11: left;
     12: HoverSkill('Magic', False);
     13: left;
     14: left;
     15: left;
     16: HoverSkill('Magic', False);
     17: left;
     18: AlmostLogout;
     19: left;
     20: HoverSkill('Magic', False);
     
      end;
      GameTab(4);
      CheckRunes;
      GetLevel('magic', False);
    end;

    Procedure Curse;
    begin
      GameTab(7);
      choose;
      repeat
       GameTab(7);
       Ran:=Ran + 1
       Casted:=Casted + 1
       if (Ran>10)then AntiBan;
       spell;
       NPCFindNClick(Color0,Color1,tolerance,uptext1,uptext2,'alk',0,2000,false,True);
       Anti;
      until (Outofrunes)or (casted=Players[CurrentPlayer].Integers[0]);
    end;


    procedure SetUpClient;
    begin

      SRLPlayerForm(True, ['Use staff?'], ['How many casts?','S Level','E level'], ['earth/water staff? (when using one)'], []); // Thanks! Summilion
      Wait(100);
      ActivateClient;
      Wait(1000);
      LoginPLayer;
      Wait(1000+random(500));
      MakeCompass('E');
      HighestAngle;
      gametab(2);
      GetLevel('magic', True);
      GetLevel('magic', False);
      GameTab(4);
    end;


    {===================]
          MainLoop
    [===================}

    begin
      SetUpSrl;
      SetUpClient;
      CheckRunes;
      GetLevel('magic', False);
      Curse;
    end.

    need some accounts with runes to repair multiplayer, please

    Hermpie



    edit:
    Setup
    Just drag the crosshair And hit run! then fill in the form!

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Good Script Hermipe the only thing is if i person came stumbeling across the setup part only 7/10 would understand what that meaned you could change it to:
    SCAR Code:
    UpText1 = 'onk';// If your at the monk of zamorak then let this, else change to the writing that appers in the top left corner of your screen.
    UpText2 = 'of';// If your at the monk of zamorak then let this, else change to the writing that appers in the top left corner of your screen

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edited first post

  4. #4
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Err... where's the zammy monk we're talking about? :P

  5. #5
    Join Date
    Mar 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i like this alot needs work. i ran for an hour, when i came back first time i had died due to random. second time, i was upsairs varrock. i like this script alot!

  6. #6
    Join Date
    Aug 2007
    Location
    USA
    Posts
    370
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Idk if I have enough runes for it
    It must have been the ganja?

  7. #7
    Join Date
    Aug 2007
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it's good, but my only suggestion is that you don't have it keep clicking back to your inventory after every cast and then the ramdom stats pages, i think it would be more believeable if you just cursed for a while then randomly clikced to a dif page

  8. #8
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by s1cky View Post
    it's good, but my only suggestion is that you don't have it keep clicking back to your inventory after every cast and then the ramdom stats pages, i think it would be more believeable if you just cursed for a while then randomly clikced to a dif page
    hermpie hermpie is offline
    Banned
    Banned

    This script is dead

  9. #9
    Join Date
    Dec 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    why is she banned? does the script still work?

  10. #10
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hermpie is banned for 6 months because he want to leave SRL for a while because he had problems at home and stuff, he didn't do anything bad

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  11. #11
    Join Date
    Dec 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OOh i see shes back now ill try this scipt in a bit

  12. #12
    Join Date
    Apr 2008
    Location
    Northwest england
    Posts
    1,179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey

    when it checks rune use dtmcount('inv'..)
    or what ever it is (and aset it to log out if you have less than (number of runes to cast spell)
    eg u need about 5 earth runes or sumit for curse dont u (i may be wrong)
    do a mud staff aswell =]
    Blank!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Hermpie's All-In-One Delphi Apps
    By ShowerThoughts in forum Delphi/FPC Help and Tutorials
    Replies: 12
    Last Post: 03-06-2008, 05:41 PM
  2. hermpie's Ultimate Thea-cup Thiever v 0.2 beta
    By ShowerThoughts in forum RS3 Outdated / Broken Scripts
    Replies: 15
    Last Post: 12-06-2007, 11:06 PM
  3. Hermpie's Hide Tanner & Crafter v 0.1 beta(last thread(this is on request))
    By ShowerThoughts in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-07-2007, 09:01 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
  •