Results 1 to 6 of 6

Thread: damn again.

  1. #1
    Join Date
    Dec 2006
    Location
    Georgia
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default damn again.

    No matter what Tree I do my mouse from start up of this script goes to my inventory icon and just chills there, little movement around as if it were seeking out the color from the inventory icons color.

    No Statsguise, no nothing.

    Run > Mouse moves to inventory icon > Stays on the Icon > Gf my first script.

    Any ideas?


    Simba Code:
    program imalosersPCHOPPA;

    //{$DEFINE SMART}
    {$i SRL\SRL.scar}
    {$i SRL\SRL\Misc\stats.simba}

    Const
    //SRL Stats
      SRLStats_Username = '';
      SRLStats_Password = '';
      BreakEvery        = 120;
      Breakfor          = 5;
      NumbofPlayers= 1;
      StartPlayer=   0;



    Procedure DeclarePlayers;
    var I:Integer;
    Begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['XP', 'Gem', 'ostume', 'ithril', 'oal', 'une'];

      with Players[0] do
      Begin
        Name        := '';    //Player Username.
        Pass        := '';   //Player password.
        Active      := True;
        Integers[1] := 4;     //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;    //Seconds to try mining rock before clicking another.
      end;

    end;

     Procedure StatsGuise(wat:String);
      begin
        Status(wat);
        Disguise(wat);
      end;


    Procedure Antiban;
    Begin
      Case Random(300) Of
        0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) End;
        1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
        2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
        3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
        4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
        5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
      End;
    End;

    Procedure Failsafe(reason:string);
    Begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    End;


    function Chopdown:Boolean;
    Var
      SeX, SeY, Baggedit, TreeCounter: Integer;
    Begin
     Baggedit:= InvCount + 1;
     //If FindObjCustom(SeX , SeY, ['Chop', 'down', 'Maple', 'tree', 'p d'], [837635, 1187643, 330048, 1319487], 6) Then
     SeX:=MSCX;
     SeY:=MSCY;
     If FindObjTPA(SeX, SeY, 1714726, 3, 1, 15, 60, 450, ['Cho']) Then
    Begin
      StatsGuise('Fk Yea, We found them Capitan!!');
      GetMousePos(SeX, SeY);

      Case Random(2) of
        0: Mouse(SeX, SeY, 5, 5, True);
        1: Begin
             Mouse(SeX, SeY, 5, 5, False);
             WaitOption('Chop Down', 600);
              End;
         End;


         Repeat
           MarkTime(TreeCounter);
           Antiban;
           Wait(800);
           If InvCount=Baggedit then
             WriteLn('We got one');
         Until (InvCount=Baggedit) Or (TimeFromMark(TreeCounter) > 4000)

      End;
    End;


    Procedure Droplogs;
    Var
      SeX, SeY, LogDTM, I:Integer;
      SlotBox:Tbox;
      LogPattern:TIntegerarray;

    Begin


      LogDTM :=  DTMFromString('mbQAAAHicY2VgYHBiYmAwBWI7IHYHYi8gfgIUfwPE74H4NRDfBOJAU26G0iAVhihrHoYYG14GazUOhv8MmIARCwYDAL98Cgg=');
      LogPattern:=[18,9,12,3,14,2,16,1,13,27,11,19,4,15,20,6,24,28,5,22,23,7,25,17,8,26,10,21];

      For I:=0 to 27 Do
      Begin
        SlotBox:=InvBox(LogPattern[I]);
        If FindDTm(LogDTM,SeX,SeY,SlotBox.X1,SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
        Begin
          MouseItem(LogPattern[I],False);
          ChooseOption('Dro');
        End;
      End;

    End;





    Begin

         SetupSRL;
         DeclarePlayers;
      Repeat
         Chopdown;
         If InvFull Then
         DropLogs;
      Until(False);

    End.

  2. #2
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Well for one you decalred ChopDown as a function when you used it like a procedure.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  3. #3
    Join Date
    Dec 2006
    Location
    Georgia
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by PatDuffy View Post
    Well for one you decalred ChopDown as a function when you used it like a procedure.
    Explain?

    Tryna learn mannn! Lemme know whats good

  4. #4
    Join Date
    Feb 2009
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by imaloser View Post
    Explain?

    Tryna learn mannn! Lemme know whats good
    In your Function, there is no line saying when the Result := True.

    If you want to use it like that, call it as a procedure
    Click Here for my PUBLIC script: Auto Tabs Pro

  5. #5
    Join Date
    Dec 2006
    Location
    Georgia
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Yanhua View Post
    In your Function, there is no line saying when the Result := True.

    If you want to use it like that, call it as a procedure
    "Procedures ChopDown;"

    Check!

    But the same problem? Cursor goes straight for the inventory icon as soon as I hit start :[

  6. #6
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Are you using Safe mode? SRL include only works with safe mode. Safe mode can be loaded by pressing 'S' while runescape is loading.

    If you are running safe mode then there might be something wrong with your chopdown procedure.

    Try messing with this:
    Simba Code:
    If FindObjTPA(SeX, SeY, 1714726, 3, 1, 15, 60, 450, ['Cho']) Then

    and change your second last line in the chopdown procedure to this:
    Simba Code:
    End else WriteLn('NOT FOUND :_(');
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

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
  •