program BloodPact;

{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}

 var
kw1,kw2,cw1:Integer;
  aFound: Extended;



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

  With Players[0] Do
  Begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;
  End;

End;
Procedure SetDTMs;
begin
  kw1 := DTMFromString('mggAAAHicY2NgYEhjYmAIBeIKIM4F4joo3xoo5w3EfkAcAsS2QGwDxE11+Qy9nRUME/qqGWbPbGVobihgaG8pZuAHymHDjDgwBAAANyQNxw==');
  kw2 := DTMFromString('mlwAAAHicY2dgYLjNwsBwDojfAvEdIH4BxFeA+C4QTwLKL4TixVC8AojPAHFnWylDU10+Q0NNLkN7SzFDWXEqQ0FuPMPM6c0MkkB5XJgRD4YCAF6pFYo=');
  cw1 := DTMFromString('mrAAAAHic42BgYFjNwsCwB4gvAfEVID4MxOeg9AEgPgZUsxyIVwHxISA+C8TXgHgvSC8QN9Xlg3FZcSoY52XHMbS3FDMU5MYz1FRmMSgD1fDjwYwEMAwAAHrnF4w=');

end;
procedure SetupChar;

begin

SetupSRL();
SetAngle(0);
ClickNorth(0);
end;
procedure Startup;
begin
  Smart_Server := 69;
  Smart_Members:= true;
  Smart_Signed := true;
  SetupSRL;
  DeclarePlayers;
  LogInPlayer;
  MouseSpeed := 500;
  wait(100+random(100));
end;
Function FindObjOnScreen(Up,Option:Array of String;Color,Tolerance:Integer;MC2:Variant;Hmod,Smod:Extended): Boolean;
  var
  X,Y:Integer;
    CTS,I,T: Integer;
    TPA: TPointArray;
    begin
  repeat
    Result := False;
    CTS := GetColorToleranceSpeed;

    ColorToleranceSpeed(2);

    SetColorSpeed2Modifiers(Hmod,Smod);

     FindColorsSpiralTolerance(MSCX, MSCY, TPA,(Color), MSX1, MSY1, MSX2, MSY2, Tolerance);
    ColorToleranceSpeed(CTS);

    if (Length(TPA) < 1) then
      Exit;

    MMouse(TPA[0].X, TPA[0].Y, 5, 5);
     if WaitUpTextMulti(Up, 400) then
    begin
      GetMousePos(X, Y);
      ClickMouse2(MC2);
      ChooseOptionMulti(Option);
      Result := True;
      Exit;
    end;

    Until(Result)
    end;
    Procedure TalkXenia;
    begin
    Repeat
    Wait(1000 + Random(500));
    FindObjOnScreen(['lk','Talk','alk','lk'],['Talk','alk'],5521738,8,True,0.11,0.17);
    Until DidRedClick;
    Wait(1000 + Random(500));
    Mouse(260, 471, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(260, 390, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(260, 470, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(260, 470, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(260, 385, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(326, 287, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(260, 470, 1, 1, True);
    Wait(500 + Random(500));
    Mouse(260, 470, 1, 1, True);
    end;
    Procedure FirstScene;
    var
    L:Integer;
    begin
    Repeat
    Wait(1000 + Random(500));
    Mouse(260, 470, 1, 1, True);
    Inc(L);
    Until (L = 10);
    end;

    Procedure Kayle;
       Var
     X,Y,Bank:Integer;
    begin
    Wait(1000 + Random(500));
    Mouse(260, 470, 1, 1, True);

begin
 if FindDTMRotated(kw1, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
 begin
  Mouse(x, y, 5, 5, True);
  FFlag(6);
  repeat
    Wait(50 + Random(25));
      until(Not IsMoving);
      FreeDtm(kw1);
    end;
    end;
    Wait(1000);
    begin
 if FindDTMRotated(kw2, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
 begin
  Mouse(x, y, 5, 5, True);
  FFlag(6);
  repeat
    Wait(50 + Random(25));
      until(Not IsMoving);
      FreeDtm(kw2);
    end;
    end;
    Wait(1000);
    If InFight then Repeat
    Wait(50);
    Until (Not InFight);
    end;

    Procedure KayleTalk;
    begin
    FindObjOnScreen(['alk', '-to'],['ayle'],4413109,1,True,0.23,7.45);
    Wait(1000 + Random(500));
    Mouse(260, 470, 1, 1, True);
    Wait(1000 + Random(500));
    Mouse(265, 450, 1, 1, True);
    Wait(1500 + Random(500));
    FindObjOnScreen(['ake', 'ayle', 'ling'],['ayle'],3690903,9,True,0.20,0.84);
    if DidRedClick then
    begin
    Wait(1000 + Random(1000));
      InvMouse(1, 3);
      if IsUpText('ield') then
      begin
        ClickMouse2(True);
        end;
        end;
    end;
    Procedure Caitlin;
       Var
     X,Y,Bank:Integer;
    Begin
     if FindDTMRotated(cw1, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
 begin
  Mouse(x, y, 5, 5, True);
  FFlag(6);
  repeat
    Wait(50 + Random(25));
      until(Not IsMoving);
      FreeDtm(cw1);
    end;
    Wait(2000);
    If infight then
    repeat
    Wait(50);
    until (not InFight);
    Exit;
    end;

Begin
Startup;
SetupChar;
Repeat
TalkXenia;
Wait(1000);
FindObjOnScreen(['limb','own','ataco','rance'],['limb'],4738387,3,True,0.81,0.02);
Wait(1000);
FirstScene;
SetDTMs;
Wait(1000);
Kayle;
Wait(500);
KayleTalk;
Wait(500);
Caitlin;
Until (Not LoggedIn);
end.