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
  x, y, exp, Counter, SleepN, SRL_Time : integer;
  frmDesign : TForm;
  UserEdit, PassEdit, NickEdit, STEdit, SFEdit, AlchEdit : TEdit;
  SrlIdEdit, SrlPEdit, smartedit, AntiBEdit, HAedit, SleepEdit : TEdit;
  Username, Password, Alchs, Nick, SleepT, SleepF: string;
  SrlIdName, SrlPass, SmartB, AntiBanB, AlchB, SleepB: string;

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;//
  AlchEdit.Text := Alchs;//
  SleepT := STEdit.Text;//
  SleepF := SFEdit.text;//
  SrlIdName := SrlIdEdit.Text;//
  SrlPass := SrlPEdit.Text;//
  SmartB := smartedit.Text;//
  AntiBanB := AntiBEdit.Text;//
  AlchB := HAedit.Text;//
  SleepB := SleepEdit.Text;//
end;

procedure InitForm;
var
  Label1, Label2, Label3, Label4, Label5, label6 : TLabel;
  Label7, Label8, Label9, Label10, Label11, Label12, Label13 : TLabel;
  Button1 : TButton;

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;
var
   R, RG : integer;
begin
  if strtobool(AntiBanB) = True then
  begin
    if (not(LoggedIn))then LoginPlayer;
      for R := 300 to 500 do
      for RG := 1 to 6 do
      case Random(50) of
        0: HoverSkill('Random', False);
        1:begin
            Gametab(RG);
            wait(R + random (R));
            GameTab(7);
          end;
        2:begin
            PickUpMouse;
            wait(R + random (r));
          end;
        4:begin
            MakeCompass('S');
            Wait(R + random(R));
            MakeCompass('N');
            Wait(R + random(R));
          end;
      end;
  end;
end;

procedure sleeps;
begin
  if strtobool(SleepB) = True then
  begin
    if TimeFromMark(SRL_Time) > ((strtoint(SleepT) + Random(10)) * 60000) then
    begin
      Writeln('Sleeping...');
      Logout;
      Wait(((strtoint(SleepF))) * 60000);
      LoginPlayer;
      SRL_Time := 0;
      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;
  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
  HAlchDTM, LAlchDTM: 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 findcolortolerance(x , y, 84658, 559, 336, 583, 360, 20)then
      begin
        writeln('never mind, lucky bastard');
        FreeDTM(HAlchDTM);
        result := True;
      end else
      begin
        FreeDTM(HAlchDTM);
        writeln('yep, your screwed. terminating');
        terminatescript;
      end;
    end;
  end else
  begin
   LAlchDTM := DTMFromString('78DA633CC1C4C0C0C0C8800C7E7DE301D3305' +
       '1C68B4035FF509430181C3440557319D31C181FAEE60CA639186A' +
       '4076FD24A0E608500D0B7EBB00F5980B03');


    if  FindDTM(LAlchDTM, x, y, 706, 242, 726, 261) then
    begin
      FreeDTM(LAlchDTM);
      result := True;
    end else
    begin
      FreeDTM(LAlchDTM);
      writeln('Low Alch was not found, terminating');
      Wait(10000);
    end;
    if findcolortolerance(x ,y, 84658, 706, 242, 726, 261, 20)then
    begin
      FreeDTM(LAlchDTM);
      writeln('Never Mind! Low Alch was found, going on');
      result := True;
    end else
    begin
      Result := False;
    end;
  end;
end;

procedure clickspell;
var c : integer;
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(2000 + random (100));
        inc(c);
        inc(counter);
        incex(exp, 65);
        inc(ReportVars[0]);
        inc(ReportVars[1]);
        SrlRandomsReport;
        sleeps;
      end;
    until (c = 100 + random (50));
    cleardebug;
    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 strtobool(SmartB) then
  begin
    writeln('setting up smart');
    SMARTSetupEx(100, True, True, False);
    SetTargetDC(SMARTGetDC);
  end;
end;

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