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

опять же лут..
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12799		 Page 1 of 1
Author:  Caxapok [ 2007-11-22 17:37:41 ]
Post subject:  опять же лут..
взял с форума..
sub Loot()
VAR i,Exit
DIM Loot[24]


Loot[0]=0x1B76 ;shit
Loot[1]=0x1415 ;pyzo
Loot[2]=0x1411 ;nogi
Loot[3]=0x1410 ;ple4u
Loot[4]=0x1414 ;pyku
Loot[5]=0x1413 ;gorget
Loot[6]=0x1412 ;shlem
Loot[7]=0x13B9 ;viking
Loot[8]=0x13FA ;topor1
Loot[9]=0x143E ;helbeard
Loot[10]=0x0E87 ;pithfork
Loot[11]=0x1086 ;bracelet
Loot[12]=0x13B1 ;lyk
Loot[13]=0x0F0E ;helki
Loot[14]=0x0F0E ;mana
Loot[15]=0x0F0E ;stamina
Loot[16]=0x0F0E ;inviz
Loot[17]=0x1F5F ;FS
Loot[18]=0x1F52 ;paral
Loot[19]=0x0EED ;GP
loot[21]=0x1416 ;pyzo
loot[22]=0x1418 ;pyku
loot[23]=0x1B77 ;shit


UO.SetReceivingContainer('0x401B5E11') ;ID backpacka

For i=0 to 23
Exit=0
repeat
UO.FindType(Loot[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('0','finditem')
wait(100)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
Next
UO.UnSetReceivingContainer()
end sub


но вот в строке if UO.GetQuantity('finditem') then пишет рантайм еррор..
в чём проблема?
Author:  Scripts Writer [ 2007-11-22 18:13:23 ]
Post subject: 
Правильно элементы массива задай все с одинаковым именем и кол-вом элементов
Author:  Caxapok [ 2007-11-29 18:22:47 ]
Post subject: 
объясни нормальным языком.. гед и чё поменять надо плз)
Author:  mskalexander [ 2007-11-30 17:48:32 ]
Post subject: 
Попробуй вместо
if UO.GetQuantity('finditem') then
написать
if uo.FindCount() then

и ещё Loot[0]=0x1B76 ;shit и все остальные элементы
замени на Loot[0]='0x1B76' ;shit
Author:  Scripts Writer [ 2007-11-30 18:44:03 ]
Post subject: 
mskalexander wrote:
Попробуй вместо
if UO.GetQuantity('finditem') then
написать
if uo.FindCount() then

и ещё Loot[0]=0x1B76 ;shit и все остальные элементы
замени на Loot[0]='0x1B76' ;shit


Я написал что надо сделать,- если вы не понимаете о чём речь, то зачем давать советы лишь запутывающие автора?
Author:  ZeroDX [ 2007-12-02 12:21:24 ]
Post subject: 
Вот проверь
Code:
sub Loot() 
 VAR i,Exit 
  DIM Loot[23] 
   Loot[0]=0x1B76 ;shit 
   Loot[1]=0x1415 ;pyzo 
   Loot[2]=0x1411 ;nogi 
   Loot[3]=0x1410 ;ple4u 
   Loot[4]=0x1414 ;pyku 
   Loot[5]=0x1413 ;gorget 
   Loot[6]=0x1412 ;shlem 
   Loot[7]=0x13B9 ;viking 
   Loot[8]=0x13FA ;topor1 
   Loot[9]=0x143E ;helbeard 
   Loot[10]=0x0E87 ;pithfork 
   Loot[11]=0x1086 ;bracelet 
   Loot[12]=0x13B1 ;lyk 
   Loot[13]=0x0F0E ;helki 
   Loot[14]=0x0F0E ;mana 
   Loot[15]=0x0F0E ;stamina 
   Loot[16]=0x0F0E ;inviz 
   Loot[17]=0x1F5F ;FS 
   Loot[18]=0x1F52 ;paral 
   Loot[19]=0x0EED ;GP 
   Loot[20]=0x1416 ;pyzo 
   Loot[21]=0x1418 ;pyku 
   Loot[22]=0x1B77 ;shit 
  UO.SetReceivingContainer('0x401B5E11') ;ID backpacka 
  For i=0 to 22 
    Exit=0 
    repeat 
      UO.FindType(Loot[i],-1,'lastcontainer') 
      if UO.GetQuantity('finditem') then 
        UO.Grab('0','finditem') 
        wait(100) 
       Else 
        Exit=1 
      endif 
    until Exit==1 OR uo.injournal("loot") 
  Next 
  UO.UnSetReceivingContainer() 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/