Code:{////////////////////////////////////////////////////////////////////// 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;




Reply With Quote



