Нужные типы забей в массив сам:
Code:
#####################################################################
; AutoLootGround. v.1.11b (c) Edred
;
; Автоматически лутим с земли около чара. Одежду сразу режем на бинты.
;
sub AutoLootGround()
VAR Cleaver = '0x0EC2' ; кливер (тип)
VAR Scissor = '0x0F9E' ; Ножницы
VAR fastloot = 'FastLoot detected.'
DIM Nado[27]
Nado[0] = '0x170B' ; boots
Nado[1] = '0x1718' ;
Nado[2] = '0x1516' ; a skirt
Nado[3] = '0x1F03' ; a robe
Nado[4] = '0x1F01' ; a plain dress
Nado[5] = '0x1EFD' ; a fancy shirt
Nado[6] = '0x1541' ; a body sash
Nado[7] = '0x170B' ; boots
Nado[8] = '0x170D' ; sandals
Nado[9] = '0x1717' ; a straw hat
Nado[10] = '0x1539' ; long pants
Nado[11] = '0x152E' ; short pants
Nado[12] = '0x1515' ; a cloak
Nado[13] = '0x1FA1' ; tunic
Nado[14] = '0x0EED' ; gold coin
Nado[15] = '0x0F3F' ; arrows
Nado[16] = '0x0F7A' ; pearls, black pearls
Nado[17] = '0x0F7B' ; bood moss
Nado[18] = '0x0F7D' ; vials of blood
Nado[19] = '0x0F84' ; garlic
Nado[20] = '0x0F85' ; ginseng
Nado[21] = '0x0F86' ; mandrake root
Nado[22] = '0x0F88' ; night shade
Nado[23] = '0x0F8C' ; sulphorous ash
Nado[24] = '0x0F8D' ; spiders silk
Nado[25] = '0x14ED' ; a treasure map
Nado[26] = '0x0E75' ; backpack
VAR i
UO.Exec( 'set finddistance 3' )
For i = 0 To 25
UO.FindType( Nado[i], '-1', '1' )
While UO.FindCount() > 0
DeleteJournal( fastloot )
If i < 14 Then
UO.WaitTargetObject( 'finditem' )
UO.UseType( Scissor )
GetPause(500)
CheckLag()
Else
If i == 23 Then
If UO.GetQuantity( 'finditem' ) == 1 Then
UO.Ignore( 'finditem' )
Else
UO.MoveItem( 'finditem' )
GetPause(350)
CheckLag()
Endif
Else
UO.MoveItem( 'finditem' )
GetPause(350)
CheckLag()
Endif
Endif
UO.FindType( Nado[i], '-1', '1' )
Wend
Next
UO.Print( 'The loot was finished' )
endsub
;
; Пауза в переданных миллисекундах, с проверкой на сообщение о
; детекте фастлута. Не забудьте удалить эту фразу из журнала перед
; тем действием, после которого стоит эта пауза!
Sub GetPause( ms )
VAR t = 0
VAR msg = 'FastLoot detected.'
repeat
wait(50)
t = t + 50
until t >= ms OR UO.InJournal( msg )
If UO.InJournal( msg ) Then
wait(200)
Endif
endsub
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, 'string replaced' )
DeleteJournal( string1 )
Endif
endsub
Register
Login
FAQ
Search
