SRL Archive - SRL Archives

{*******************************************************************************
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

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;

Much cooler and shorter :)

WTF!??!?! XOr?

From: Timer
WTF!??!?! XOr?

Google it noob.

—–

I like n3ss3s'esesesss's'sss'ss'. :D

From: Timer
WTF!??!?! XOr?

I'll save you the trouble, it means If Main or (GetColor(65, 76) = 2070783) but not both

(True Xor False) = True
(False Xor True) = True
(False Xor False) = False
(True Xor True) = False