ShopSwitchTab

**Sir R. M8gic1an** · 03-09-2008, 07:41 AM

SCAR Code:

{*******************************************************************************
procedure ShopSwitchTab(name:string);
By: Rasta Magician
Description: Switchs the shop tab to the one you want, only moves mouse
             if neccessary
              ShopSwitchTab('main') or ShopSwitchTab('player')
*******************************************************************************}
procedure ShopSwitchTab(name:string);
begin
  if ShopScreen then
    if (lowercase(name)='main')and(GetColor(56, 73)=1930687) then
      Mouse(57, 73, 20, 6, True)
    else
      if (lowercase(name)='player')and(GetColor(175, 77)=1930687) then
        Mouse(185, 73, 40, 6, True);
end;

just something useful for amount.scar, switches the shop tab according to what is needed, only moves mouse if necessary.

~RM

**n3ss3s** · 03-09-2008, 08:51 AM

SCAR Code:

Procedure ShopSwitchTab(Main: Boolean);
Begin
  If ShopScreen Then
    If Main Xor (GetColor(65, 76) = 2070783) Then
      If Main Then
        Mouse(64, 74, 15, 5, True)
      Else
        Mouse(185, 72, 15, 5, True);
End;