S1N Edited

program S1NLunars;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
var
  uAmmyDTM,ammyDTM,kitDtM,uAmmy2DTM:Integer;
  Column,Row:Integer;
  //proggy variables
  Sec,XPEarned,XPH,SCasts,HCasts,StartTime:Integer;
  procedure DeclarePlayers;
begin
  //Where are your Gold Amulets located
  Column := X;   //Write your Column here
  Row := Y;      //Row here
  //Row : 0 = First row, 1 = Second Row  etc...
  //Column : 0 = First Column, 1 = Second Column  etc...




  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := 'trolldemleechers'; // Username
  Players[0].Pass := 'khazard121'; // Password
  Players[0].Active := True;
  Players[0].Pin := '3421';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end;
procedure SetDTM;
begin
uAmmyDTM := DTMFromString('m1gAAAHic42JgYKhlYmCoBuJ6IG4C4lYgbgHiOqh4ORR7MzIwuAGxKxC7A7EXEPsDcSAUg/i+QNzYIQQ0lYkg/s9AHGAkEiMAAHxaCjc=');
AmmyDTM := DTMFromString('mlwAAAHicY2dgYChmYmAoAeJcIK4D4lIgzgPiIiAuY2RgKATiFCBOBOJqIK4C4jggbmgXBupmwor/M+AGjHgwFAAAoFQIbw==');
//kitDTM := DTMFromString('m1gAAAHic42JgYChlYmAoAeJsIM6CYpBYExKuAuJfjAwMb4H4IxD/AWJWoBgXELMA8Q8g/xMQvwPiAGddoKlMBPF/BuIAI5EYAQBeLA1j');
uAmmy2DTM := DTMFromString('mwQAAAHic42RgYPBmYmBwBmJXIPYBYg8gDgDiQCD2hfL7GSF4ChBPg2IQeyIQd0FxZYMQ0DQmvPg/A2HASASGAwBnOAn8');
end;
procedure WithdrawAmulets;
var
  x,y,x2,y2,x3,y3,x4,y4,x5,y5:Integer;
  t:Integer;
begin
if FindObjCustom(x,y,['Bank'],[11711418,13158866],2) then
MarkTime(t);
  begin
    case random(2) of
    0: begin
        Mouse(x,y,0,0,False);
        wait(900);
        ChooseOption('Bank');
       end;
    1: begin
        Mouse(x,y,0,0,True);
       end;
    end;
  end;
repeat
  wait(100);
  if TimeFromMark(t) > 30000 then
    begin
      WriteLn('Could not Open bank');
      TerminateScript;
    end;
until(PinScreen or BankScreen);
if PinScreen then
  begin
    InPin(Players[CurrentPlayer].Pin);
  end;
if BankScreen then
  begin
    //if FindDTM(KitDTM,x3,y3,MIX1,MIY1,MIX2,MIY2) then
    //begin
      //Mouse(x3,y3,0,0,False);
      //ChooseOption('All');
      //end;
      if FindDTM(AmmyDTM,x4,y4,MIX1,MIY1, MIX2,MIY2) then
      begin
        Mouse(x4,y4,0,0,False);
        ChooseOption('All');
      end;
      if FindDTM(uAmmy2DTM,x5,y5,MIX1,MIY1, MIX2,MIY2) then
      begin
        Mouse(x4,y4,0,0,False);
        ChooseOption('All');
      end;
    begin
      wait(1000);
      Withdraw(Column,Row,14);
      repeat
        wait(100);
      until(FindDTM(uammyDTM,x2,y2,MIX1,MIY1,MIX2,MIY2));
    end;
    CloseBank;
  end;
end;
procedure Cast;
var
  x,y,x2,y2:Integer;
  SJewel:integer;
  t:Integer;
begin
SJewel := DTMFromString('mrAAAAHic42BgYKhjYmAoA+J2IG4D4mYo7gLibiDex8jAsBWIdwHxdih7ExBvAOJtQHyaUwFoCiMejB/g04msGwCoWArx');
//HKit := DTMFromString('mwQAAAHic42RgYNBjYmBQBmINIDYCYjMmiJg2klgdIwNDNRA3AnEzEFcCcREQFwBxGRCXAHFykA0DNzcXHEfY6aLwQfg/A2HASASGAwDTDQmX');
GameTab(28);
if FindDTM(SJewel,x,y,MIX1,MIY1,MIX2,MIY2) then
  begin
  MarkTime(t);
  repeat
    Mouse(x,y,1,1,True);
    Inc(SCasts);
    wait(10000+random(5000));
    //Mouse(x2,y2,1,1,True);
    //Inc(HCasts);
  until((TimeFromMark(t) > 40000) or FindBlackChatMessage('inventory'));
  end;
XPEarned := XPEarned + 2072;
FreeDTM(SJewel);
//FreeDTM(HKit);
end;
Procedure Proggy;
begin
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XPEarned) / (SeC);
writeLn('====================');
writeLn('=====S1NLunars======');
writeLn('Time Running: ' + TimeRunning);
writeLn('Casts: ' + IntToStr(HCasts + SCasts));
writeLn('XP Earned: ' + IntToStr(XPEarned));
writeLn('XP/H: ' + IntToStr(XPH));
writeLn('====================');
end;
procedure FreDTM;
begin
//FreeDTM(kitDTM);
FreeDTM(AmmyDTM);
FreeDTM(uAmmyDTM);
FreeDTM(uAmmy2DTM);
end;

begin
  SetupLogin;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  SetDTM;
  ActivateClient;
  if LoggedIn then
    begin
      MakeCompass(90);
      SetAngle(SRL_ANGLE_HIGH);
    end;
  StartTime:=GetSystemTime;
  ClearDebug;
  writeLn('Fixes in 1.1:');
  writeLn(' -Fixed method');
  repeat
    WithdrawAmulets;
    Cast;
    Proggy;
  until(false);
  FreDTM;
end.