Results 1 to 6 of 6

Thread: its not clicking

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default its not clicking

    whe it does error time it downn't click where it supposed to it doenst even click at all


    btw is there any procedure that can find ut where your play is located and then move the mouse to him and click it
    Code:
    program New;
    {.include srl/srl.scar}
    {.include srl/srl/skill/firemaking.scar}
    
    const
      waittime= 2000;
    
    var
      matchesdtm,x,y,logDTM,BankersDTM:integer;
      
    procedure firemaker;
    forward;
    
    procedure loaddtms;
    begin
      disguise('loading dtms');
      BankersDTM := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
      logDTM := DTMFromString('78DA639CCAC4C0F0840105D4255A313C04D28' +
        'C40FC1F0818A703D5BC6740038C4824909E0854F391809A3E22CC' +
        'E902AA794B404D3B50CD0B22D43C25C2AEC704D47403D53C20A0A' +
        '607A8E62E0135A070BE4340CD2CA09A5B04D4CC03AAB94940CD62' +
        'CC38C550331FA8E60D116EA642BC030033D71F50');
      MatchesDTM := DTMFromString('78DA637461626078CA8002DC6C39188C80342' +
        '310FF0702463FA09A270C6880118904D2CE40353708A8B102AAB9' +
        '43408D2950CD23026ACC816A5E1350630954F39E801A1BA09A8F4' +
        '4F8EB030135DE40356F09A8F121AC0600502A11AE');
    end;
    
    procedure errortime;
    var
        i: integer;
        firecolors: array [0..3] of integer;
    
    begin
      disguise('error fixing')
      firecolors[0]:= 2058645;
      firecolors[1]:= 8048887;
      firecolors[2]:= 4759509;
      firecolors[3]:= 5155538;
      if (not LoggedIn) then Exit;
        for i := 0 to 3 do
        if FindObjTPA(x, y, firecolors[i], 10, 2, 15, 25, 10, ['walk']) then
        begin
          Mouse(x, y, 4, 4, True);
          flag;
          firemaker;
        end;
    end;
    
    
    
    
    
    procedure firemaker;
    var
      m:integer;
    begin
      disguise('fire time');
      gametab(4);
      repeat
        If FindDTM(MatchesDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,true);
        end;
        wait(100 + random(50));
        If FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,true);
        end;
        begin
          MarkTime(M);
          while (TimeFromMark(M) < WaitTime) do
          Cantlightcheck;
          if CantLightCheck = true then
            begin
              errortime;
            end;
          end;
      Until not FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2)
    end;
    
    
    
    function Banking: Boolean;
    begin
      disguise('getting logs');
      MakeCompass('N')
      Wait (300 + random(160));
      OpenBankQuiet('veb');
      if (PinScreen) then
        InPin('Pin');
        Withdraw(1,1,28);
        Wait(150 + random (278));
        closebank;
        radialwalk(findvarrockroadcolor,0,90,100,1,1);
        flag;
    end;
    
    procedure getinbank;
    begin
    disguise('in to the bank')
        if DTMRotated(BankersDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2,Y+5, 0, 0, True);
        Flag;
    end;
    
    
    begin
      setupsrl;
      setupfiremaking;
      activateclient;
      loaddtms;
      {getinbank;
      banking;}
      firemaker;
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    if DTMRotated(BankersDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
    begin
    .....
    end else writeln('Failed (random numbers to identify what procedure it failed in)');
    Edit your code in this fashion, so it will echo to you when it fails.. My guess is that one of your DTMs are failed.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by Harry View Post
    Edit your code in this fashion, so it will echo to you when it fails.. My guess is that one of your DTMs are failed.
    it has notinhg to do with a dtm i know hwere it fails at the errortime procedure thingy

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by J_Pizzle View Post
    it has notinhg to do with a dtm i know hwere it fails at the errortime procedure thingy
    Still, code in that "fix" I wrote. It is a possibility. Also, fill that in anywhere where it might mess up.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    ok i did that but tha doesn;t help me much i need to kno y it wont click andit should the coding looks right and everything

  6. #6
    Join Date
    Apr 2009
    Location
    California!
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by J_Pizzle View Post
    whe it does error time it downn't click where it supposed to it doenst even click at all


    btw is there any procedure that can find ut where your play is located and then move the mouse to him and click it
    Code:
    program New;
    {.include srl/srl.scar}
    {.include srl/srl/skill/firemaking.scar}
    
    const
      waittime= 2000;
    
    var
      matchesdtm,x,y,logDTM,BankersDTM:integer;
      
    procedure firemaker;
    forward;
    
    procedure loaddtms;
    begin
      disguise('loading dtms');
      BankersDTM := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
             '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
             '81150D3039471C1AF060092960C0C');
      logDTM := DTMFromString('78DA639CCAC4C0F0840105D4255A313C04D28' +
        'C40FC1F0818A703D5BC6740038C4824909E0854F391809A3E22CC' +
        'E902AA794B404D3B50CD0B22D43C25C2AEC704D47403D53C20A0A' +
        '607A8E62E0135A070BE4340CD2CA09A5B04D4CC03AAB94940CD62' +
        'CC38C550331FA8E60D116EA642BC030033D71F50');
      MatchesDTM := DTMFromString('78DA637461626078CA8002DC6C39188C80342' +
        '310FF0702463FA09A270C6880118904D2CE40353708A8B102AAB9' +
        '43408D2950CD23026ACC816A5E1350630954F39E801A1BA09A8F4' +
        '4F8EB030135DE40356F09A8F121AC0600502A11AE');
    end;
    
    procedure errortime;
    var
        i: integer;
        firecolors: array [0..3] of integer;
    
    begin
      disguise('error fixing')
      firecolors[0]:= 2058645;
      firecolors[1]:= 8048887;
      firecolors[2]:= 4759509;
      firecolors[3]:= 5155538;
      if (not LoggedIn) then Exit;
        for i := 0 to 3 do
        if FindObjTPA(x, y, firecolors[i], 10, 2, 15, 25, 10, ['walk']) then
        begin
          Mouse(x, y, 4, 4, True);
          flag;
          firemaker;
        end;
    end;
    
    
    
    
    
    procedure firemaker;
    var
      m:integer;
    begin
      disguise('fire time');
      gametab(4);
      repeat
        If FindDTM(MatchesDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,true);
        end;
        wait(100 + random(50));
        If FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,true);
        end;
        begin
          MarkTime(M);
          while (TimeFromMark(M) < WaitTime) do
          Cantlightcheck;
          if CantLightCheck = true then
            begin
              errortime;
            end;
          end;
      Until not FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2)
    end;
    
    
    
    function Banking: Boolean;
    begin
      disguise('getting logs');
      MakeCompass('N')
      Wait (300 + random(160));
      OpenBankQuiet('veb');
      if (PinScreen) then
        InPin('Pin');
        Withdraw(1,1,28);
        Wait(150 + random (278));
        closebank;
        radialwalk(findvarrockroadcolor,0,90,100,1,1);
        flag;
    end;
    
    procedure getinbank;
    begin
    disguise('in to the bank')
        if DTMRotated(BankersDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        Mouse(X-2,Y+5, 0, 0, True);
        Flag;
    end;
    
    
    begin
      setupsrl;
      setupfiremaking;
      activateclient;
      loaddtms;
      {getinbank;
      banking;}
      firemaker;
    end.
    The reason why is because you did not include errortime; in your main loop.

    From:
    SCAR Code:
    begin
      setupsrl;
      setupfiremaking;
      activateclient;
      loaddtms;
      {getinbank;
      banking;}

      firemaker;
    end.

    To:
    SCAR Code:
    begin
      setupsrl;
      setupfiremaking;
      activateclient;
      loaddtms;
      errortime; // Here.
    {getinbank;
      banking;}

      firemaker;
    end.
    Hope this helps.
    ~Penguin
    Semi-active
    http://i44.tinypic.com/33vk9aq.jpg
    SELL AUTOED GOODS AT MID-MAX! DON'T LET PRICES FALL AND GIVE US LESS PROFIT. (Put this in your sig)

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
  •