Yoko
http://forum.yoko.com.ua/

Сброс с пака в сундук
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3249		 Page 1 of 1
Author:  mike [ 2005-02-28 17:09:35 ]
Post subject:  Сброс с пака в сундук
нужен достаточно простенький скрипт-сброс некоторых итемов(допустим камней) с пака в сундук.
помогите плиз.
Author:  GimFlex [ 2005-02-28 17:14:48 ]
Post subject: 
sub main()
while not uo.dead()
uo.findtype('тип камней','-1','backpack')
uo.moveitem('finditem','1','ид сундука')
wait(1000)
wend
endsub
Author:  mike [ 2005-02-28 18:18:53 ]
Post subject: 
а если предметов много надо, что-то типа этого можно сделать
sub Loot()
VAR WaitTime=600
VAR Exit=0, i
DIM Loot[21]


Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x0F90 ; Dead Woods
Loot[10]=0x0F7E ; Sceleton Bones
Loot[11]=0x0F87 ; Eyes of newt
Loot[12]=0x0F8F ; Volcanic ash
Loot[13]=0x1BFB ; Bolts
.............
Или только так как ты сказал?
Author:  mike [ 2005-02-28 21:28:40 ]
Post subject: 
кстати, щас проверил то что ты дал-запустить не получилось....
выкладка камней не происходит :(
скрипт ошибки не выдает и висит будто выполняется.
Author:  mike [ 2005-03-02 21:37:02 ]
Post subject: 
попробывал сделать сам.не получилось.помогите плиз ((
sub Lootper()
VAR WaitTime=600
VAR Exit=0, i
DIM Loot[27]


Loot[0]=0x0EED ; gp
Loot[1]=0x0E34 ; Blanc Scroll
Loot[2]=0x0F25 ; Pieces of Amber
Loot[3]=0x0F16 ; Ametist
Loot[4]=0x0F20 ; Tourmaline
Loot[5]=0x0F26 ; Diamond
Loot[6]=0x0F30 ; Diamond
Loot[7]=0x14EB ; Treassure Map
Loot[8]=0x0F13 ; rubies
Loot[9]=0x0F15 ; rubies
Loot[10]=0x0F0F ; rubies
Loot[11]=0x0F1E ; rubies
Loot[12]=0x0F2E ; rubies
Loot[13]=0x0F11
Loot[14]=0x0F10
Loot[15]=0x0F18
Loot[16]=0x0F2D ; tourmaline
Loot[17]=0x0F1F ; sapphire
Loot[18]=0x0F1E ; tourmaline
Loot[19]=0x0F1D ; ruby
Loot[20]=0x0F2F ; emerald
Loot[21]=0x0F12 ; sapphire
Loot[22]=0x0F2D ; tourmaline
Loot[23]=0x0F25 ; pieces of amber
Loot[24]=0x0F17 ; amethyst
Loot[25]=0x0F23 ; citrine
Loot[26]=0x0F21 ; star sapphire
Loot[27]=0x0F1A
UO.UseObject('backpack')
CheckLag()
For i=0 to 27
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(1000)
endif

next
UO.SetReceivingContainer('0x4027D0B3')

end sub
Author:  BETEPAH [ 2005-03-04 13:44:11 ]
Post subject: 
Code:
UO.UseObject('backpack') 
CheckLag() 
For i=0 to 27 
UO.FindType(Loot[i],-1,'ground') 
if UO.GetQuantity('finditem') then 
UO.SetReceivingContainer('0x4027D0B3') 
UO.Grab(STR(0),'finditem') 
wait(1000) 
endif 
next 
end sub


Ты ресив конт не туда пихнул.
Author:  mike [ 2005-03-05 20:58:42 ]
Post subject: 
BETEPAH wrote:
Code:
UO.UseObject('backpack') 
CheckLag() 
For i=0 to 27 
UO.FindType(Loot[i],-1,'ground') 
if UO.GetQuantity('finditem') then 
UO.SetReceivingContainer('0x4027D0B3') 
UO.Grab(STR(0),'finditem') 
wait(1000) 
endif 
next 
end sub


Ты ресив конт не туда пихнул.

судя по всему дело не только в нем.... =(
все= не пашет ((
Author:  mike [ 2005-03-05 21:14:29 ]
Post subject: 
все. скрипт работает.
все ошибки исправлены.
топик можно закрывать.
всем спасибо.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/