warning do not use this will get you banned notice the movemousesmooth(260,187);
there see dont use


will update to srl tonight untill then do not use

Code:
program curse;
{.include srl/srl.scar}
//created by waddo v1
//i am not responsible for misuse of this
//script or for any accounts or items lost due to the use of this script
//upon use of this script you take all responisibilty
//for the use of this script other then to replicate it or call it your own
//do not edit any of this script with out permision

var
   i,b,casts,XP,exp,spellxp:integer;
   s,getpix1,getpix2:integer;
var
  frmDesign : TForm;
  Shape1 : TShape;
  title : TLabel;
  title2 : TLabel;
  tabxp : TLabel;
  cmbspell : TComboBox;
  butok : TButton;
  butcancel : TButton;
  frmxp : TEdit;
  
procedure okbuttonclick(sender: TObject);
begin
  Writeln('mage trainer by waddo');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure cancelbuttonclick(sender: TObject);
begin
  Writeln('script canceled');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
  terminatescript;
end;

procedure initform;
begin
frmDesign := Createform;
frmDesign.Left := 498;
frmDesign.Top := 276;
frmDesign.Width := 266;
frmDesign.Height := 260;
frmDesign.Caption := 'Mage Trainer';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Shape1 := TShape.Create(frmDesign);
Shape1.Parent := frmDesign;
Shape1.Left := -8;
Shape1.Top := -8;
Shape1.Width := 265;
Shape1.Height := 217;
Shape1.Brush.Color := clBlack;
title := TLabel.Create(frmDesign);
title.Parent := frmDesign;
title.Left := 64;
title.Top := 8;
title.Width := 111;
title.Height := 29;
title.Caption := 'Waddo'#39's';
title.Font.Color := clRed;
title.Font.Height := -29;
title.Font.Name := 'MS PMincho';
title.Font.Style := [fsBold, fsUnderline];
title.ParentFont := False;
title2 := TLabel.Create(frmDesign);
title2.Parent := frmDesign;
title2.Left := 40;
title2.Top := 40;
title2.Width := 174;
title2.Height := 29;
title2.Caption := 'Mage Trainer';
title2.Font.Color := clRed;
title2.Font.Height := -29;
title2.Font.Name := 'MS PMincho';
title2.Font.Style := [fsBold, fsUnderline];
title2.ParentFont := False;
tabxp := TLabel.Create(frmDesign);
tabxp.Parent := frmDesign;
tabxp.Left := 8;
tabxp.Top := 144;
tabxp.Width := 67;
tabxp.Height := 13;
tabxp.Caption := 'Remaining xp:';
tabxp.Font.Color := clWhite;
tabxp.Font.Height := -11;
tabxp.Font.Name := 'MS Sans Serif';
tabxp.Font.Style := [];
tabxp.ParentFont := False;
cmbspell := TComboBox.Create(frmDesign);
cmbspell.Parent := frmDesign;
cmbspell.Left := 32;
cmbspell.Top := 80;
cmbspell.Width := 185;
cmbspell.Height := 21;
cmbspell.Color := clRed;
cmbspell.DropDownCount := 4;
cmbspell.Font.Color := clBlack;
cmbspell.Font.Height := -13;
cmbspell.Font.Name := '@Batang';
cmbspell.Font.Style := [];
cmbspell.ItemHeight := 13;
cmbspell.ItemIndex := 0;
cmbspell.ParentFont := False;
cmbspell.TabOrder := 8;
cmbspell.Text := 'curse';
cmbspell.Items.Add('curse');
cmbspell.Items.Add('vulnerability');
cmbspell.Items.Add('enfeeble');
cmbspell.Items.Add('stun');
butok := TButton.Create(frmDesign);
Butok.OnClick:= @okbuttonclick;
butok.Parent := frmDesign;
butok.Left := 40;
butok.Top := 168;
butok.Width := 73;
butok.Height := 33;
butok.Caption := 'OK';
butok.TabOrder := 9;
butcancel := TButton.Create(frmDesign);
Butcancel.OnClick:= @cancelbuttonclick;
butcancel.Parent := frmDesign;
butcancel.Left := 136;
butcancel.Top := 168;
butcancel.Width := 81;
butcancel.Height := 33;
butcancel.Caption := 'Cancel';
butcancel.TabOrder := 10;
frmxp := TEdit.Create(frmDesign);
frmxp.Parent := frmDesign;
frmxp.Left := 81;
frmxp.Top := 145;
frmxp.Width := 143;
frmxp.Height := 21;
frmxp.Color := clRed;
frmxp.TabOrder := 11;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;


procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;


procedure spell;
begin
     if s=1 then
     begin

          movemousesmooth(667,264);
          wait(110+random(10));
          Holdmouse(667,264,true);
          wait(50 + random (50));
          Releasemouse(667,264,true);
          wait(152+random(50));

     end
     else
     if s=2 then
     begin
          movemousesmooth(620,405);
          wait(110+random(10));
          Holdmouse(620,405,true);
          wait(50 + random (50));
          Releasemouse(620,405,true);
          wait(152+random(50));
     end
     else
     if s=3 then
     begin
          movemousesmooth(690,407);
          wait(110+random(10));
          Holdmouse(690,407,true);
          wait(50 + random (50));
          Releasemouse(690,407,true);
          wait(152+random(50));

     end
     else
     if s=4 then
     begin
          movemousesmooth(618,430);
          wait(110+random(10));
          Holdmouse(618,430,true);
          wait(50 + random (50));
          Releasemouse(618,430,true);
          wait(152+random(50));
     end;
end;

procedure checkpix;                                                                                                //
begin
     getpix1:=(getcolor(91, 36));
     getpix2:=(getcolor(433, 54));
end;

{procedure checkalive;
var checkpix1,checkpix2:integer;
begin
     checkpix1:=(getcolor(91, 36));
     checkpix2:=(getcolor(433, 54));
     if ((checkpix1<>getpix1)and(checkpix2<>getpix2)) then
     begin
          logout;
     end;
end; }
procedure getinfo;
begin
     if cmbspell.text='curse' then
     begin
     s:=1;
     end
     else
     if cmbspell.text='vulnerability' then
     begin
     s:=2;
     end
     else
     if cmbspell.text='enfeeble' then
     begin
     s:=3;
     end
     else
     if cmbspell.text='stun' then
     begin
     s:=4;
     end;

     begin
          if s=1 then
          begin
               spellxp:=29;
          end
          else
          if s=2 then
          begin
               spellxp:=76;
          end
          else
          if s=3 then
          begin
               spellxp:=83;
          end
          else
          if s=4 then
          begin
               spellxp:=90;
          end;
     end;
     casts:=0;
     b:=0;
     i:=0;
     XP:=(strtoint(frmxp.text));
     exp:=0;
end;
procedure startup;
begin
SafeInitForm;
SafeShowFormModal;
getinfo;
{checkpix;}
end;
begin
     startup;
     exp:=0;
     for b:=0 to 99 do
     begin
          begin
               wait(5000+random(1473));
               for i:= 0 to 9 do
               begin
                    spell;
                    movemousesmooth(260,187);
                    wait(224+random(10));
                    Holdmouse(260,187,true);
                    wait(50 + random (50));
                    Releasemouse(260,187,true);
                    wait(1700+random(50));
                    casts:=casts+1;
                    XP:=XP-spellxp;
                    exp:=exp+spellxp;
                    writeln('you have cast '+inttostr(casts)+' spells');
                    writeln ('and you are '+inttostr(XP)+' away form next lvl');
                    writeln ('you have gained '+inttostr(exp)+'XP');
                    writeln ('you are '+inttostr(xp/spellxp)+' casts away from your next lvl');
                    if finddead then
                    logout;
               end;
               RANDOMRCLICK;
          end;
     end;
end.