Нужна помощь!

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Heav
Posts: 10
Joined: 2006-11-20 17:32:57

Нужна помощь!

Post by Heav »

Code: Select all

sub main()
var x,i,NoID,count,num=0
var pak='0x413C8D42'
dim ID[10]
ID[0]='0x1B74'
ID[1]='0x0F43'
ID[2]='0x1711'
ID[3]='0x1442'
ID[4]='0x1B76'
ID[5]='0x0EC4'
ID[6]='0x108A'
ID[7]='0x13AF'
ID[8]='0x1402'
ID[9]='0x13DB'
ID[10]='0x13F6'
uo.ignorereset()
while not uo.dead()
For x = 0 to 10
count=uo.count(ID[x])
   if count > 1 then
      For i = 1 to count
      num=num+1
      wait(50)
      uo.print("Item # "+str(num)+"")
      uo.findtype(ID[x],'0x0000',pak)
      NoID=uo.getserial('finditem')
      uo.ignore(NoID)
      uo.exec("waittargetobject NoID")
      uo.exec("useskill 'Item Identification'")
      wait(10500)
      next
   end if
wait(100)
next
wait(500)
wend
end sub


Скрипт почему, то не нажимает на нужную вещь. Подскажите пожалуста, в чем я ошибся?
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

      uo.findtype(ID[x],'0x0000',pak)
      NoID=uo.getserial('finditem')

мне кажется здесь нехватает вейт

Code: Select all

repeat
wait(20)
until uo.findcount()
:lol:
slonopotam
Posts: 270
Joined: 2006-08-05 14:09:06
Contact:

Post by slonopotam »

2 Heav

Просто скажи что тебе нужна собиралка регов :D
Если играешь на Антаресе, то ничего не меняй, а для других шардов увеличь паузу и установи дистанцию.
Прокачка ИД может быть и проше, если это она.
Да, и wait(10500) неактуально, попробуй журнал по юзать.

Code: Select all

VAR goblin=1
sub Start()
repeat
LootRegs()
   wait(100)
      until goblin>2
end sub

Sub LootRegs()
   DIM Regs[10]
Regs[0] = '0x0C8D' ; Fertile Dirt
Regs[1] = '0x0C8C' ; Blackmoor
Regs[2] = '0x0C94' ; Obsidian
Regs[3] = '0x0C88' ; Pumice
Regs[4] = '0x0D04' ; Dead Wood
Regs[5] = '0x0C8A' ; Volcanic Ash
Regs[6] = '0x0C85' ; Brimstone
Regs[7] = '0x0C83' ; Executioner's Cap
Regs[8] = '0x0C86' ; Blood Spawn
Regs[9] = '0x0CA9' ; 30 Random Reagent's Pack
   VAR i
   For i = 0 To 9
      If UO.Count( Regs[ i ] ) == 0 Then
      wait( 100 )
UO.UseFromGround( Regs[ i ] )
      wait( 100 )
      Endif
   Next
endsub

Sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

2slonopotam

Code: Select all

uo.exec("useskill 'Item Identification'")

это собиралка регов ? :lol: :mrgreen:
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Мде, теперь понятно почему чел меня в асе мучал :)
Heav
Posts: 10
Joined: 2006-11-20 17:32:57

Post by Heav »

Это не собиралка регов и не для прокачки ItemID, а просто для индинья лута.

Savage wrote:Мде, теперь понятно почему чел меня в асе мучал :)


Спасибо Savage, помог разобратся. :D
Post Reply