Results 1 to 4 of 4

Thread: Grand Exchange.scar bugg!

  1. #1
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Grand Exchange.scar bugg!

    SCAR Code:
    {*******************************************************************************
    function GESetPrice(value: string): boolean;
    By: Rasta Magician
    Description: Sets the price of an item.
                 '0', 'min' - Minimum Value
                 '1', 'med' - Market Value
                 '2', 'max' - Max value
                      Other - Exact value
    *******************************************************************************}

    function GESetPrice(Value: Variant): boolean;
    begin

      if not InGE then exit;
      if not GESellMenu then
        if not GEBuyMenu then
          exit;

      if value = 'min' then value := 0;
      if value = 'med' then value := 1;
      if value = 'max' then value := 2;

      wait(100+Random(50));

      case value of
        1: MouseBox(269, 208, 304, 232, 1);      // min price
        2: begin end;                            // market price
        3: MouseBox(376, 210, 408, 233, 1);      // max price
        else begin
          MouseBox(429, 209, 462, 234, 1);
          wait(100+Random(100));
          TypeSend(IntToStr(value));
          wait(200+Random(100));
          if IsChatBoxTextAnyLine('price range', clblack) then
          begin
            writeln('wrong price! Out of Price Range!');
            GEMenuExit;
          end;
        end;
      end;

      Result := true;
    end;

    change it to this pl0x.
    SCAR Code:
    {*******************************************************************************
    function GESetPrice(value: string): boolean;
    By: Rasta Magician
    Description: Sets the price of an item.
                 '0', 'min' - Minimum Value
                 '1', 'med' - Market Value
                 '2', 'max' - Max value
                      Other - Exact value
    *******************************************************************************}

    function GESetPrice(Value: Variant): boolean;
    begin

      if not InGE then exit;
      if not GESellMenu then
        if not GEBuyMenu then
          exit;

      if value = 'min' then value := 0;
      if value = 'med' then value := 1;
      if value = 'max' then value := 2;

      wait(100+Random(50));

      case value of
        0: MouseBox(269, 208, 304, 232, 1);      // min price
        1: begin end;
        2: MouseBox(376, 210, 408, 233, 1);      // max price
        else begin
          MouseBox(429, 209, 462, 234, 1);
          wait(100+Random(100));
          TypeSend(IntToStr(value));
          wait(200+Random(100));
          if IsChatBoxTextAnyLine('price range', clblack) then
          begin
            writeln('wrong price! Out of Price Range!');
            GEMenuExit;
          end;
        end;
      end;

      Result := true;
    end;

  2. #2
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You still need to keep this in though:

    SCAR Code:
    1: begin end;

    Or else SCAR will type in '1'.

  3. #3
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Woops.

  4. #4
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    A lot of GE.scar's (or any one the .scar files in misc/..) functions are outdated, check my topic "Zyt3x's fixes" for a working version

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •