program RUNME;
{$DEFINE SMART}
{$DEFINE WALKER}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.simba}

type
  ScriptState = (PICKPOCKET);

var

  MyPlayer: TReflectLocalPlayer;
  x,y,t,wSwitch,wList,stunOrNo:        Integer;
  CurrentTask: ScriptState;
  Oos: Integer;

  point2: TPoint;
  item_Coins : Titem;


Procedure PlayerSetup;
begin
  Me.Active := True;
  Me.Name := '123';
  Me.Pass := '123';
  Me.Member := True;

  CurrentTask := PICKPOCKET;
end;


procedure Pickpock;
var
  Victim: TReflectNpc;
  Point: TPoint;

begin

        if not (getCurrentTab() = TAB_MAGIC) then
        FTab(TAB_MAGIC);

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(4, MOUSE_LEFT);
                wait(randomrange(667, 1024));
        HumanMMouse(point, random(5), random(5));








        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(3, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(2, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                           HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(8, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                    HumanMMouse(point, random(5), random(5));

                    if not (getCurrentTab() = TAB_MAGIC) then
        FTab(TAB_MAGIC);

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(7, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                               HumanMMouse(point, random(5), random(5));


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(6, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(5, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));




        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(12, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                     HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(11, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                    HumanMMouse(point, random(5), random(5));

                                  if not (getCurrentTab() = TAB_MAGIC) then
        FTab(TAB_MAGIC);

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(10, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                HumanMMouse(point, random(5), random(5));


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(9, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(16, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                   HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(15, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(14, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                    HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(13, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                   HumanMMouse(point, random(5), random(5));


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(20, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                 HumanMMouse(point, random(5), random(5));

                                     if not (getCurrentTab() = TAB_MAGIC) then
        FTab(TAB_MAGIC);


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(19, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                    HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(18, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));



        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(17, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                    HumanMMouse(point, random(5), random(5));


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(24, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                    HumanMMouse(point, random(5), random(5));

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(23, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(22, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                 HumanMMouse(point, random(5), random(5));

         if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(21, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                HumanMMouse(point, random(5), random(5));

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(28, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                               HumanMMouse(point, random(5), random(5));

        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(27, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                  HumanMMouse(point, random(5), random(5));


                                        if not (getCurrentTab() = TAB_MAGIC) then
        FTab(TAB_MAGIC);


        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(26, MOUSE_LEFT);
                wait(randomrange(667, 1024));
                                   HumanMMouse(point, random(5), random(5));





        if not Reflect.Text.IsUpText('Lvl-1') then
        begin
          FTab(TAB_MAGIC);
          Point := [689, 232];
          HumanMMouse(point, random(5), random(5));
        end;
        fastClick(MOUSE_LEFT);
        InteractSlot(25, MOUSE_LEFT);
                wait(randomrange(9000, 11240));
      end;

Procedure MainLoop;
begin
  if (not isLoggedIn()) then
    loginPlayer(false);

  case CurrentTask of
    PICKPOCKET: Pickpock();
  end;
end;


begin
  SMART_ShowConsole := true;
  initAL();
  Reflect.Setup;
  PlayerSetup;

  if (not isLoggedIn()) then
    loginPlayer(false);


  repeat MainLoop;
  until x > 100;

end.