Results 1 to 3 of 3

Thread: [Magic] New RuneTek 5 functions

  1. #1
    Join Date
    Aug 2008
    Location
    England
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Post [Magic] New RuneTek 5 functions

    Hey all, just thaught I'd contribute since RT5 has been released.

    1st procedure: SpellbookMode. You can now choose what areas of magic to show. Use all true in the parameters to set to default.

    SCAR Code:
    {*******************************************************************************
    procedure SpellbookMode(Combat, Teleport, Misc, Skill: Boolean);
    By: Bad Processor
    Description: Makes the spellbook show only specified spells.
    *******************************************************************************}


    procedure SpellbookMode(Combat, Teleport, Misc, Skill: Boolean);
    var OldGT: Integer;
    begin
      OldGT := GetCurrentTab;
      if(not GetCurrentTab = 8) then GameTab(8);
      if(Combat = not (GetColor(591, 441) = 16777215)) then begin
        MouseBox(584, 442, 600, 457, 1);
      end;
      if(Teleport = not (GetColor(611, 441) = 16777215)) then begin
        MouseBox(606, 443, 621, 457, 1);
      end;
      if(Misc = not (GetColor(634, 441) = 16777215)) then begin
        MouseBox(627, 443, 642, 457, 1);
      end;
      if(Skill = not (GetColor(655, 441) = 16777215)) then begin
        MouseBox(649, 442, 662, 457, 1);
      end;
      if(not Combat) and (not Skill) and (not Misc) and (not Teleport) then
        WriteLn('Warning: Script set all spell modes to off, no spells visible.');
      GameTab(OldGT);
    end;

    2nd function: AllSpellsVisible. Returns whether all spells are visible or not.
    SCAR Code:
    {*******************************************************************************
    procedure SpellbookMode(Combat, Teleport, Misc, Skill: Boolean);
    By: Bad Processor
    Description: Makes the spellbook show only specified spells.
    *******************************************************************************}


    function AllSpellsVisible: Boolean;
    var
      OldGT: Integer;
      Temp: Boolean;
    begin
      OldGT := GetCurrentTab;
      if(not GetCurrentTab = 8) then GameTab(8);
      Temp:= GetColor(730, 212) = 1712423;
      GameTab(OldGT);
      Result := Temp;
    end;

    Enjoy.

    -- Bad Processor
    Last edited by Bad Processor; 09-03-2009 at 02:47 AM.

  2. #2
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    These and more posted here. The first could be made much simpler. Look at mine in the thread I linked to.

    Richard
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  3. #3
    Join Date
    Aug 2008
    Location
    England
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Oh noes, darn it.
    -- Bad Processor

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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