SRL Archive - SRL Archives

procedure DropADTM(DTM, Spot : Integer) : Integer;
By: UnNamemd
Description: Drops a DTM in the given spot

procedure DropADTM(DTM, Spot : Integer);
var
  a : TPoint;
begin
  a := ItemCoords(Spot);
  if(FindDTM(DTM, x, y, a.x-20, a.x+20, a.y+20, a.y-20))then
  begin
    MoveM(x, y, 3, 3, 2);
    Wait(100 + Random(100));
    if(FindBitmap(Drop, x, y))then
    begin
      MoveM(x, y, 3, 3, 1);
      repeat
        Wait(100);
      until(not(FindDTM(DTM, x, y, a.x-20, a.x+20, a.y+20, a.y-20)))
    end;
  end;
end;

procedure DropDTM(DTM, x1, y1 : Integer) : Integer;
By: UnNamed
Description: Drops a DTM at the given coords

procedure DropDTM(DTM, x1, y1 : Integer);
begin
  if(FindDTM(DTM, x1, y1, x-20, x+20, y+20, y-20))then
  begin
    MoveM(x1, y1, 3, 3, 2);
    Wait(100 + Random(100));
    if(FindBitmap(Drop, x, y))then
    begin
      MoveM(x, y, 3, 3, 1);
      repeat
        Wait(100);
      until(not(FindDTM(DTM, x1, y1, x-20, x+20, y+20, y-20)))
    end;
  end;
end;

To use both of these you will need to have this bitmap in your script:

  Drop := BitmapFromString(30, 8, 'z78DA333000013724608004708' +
       '90F0640AA9BDD7000FC26131302E4994C9E9BA96B263DC547DD3C' +
       'BCDD4C495AA5569E223ECF0ECEB20B1300006BBD3F0C');

Both can be used in procedures to drop your invent, witch I've done but you'll need to wait for that one. :)

Looks nice. Great Job Man. :p