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

Нексолько вопрософ по поводу скриптоф
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6240		 Page 1 of 1
Author:  duzik [ 2006-02-25 17:52:25 ]
Post subject:  Нексолько вопрософ по поводу скриптоф
Code:
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) а вот как зделать штоб он таргетил именно етот итем(Меч маце или што другое)?
Author:  GimFlex [ 2006-02-25 22:51:12 ]
Post subject: 
1.
Code:
while not uo.injournal("itams")
 wait(1000)
wend
loot()
....
Author:  SprinG [ 2006-02-25 23:39:26 ]
Post subject: 
а этот можно посмотреть?
Quote:
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) выводит рантайм эрор почемуто :(
Author:  duzik [ 2006-02-26 03:57:30 ]
Post subject: 
Question wrote:
1.
Code:
while not uo.injournal("itams")
 wait(1000)
wend
loot()
....


Мош я дурак но я некак немогу зделать штоб он всеремя работатл он как нехочет так нехочет соберать пожалуисто напиши в полном виде скрипт

у мя он виглядет такои ...
Code:
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
Author:  duzik [ 2006-02-27 13:32:32 ]
Post subject: 
Всёже очень прошу помоч
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/