The Claw
08-06-2007, 01:01 PM
Well thats gay. I'll quickly do a fix to gametabs.
ok fixed all the gametab stuff. paste this in line 44 to 244. For simplicity's sake, I've named the new gametab number 14, so as to not mess up every script.
{************************************************* ******************************
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;
3Garrett3
08-06-2007, 01:36 PM
Ya, fix this shit, then make an SRL clan, and clan chat with eachother, antiban, just chat away on the SRL clan chat, and unless a noob figures out our clan, nobody knows what were saying, but jagex says, oh they are talking to their clan, so they must be real people :p
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.