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.. :p)

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.