Naum
2008-10-30 12:00:23
Uses Hotkeys to change tabs. Only will change tabs if Ftabnumber is lower than 8. Otherwise it uses GameTab. Very usefull!
I like iz niice
{*******************************************************************************
Function GameTabF(FTabNumber : Integer) : Boolean;
By: NaumanAkhlaQ
Description: If FTabNumber is less than 8 then it will use the F Key
to change tab. If FTabNumber > 8 Then it will use GameTab.
*******************************************************************************}
Function GameTabF(FTabNumber : Integer) : Boolean;
Begin
If (GetCurrentTab = FTabNumber) Then
Begin
Result := True;
Exit;
End Else
If ((FTabNumber < 1) or (FTabNumber > 15)) Then
Begin
srl_Warn('FGameTab', IntToStr(FTabNumber) + ' is no valid GameTab', warn_AllVersions);
Result := False;
Exit;
end;
If (FTabNumber > 8) Then
Begin
GameTab(FTabNumber);
Result := True;
End Else
Case FTabNumber Of
1: TypeByte(VK_F1); 2: TypeByte(VK_F2);
3: TypeByte(VK_F3); 4: TypeByte(VK_F4);
5: TypeByte(VK_F5); 6: TypeByte(VK_F6);
7: TypeByte(VK_F7); 8: TypeByte(VK_F8);
end;
Wait(Random(80));
Result := (GetCurrentTab = FTabNumber);
Wait(470 + Random(80));
end;I like iz niice