Randoms not working and need ent color text.

[JAD]

OK, well heres my randoms procedure (well, its fakawi's random procedure for the most part.. )

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
  if (Result = true) then
    DidRandomHappen := true;
end;

///////////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  if (FindNormalRandoms) then
    DidRandomHappen := true;
end;

do I need in there if(FindFight)then run away....etc. and stuff like that? When I looked in a few scripts like fakawi's and wizzup?'s, they didn't have that so I assumed it wasn't needed. As for ent color text, if anybody gets an ent, could you pick the color of the ent text for me? that'd be GREAT

Edit: sorry if I didn't clarify, but the problem I'm having is with fighting randoms..

[Secet]

begin
      MMouse(xi, yi, 0, 0);
      if (FindColorSpiralTolerance(X, Y, 65535, 85, 15, 115, 15, 20)) or
        (FindColorSpiralTolerance(X, Y, 383705, 80, 15, 115, 15, 20)) or
        (FindColorTolerance(X, Y, 55769, 85, 15, 115, 15, 20)) then
      begin
        if IsUpTextMulti('hop', 'down', 'own') then
        begin
          laWhere.Caption := 'Ent possibly found! Banking while waiting it to go away.';
          FindTalk;
          BankEm;
          FindTalk;
          WalkBack;
          FindTalk;
          exit;
        end else
      end else

This is how my ent finding works.