SRL Archive - SRL Archives

DropDTMType

Pwnd

2006-04-17 01:23:40


{//////////////////////////////////////////////////////////////////////
  Procedure DropDTMType(DTM: integer);
  Drops all items in your inven with that dtm type.
  Author: Yohojo; heavy edit by Pwnd.
  Param: DTM - The DTM you wish to drop.
//////////////////////////////////////////////////////////////////////}
procedure DropDTMType(DTM: integer);
var
  Sex, Sey: integer;
begin
  if(FindDTM(DTM, Sex, Sey, 560, 212, 736, 464))then
    begin
      repeat
        if(findDTM(DTM, Sex, Sey, 560, 212, 736, 464))then
          begin
            Mouse(x, y, 5, 5, false);
            RWait(5, 2);
            ClickOption('Drop', 1);
            RWait(5, 2);
          end;
      until(not(FindDTM(DTM, Sex, Sey, 560, 212, 736, 464)))
    end else
      //Writeln(Tab + 'Nothing to drop');
end;

XxKanexX

2006-04-17 01:46:08

I thought SRL already had one of these? Ah, well. I'd probably rather using Colors.

Pwnd

2006-04-17 01:49:26

From: XxKanexX
I thought SRL already had one of these? Ah, well. I'd probably rather using Colors.

I typed in DropDTM for the search and nothing came up :D

Maybe it does, and I'd probably rather use colors as well, but meh, it's useful for some :)

XxKanexX

2006-04-17 02:11:34

Yep, I checked in Inventory.scar - None of this. So i guess it'd be useful. Are you a dev? I forgot.

The Un-Named

2006-04-17 07:26:19

Pwnd Pwnd is offline
SRL Member

:P

XxKanexX

2006-04-17 07:36:01

No, he was voted. And i think he got in, too. I'll go check.

Pwnd

2006-04-17 08:38:26

From: XxKanexX
No, he was voted. And i think he got in, too. I'll go check.

Sexy :D

I can go make other things like this too. Wouldn't be to hard.

Just take an idea.. Make 40 variations of it and run with it xD