SKy Scripter
08-06-2007, 07:59 PM
hmmm i think i fixed gametab...
i dont know if LoggedIn is broken... i just asumed...
nothing special.. just thought it could be helpful...
function LoggedIn : Boolean;
begin
Result := (GetColor(427, 486) = 16777215);
end;
function GetCurrentTab: Integer;
var
i, xx, yy : Integer;
begin
yy := 169;
for i := 0 to 13 do
begin
xx := 526 + (33 * (i mod 7));
if (i = 7) then yy := yy + 300;
if (FindColor(x, y, 1778795, xx, yy, xx + 32, yy + 32)) then
begin
Result := i + 1;
Exit;
end;
end;
end;
function TabExists(Tab : Integer ) : Boolean;
var
xx, yy : Integer;
begin
Tab := Tab -1
yy := 175;
xx := 530 + (35 * (Tab mod 7));
if (Tab > 6) then yy := yy + 300;
Result := (FindColor(x, y, 65536, xx, yy, xx + 10, yy + 10)) or
(FindColor(x, y, 986896, xx, yy, xx + 10, yy + 10)) or
(FindColor(x, y, 10996182, xx, yy, xx + 10, yy + 10));
end;
function GameTab(Tab: Integer): Boolean;
var
xx, yy, c : Integer;
begin
yy := 175;
xx := 530 + (35 * ((Tab-1) mod 7));
if ((Tab-1) > 6) then yy := yy + 300;
while (TabExists(Tab)) and
(Tab <> GetCurrentTab) and (LoggedIn) and
(C < 5) do
begin
C := C + 1;
Mouse(xx, yy, 10, 10, True);
end;
Result := (Tab = GetCurrentTab)
end;
i dont know if LoggedIn is broken... i just asumed...
nothing special.. just thought it could be helpful...
function LoggedIn : Boolean;
begin
Result := (GetColor(427, 486) = 16777215);
end;
function GetCurrentTab: Integer;
var
i, xx, yy : Integer;
begin
yy := 169;
for i := 0 to 13 do
begin
xx := 526 + (33 * (i mod 7));
if (i = 7) then yy := yy + 300;
if (FindColor(x, y, 1778795, xx, yy, xx + 32, yy + 32)) then
begin
Result := i + 1;
Exit;
end;
end;
end;
function TabExists(Tab : Integer ) : Boolean;
var
xx, yy : Integer;
begin
Tab := Tab -1
yy := 175;
xx := 530 + (35 * (Tab mod 7));
if (Tab > 6) then yy := yy + 300;
Result := (FindColor(x, y, 65536, xx, yy, xx + 10, yy + 10)) or
(FindColor(x, y, 986896, xx, yy, xx + 10, yy + 10)) or
(FindColor(x, y, 10996182, xx, yy, xx + 10, yy + 10));
end;
function GameTab(Tab: Integer): Boolean;
var
xx, yy, c : Integer;
begin
yy := 175;
xx := 530 + (35 * ((Tab-1) mod 7));
if ((Tab-1) > 6) then yy := yy + 300;
while (TabExists(Tab)) and
(Tab <> GetCurrentTab) and (LoggedIn) and
(C < 5) do
begin
C := C + 1;
Mouse(xx, yy, 10, 10, True);
end;
Result := (Tab = GetCurrentTab)
end;