Code:
; Àâòîìàòè÷åñêè ëóòèì ñ çåìëè îêîëî ÷àðà. Îäåæäó ñðàçó ðåæåì íà áèíòû.
;
sub AutoLootGround()
VAR Cleaver = '0x0EC2' ; êëèâåð (òèï)
VAR Scissor = '0x0F9E' ; Íîæíèöû
VAR fastloot = 'FastLoot detected.'
DIM Nado[27]
Nado[0] = '0x0EED' ; gp
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] = '0x0E76' ; 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
А че тут посмарите я када встаю радам с указаными вешями то он мне выдает ошибку делит журнал ну что то вот тут
Code:
DeleteJournal( fastloot )
ошибка