FindSymbol

I asked this once before, but never got an answer, so Im here to ask it again. I search it too and only found 1 other result, and it was also unresolved. When I use FindSymbol I get an error, and Im pretty sure its for every symbol I use, making it important to fix :) . This is my procedure:

SCAR Code:

if FindSymbol(x,y,'tree')then
  wait(500+random(600));
  mouse(x,y,2,2,true);

Code:

---

** Warning in GetSymbolColorIn: tree is not a valid name.**

---

Edit: I am updated, got someone Else's symbol.scar, and have tried many different possibilities, including useing getsymbolcolorin right before finding the symbol.

replace

SCAR Code:

if FindSymbol(x,y,'tree')then

with

SCAR Code:

if FindSymbol(x,y,'rare trees')then

and see if that works

Your missing SetupSRL;. I believe.

I hate it in my mainloop, if I put it in there, which is walking, wouldnt it lag everytime?

Not if you leave it out of the loop itself.

SCAR Code:

Begin
  SetupSRL;
  Repeat
    Walking;
  Until(False)
End.

I got that

SCAR Code:

procedure MainLoop;
begin
  repeat
    repeat
      WalkToW;
      WalkToY;
      FindSomeTalk;
      ChopW;
      ChopY;
      AntiRandoms;
      DropLogs;
      WalkToBankW;
      WalkToBankY;
      LogCount;
      Report;
      DepositLogs;
      Breaks;
    until (Players[CurrentPlayer].Integers[10] >= Players[CurrentPlayer].Integers[0])
    begin
      NextPlayer(False);
      SetupPlayers;
    end;
  until(AllPlayersInactive);
  Report;
  WriteLn('All Players Inactive');
end;

begin
  SetUpSRL;
  ScriptID := '1097';
  SRLID := YourSRLID;
  SRLPassword := YourSRLPW;
  Formz;
  SymbolAccuracy := 0.45;
  SetupPlayers;
  repeat
    MainLoop;
  until(false);
  SendSRLReport;
end.

Sorry for double posting, but I really need help, noone knows? :S

no but i have a suggestion for all of your yew and willow procedures and functions... just make one function for both but make it a case... makes it look better than having

SCAR Code:

WalkToW;
WalkToY;

make it

SCAR Code:

WalkToTrees(Players[CurrentPlayer].Strings[X])

X = whatever you make it... lol
if 'Willow' it walks to willows, if 'Yew' it walks to yews

just a suggestion to make it sexier! can't wait until you release this!
I am going to use the string thing for the jun. mem. competition... Wish me GL!

Quote:

---

Originally Posted by mormonman

no but i have a suggestion for all of your yew and willow procedures and functions... just make one function for both but make it a case... makes it look better than having

SCAR Code:

WalkToW;
WalkToY;

make it

SCAR Code:

WalkToTrees(Players[CurrentPlayer].Strings[X])

X = whatever you make it... lol
if 'Willow' it walks to willows, if 'Yew' it walks to yews

just a suggestion to make it sexier! can't wait until you release this!

---

haha thanks, but will that fix the findsymbol? :P

lol no i just wanted to comment on your mainloop!
try putting this function right before it.

SCAR Code:

if LoadSymbolBitmapColor('rare trees') then

if that doesn't work, maybe just make your own bitmap, or use the bitmap that is in the symbol.scar and give it a different name in your script. then make your own findbitmaptolerancein procedure thingy!
Hope you understood that!

Quote:

---

Originally Posted by mormonman

lol no i just wanted to comment on your mainloop!
try putting this function right before it.

SCAR Code:

if LoadSymbolBitmapColor('rare trees') then

if that doesn't work, maybe just make your own bitmap, or use the bitmap that is in the symbol.scar and give it a different name in your script. then make your own findbitmaptolerancein procedure thingy!
Hope you understood that!

---

lol I actually tried all that already :P

Edit2: I fixed it, I deleted every other findsymbol in my script and it works? :S

Edit3: wtf its not working again?!

Have you tried replacing tree with some other symbol? Maybe it's just an error on where you're calling it?

~Camo

All I can think of is to purge your SRL.

Delete it all and get rev 30 again.
Tell me your results.

Quote:

---

Originally Posted by Dr D. Dervish

All I can think of is to purge your SRL.

Delete it all and get rev 30 again.
Tell me your results.

---

I actually did that last night, and I still get that error. Like I said before its weird, because it worked twice, now it wont again?

I honestly can't think of why it's not working for you. tree is a valid name for me.

I got this problem myself and couldn't solve it, so I just took the bitmap from Symbols.scar and searched for it on the minimap.

Quote:

---

Originally Posted by lordsaturn

I got this problem myself and couldn't solve it, so I just took the bitmap from Symbols.scar and searched for it on the minimap.

---

I just did that and used autocolor this to find it, tried 3 times, and couldnt find it. tried using the farming spot bitmap, and the general store bitmap. I made a simple script to just findsymbol'tree' and it worked, so I think im messing up something in my script :S Here it is, look in walktoy; and set to wheretochopy; doesnt matter where you are, just by a tree symbol, if anyone can fix this, then you are a god!

found the problem... you mixed up your procedures... the procedure walktoy doesn't even walk there... all it does is search for the symbol... and if it can't find it on the screen then it does the

Code:

---

** Warning in GetSymbolColorIn: tree is not a valid name.**

---

error...
you need to have it actually walk to the yews... no just look for the symbol!

Quote:

---

Originally Posted by mormonman

found the problem... you mixed up your procedures... the procedure walktoy doesn't even walk there... all it does is search for the symbol... and if it can't find it on the screen then it does the

Code:

---

** Warning in GetSymbolColorIn: tree is not a valid name.**

---

error...
you need to have it actually walk to the yews... no just look for the symbol!

---

well i had it walk and symbol, i just deleted it, but i will give it a try.

Edit: I ahve this and I still get the error(I used water this time)

SCAR Code:

procedure WalkToY;
begin
  if(not(LoggedIn))then Exit;
  if (PowerChop = True) then Exit;
  if (WhereToChop = 'DW') then Exit;
  if (invfull) then Exit;
  if (WhereToChop = 'DY') then
  begin
    MakeCompass('w');
    SetRun(True);
    Wait(1000+Random(1000));
    begin
      FindSymbol(x, y, 'water');
      Mouse(x, y, 2, 2, True);
      if not FindSymbol(x, y, 'water')then
      begin
        LoadBitmaps;
        AutoColorThis(DG, 50, MMX1, MMY1, MMX2, MMY2);
        WriteLn('Couldnt Use Radial, Using Failsafe #1');
      end else
      begin
        Mouse(635, 20, 3, 3, True);
        WriteLn('Couldnt Use FailSafe #1, Using FailSafe #2');
      end;
    end;
  end;
  begin
    RadialWalk(FindWaterColor, 1, 30, 58, -1, -1);
    if not RadialWalk(FindWaterColor, 1, 30, 58, -1, -1)then
    begin
      LoadBitmaps;
      AutoColorThis(DT, 50, MMX1, MMY1, MMX2, MMY2);
      WriteLn('Couldnt Use Radial, Using Failsafe #1');
    end else
    begin
      Mouse(644, 24, 3, 3, True);
      WriteLn('Couldnt Use FailSafe #1, Using FailSafe #2');
    end;
  end;
  begin
    RadialWalk(FindRockColor, -340, 50, 60, -1, -1);
    if not RadialWalk(FindRockColor, -340, 50, 60, -1, -1)then
    begin
      LoadBitmaps;
      AutoColorThis(DP, 50, MMX1, MMY1, MMX2, MMY2);
      WriteLn('Couldnt Use Radial, Using Failsafe #1');
    end else
    begin
      Mouse(757, 53, 3, 3, True);
      WriteLn('Couldnt Use FailSafe #1, Using FailSafe #2');
    end;
  end;
  begin
    Mouse(634, 51, 3, 3, True);
    Wait(2000+Random(3000));
  end;
end;

that walk is fail... it doesn't even work to get to yews...

here are some bitmaps you can use instead of findsymbol(x,y,'trees');

SCAR Code:

var
  tree1,tree2,tree3 : Integer;

Procedure LoadBitmaps;
  begin
  tree1 := BitmapFromString(9, 1, 'beNpbt3XrOigSZWHVFWb20pCDi' +
       'gAAxqgNgg==');
  tree2 := BitmapFromString(2, 8, 'beNrrncJYzAhHHHUgpCvMPKV3i' +
       'q0oE5CEsIGkl4YckDEFABuPDRk=');
  tree3 := BitmapFromString(9, 1, 'beNpbt3XrOigSZWHVFWb20pCDi' +
       'gAAxqgNgg==');
end;

Function findtreesymbol:boolean;
var
x,y:integer;
  begin
    if not loggedin then exit;
    if FindBitmapToleranceIn(tree1, x, y, MMX1, MMY1, MMX2, MMY2,15) then
    begin
      Result := True;
      Writeln('Tree symbol 1 Found, WOOT!');
      Mouse(x, y, 1, 1,true);
      Flag;
      FreeBitmap(tree1);
      FreeBitmap(tree2);
      FreeBitmap(tree3);
    end
    else
      begin
        if FindBitmapToleranceIn(tree2, x, y, MMX1, MMY1, MMX2, MMY2,15) then
          begin
            Result := True;
            Writeln('Tree symbol 2 Found, WOOT!');
            Mouse(x, y, 1, 1,true);
            Flag;
            FreeBitmap(tree1);
            FreeBitmap(tree2);
            FreeBitmap(tree3);
      end
      else
        begin
          if FindBitmapToleranceIn(tree3, x, y, MMX1, MMY1, MMX2, MMY2,15) then
            begin
              Result := True;
              Writeln('Tree symbol 3 Found, WOOT!');
              Mouse(x, y, 1, 1,true);
              Flag;
              FreeBitmap(tree1);
              FreeBitmap(tree2);
              FreeBitmap(tree3);
        end
        else
    Result := False;
    FreeBitmap(tree1);
    FreeBitmap(tree2);
    FreeBitmap(tree3);
    end;
  end;
end;

those are procedures to find the tree symbol... i added failsafes and multiple bitmaps just for you!

Quote:

---

Originally Posted by mormonman

that walk is fail... it doesn't even work to get to yews...

here are some bitmaps you can use instead of findsymbol(x,y,'trees');

SCAR Code:

var
  tree1,tree2,tree3 : Integer;

Procedure LoadBitmaps;
  begin
  tree1 := BitmapFromString(9, 1, 'beNpbt3XrOigSZWHVFWb20pCDi' +
       'gAAxqgNgg==');
  tree2 := BitmapFromString(2, 8, 'beNrrncJYzAhHHHUgpCvMPKV3i' +
       'q0oE5CEsIGkl4YckDEFABuPDRk=');
  tree3 := BitmapFromString(9, 1, 'beNpbt3XrOigSZWHVFWb20pCDi' +
       'gAAxqgNgg==');
end;

Function findtreesymbol:boolean;
var
x,y:integer;
  begin
    if not loggedin then exit;
    if FindBitmapToleranceIn(tree1, x, y, MMX1, MMY1, MMX2, MMY2,15) then
    begin
      Result := True;
      Writeln('Tree symbol 1 Found, WOOT!');
      Mouse(x, y, 1, 1,true);
      Flag;
      FreeBitmap(tree1);
      FreeBitmap(tree2);
      FreeBitmap(tree3);
    end
    else
      begin
        if FindBitmapToleranceIn(tree2, x, y, MMX1, MMY1, MMX2, MMY2,15) then
          begin
            Result := True;
            Writeln('Tree symbol 2 Found, WOOT!');
            Mouse(x, y, 1, 1,true);
            Flag;
            FreeBitmap(tree1);
            FreeBitmap(tree2);
            FreeBitmap(tree3);
      end
      else
        begin
          if FindBitmapToleranceIn(tree3, x, y, MMX1, MMY1, MMX2, MMY2,15) then
            begin
              Result := True;
              Writeln('Tree symbol 3 Found, WOOT!');
              Mouse(x, y, 1, 1,true);
              Flag;
              FreeBitmap(tree1);
              FreeBitmap(tree2);
              FreeBitmap(tree3);
        end
        else
    Result := False;
    FreeBitmap(tree1);
    FreeBitmap(tree2);
    FreeBitmap(tree3);
    end;
  end;
end;

those are procedures to find the tree symbol... i added failsafes and multiple bitmaps just for you!

---

Thanks alot, and this was for my willows, I just added the tree symbol just to test it out lol

o lol... it ended up way the heck away from draynor... o well.

Quote:

---

Originally Posted by mormonman

o lol... it ended up way the heck away from draynor... o well.

---

I added what you wrote, and all it does is move my mouese into the corner and lag my script alot? :P

it worked for me... thats really weird!

Quote:

---

Originally Posted by mormonman

it worked for me... thats really weird!

---

yeah itll login, rotate, do anitban.blahblah, then just move into the corner, and everytime i move my mouse away, it just moves back, really fast?