N3K

Скрипт на открытие большого кол-ва пандор )

sub Boxes()

up:

UO.FindType('0x09AA',-1);

   while UO.GetQuantity('finditem')>0

	 UO.DeleteJournal() 

	 while not UO.InJournal("Box unlocked.") and not UO.InJournal("You destroy") and not UO.InJournal("Box destroyed") and not UO.InJournal("It is already unlocked.");

	  UO.DeleteJournal() 

	  uo.waittargetobject('finditem')

	  uo.usetype('0x14FB','0x0424')

	  wait(4000)

	 wend

	 while not UO.InJournal("You have opened Pandora Box.") and not UO.InJournal("You destroy") and not UO.InJournal("Box destroed");

	  uo.useobject('finditem')

	  wait(200)

	 wend

	 goto up

   wend

end sub

Неблоьшой скрипт для идентефикации большого кол-ва предметов написал. Кладёте предметы в пак, указываете в скрипте идишник сундука, куда складывать идентефицированные предметы, запускаете скрипт ))

###################################################

############### Item Identification ###############

#################Old Paradise XL###################

################ Created by N3K ###################

###################################################



sub main()

dim It[40];Elements

var count=6;Elements count

It[1] = 0x1F2D

It[2] = 0x1F14

It[3] = 0x1088

It[4] = 0x1086

It[5] = 0x108A

It[6] = 0x0EFA



var bag='0x400F1DB4';put indef items

var l; id

for l=1 to count

start:

UO.FindType(It[l],-1);

   while UO.GetQuantity('finditem')>0

   UO.FindType(It[l],-1);

   if UO.GetQuantity('finditem')<1 then

	goto start

   end if

   UO.DeleteJournal()

	 while not UO.InJournal("You succesfully") and not UO.InJournal("You destroy") and not UO.InJournal("This item is already identified!");

	  UO.DeleteJournal() 

	  uo.waittargetobject('finditem')

	  uo.useskill('Item Identification')

	  wait(7000)

	 wend

	  UO.SetReceivingContainer(bag) 

	  uo.Grab('all',"finditem") 

	  wait(1000)

	  UO.UnSetReceivingContainer() 

   wend

   uo.deletejournal()

   wait(500)

next

end sub