Color Finding Function

[TheGodfather]

Hey, I'm trying to get up a better color finding procedure, and I'm wondering, how to declare several different results from a Function.

// AutoColorProcedure {note: color=iron}
program colorfind;

const
 rockcolor= 2305614; //color of rock (will use this to auto color)
var MineCol1,MineCol2,MineCol3,x,y: integer;
Function GetRockColor(MineCol1,MineCol2,MineCol3: integer): integer
  begin
 if
 FindColorTolerance(x,y,rockcolor,10,5,416,336,2) then
 GetColor(x+3,y+3) and GetColor(x-3,y-3)
// This is where I do NOT kno what to put as a result

end. 

Near the end, I dont kno how to declare every different color I get as a result.
If someone may, I'd like them to teach me how :P

[Boreas]

Never mind, arrays are better, see Juniors post below

Few ways to do this, none are really appealing.

1.
Make the variables where you want the answers to be global variables. Color1, Color2, etc as global vars. Then the autocolor function can set all of them. Not very elegant, but its easy.

2.
Slightly more elegant, but little harder. Make the autocolor procedure set the answers to variables of your choice.

procedure Autocolor (var answer1, answer2, answer3:integer);
begin
  //do stuff
  answer1:=stuff
  etc 
end;

autocolor(myvar1,myvar2,myvar3); will set the answers to those vars. Notice the var in the parameters. Findcolor/bitmap/dtms functions have this for the x,y location of the answer.

3.
Make it return a multiple branched type.

type 3Ints = record
First,Second,Third :integer;
end;

var
RockColors:3Ints;

function AutoColorRock (parameters):3Ints;
begin
  dostuff
  result.first:=stuff;
  result.second:=otherstuff;
  result.thrird:=morestuff;
end;
//main loop
begin
RockColors:=AutoColorRock(theparams);
writeln(inttostr(rockcolors.first));
writeln(inttostr(rockcolors.first));

If you don't understand the type stuff then don't worry about it.

[Junior]

Here you go, is this what your looking for?

// AutoColorProcedure {note: color = iron}
program colorfind;

const
 rockcolor = 2305614; //color of rock (will use this to auto color)
 
var
 MineCol1, MineCol2, MineCol3, x, y: integer;

function GetRockColor: array of integer;
begin
  if (FindColorTolerance(x, y, rockcolor, 10, 5, 416, 336, 2)) then
  begin
    MineCol1 := GetColor(x + 3, y + 3);
    MineCol2 := GetColor(x - 3, y - 3);
    MineCol3 := GetColor(x, y);
    Result := ([MineCol1, MineCol2, MineCol3]);
  end else
    //Result := ([0, 0, 0]);    ****pick either of the 3...***
    //Result := ([0]);
    //Result := ([rockcolor, rockcolor, rockcolor]);
end;

begin
end.

EDIT: boreas' porcedures make more sense...

[TheGodfather]

Thanks alot for the help guys. It's REALLY helping alot.

[TheGodfather]

// AutoColorProcedure {note: color=iron}
program colorfind;

const
 rockcolor= 2305614; //color of rock (will use this to auto color)

var MineCol: array [0..3] of integer;
a,x,y: integer;

Function GetRockColor(MineCol: integer): integer;
  begin
 if
 FindColorTolerance(x,y,rockcolor,10,5,416,336,2) then
  begin
 MineCol[0] := GetColor(x+3,y+3);
 MineCol[1] := GetColor(x-3,y-3);
 MineCol[2] := GetColor(x-3,y+3);
 MineCol[3] := GetColor(x+3,y-3);
    a:= 0 to 3;
end; 

Im getting an error now, dont kno why I need a semi colon, im pretty sure this is an obvious error im not seeing right now...

[the nerd]

Your problem is really simple.

FindColorTolerance(x,y,rockcolor,10,5,416,336,2) then
  begin
 MineCol[0] := GetColor(x+3,y+3);
 MineCol[1] := GetColor(x-3,y-3);
 MineCol[2] := GetColor(x-3,y+3);
 MineCol[3] := GetColor(x+3,y-3);
    a:= 0 to 3;

should be

FindColorTolerance(x,y,rockcolor,10,5,416,336,2) then
  begin
 MineCol[0] := GetColor(x+3,y+3);
 MineCol[1] := GetColor(x-3,y-3);
 MineCol[2] := GetColor(x-3,y+3);
 MineCol[3] := GetColor(x+3,y-3);
  end;

also you don't need the variable 'a' any more.

THE NERD

[TheGodfather]

Your problem is really simple.

FindColorTolerance(x,y,rockcolor,10,5,416,336,2) then
  begin
 MineCol[0] := GetColor(x+3,y+3);
 MineCol[1] := GetColor(x-3,y-3);
 MineCol[2] := GetColor(x-3,y+3);
 MineCol[3] := GetColor(x+3,y-3);
    a:= 0 to 3;

should be

FindColorTolerance(x,y,rockcolor,10,5,416,336,2) then
  begin
 MineCol[0] := GetColor(x+3,y+3);
 MineCol[1] := GetColor(x-3,y-3);
 MineCol[2] := GetColor(x-3,y+3);
 MineCol[3] := GetColor(x+3,y-3);
  end;

also you don't need the variable 'a' any more.

THE NERD

Nope still get the problems

[Junior]

Your calling variables more then twice and using them as paramaters in your procedure... I dont really understand what your doing.. But here it is, fixed.

// AutoColorProcedure {note: color=iron}
program colorfind;

const
 rockcolor= 2305614; //color of rock (will use this to auto color)

//var MineCol: array [0..3] of integer;
{a,}
var
 x,y: integer;

Function GetRockColor(MineCol: array [0..3] of integer): integer;
var
 i: integer;
begin
  if (FindColorTolerance(x, y, rockcolor, 10, 5, 416, 336, 2)) then
  begin
    MineCol[0] := GetColor(x+3,y+3);
    MineCol[1] := GetColor(x-3,y-3);
    MineCol[2] := GetColor(x-3,y+3);
    MineCol[3] := GetColor(x+3,y-3);
    i := Random(3) + 1;
    result := MineCol[i];
  end;
end;
//needed another end

begin
end.

EDIT: Would this solve all your problems???

program New;
{.include SRL/SRL.scar}

const
 orecolor = 0;

Function GetRockColor(rockcolor: integer): integer;
var
 MineCol: array [0..3] of integer;
 i: integer;
begin
  if (FindColorTolerance(x, y, rockcolor, 10, 5, 416, 336, 2)) then
  begin
    MineCol[0] := GetColor(x+3,y+3);
    MineCol[1] := GetColor(x-3,y-3);
    MineCol[2] := GetColor(x-3,y+3);
    MineCol[3] := GetColor(x+3,y-3);
    i := Random(3) + 1
    result := MineCol[i];
  end;
end;

//use like this

procedure FindTheRock;
var
 NewRockColor: integer;
begin
 NewRockColor := GetRockColor(orecolor);
 if (FindColorSpiralTolerance(x, y, NewRockColor, msx1, msy1, msx2, msy2, 15)) then
   Writeln('Found');
end;


begin
  SetUpSRL;
  FindTheRock;
end.

[TheGodfather]

Thanks, Hey if your still in the neighborhood, can you explain your first edit, the i =:random(3) +1
*********************
So say if I wanted to find a color, would it be looking for all the colors, and if it finds any of them, pick a random one of em? Correct me if im wrong. Thanks for the help man ++ rep

EDIT, also, how would I call on that variable within a script.