3Garrett3
2007-08-06 08:58:47
2007-08-06 08:58:47
2007-08-06 09:01:38
{*******************************************************************************
function GetCurrentTab: Integer;
By: Devils Elbow / Starblaster100 and modified by Ron and The Claw
Description: Returns current tab
*******************************************************************************}
function GetCurrentTab: Integer;
begin
begin
if GetColor(542, 175) = 1778795 then
Result := 1
else if GetColor(569, 176) = 1976437 then
Result := 2
else if GetColor(600, 174) = 1910385 then
Result := 3
else if GetColor(630, 173) = 1778795 then
Result := 4
else if GetColor(667, 173) = 1910385 then
Result := 5
else if GetColor(699, 174) = 1910385 then
Result := 6
else if GetColor(732, 173) = 1976437 then
Result := 7
else if GetColor(564, 470) = 1778795 then
Result := 8
else if GetColor(600, 471) = 1976437 then
Result := 9
else if GetColor(630, 470) = 1778795 then
Result := 10
else if GetColor(666, 47) = 1910385 then
Result := 11
else if GetColor(698, 478) = 1778795 then
Result := 12
else if GetColor(729, 472) = 2107770 then
Result := 13;
if GetColor(530, 476) = 1647204 then
Result := 14;
end;
end;
{*******************************************************************************
function TabExists(TabNumber: Integer): Boolean;
By: Flyboy and modified by The Claw.
Description: Returns true if tab exists.
Very useful for tutorial Is. as well as a simple double check to make sure
your fully logged in.
*******************************************************************************}
function TabExists(TabNumber: Integer): Boolean;
var
Tx, Ty:Integer;
begin
case TabNumber of
1: Result := FindColor(Tx, Ty, 65536, 560, 188, 568, 194);
//GameTab 1 = Fightmode
2: Result := FindColor(Tx, Ty, 460807, 580, 188, 590, 198);
//GameTab 2 = Statistic
3: Result := FindColor(Tx, Ty, 16671819, 611, 185, 621, 195);
//GameTab 3 = Quest
4: Result := FindColor(Tx, Ty, 65536, 640, 197, 648, 206);
//GameTab 4 = Inventory
5: Result := FindColor(Tx, Ty, 65536, 686, 185, 694, 193);
//GameTab 5 = Wield
6: Result := FindColor(Tx, Ty, 65536, 711, 195, 719, 203);
//GameTab 6 = Prayer
7: Result := FindColor(Tx, Ty, 65536, 735, 180, 745, 190);
//GameTab 7 = Mage
8: Result := FindColor(Tx, Ty, 65536, 581, 477, 589, 485);
//GameTab 8 = Add Friend
9: Result := FindColor(Tx, Ty, 65536, 608, 479, 616, 487);
//GameTab 9 = Del Friend
10: Result := FindColor(Tx, Ty, 3691124, 646, 484, 656, 494);
//GameTab 10 = LogOut
11: Result := FindColor(Tx, Ty, 65536, 683, 486, 691, 494);
//GameTab 11 = Tools/Run
12: Result := FindColor(Tx, Ty, 65536, 708, 480, 716, 488);
//GameTab 12 = Emotes
13: Result := FindColor(Tx, Ty, 65536, 736, 485, 744, 493);
//GameTab 13 = Music
14: Result := FindColor(Tx, Ty, 65536, 530, 477, 538, 481);
//Gametab 14 = Clanchat;
end; //case Tab
end;
{*******************************************************************************
function GameTab(tabnumber: Integer): Boolean;
By: Mutant Squirrle / Starblaster100, and modified by The Claw
Description: Switches between tabs.
*******************************************************************************}
function GameTab(tabnumber: Integer): Boolean;
var
c: Integer;
begin
if GetCurrentTab = tabnumber then
begin
Result := True;
Exit;
end;
if not TabExists(tabnumber) then
begin
Result := False;
Exit;
end;
case tabnumber of
1: if (not (GetColor(558, 180) = 2566003)) then
begin
repeat Mouse(558, 187, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
2: if (not (GetColor(594, 181) = 2763390)) then
begin
repeat Mouse(586, 187, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
3: if (not (GetColor(620, 176) = 2763390)) then
begin
repeat Mouse(613, 186, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
4: if (not (GetColor(636, 174) = 2500207)) then
begin
repeat Mouse(650, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
5: if (not (GetColor(676, 176) = 2763390)) then
begin
repeat Mouse(684, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
6: if (not (GetColor(705, 180) = 2763390)) then
begin
repeat Mouse(711, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
7: if (not (GetColor(733, 179) = 2829182)) then
begin
repeat Mouse(738, 188, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
8: if (not (GetColor(594, 475) = 2171233)) then
begin
repeat Mouse(584, 482, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
9: if (not (GetColor(622, 497) = 2434414)) then
begin
repeat Mouse(612, 484, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
10: if (not (GetColor(637, 485) = 2500207)) then
begin
repeat Mouse(648, 484, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
11: if (not (GetColor(678, 483) = 2171233)) then
begin
repeat Mouse(683, 483, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
12: if (not (GetColor(706, 485) = 2434414)) then
begin
repeat Mouse(712, 482, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
13: if (not (GetColor(728, 488) = 2829182)) then
begin
repeat Mouse(737, 483, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
end;
14: if (not (GetColor(528, 474) = 1778795)) then
begin
repeat Mouse(528, 474, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
end;
if (c < 3) then
begin
Result := True;
Wait(10);
// Wait(300 + Random(300)); //DON'T CHANGE THIS.
end;
end;
2007-08-06 09:11:35
2007-08-06 09:11:55
2007-08-06 09:16:24
2007-08-06 09:22:18
2007-08-06 09:24:14
2007-08-06 09:29:46
2007-08-06 09:31:27
2007-08-06 09:32:01
2007-08-06 09:32:54
2007-08-06 09:36:34
2007-08-06 09:41:24
2007-08-06 09:42:10
From: The Claw
gems are changed again? damn
edit: bankscreen looks like its changed as well. and gems look shit lol.
2007-08-06 09:52:10
2007-08-06 10:00:35
2007-08-06 10:01:57