2 Heav
Просто скажи что тебе нужна собиралка регов
Если играешь на Антаресе, то ничего не меняй, а для других шардов увеличь паузу и установи дистанцию.
Прокачка ИД может быть и проше, если это она.
Да, и wait(10500) неактуально, попробуй журнал по юзать.
Code:
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