Scripting my own Iron Miner 07

Quote:

---

Originally Posted by Twinki

Okay, NOW it does move the mouse to each object that looks like the rock (Goes over the dead tree's that look like the rock too), but still doesn't write 'Found Iron Rock' nor does it click. I get this error too:
The following DTMs were not freed: [2, 3]

---

Well that's a problem with your color that the tree also has.
Does it hover at the rock at one point?
Meaning does it find the rockcolor and check for the uptext?


That's not an error, it's something in the SRL include, a mystery :)
just ignore that

EDIT: u downloaded and placed the fonts at the right directory right?

Quote:

---

Originally Posted by Sjoekeloe

Well that's a problem with your color that the tree also has.
Does it hover at the rock at one point?
Meaning does it find the rockcolor and check for the uptext?


That's not an error, it's something in the SRL include, a mystery :)
just ignore that

EDIT: u downloaded and placed the fonts at the right directory right?

---

Now it hovers over the rocks, and only the rocks :) but it still doesn't write 'Found Iron rock' nor does it click. :c

Quote:

---

Originally Posted by Twinki

Now it hovers over the rocks, and only the rocks :) but it still doesn't write 'Found Iron rock' nor does it click. :c

---

u downloaded and placed the fonts at the right directory right?
I think u didn't do this?

Quote:

---

Originally Posted by Sjoekeloe

u downloaded and placed the fonts at the right directory right?
I think u didn't do this?

---

\Simba\Fonts\P07UpChars Right? If so then yes.

Quote:

---

Originally Posted by Twinki

\Simba\Fonts\P07UpChars Right? If so then yes.

---

Yeah ok, I'm clueless now lol.
Everything should be working. I don't see what else could be wrong.
Play around with your uptext strings?

Is your brightness on highest?

Quote:

---

Originally Posted by Sjoekeloe

Yeah ok, I'm clueless now lol.
Everything should be working. I don't see what else could be wrong.
Play around with your uptext strings?

---

Thats what i'm thinking it is, the code once again :p:

Simba Code:

rocedure MineIron;
Var
  x, y, PlusOneOre, OreCounter: Integer;
Begin
  PlusOneOre:= P07_InvCount +1;
  //if P07_FindObjCustom(x, y, ['Mine','Rocks'], [RockColor], 1) then
  If P07_FindObj(x, y, 'ine', RockColor, 1) then
  Begin
      WriteLn('Found Iron Rock');
      GetMousePos(x, y);

      Case Random (2) Of
        0:   Begin
              MMouse(x, y, 0, 0);
              ClickMouse2(False);
          end;
        1: Begin
            MMouse(x, y, 0, 0);
            ClickMouse2(True);
            Wait(RandomRange(400, 1000));
            P07_ChooseOptionMulti(['ine']);
            End;
        End;

      Repeat
      MarkTime(OreCounter);
      Antiban;
      Wait(1000);
      If P07_InvCount=PlusOneOre Then
      WriteLn('Collected one Ore');
    Until (P07_InvCount=PlusOneOre) Or (TimeFromMark(OreCounter) > 7000)
  End;

End;

Now i'm not getting that DTM error though, but it's still not doing anything after then...
and yes, brightness is on highest.

Quote:

---

Originally Posted by Twinki

Thats what i'm thinking it is, the code once again :p:

Simba Code:

rocedure MineIron;
Var
  x, y, PlusOneOre, OreCounter: Integer;
Begin
  PlusOneOre:= P07_InvCount +1;
  //if P07_FindObjCustom(x, y, ['Mine','Rocks'], [RockColor], 1) then
  If P07_FindObj(x, y, 'ine', RockColor, 1) then
  Begin
      WriteLn('Found Iron Rock');
      GetMousePos(x, y);

      Case Random (2) Of
        0:   Begin
              MMouse(x, y, 0, 0);
              ClickMouse2(False);
          end;
        1: Begin
            MMouse(x, y, 0, 0);
            ClickMouse2(True);
            Wait(RandomRange(400, 1000));
            P07_ChooseOptionMulti(['ine']);
            End;
        End;

      Repeat
      MarkTime(OreCounter);
      Antiban;
      Wait(1000);
      If P07_InvCount=PlusOneOre Then
      WriteLn('Collected one Ore');
    Until (P07_InvCount=PlusOneOre) Or (TimeFromMark(OreCounter) > 7000)
  End;

End;

Now i'm not getting that DTM error though, but it's still not doing anything after then...

---

Did u use the tolerance from ACA?
ClickMouse2(True) = left click btw, and false is right click.
GetmousePos(x,y) is not really needed here. U can remove that.
Other than that, coding looks good to me.
I don't see what else can be wrong.

Brightness at highest?

Quote:

---

Originally Posted by Sjoekeloe

Did u use the tolerance from ACA?
ClickMouse2(True) = left click btw, and false is right click.
GetmousePos(x,y) is not really needed here. U can remove that.
Other than that, coding looks good to me.
I don't see what else can be wrong.

Brightness at highest?

---

EDIT: GOT IT! IT WAS 'SetupSRL;' in the main loop :)!!!!!!!! It now right clicks and everything

THANK YOU DANNY AND Sjoekeloe!!!!!! :)

Twinki, can I make a suggestion?

If you can dig out the old paintsmart and run it in smart then you can have it paint what it finds :) In the future that might make it easier to debug ^^

Quote:

---

Originally Posted by Twinki

EDIT: GOT IT! IT WAS 'SetupSRL;' in the main loop :)!!!!!!!! It now right clicks and everything

THANK YOU DANNY AND Sjoekeloe!!!!!! :)

---

Alright, glad you got it lol. Make some killer scripts ;)