помогите вставить Type
Posted: 2009-10-08 16:49:22
жмет на инги далее нада чтобы прицелом кликнул на этот Type=0x0FB0 допишите скрипт зарание спасибо! 
Code: Select all
sub bs()
var counter,z,logcount,gCount,p,CurCOnt,flag=0
dim container[9]
container[0]= 0x40108803
container[1]= 0x401087E9
container[2]= 0x401087E2
container[3]= 0x40108815
container[4]= 0x401087E1
container[5]= 0x401087FF
container[6]= 0x401087EC
container[7]= 0x40108806
container[8]= 0x401087FC
container[9]= 0x40108805
Start:
while not uo.Hidden()
uo.Print('Hiding in progres...')
uo.DeleteJournal()
#UO.Press(9)## tab pered rubkoy
Wait(100)
uo.UseSkill('Hiding')
wait(4100)
wend
wait(100)
end if
UO.Print("Zagruzaem logi 100")
wait(1000)
UO.Findtype( 0x1BEF,0x06D6 ,0x40003F2F)
UO.Exec( "moveitem finditem 45" )
while UO.Weight>400
wait(1000)
UO.DeleteJournal()
wait(500)
UO.UseType("0x1BEF")
wait(500)
UO.LClick(158,373)
counter=0
UO.DeleteJournal()
while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
wait(500)
counter=counter+1
wend
UO.FindType("0x1B73" )
UO.moveitem ('finditem' ,1, container[flag])
if flag==9 then
flag=0
endif
if flag==8 then
flag=9
endif
if flag==7 then
flag=8
endif
if flag==6 then
flag=7
endif
if flag==5 then
flag=6
endif
if flag==4 then
flag=5
endif
if flag==3 then
flag=4
endif
if flag==2 then
flag=3
endif
if flag==1 then
flag=2
endif
if flag==0 then
flag=1
endif
endif
wend
goto start
end sub
Или между.
