Page 1 of 1
Нексолько вопрософ по поводу скриптоф
Posted: 2006-02-25 17:52:25
by duzik
Code: Select all
sub Looting()
var t,l
t=500
uo.deletejournal()
uo.UseObject('lastcorpse')
dim LootingItem[4]
uo.Print('Íà÷èíàåì Ëóòàòü...')
### Magic Looting Items ###
LootingItem[1] = 0x09AA ## - kaste
LootingItem[2] = 0x0EED ## - naudinja
LootingItem[3] = 0x1088 ## - amulets
LootingItem[4] = 0x14ED ## - Treashure
uo.Print('Ëóò Çàêîí÷åí.')
for l=1 to 4
uo.FindType(LootingItem[l],"-1","lastcorpse")
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=4 then
uo.Grab(1,"finditem")
wait (t)
uo.Print('Íàéäåí ïðåäìåò: '+str(uo.findcount()))
end if
next
end sub
Как такое чудо превратить в ауто лут штоб он вкльючался кода в журнале показвает техт типо items) или штото такое , 2. вопрос как зделать так штоб он взял type1 ,type2 с коробки , зделал итем , положил type3 в коробку , 3. вопрос как зделать ,disarm далше следует uo.usetype (repair tools) а вот как зделать штоб он таргетил именно етот итем(Меч маце или што другое)?
Posted: 2006-02-25 22:51:12
by GimFlex
1.
Code: Select all
while not uo.injournal("itams")
wait(1000)
wend
loot()
....
Posted: 2006-02-25 23:39:26
by SprinG
а этот можно посмотреть?
sub Loot_pvp_elf()
var bag,i=0;
var telo = '0x2006' #Тайп Трупа
dim loot[18]
loot[0]=0x1F03 #robe
loot[1]=0x1515 #cloack
loot[2]=0x13BF #chain puzo
loot[3]=0x13BE #chain nogi
loot[4]=0x13BB #chain golova
loot[5]=0x13EE #chain ple4iki
loot[6]=0x13EB #chain ruki
loot[7]=0x13B1 #heru
loot[8]=0x0EED #gold
loot[9]=0x0E76 #bag
loot[10]=0x0E75 #sold
loot[11]=0x1F58 #belt pouch
loot[12]=0x0F3F #arrows
loot[13]=0x1BFB #bolti
loot[14]=0x0f0e #inviska
loot[15]=0x0f09 #manka
loot[16]=0x0f0c #heal
loot[17]=0x0E21 #bandages
uo.deletejournal()
if uo.getdistance('lastcontainer')<=2 then
bag=uo.getserial('lastcontainer')
else
uo.findtype(telo,-1,'ground')
if uo.findcount() > 0 then
uo.waittargetobject('finditem')
bag=uo.getserial('finditem')
wait(300)
endif
endif
if UO.GetSerial('lastcontainer')<>UO.GetSerial('backpack') Then
uo.print(bag)
uo.useobject(bag)
for i=0 to 17
uo.findtype(loot[i],-1,bag)
if uo.findcount()>0 AND uo.GetDistance(bag)<=2 then
UO.MoveItem('finditem','0','backpack')
wait(500)
endif
next
endif
end sub
на строке uo.print(bag) выводит рантайм эрор почемуто
Posted: 2006-02-26 03:57:30
by duzik
Question wrote:1.
Code: Select all
while not uo.injournal("itams")
wait(1000)
wend
loot()
....
Мош я дурак но я некак немогу зделать штоб он всеремя работатл он как нехочет так нехочет соберать пожалуисто напиши в полном виде скрипт
у мя он виглядет такои ...
Code: Select all
sub Looting()
var t,l
t=500
uo.deletejournal()
while not uo.injournal("items")
wend
uo.UseObject('lastcorpse')
dim LootingItem[4]
uo.Print('Íà÷èíàåì Ëóòàòü...')
### Magic Looting Items ###
LootingItem[1] = 0x09AA ## - kaste
LootingItem[2] = 0x0EED ## - naudinja
LootingItem[3] = 0x1088 ## - amulets
LootingItem[4] = 0x14ED ## - Treashure
uo.Print('Ëóò Çàêîí÷åí.')
for l=1 to 4
uo.FindType(LootingItem[l],"-1","lastcorpse")
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=4 then
uo.Grab(1,"finditem")
wait (t)
uo.Print('Íàéäåí ïðåäìåò: '+str(uo.findcount()))
end if
next
end sub
Posted: 2006-02-27 13:32:32
by duzik
Всёже очень прошу помоч