Results 1 to 4 of 4

Thread: Please help, CoinAmount()

  1. #1
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default Please help, CoinAmount()

    hi, I've been trying to use CoinAmount() but it never reads the first number. i had 51500 and it only read 1500, with 213k it only read 13000... anyone know how to fix this? i tried having the money in different spots too.

    this is what i had to test it:
    writeln('coin amount: '+ IntToStr(CoinAmount('inv')));

    Thanks in advance,
    RMagician

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The co-ords inside the Amount.scar is incorrect atm thats why it is only reading some of the numbers.

    If you want to correct it to make it work then..
    SCAR Code:
    procedure AreaInfo(area: string; var startx, starty, rowsize, colsize,
      colnumber, rownumber: Integer);
    begin
      case LowerCase(area) of
        'inv', 'inventory':
          begin
            startx := 563;
            starty := 212;

            rowsize := 38;
            colsize := 42;

            colnumber := 4;
            rownumber := 7;
          end
          'shop':
          begin
            startx := 79;
            starty := 68;

            rowsize := 47;
            colsize := 47;

            colnumber := 8;
            rownumber := 5; //?
          end;
        'bank':
          begin
            startx := 78;
            starty := 61;

            rowsize := 38;
            colsize := 47;

            colnumber := 8;
            rownumber := 6;
          end;
        'trade':
          begin
            startx := 324;
            starty := 72;

            rowsize := 33;
            colsize := 42;

            colnumber := 4;
            rownumber := 7;
          end;
        'your trade':
          begin
            startx := 35;
            starty := 74;

            rowsize := 33;
            colsize := 42;

            colnumber := 4;
            rownumber := 7;
          end;
      else InvalidOption(area);
      end;
    end;

    Is what you need to replace in amount.scar located at SRL/SRL/Core/Amount.scar

    Beware, if you change this and no1 else has it changed, the script wont work for the other person

    Best solution is to wait until a update to SRL is made with the fix, or make yr own coinammount .

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    heh i did try that, and not wanting to change it much i only change the colsize on inv by 2 px, maybe i'll try changing it to more? thank you

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  4. #4
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use above and it will work.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

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
  •