SRL Archive - SRL Archives

Do you think we should add FixSpells; for the new runescape update that makes sure the spells are sorted by level. Im not a very good scripted so i couldnt get it to work but this was what I had

{*******************************************************************************
procedure FixSpells;
By: ????
Description: Returns the spell order to sort by level.
*******************************************************************************}

procedure FixSpells;
begin
  Gametab(7);
  if not FindColor(677, 449, 2765882)then
  begin
    Mouse(683, 450, 5, 5);
    repeat
      Wait(200)
    until(FindColor(677, 449, 2765882))
  end;
end

is that color constant?

~shut

not sure but I was just pretty much saying someone should make one lol but I couldnt get it to work to test it. and i thought stuff in the gametabs had a constant color.

procedure FixSpells;
var
  Color: Integer;
begin
   Color:= GetColor(682, 453);
   if (Color <> 4938596) then
     Mouse(677, 444, 13, 13, True);
end;

there you go :D

~shut

EDIT:

From: trojan
not sure but I was just pretty much saying someone should make one lol but I couldnt get it to work to test it. and i thought stuff in the gametabs had a constant color.

well when i chose one spot the color kept changing so i had to choose another spot

yes it's constant..

I could make this up really quick

>.>

darn you shut.

From: 99_
yes it's constant..

I could make this up really quick

>.>

darn you shut.

dw i will have a better one in a sec :p

~shut

you can't use colors.. you have have to use MouseBox or DTMs..

because if you have the runes, it will be the same color as a spell.. :)

From: 99_
you can't use colors.. you have have to use MouseBox or DTMs..

because if you have the runes, it will be the same color as a spell.. :)

which is why i used GetColor so it only picks the color from a certain spot ;)

{*******************************************************************************
procedure SortSpellsBy(Which: string);
By: Shuttleu
Description: Changes the order of spells depending on what is put for Which
Arguments for Which are:
level
combat
tele
*******************************************************************************}
procedure SortSpellsBy(Which: string);
var
  Color: Integer;
begin
  case Lowercase(Which) of
  'level': begin
             Color:= GetColor(682, 453);
             if (Color <> 4938596) then
               Mouse(677, 444, 13, 13, True);
           end;
  'combat': begin
             Color:= GetColor(699, 449);
             if (Color <> 7243153) then
               Mouse(695, 444, 13, 13, True);
           end;
  'tele': begin
             Color:= GetColor(716, 446);
             if (Color <> 6518915) then
               Mouse(714, 444, 13, 13, True);
           end;
  end;
end;

anyway here you are

~shut

narb. :p

and it's not very useful IMO, just use Cast( );

crap i made a small mistake
give me a min

~shut

EDIT: here we go
shorter and it works properly

{*******************************************************************************
procedure SortSpellsBy(Which: string);
By: Shuttleu
Description: Changes the order of spells depending on what is put for Which
Arguments for Which are:
level
combat
tele
*******************************************************************************}
procedure SortSpellsBy(Which: string);
begin
  case Lowercase(Which) of
  'level': if (GetColor(682, 453) <> 4938596) then
             Mouse(677, 444, 13, 13, True);
  'combat': if (GetColor(699, 449) <> 4871777) then
              Mouse(695, 444, 13, 13, True);
  'tele': if (GetColor(716, 446) <> 2765882) then
            Mouse(714, 444, 13, 13, True);
  end;
end;

Might wanna switch to GameTab 7 first..

From: lordsaturn
Might wanna switch to GameTab 7 first..

oh yea :duh: thanks for pointing that out

{*******************************************************************************
procedure SortSpellsBy(Which: string);
By: Shuttleu
Description: Changes the order of spells depending on what is put for Which
Arguments for Which are:
level
combat
tele
*******************************************************************************}
procedure SortSpellsBy(Which: string);
begin
  GameTab(7);
  case Lowercase(Which) of
  'level': if (GetColor(682, 453) <> 4938596) then
             Mouse(677, 444, 13, 13, True);
  'combat': if (GetColor(699, 449) <> 4871777) then
              Mouse(695, 444, 13, 13, True);
  'tele': if (GetColor(716, 446) <> 2765882) then
            Mouse(714, 444, 13, 13, True);
  end;
end;

you wouldnt use sort by anything else would you though as in the magic.scar file the cast spell function only works on sort by level that why i just had fixspells.

From: trojan
you wouldnt use sort by anything else would you though as in the magic.scar file the cast spell function only works on sort by level that why i just had fixspells.

It actually works on bitmaps so really you wouldn't need anything as it would just find the spell no matter where it is.

oh, so this function would just be for scripts that used coordinates for spells.

From: ZephyrsFury
It actually works on bitmaps so really you wouldn't need anything as it would just find the spell no matter where it is.

just wondering but arent some of the bitmaps for the spells outdated?
because whenever i want to use a spell i have to remake it before i can use a script (after the first time it is fine)

~shut