Results 1 to 2 of 2

Thread: Fixed SetRun and DoEmote[Mods move this, I dunno where to post]

  1. #1
    Join Date
    Sep 2006
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fixed SetRun and DoEmote[Mods move this, I dunno where to post]

    Ok, first find your SRL directory. In my case it'll be
    C:\Program Files\Scar 2.03\includes\SRL\
    Now find the SRL folder that's inside the main SRL folder.

    We're now at
    C:\Program Files\Scar 2.03\includes\SRL\SRL
    Find the core's folder and open up
    Gametab.scar
    . Find SetRun and replace it's code with this

    Code:
    procedure SetRun(run: Boolean);
    begin
      GameTab(11);
      case run of
        True: if (GetColor(647, 425) <> 5542492) then
            Mouse(647, 425, 4, 4, True);
        False: if (GetColor(647, 425) <> 1251528) then
            Mouse(647, 425, 4, 4, True);
      end;
    end;
    Simple fix, very simple. Now find DoEmote. Copy + paste this code over that function and it's fixed.(It should work!)

    Code:
    procedure DoEmote(EmoteNumber: Integer);
    var
      EmoteCoords, Section: TPoint;
      Row: Integer;
    begin
      if (EmoteNumber > 32) or (EmoteNumber < 1) then Exit;
      if (EmoteNumber < 12) then Row := 1;
      if (EmoteNumber > 12) then begin EmoteNumber := EmoteNumber - 12; Row := 2; end;
      if (EmoteNumber > 12) then begin EmoteNumber := EmoteNumber - 8; Row := 3; end;
      Section.x := EmoteNumber / 4;
      Section.y := EmoteNumber - (Section.x * 4) - 1;
      if (Section.y < 0) then
      begin
        Section.y := 3;
        Section.x := Section.x - 1;
      end;
      EmoteCoords.x := 562 + ((Section.y) * 42);
      EmoteCoords.y := 377 + ((Section.x) * 30);
      GameTab(12);
      case Row of
        1: if not (GetColor(574, 226) = 5531254) then Mouse(730, 393, 6, 4, True);
        2: if not (GetColor(577, 336) = 2436403) then Mouse(730, 422, 6, 0, True);
        3: if not (GetColor(706, 239) = 2436403) then Mouse(730, 440, 6, 3, True);
      end;
      Wait(500 + Random(500));
      if (FindColor(x, y, 65535, EmoteCoords.x, EmoteCoords.y, EmoteCoords.x + 32, EmoteCoords.y + 23)) then
      begin
        MouseBox(EmoteCoords.x, EmoteCoords.y, EmoteCoords.x + 32, EmoteCoords.y + 23, 1);
        Wait(1750 + Random(750));
      end;
    end;
    Again, simple, simple fix.

  2. #2
    Join Date
    Sep 2006
    Location
    Texas
    Posts
    65
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey nice patch you made. thanks a lot it really works.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [Re-post] Forest Frostbite | Fixed by Ashur2Good
    By Ashur2Good in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 05-05-2009, 10:16 AM
  2. Dunno how to fix!
    By fabis94 in forum OSR Help
    Replies: 6
    Last Post: 04-02-2007, 03:12 PM

Posting Permissions

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