SetTab Procedure (The All and Game Tab)
I didnt know what to call this so i named it SetTab.
Here's a picture if you dont know what tab im trying to say:
http://img401.imageshack.us/img401/9...eforsrlkp4.png
SCAR Code:
procedure SetTab(Option : String; BottomTab: Integer);
Var
x, y, mx, my, Color: Integer;
begin
Case BottomTab of
1: mx := 32;
2: mx := 98
else Exit;
end;
my := 486;
Case Option Of
'All','all': begin Color := 3819344; Option :='All'; end;
'Game','game': begin Color := 3819344; Option :='Game'; end;
else Writeln('Option in SetTab does not exist!');
End;
If FindColor(x, y, Color, mx - 10, my - 10, mx + 10, my + 10) Then
Begin
Mouse(mx, my, 8, 8, True);
End;
end;
To use it type in:
SCAR Code:
SetTab('All',1) // 1 is for All and 2 is for Game.