Page 1 of 1
Помощь в дописание скрипта :)
Posted: 2009-03-12 17:40:42
by durDom
Code: Select all
sub Sort()
DIM R[11]
var c
R[1] = 0x0F7B # Blood Muss
R[2] = 0x0F86 # Mandrake
R[3] = 0x0F7A # Black Perl
R[4] = 0x0F88 # Nigthshade
R[5] = 0x0F8C # Sulphorius Ash
R[6] = 0x0F85 # Ginserg
R[7] = 0x0F84 # Garlic
R[8] = 0x0F8D # Spider Silk
R[9] = 0x0E21 # Bandage
R[10] = 0x0F3F # Arrow
R[11] = 0x1BFB # Bolt
wait(100)
for c=1 to 11
UO.FindType(R[c],"0","backpack")
if UO.FindCount()>0 Then
UO.MoveItem("finditem","0","backpack","142","65","0")
wait(100)
Endif
wait(100)
next
помогите, не могу вписать в этот скрипт тотлы куре, хила, стамы...
Posted: 2009-03-12 17:50:46
by Bangbuss
Code: Select all
sub Sort()
DIM R[13]
var c
R[1] = 0x0F7B # Blood Muss
R[2] = 0x0F86 # Mandrake
R[3] = 0x0F7A # Black Perl
R[4] = 0x0F88 # Nigthshade
R[5] = 0x0F8C # Sulphorius Ash
R[6] = 0x0F85 # Ginserg
R[7] = 0x0F84 # Garlic
R[8] = 0x0F8D # Spider Silk
R[9] = 0x0E21 # Bandage
R[10] = 0x0F3F # Arrow
R[11] = 0x000 # cure tip
R[12] = 0x000 # heal tip
R[13] = 0x000 # stam tip
wait(100)
for c=1 to 13
UO.FindType(R[c],"0","backpack")
if UO.FindCount()>0 Then
UO.MoveItem("finditem","0","backpack","142","65","0")
wait(100)
Endif
wait(100)
next
Posted: 2009-03-12 18:17:56
by durDom
я пробовал, но тотлы как леали на месте так и лежат
Posted: 2009-03-16 07:52:16
by Kynep
durDom wrote:я пробовал, но тотлы как леали на месте так и лежат
Может цвет дописать?
Posted: 2009-04-01 14:45:58
by durDom
Kynep wrote:durDom wrote:я пробовал, но тотлы как леали на месте так и лежат
Может цвет дописать?
не выходит, видемо для тотлов другая шифровка или коды (я хз)
плз помогите очень нужен запарило в бардаке рыскать(
Posted: 2009-04-01 16:56:13
by Successful
Posted: 2009-04-01 17:43:04
by DreadLord