var zabito=0; 0-da 1 - net sub prokach() if zabito==0 then repeat if UO.InJournal("You gained") then UO.UseObject( 'lastcorpse' ) wait(250) lootpp() UO.DeleteJournal() wait(150) else UO.DeleteJournal() wait(100) endif until Uo.Dead() endsub sub lootpp() DIM R[8]; и здес тож нада добавлять var c R[1] = 0x0DE1 R[2] = 0x0EED R[3] = 0x09AA R[4] = 0x1541 R[5] = 0x1088 R[6] = 0x1086 R[7] = 0x108A R[8] = 0x14ED UO.UseObject('lastcorpse') wait(100) for c=1 to 8;Дабавляё болше если таипы добавляш repeat uo.findtype(R[c],"-1","lastcorpse") if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then UO.Grab("0","finditem") wait(100) end if until UO.FindCount()<1 wait(50) next end sub end sub
Edited by Xanth, 09 November 2007 - 12:14.