7 replies to this topic

[N3K]

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

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

############### 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

[Graff TrAXuLA]

Сделал бы ты авто бай

[Arsenikum]

Da ceni bi tebe ne bilo!!!

[N3K]

Какой авто бай ?)) Покупку с вендоров ?

[lizardking]

Graff ochen nado ? Skript ljogkii na euo + inju. Pouchish nemnoshko i poimjoshj kak ego napisatj
Jeslje siljno hocheshj to uzh tochno napisatj mozheshj. kstate samoe glavnoe eto ne code, a prosto ideja.

[Dida]

Nice очень полезный скрипт экономит уйму дорогово мне времени

[Tastingo]

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

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

############### 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

ыыыыыыыыыыыыыыыыыыыыыыыыыыыы
простой скрипт а скоко ЧЕСТИ ВНАЧАЛИ =))))))))))))) ПАЧТАЛОМ
ЗАПАТЕНТУЙ ЕГО ЕЩЕ!

[N3K]

ыыыыыыыыыыыыыыыыыыыыыыыыыыыы
простой скрипт а скоко ЧЕСТИ ВНАЧАЛИ =))))))))))))) ПАЧТАЛОМ
ЗАПАТЕНТУЙ ЕГО ЕЩЕ!

И часто Вы там - под столом ?