SRL Archive - SRL Archives

I updated the SetUpAutoCast function and modified a little since the colors where outdated, non constant for me :) and this is a update to magic :P
// » Procedure SetUpAutoCast(AutoSpell:String;Style:String); | by Wizzup? Updated by Mx1000/Djarno

Const

  MFM  =  'NoDefenseExp';  // DefenseExp or NoDefenseExp
  S2C  =  '4';             // Spell Too AutoCast
// '1' = Wind Strike, '2' = Water Strike, '3' = Earth Strike, '4' = Fire Strike,
// '5' = Wind Bolt,   '6' = Water Bolt,   '7' = Earth Bolt,   '8' = Fire Bolt,
// '9' = Wind Blast,  '10'= Water Blast,  '11'= Earth Blast,  '12'= Fire Blast,
// '13'= Wind Wave,   '14'= Water Wave,   '15'= Earth Wave,   '16'= Fire Wave.

procedure SetUpAutoCast(AutoSpell:String;Style:String); 

begin
GameTab(1);

if (MFM = 'DefenseExp') and (GetColor(572, 274) <> 1777020) then

      begin
           Mouse(681, 274, 2, 2, True);
           Wait(2000 + Random(500));
      end;

if (MFM  = 'NoDefenseExp') and (GetColor(615, 276)<> 1711221) then

      begin
           Mouse(680, 330, 2, 2, True);
           Wait(2000 + Random(500));
      end;

if (Lowercase(S2C) = 'wind strike') or (S2C = '1') then

        begin
             Mouse (586, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water strike') or (S2C = '2') then

        begin
             Mouse (628, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth strike') or (S2C = '3') then

        begin
             Mouse (668, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'fire strike') or (S2C = '4') then

        begin
             Mouse (706, 226, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'wind bolt') or (S2C = '5') then

        begin
             Mouse (586, 269, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water bolt') or (S2C = '6') then

        begin
             Mouse (628, 269, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth bolt') or (S2C = '7') then

        begin
             Mouse (668, 269, 2, 2, True);
             Wait(1000+Random(500));
        end;

if (Lowercase(S2C) = 'fire bolt') or (S2C = '8') then

        begin
             Mouse (706, 269, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'wind blast') or (S2C = '9') then

        begin
             Mouse (586, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water blast') or (S2C = '10') then

        begin
             Mouse (628, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth blast') or (S2C = '11') then

        begin
             Mouse (668, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'fire blast') or (S2C = '12') then

        begin
             Mouse (706, 313, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'wind wave') or (S2C = '13') then

        begin
             Mouse (586, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'water wave') or (S2C = '14') then

        begin
             Mouse (628, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'earth wave') or (S2C = '15') then

        begin
             Mouse (668, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

if (Lowercase(S2C) = 'fire wave') or (S2C = '16') then

        begin
             Mouse (706, 355, 2, 2, True);
             Wait(1000 + Random(500));
        end;

end;

original
// » Procedure SetUpAutoCast(AutoSpell:String;Style:String); | by Wizzup?

procedure SetUpAutoCast(AutoSpell: string; Defensive: Boolean);

var
  Points: TPoint;

begin
  GameTab(1);

  case Defensive of
    True: Mouse(690, 270, 8, 8, True);
    False: Mouse(695, 330, 8, 8, True);
  end;

  Wait(2000 + Random(500));

  if (LowerCase(AutoSpell) = 'wind strike') or (AutoSpell = '1') then

    if FindColor(Points.x, Points.y, 12632764, 585, 225, 587, 227) then

    begin
      Mouse(Points.x, Points.y, 2, 2, True);
      Wait(1000 + Random(500));
    end;

  if (LowerCase(AutoSpell) = 'water strike') or (AutoSpell = '2') then

    if FindColor(Points.x, Points.y, 16349818, 628, 225, 630, 227) then

    begin
      Mouse(Points.x, Points.y, 2, 2, True);
    end;

  if (LowerCase(AutoSpell) = 'earth strike') or (AutoSpell = '3') then

    if FindColor(Points.x, Points.y, 307460, 670, 227, 672, 229) then

    begin
      Mouse(Points.x, Points.y, 2, 2, True);
      Wait(1000 + Random(500));
    end;

  if (LowerCase(AutoSpell) = 'fire strike') or (AutoSpell = '4') then

    if FindColor(Points.x, Points.y, 225773, 710, 229, 7112, 231) then

    begin
      Mouse(Points.x, Points.y, 2, 2, True);
      Wait(1000 + Random(500));
    end;

  Wait(2000);
end

Sweet, thanks for updating :)

Good work. But, wait, wasnt this all updated in SRL a long time ago? hmmm….odd.

From: WT-Fakawi
Good work. But, wait, wasnt this all updated in SRL a long time ago? hmmm….odd.

i hoped you could add a finishing tough and maybe update it in srl and make a nice outcome :stirthepot: