program AAAlcher;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL/SRL.scar}


//thanks to superbatman, for solving two bugs that i couldnt figure out



var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label10 : TLabel;
  Label11 : TLabel;
  Label12 : TLabel;
  Label13 : TLabel;
  Button1 : TButton;
  UserEdit : TEdit;
  PassEdit : TEdit;
  NickEdit : TEdit;
  STEdit : TEdit;
  SFEdit : TEdit;
  AlchEdit : TEdit;
  SrlIdEdit : TEdit;
  SrlPEdit : TEdit;
  smartedit : TEdit;
  AntiBEdit : TEdit;
  HAedit : TEdit;
  SleepEdit : TEdit;
  SrlIdName, SrlPass, SmartB, AntiBanB, AlchB, SleepB: String;
  Username, Password, Alchs, Nick, SleepT, SleepF: String;
  SRL_Time, Counter, exp, SleepN, x, y, R, RG, C : integer;

procedure prog; forward;


procedure StartClick(sender: TObject);
begin
  Writeln('Get Ready To Alch!');
  frmDesign.ModalResult:= mrOk; // Closes the form
  Username := UserEdit.Text;//
  Password := PassEdit.Text;//
  Nick := NickEdit.Text;//
  Alchs := AlchEdit.Text;//
  SleepT := STEdit.Text;//
  SleepF := SFEdit.text;//
  SrlIdName := SrlIdEdit.Text;//
  SrlPass := SrlPEdit.Text;//
  SmartB := smartedit.Text;//
  AntiBanB := AntiBEdit.Text;//
  AlchB := HAedit.Text;//
  SleepB := SleepEdit.Text;
  WriteLn('Username = ' + Username);
end;

procedure InitForm;
begin
  ///////////////// Generated from: AAA form.dfm
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 379;
frmDesign.Height := 259;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.ShowHint := True;
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 24;
Label1.Top := 48;
Label1.Width := 53;
Label1.Height := 13;
Label1.Caption := 'User Name';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 24;
Label2.Top := 72;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 64;
Label3.Top := 0;
Label3.Width := 232;
Label3.Height := 29;
Label3.Caption := 'Awkward Auto Alcher:';
Label3.Font.Color := clMaroon;
Label3.Font.Height := -24;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 184;
Label4.Top := 96;
Label4.Width := 26;
Label4.Height := 13;
Label4.Caption := 'Alchs';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 184;
Label5.Top := 48;
Label5.Width := 53;
Label5.Height := 13;
Label5.Caption := 'Sleep Time';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 24;
Label6.Top := 96;
Label6.Width := 22;
Label6.Height := 13;
Label6.Caption := 'Nick';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 184;
Label7.Top := 72;
Label7.Width := 45;
Label7.Height := 13;
Label7.Caption := 'Sleep For';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 24;
Label8.Top := 120;
Label8.Width := 35;
Label8.Height := 13;
Label8.Caption := 'SRL ID';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 184;
Label9.Top := 120;
Label9.Width := 69;
Label9.Height := 13;
Label9.Caption := 'SRL password';
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 24;
Label10.Top := 144;
Label10.Width := 33;
Label10.Height := 13;
Label10.Caption := 'Smart?';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 184;
Label11.Top := 144;
Label11.Width := 46;
Label11.Height := 13;
Label11.Caption := 'Anti Ban?';
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 24;
Label12.Top := 168;
Label12.Width := 46;
Label12.Height := 13;
Label12.Caption := 'High Alch';
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 184;
Label13.Top := 168;
Label13.Width := 27;
Label13.Height := 13;
Label13.Caption := 'Sleep';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 112;
Button1.Top := 192;
Button1.Width := 145;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.TabOrder := 8;
Button1.OnClick := @StartClick;
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 80;
UserEdit.Top := 48;
UserEdit.Width := 97;
UserEdit.Height := 21;
UserEdit.TabOrder := 9;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 80;
PassEdit.Top := 72;
PassEdit.Width := 97;
PassEdit.Height := 21;
PassEdit.TabOrder := 10;
PassEdit.passwordchar := '*';
NickEdit := TEdit.Create(frmDesign);
NickEdit.Parent := frmDesign;
NickEdit.Left := 80;
NickEdit.Top := 96;
NickEdit.Width := 97;
NickEdit.Height := 21;
NickEdit.TabOrder := 11;
STEdit := TEdit.Create(frmDesign);
STEdit.Parent := frmDesign;
STEdit.Left := 240;
STEdit.Top := 48;
STEdit.Width := 97;
STEdit.Height := 21;
STEdit.TabOrder := 12;
SFEdit := TEdit.Create(frmDesign);
SFEdit.Parent := frmDesign;
SFEdit.Left := 240;
SFEdit.Top := 72;
SFEdit.Width := 97;
SFEdit.Height := 21;
SFEdit.TabOrder := 13;
AlchEdit := TEdit.Create(frmDesign);
AlchEdit.Parent := frmDesign;
AlchEdit.Left := 240;
AlchEdit.Top := 96;
AlchEdit.Width := 97;
AlchEdit.Height := 21;
AlchEdit.TabOrder := 14;
SrlIdEdit := TEdit.Create(frmDesign);
SrlIdEdit.Parent := frmDesign;
SrlIdEdit.Left := 80;
SrlIdEdit.Top := 120;
SrlIdEdit.Width := 97;
SrlIdEdit.Height := 21;
SrlIdEdit.TabOrder := 15;
SrlPEdit := TEdit.Create(frmDesign);
SrlPEdit.Parent := frmDesign;
SrlPEdit.Left := 264;
SrlPEdit.Top := 120;
SrlPEdit.Width := 73;
SrlPEdit.Height := 21;
SrlPEdit.TabOrder := 16;
SrlPEdit.passwordchar := '*';
smartedit := TEdit.Create(frmDesign);
smartedit.Parent := frmDesign;
smartedit.Left := 80;
smartedit.Top := 144;
smartedit.Width := 97;
smartedit.Height := 21;
smartedit.TabOrder := 17;
smartedit.Text := 'True';
AntiBEdit := TEdit.Create(frmDesign);
AntiBEdit.Parent := frmDesign;
AntiBEdit.Left := 240;
AntiBEdit.Top := 144;
AntiBEdit.Width := 97;
AntiBEdit.Height := 21;
AntiBEdit.TabOrder := 18;
AntiBEdit.Text := 'True';
HAedit := TEdit.Create(frmDesign);
HAedit.Parent := frmDesign;
HAedit.Left := 80;
HAedit.Top := 168;
HAedit.Width := 97;
HAedit.Height := 21;
HAedit.TabOrder := 19;
HAedit.Text := 'True';
SleepEdit := TEdit.Create(frmDesign);
SleepEdit.Parent := frmDesign;
SleepEdit.Left := 240;
SleepEdit.Top := 168;
SleepEdit.Width := 97;
SleepEdit.Height := 21;
SleepEdit.TabOrder := 20;
SleepEdit.Text := 'True';
end;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nick;
  Players[0].Active := True;
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 AkwardAntiBan;
begin
  if AntiBanB = 'True' then
    begin
  if (not(LoggedIn))then
    LoginPlayer;
    for R := 300 to 500 do
    for RG := 1 to 6 do
    case Random(2) of
      0:begin
          writeln('anti ban 1');
          HoverSkill('Magic', False);
          wait(100+ random(R));
          HoverSkill('Range', False);
          SleepAndMoveMouse(600+random(400));
        end;
    1:Begin
        writeln('anti ban 2');
        Gametab(RG);
        wait(R + random (R));
        GameTab(7);
      end;
    2:begin
        writeln('anti ban 3');
        PickUpMouse;
        wait(R + random (r));
        PickUpMouse;
        wait(R + random (r));
      end;
    3: begin
         writeln('anti ban 4');
         SayCurrentLevels('Magic');
       end;
    4:begin
        writeln('anti ban 5');
        MakeCompass('S');
        Wait(R + random(R));
        MakeCompass('N');
        Wait(R + random(R));
      end;
    end;
  end else
    begin
      writeln('what the Hell? you`r not using antiban?!?!?!?');
      wait(1000);
      writeln('have fun being banned...');
    end;
end;

procedure sleeps;
begin
  if SleepB = 'True' then
  begin
  If TimeFromMark(SRL_Time) > ((strtoint(SleepT) + Random(10)) * 60000) Then
    begin
      Writeln('Sleeping...');
      Logout;
      Wait(((strtoint(SleepF))) * 60000);
      LoginPlayer;
      SleepN:= SleepN + 1;
      ReportVars[2] := ReportVars[2] + 1;
      SrlRandomsReport;
      SetAngle(True);
    end;
  end;
end;

function findtabs: Boolean;
begin
  wait(500);
  if (TabExists(4) = true) and (TabExists(7) = true) then
    begin
      result := true;
      writeln('Both tabs where found, going on');
    end else
    begin
      Writeln('One of the tabs does not show up, waiting.');
      Result := false;
      wait(10000);
      if (TabExists(4) = true) and (TabExists(7) = true) then
        begin
          result := true;
          writeln('nevermind! they are up now, going on');
        end else
        begin
          Result := False;
          writeln('well, your out of luck, the tabs arent showing up, terminating');
          Terminatescript;
       end;
    end;
end;

function findspell(HighAlch: boolean): boolean;
var  x, y, HAlchDTM: integer;
begin
  HAlchDTM := DTMFromString('78DA63B46662604860644006BFBEF18069982' +
       '8A31D504D04AA1A982C5C8D03116A9C816A5209A83102AA4922A0' +
       'C61EA82604BF1A004F1D05B8');
  findtabs;
  GameTab(7);
  wait(500);
  if HighAlch = True then
    begin
      if  FindDTM(HAlchDTM, x, y, 559, 336, 583, 360) then
        begin
          FreeDTM(HAlchDTM);
          result := True;
        end else
        begin
          writeln('High Alch was not found, terminating');
          Result := False;
          Wait(10000);
          if  FindDTM(HAlchDTM, x, y, 559, 336, 583, 360)then
            begin
              writeln('never mind, lucky bastard');
              FreeDTM(HAlchDTM);
              result := True;
            end else
            begin
              writeln('yep, your screwed. terminating');
              terminatescript;
            end;
       end;
  end else
  begin
    if (GetColor(713, 258) = 849658) and (GetColor(720, 254) = 3195184) then
      begin
        result := True;
      end else
      begin
        writeln('Low Alch was not found, terminating');
        Result := False;
        Wait(10000);
      end;
      if (GetColor(713, 258) = 849658) and (GetColor(720, 254) = 3195184) then
        begin
          writeln('Never Mind! Low Alch was found, going on');
          result := True;
        end else
        begin
          writeln('Low Alch was not found, terminating');
          Result := False;
        end;
    end;
end;

procedure clickspell;
begin
  if findspell(strtobool(AlchB)) then
    begin
      writeln('changing coords');
      mousebox(563, 339, 582, 349, 3);
      getmousepos(x, y);
    end else
      begin
        mmouse(717, 253, 6, 6);
        GetMousePos(x, y);
      end;
  if (IsUpText('ast')) then
    begin
      c := 0;
        repeat
          begin
            findspell(strtobool(AlchB))
            writeln('clicked spell #' + inttostr(c));
            mouse(x, y, 0, 0, true);
            wait(150+ random (200));
            mouse(x, y, 0, 0, true);
            wait(2200+ random (100));
            inc(c);
            Counter:=counter+1;
            exp:= exp + 65;
            ReportVars[0] := ReportVars[0] + 1;
            ReportVars[1] := ReportVars[1] + 65;
            SrlRandomsReport;
            sleeps;
          end;
        until (c = 100+ random (50));
        prog;
        AkwardAntiBan;
    end;
end;


procedure alch;
begin
  Writeln('starting alching');
  repeat
    begin
      clickspell;
    end;
  until strtoint(alchs)=counter
end;

procedure prog;
begin
  writeln(' ');
  writeln('Akwardsaw says "Thanks for using my Auto Alcher! Please post your proggy!');
  writeln(' ');
  writeln('Or, you can pm it to me on villavu.com or email at akardsaw@yahoo.com!"');
  writeln('--------------------------------------');
  writeln('While running for: ' + TimeRunning);
  writeln('And alching: ' + IntToStr(Counter) + ' Things,');
  writeln('You have gained a whopping ' +  IntToStr(exp) + ' Exp!');
  writeln('you have slept ' + InttoStr(SleepN) + ' times');
  writeln('--------------------------------------');
  writeln(' ');
  writeln('Do you have a question? Do you have a concern?');
  writeln(' ');
  writeln('Or do you just want to tell me how awesome I am?');
  writeln(' ');
  writeln('Then pm me on the forums, or e-mail me at akardsaw@yahoo.com');
end;

Procedure ScriptTerminate;
Begin
  prog;
End;

procedure MySmartSetup;
begin
  if SmartB = 'True' then
    begin
      writeln('setting up smart');
      SMARTSetupEx(100, True, True, False);
      SetTargetDC(SMARTGetDC);
    end else
      begin
        writeln('Not using smart eh? well your not too smart your self');
        wait(500);
        writeln('but then again your using this script, so heres a cookie!');
      end;
end;

begin
  SetUpSRL;
  SafeInitForm;
  SafeShowFormModal;
  SRLID := SrlIdName;
  SRLPassword := SrlPass;
  ScriptID := '1207';
  mousespeed := 7;
  MySmartSetup;
  DeclarePlayers;
  LogInPlayer;
  MarkTime(SRL_Time);
  alch;
end.