Page 9 of 13 FirstFirst ... 7891011 ... LastLast
Results 201 to 225 of 321

Thread: [07Scape] TheAutoCurser

  1. #201
    Join Date
    Nov 2006
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by dazh View Post
    Why does mine open eoc?

    Do you have SMART8 configured for osrs?

  2. #202
    Join Date
    Apr 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    mine opens EOC too..

  3. #203
    Join Date
    Nov 2006
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by jabu View Post
    mine opens EOC too..
    Quote Originally Posted by dazh View Post
    Why does mine open eoc?
    http://villavu.com/forum/showthread.php?t=97599

  4. #204
    Join Date
    Nov 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    What do I have to change for the mouse to go faster? Like its a good script but it could be sped up by like 40%

  5. #205
    Join Date
    Mar 2013
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Taavi View Post
    i lol'ed this here is a form

    Just start the script and this should open

    That form never pops up for me, is there a reason for that?

  6. #206
    Join Date
    Nov 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Awesome script

    Ran like 5 and half hour NO PROBLEMS AT ALL!

    XHKueHF.png

    about 1050 casts an hour for 5.5 hours straight!

  7. #207
    Join Date
    Apr 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by pescados666 View Post
    i did that..

  8. #208
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(282:145): Invalid number of parameters at line 281

    Is this the antileach?

  9. #209
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Opens eoc for me :S All other oldschools scripts open the oldschool idk what wrong

  10. #210
    Join Date
    Mar 2013
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Do you think you could add the tzhar fight caves to the script there are no randoms in there, also could we just change what monster we want to curse by just changing the colors? If you can't add fight cave monsters

  11. #211
    Join Date
    Mar 2013
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    The script starts up, but the form don't pop up, and bot does nothing.. Help?

  12. #212
    Join Date
    Feb 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    fantastic script, got me to almost 55 mage

  13. #213
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** ******
    TheAutoCurser - Made by Sequence
    ************************************************** ******
    Time running: 11h 06m 39s
    Casts: 12388
    Casts p/h: 1114
    ************************************************** ******

    runs great. got 67 mage so far

  14. #214
    Join Date
    Nov 2006
    Posts
    49
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by JadisMyDad View Post
    Do you think you could add the tzhar fight caves to the script there are no randoms in there, also could we just change what monster we want to curse by just changing the colors? If you can't add fight cave monsters
    Simba Code:
    Program TheAutoCurser;

    {$DEFINE SMART8}
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}

    (********************************************************)
    (*           TheAutoCurser - Made by Sequence           *)
    (********************************************************)
    (*      1. Specify how many casts you want to do.       *)
    (*      2. Start the script, and enter login info       *)
    (*      3. Be sure to stand at the Monk of Zamorak      *)
    (*         in the cage at Varrock Castle                *)
    (********************************************************)

    var
      x, y, MonkColor, SkeletonColor1, SkeletonColor2, Casts, I : Integer;
      CastsDone, CastsPerHour, TimeGone : Integer;
      DsgnForm : TForm;
      Username, Password : TEdit;
      StartBtn : TButton;
      NPCLocSetting : Integer;
      NPCCombo : TComboBox;

    const
      ScriptVersionNumber = '1.32';
      default = 'Calibri';

    procedure DTM;
    begin
      Casts := 3184; //Change to specify how many casts you want to do.
      MonkColor := 3742030;
      SkeletonColor1 := 334238;
      SkeletonColor2 := 3368652;
    end;

    procedure LogOutPlayer;
    begin
    P07_TabInventoryTab(11);
    Wait(RandomRange(400, 700));
    P07_MouseBox(575, 362, 706, 388, mouse_left);
    TerminateScript;
    end;

    procedure CheckFriends;
    begin
    P07_TabInventoryTab(9);
    Wait(RandomRange(300, 500));
    MMouse(650, 270, 3, 3);
    Wait(RandomRange(2000, 3000));
    end;

    procedure CheckInventory;
    begin
    P07_TabInventoryTab(4);
    Wait(RandomRange(200, 600));
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      TimeGone := (GetTimeRunning/1000);
      CastsPerHour :=(3600*(CastsDone))/((TimeGone));
      begin
        Writeln('********************************************************');
        Writeln('            TheAutoCurser - Made by Sequence            ');
        Writeln('********************************************************');
        Writeln('              Time running: ' + MsToTime((GetTimeRunning), Time_Short));
     (*   Writeln('                     Casts: ' + IntToStr(CastsDone) + ' ');
        Writeln('                 Casts p/h: ' + IntToStr(CastsPerHour) + ' ');
        Writeln('********************************************************');    *)

      end;
    end;

    procedure AutoUpdateScript;
    var
        NewFile : Integer;
        OnlineVersion, NewScript, NewFileName : String;
    begin
      begin
        Writeln('Checking TheAutoCurser VersionNumber');
        OnlineVersion := GetPage('http://07scape-theautocurser.googlecode.com/svn/trunk/TheAutoCurser/AutoScriptUpdate.txt');
        Writeln('Local : ' + ScriptVersionNumber + ' / Latest : ' + OnlineVersion);
        if (Trim(OnlineVersion) > ScriptVersionNumber) then
        begin
          Writeln('New TheAutoCurser Version Available! Updating...');
          NewScript := GetPage('http://07scape-theautocurser.googlecode.com/svn/trunk/TheAutoCurser/TheAutoCurser.simba');
          NewFileName := AppPath + 'Scripts\TheAutoCurser v' + OnlineVersion + '.simba';
          NewFile := RewriteFile(NewFileName, true);
          try
            WriteFileString(NewFile, NewScript);
          except
            begin
              Writeln('Fatal error writing to ' + NewFileName + '!');
              TerminateScript;
            end;
          end;
          CloseFile(NewFile);
          Writeln('New TheAutoCurser Version Downloaded Please Restart Simba!');
          Writeln('TheAutoCurser version ' + OnlineVersion + ' has been added to your Simba/Scripts folder.');
          TerminateScript;
        end else
          writeln('You already have version ' + OnlineVersion + ' of TheAutoCurser');
      end;
    end;

    procedure StartUp;
    begin
      ClearDebug;
      SetupP07Include;
      AutoUpdateScript;
      P07_AutoUpdateMe;
      //P07_DeclarePlayer;
      ActivateClient;
      Wait(2000);
      If (Not P07_LoggedIn) Then
        P07_LogInPlayer;
      //P07_MakeCameraAngleHigh;
      //P07_MakeCompassEast;
      DTM;
    end;

    Function AntiBan : Boolean;
    begin
      case random(300) of
      //0: P07_HoverSkill('magic', random(5000));
      1: P07_MakeCompassDegree(RandomRange(140, 170));
      2: P07_MakeCompassDegree(RandomRange(190, 220));
      //3: MMouse(random(650), random(350), 0, 0);
      //4: CheckInventory;
      //5: CheckFriends;
      end;
    end;

    Function AntiBan2 : Boolean;
    begin
      case random(300) of
      0: P07_HoverSkill('magic', random(5000));
      1: P07_MakeCompassDegree(RandomRange(140, 170));
      2: P07_MakeCompassDegree(RandomRange(190, 220));
      3: MMouse(random(650), random(350), 0, 0);
      4: CheckInventory;
      5: CheckFriends;
      end;
    end;

    procedure CastCurse;
    begin
    if P07_TabInventoryTab(7) then
      begin
        //P07_MouseBox(661, 258, 673, 269, mouse_left)
        MMouse(667, 263, RandomRange(3, 5), RandomRange(3, 5));
        Wait(RandomRange(100, 260));
        ClickMouse2(mouse_left);
      end;
    end;

    procedure CastCurseMonk;
    begin
    P07_MakeCompassEast;
    P07_MakeCameraAngleHigh;
    WriteLn('You have choosen to curse the Monk of Zamorak in Varrock Castle');
      repeat
        (*If (Not FindColorSpiralTolerance(x, y, MonkColor, 176, 84, 393, 320, 20)) then
          LogOutPlayer
        else*)

        If FindColorSpiralTolerance(x, y, MonkColor, 176, 84, 393, 320, 20) then
        begin
          P07_MakeCompassEast;
          P07_MakeCameraAngleHigh;
          //P07_CastSpell(12);
          CastCurse;
          Mouse(x, y, random(RandomRange(3, 4)), random(RandomRange(3, 4)), mouse_left);
          //MMouse(RandomRange(X - 3, X + 3), RandomRange(y - 3, y + 3), 0, 0);
          //ClickMouse2(mouse_left);
          ProgressReport;
          AntiBan;
          Inc(CastsDone);
        end;
      Until(I = Casts);
    end;

    procedure CastCurseSkeleton;
    begin
    repeat
      P07_MakeCompassDegree(20);
      P07_MakeCameraAngleLow;
      WriteLn('You have choosen to curse Skeletons at the Varrock sewer');
        begin
        Wait(RandomRange(200, 350));
        //P07_CastSpell(12);
        CastCurse;
        Wait(randomRange(500, 700));
        if P07_FindObjCustom(x, y, ['ek'], [SkeletonColor1, SkeletonColor2], 5) then
          begin
            ClickMouse2(mouse_left);
            Wait(RandomRange(400, 600));
            Inc(CastsDone);
          end
       (*   else
            (begin
              Wait(RandomRange(1034, 1503));
              if (Not P07_FindObjCustom(x, y, ['Skeleton', 'Ske', 'ton', 'Skelet', 'leton'], [8885140, 9804448], 14)) then
              WriteLn('NPC Not found, terminating script...');
              Wait(RandomRange(100, 300));
              Mouse(992, 293, random(5), random(5), true);
              Wait(RandomRange(500, 1000));
              LogOutPlayer;
              Wait(RandomRange(500, 1000));
              TerminateScript;
            end; *)

          end;
        ProgressReport;
        AntiBan2;
        Inc(I);
      until(I = Casts);
    end;

    procedure CastCurseGlobal;
    begin
      case NPCLocSetting of
        0: CastCurseMonk;
        1: CastCurseSkeleton;
      end;
    end;

    procedure SaveSettings(Sender: TObject);
    begin
      DsgnForm.ModalResult := mrOk;
      P07_PlayerName := Username.TEXT;
      P07_PlayerPass := Password.TEXT;
      NPCLocSetting := NPCCombo.ITEMINDEX;
      DsgnForm.CLOSE;
    end;

    procedure YourClickProcedure(Sender: TObject);
    begin
      //ShowMessage('click');
    end;

    procedure InitForm;
    begin
    //DsgnForm
     DsgnForm:=TForm.Create(nil);
      with DsgnForm do
        begin
          Caption:='TheAutoCurser - by Sequence';
          Left:=93;
          Top:=163;
          Width:=320;
          Height:=144;
          Font.Name:=default;
          Font.Color:=clDefault;
          Font.Size:=11;
      end;

    //Username
     Username:=TEdit.Create(DsgnForm);
      with Username do
        begin
          Parent:=DsgnForm;
          Text:='Username';
          Left:=10;
          Top:=10;
          Width:=300;
          Height:=23;
          Font.Name:=default;
          Font.Color:=clDefault;
          Font.Size:=11;
      end;

    //Password
     Password:=TEdit.Create(DsgnForm);
      with Password do
        begin
          Parent:=DsgnForm;
          Text:='Password';
          Left:=10;
          Top:=43;
          Width:=300;
          Height:=23;
          Font.Name:=default;
          Font.Color:=clDefault;
          Font.Size:=11;
          Password.PASSWORDCHAR:='*';
          Password.MAXLENGTH:=20;
      end;

    //NPCCombo\\
    NPCCombo:=TComboBox.Create(DsgnForm);
    with NPCCombo do
      begin
        Caption:='Select NPC and Location';
        Parent:=DsgnForm;
        Left:=10;
        Top:=76;
        Width:=300;
        Height:=23;
        Items.Add('Monk of Zamorak - Varrock Castle');
        Items.Add('Skeleton - Varrock Sewer');
        Text := Items[0];
        OnClick:=@YourClickProcedure;
        Font.Name:=default;
        Font.Color:=clDefault;
        Font.Size:=11;
      end;

    //StartBtn
     StartBtn := TButton.Create(DsgnForm);
      with StartBtn do
        begin
          Parent:=DsgnForm;
          Caption:='Save Settings';
          Left:=10;
          Top:=109;
          Width:=300;
          Height:=25;
          OnClick:=@SaveSettings;
          Font.Color:=clDefault;
          Font.Size:=11;
      end;
    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;


    procedure ShowFormModal;
    begin
      DsgnForm.ShowModal;
    end;


    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    Begin
    SetupSRL;
    SafeInitForm;
    SafeShowFormModal;
    StartUp;
    CastCurseGlobal;
    end.


    This seems to work for Tz-Kek under the monk settings.
    Last edited by pescados666; 04-07-2013 at 04:02 AM.

  15. #215
    Join Date
    Jan 2012
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do this on Tz Kek in Fight Caves.
    It's working flawlessly, with NO randoms.
    Literally perfect.
    Last edited by wino; 04-07-2013 at 07:49 AM.

  16. #216
    Join Date
    Mar 2013
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    I need a bit of help. Once I run it, put in username/pass, and hit save settings, the thing that you click okay for the firewall comes up. I click it once and it pops right back up, it does this like 3 times then simba minimizes and nothing happens. Any suggestions?

  17. #217
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    mine was working yesterday just fine and I try to run it today and it opens eoc. I'm not sure what went wrong

  18. #218
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by 11wnash View Post
    mine was working yesterday just fine and I try to run it today and it opens eoc. I'm not sure what went wrong
    Your SRL updated and replaced the SmartParams and Login simba files with the EoC ones, you have to re-edit them or look into OSR, which wont autoupdate atm


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  19. #219
    Join Date
    Sep 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good script but it always clicks in the same place... :S

  20. #220
    Join Date
    Mar 2012
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Mine doesnt start up.

  21. #221
    Join Date
    Apr 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When I type in my inlog and password the script will stop O.o?

    Edit: Never minder, saw that I were using the 1.31 instead of 1.32
    Last edited by Bearsz; 04-11-2013 at 01:13 PM.

  22. #222
    Join Date
    Mar 2013
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    The first curse it searchs for color, than it click last place that clicked before.
    So when it moves the camera, missclicks the curse and clicks the staircase!
    Goes infront the staircase or climbs them. :/ doesnt work very well for me :/ where is the problem?

  23. #223
    Join Date
    Nov 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Can anyone help me, what do I change in the script so that it clicks the "stun" spell instead of "curse" spell? The level 80 variant of the spell that uses soul runes.

  24. #224
    Join Date
    Mar 2013
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(282:145): Invalid number of parameters at line 281
    Compiling failed.

  25. #225
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    script works perfectly fine just that after 5 mins of starting it will misclick and walk up the stairs is there a way to fix it?

Page 9 of 13 FirstFirst ... 7891011 ... LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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