SetupAutoCast

Newer version of what I had before:

SCAR Code:

Procedure SetupAutoCast(Spell: String; Defensive: Boolean);
Var
  SpellNames: Array [0..1] of Array [0..3] of String;
  TSA: TStringArray;
  i, x, y, xb, yb: Integer;
  ii, SpellInt, Colours: TIntegerArray;
Begin
  if not GameTab(1) then Exit;
  SpellNames[0] := ['wind', 'water', 'earth', 'fire'];
  SpellNames[1] := ['strike', 'bolt', 'blast', 'wave'];
  Colours := [];
  Mouse(655, ((Integer(not(Defensive)) * 33) + 253), 50, 25, True);
  TSA := srl_Explode(Spell, ' ');
  For i := 0 to 1 do
    For ii[i] := 0 to 3 do
      If (TSA[ii[i]] = SpellNames[i][ii[i]]) then
        SpellInt[i] := ii[i];
  xb := ((SpellInt[0] * 40) + 503)
  yb := ((SpellInt[1] * 61) + 124)
  If FindColorTolerance(x, y, Colours[SpellInt[0] * SpellInt[1]], xb + 5, yb + 5, xb - 5, yb - 5, 20) then
    Mouse(xb, yb, 3, 3, True);
end;

This only works in theory, there is no way to check if the opening of auto cast setup works, or any of the spells works as of yet. Could someone with the spells active please do this?

Thanks

It looks good :) Should work though as it seems.



~NS

You should use InStrArrEx to get which element your spell is, and then again for which style, so you get your row and column in only 2 lines...

Quote:

---

Originally Posted by n3ss3s

You should use InStrArrEx to get which element your spell is, and then again for which style, so you get your row and column in only 2 lines...

---

Thanks, I'll implement that now.

SCAR Code:

Procedure SetupAutoCast(Spell: String; Defensive: Boolean);
Var
  SpellNames: Array [0..1] of Array [0..3] of String;
  TSA: TStringArray;
  i, x, y, xb, yb: Integer;
  SpellInt, Colours: TIntegerArray;
Begin
  if not GameTab(1) then Exit;
  SpellNames[0] := ['wind', 'water', 'earth', 'fire'];
  SpellNames[1] := ['strike', 'bolt', 'blast', 'wave'];
  Colours := [];
  Mouse(655, ((Integer(not(Defensive)) * 33) + 253), 50, 25, True);
  TSA := srl_Explode(Spell, ' ');
  For i := 0 to 1 do
    If not(InStrArrEx(TSA[i], SpellNames[i], SpellInt[i])) then
    Begin
      srl_Warn(SetupAutoCast, ' Invalid spell name', warn_AllVersion);
      Exit;
    end;
  xb := ((SpellInt[0] * 40) + 503)
  yb := ((SpellInt[1] * 61) + 124)
  If FindColorTolerance(x, y, Colours[SpellInt[0] * SpellInt[1]], xb + 5, yb + 5, xb - 5, yb - 5, 20) then
    Mouse(xb, yb, 3, 3, True);
end;

Now also yells at you for bad spells.

If you made a version that worked, I'd commit it.
Looks really nice IMO.

[Runtime Error] : Could not call proc

its the first string line

Never had that problem, guessing its another one of the 3.20+ problems.

Quote:

---

Originally Posted by Richard

Never had that problem, guessing its another one of the 3.20+ problems.

---

You can't set static arrays like that in 3.15 or 3.20+. However it never errored in 3.15, just terminated the script.

Quote:

---

Originally Posted by EvilChicken!

If you made a version that worked, I'd commit it.
Looks really nice IMO.

---

Nauman did have a working version, but it would appear he deleted his post...

Quote:

---

Originally Posted by Richard

Nauman did have a working version, but it would appear he deleted his post...

---

He just moved it.

Quote:

---

Originally Posted by Sabzi

He just moved it.

---

Seeing as no one really paid attention to this post I made another thread, with a bit more shortenings:

http://www.villavu.com/forum/showthr...369#post621369

I hope people pay attention to that.