Santa_Clause
2009-01-07 04:40:29
Is anyone aware of any bugs? Because I've died from the only 2 talking randoms that I've encountered in the past 2 days with Narcle's Echo fighter. I'm sure the nick is set correctly.
2009-01-07 04:40:29
2009-01-07 04:41:48
2009-01-07 12:11:53
2009-01-07 12:47:29
2009-01-07 14:24:16
2009-01-07 15:33:20
From: Lee Lok Hin
P.s. Talked to Zytex yet?
2009-01-09 02:30:22
2009-01-09 03:22:02
function ChooseOptionGetMenuText(var RawMenuText: string; cx, cy: Integer; Text: string): Boolean;
var
B: TBox;
TPA: TPointArray;
X, Y, I, C: Integer;
P: TPoint;
begin
Result := False;
GetClientDimensions(B.X2, B.Y2);
B.X1 := 0;
B.Y1 := 0;
FindColorsTolerance(TPA, 4674653, B.X1, B.Y1, B.X2, B.Y2, 0);
If Length(TPA) < 10 Then
Exit;
B.X2 := 0;
B.Y2 := 0;
P := TPA[0];
For I := 0 To High(TPA) - 1 Do
If TPA[i].X = TPA[I+1].X - 1 Then
Begin
If C > 5 Then
Begin
B.X1 := P.X;
B.Y1 := P.Y;
Break;
End Else
C := C + 1;
End
Else
Begin
P := TPA[I + 1];
C := 0;
End;
If I = Length(TPA) Then
Begin
WriteLn('Choose Option Menu Getting Failed');
Exit;
End;
InvertTPA(TPA);
C := 0;
P := TPA[0];
For I := 0 To High(TPA) - 1 Do
If TPA[i].X = TPA[I+1].X + 1 Then
Begin
If C > 5 Then
Begin
B.X2 := P.X;
B.Y2 := P.Y;
Break;
End Else
C := C + 1;
End Else
Begin
P := TPA[I + 1];
C := 0;
End;
If I = Length(TPA) Then
Begin
WriteLn('Choose Option Menu Getting Failed');
Exit;
End;
If FindText(X, Y, Text, upchars, B.X1, B.Y1, B.X2, B.Y2) Then
Begin
Result := True;
RawMenuText := GetTextAtEx(X, Y, 0, upchars, True, True, 0, 0, -1, 25, False, tr_NormalChars);
Mouse(B.X1 + 5, y + 1, B.X2 - B.X1 - 5, 13, True);
Exit;
End;
MMouse(B.X1 - 50, B.Y1 - 50, 40, B.Y2 - B.Y1);
Wait(200 + Random(100));
end;
2009-01-09 04:18:31
2009-01-10 16:21:27
2009-01-10 16:58:50
2009-01-10 22:52:33
From: noidea
Why was it stuffing up In SCAR 3.2 Zeph?