n3ss3s
2007-04-29 04:11:35
Sorry for making another thread but I made huge updates so…
Now, here it iz :
Say ur opinion?
Now, here it iz :
function MonsterBusy(MonsterName: string; MonsterColor,
x1, y1, x2, y2, tol: integer): boolean;
{ Auth: n3ss3s}
{ Description : Checks is the monster busy and chats a bit.}
begin
if (FindMonsterTol(x, y, MonsterName, MonsterColor, x1, y1, x2, y2, tol)) then
begin
MouseSpeed := 8;
MMouse(x, y, 0, 0);
if (FindColor(x, y, 65280, x - 70, y - 70, x + 70, y + 70))
or (FindColor(x, y, 255, x - 70, y - 70, x + 70, y + 70)) then
begin
result := true;
end;
end;
if (CountColor(16711422, MMX1, MMY1, MMX2, MMY2) > 3) then
begin
if (random(8) < random(5)) then
begin
case random(2) of
1: begin
GhostSpeak('fighting');
end;
2: begin
case random(3) of
1: begin
HoverSkill('attack', false);
end;
2: begin
HoverSkill('strenght', false);
end;
3: begin
HoverSkill('defence', false);
end;
end;
end;
end;
end;
end;
end;
I think that the Pascal formatter i used crapped the indenting but whatever.Say ur opinion?