aa

program new;
{$DEFINE SMART}
{$DEFINE WALKER}
{$i AeroLib/AeroLib.Simba}

var
obj_Chicken: TMSObject;
myPoint: TPoint;
myPoints: TPointArray;
myUsername, myPassword, myNick: String;

function loadall(): Boolean;
begin
myUsername := '';
myPassword := '';

{Script settings                                                              }
MouseSpeed := 55;


  obj_Chicken.create('Chicken', ['ack','ttack','Attac'], [createCol(7445684, 6, 0.13, 0.69)], [createCol(2181235, 5, 0.07, 2.79)]);
end;

Procedure declarePlayers;
begin
  Me.Name := myUsername;
  Me.Pass := myPassword;
  Me.Pin := '';
  Me.Nick := myNick;
  me.Member := false;
  Me.Active := true;

end;

Procedure TeamSpirit;
begin
     if obj_Chicken.find(myPoint) then
     if not(me.inCombat) then
     begin
     mouse(myPoint, 1, 1, MOUSE_MOVE);
     if (isUpText('ttack')) then
     fastClick(mouse_left);
     end;

     wait(500);
end;


begin
  loadall();
  declarePlayers();
  initAL();
  Repeat
    if not(isLoggedIn()) then
    loginPlayer(false)
      else
    if(isLoggedIn())then TeamSpirit;
  Until(false);
end.