Simba - Autoloot v123

program ROTMGAutoGrabber;
  Type
    ROTMGItem = record
      Autograb, Image, Tier : Integer;
      Name: string;
    end;
  Type
    ROTMGSlot = record
    Image, Slot: Integer;
    end;
  Type
    ROTMGItemList = record
      List : Array[0..500] of ROTMGItem;
      Length : Integer;
    end;
  Type
    ROTMGSlotList = record
    List : Array[0..7] of ROTMGSlot;
    end;
  var
    ItemList : ROTMGItemList;
    SlotList : ROTMGSlotList;
    itemsGrabbed : Integer;
    itemsMissed : Integer;
    ii : Integer;
  procedure LoadSlots;
  var
    i : integer;
  begin
    for i := 1 to 8 do
    begin
       SlotList.List[i-1].Slot := i;
       SlotList.List[i-1].Image := LoadBitmap(IncludePath + 'ROTMG\Slots\' + 'slot' + inttostr(i) + '.png');
    end;
  end;

  procedure EnableMasks(image : Integer);
  var
    a, b, w, h : Integer;
  begin
    GetBitmapSize(image, w, h);
      for a := 0 to h-1 do
      begin
        if (a < 2) or (h - a - 1 < 2) then
        begin
          for b := 0 to w-1 do
          begin
          FastSetPixel(image,b,a, RGBtoColor(0,0,0));
        end;
      end else
      begin
        FastSetPixel(image,0,a,RGBtoColor(0,0,0));
        FastSetPixel(image,1,a,RGBtoColor(0,0,0));
        FastSetPixel(image,w-1,a,RGBtoColor(0,0,0));
        FastSetPixel(image,w-2,a,RGBtoColor(0,0,0));
      end;
    end;
  end;

  function LoadItem(fileName : string) : boolean;
  begin
      if Strtoint(ReadIni(fileName,'Autograb',IncludePath + 'ROTMG\Config.ini')) > 0 then
    begin
      ItemList.List[ItemList.Length].Image := LoadBitmap(IncludePath + 'ROTMG\Equipment\' + fileName);
      ItemList.List[ItemList.Length].Name := Readini(fileName,'Name',IncludePath + 'ROTMG\Config.ini');
      ItemList.List[ItemList.Length].Autograb := strtoint(Readini(fileName,'Autograb',IncludePath + 'ROTMG\Config.ini'));
      ItemList.List[ItemList.Length].Tier := strtoint(Readini(fileName,'Tier',IncludePath + 'ROTMG\Config.ini'));
      EnableMasks(ItemList.List[ItemList.Length].Image);
      result := true;
      exit;
    end;
    result := false;
  end;

  function LoadItems() : Integer;
  var
    x, itemCount, loaded : Integer;
    fileNames : TStringArray;
  begin
    fileNames:= GetFiles(IncludePath + 'ROTMG\Equipment\','png');
    itemCount:= length(fileNames);
    for x:= 0 to itemCount-1 do
    begin
      if LoadItem(fileNames[x]) then
      begin
          inc(loaded);
          inc(ItemList.Length);
      end;
    end;
    result := loaded;
  end;
  procedure GrabItem(item : ROTMGItem; x, y : Integer);
  var
    i,a,b,w,h,c,d,n,m : Integer;
  begin
    for i := 0 to 7 do
    begin
      if item.Autograb = 2 then
      begin
        GetMousePos(n,m);
        GetBitmapSize(item.Image,w,h);
        MoveMouse(x + w / 2, y + h / 2);
        KeyDown(16);
        ClickMouse(x + w / 2,y + h / 2,mouse_Left);
        Wait(0)
        Writeln('Items grabbed: (' + inttostr(itemsGrabbed) + ') Items Missed: (' + inttostr(itemsMissed) + ')');
        Writeln('Grabbed item "' + item.Name + '"');
        Wait(10);
        exit;
      end else
      if FindBitmapToleranceIn(SlotList.List[i].Image,a,b,610,400,800,600,25) then
      begin
        GetBitmapSize(SlotList.List[i].Image,c,d);
        GetBitmapSize(item.Image,w,h);
        GetMousePos(n,m);
        MoveMouse(x + w / 2, y + h / 2);
        ClickMouse(x + w / 2,y + h / 2,mouse_Left);
        Wait(10)
        ClickMouse(x + w / 2,y + h / 2,mouse_left);
        MoveMouse(n,m);
        inc(itemsGrabbed);
        Writeln('Items grabbed: (' + inttostr(itemsGrabbed) + ') Items Missed: (' + inttostr(itemsMissed) + ')');
        Writeln('Grabbed item "' + item.Name + '"');
        Wait(10);
        exit;
      end;
    end;
    inc(itemsMissed);
    Writeln('Items grabbed: (' + inttostr(itemsGrabbed) + ') Items Missed: (' + inttostr(itemsMissed) + ')');
    Writeln('Missed item "' + item.Name + '" (INVENTORY FULL)');
  end;

  procedure ScanItem (item : ROTMGItem);
  var
    x,y : integer;
  begin
    if FindBitmapToleranceIn(item.Image,x,y,610,500,800,600,30) then
      begin
        Writeln('found item:' +   item.Name    )
        GrabItem(item,x,y);
      end;
  end;
  procedure Initialize;
  begin
    ItemList.Length := 0;
    itemsGrabbed := 0;
    itemsMissed := 0;
    Writeln('Initializing autograbber');
    Writeln('Loading Items...');
    Writeln('Loaded ' + inttostr(LoadItems()) + ' items');
    Writeln('Loading slots...');
    LoadSlots();
    Writeln('Slots loaded');
    Writeln('Entering main loop...');
  end;
  begin
    Initialize();
    while true do
    begin
      for ii := 0 to ItemList.Length do
      begin
          ScanItem(ItemList.List[ii]);
      end;
    end;
  end.