Помогите пожлалуйста вставить в скрипт Checklag, а то вылетаем при первом ВС и спирит, если можно.
sub BS()
VAR Cont='0x4020d571'
var ing='0x1bef' ; type of ingot
var color='0x0590' ;color
UO.CancelMenu()
UO.SetReceivingContainer('backpack')
UO.Automenu("Blacksmithing","Armor")
UO.Automenu("Armor","Weapons")
UO.Automenu("Weapons","Swords")
UO.Automenu("Swords","Dagger")
; UO.Automenu("Swords","Dagger")
while True
UO.DeleteJournal()
if UO.Count(ing,color)<=10 then
UO.FindType(ing,color,Cont)
UO.Grab('100','finditem')
wait(2000)
endif
UO.UseType(ing,color)
Repeat
wait(1000)
Until UO.InJournal("You put") OR UO.InJournal("fail")
if UO.Count('0x0f51')>0 then ;0x0f51 òèï äàããåðà, ïåðåïðîâåðüòå
UO.FindType('0x0f51',-1,-1) ;0x0f51 òèï äàããåðà, ïåðåïðîâåðüòå
UO.useobject('0x402b96af'); ID ôîðæû
UO.WaitTargetObject('finditem')
wait(1000)
endif
Wend
Help
Moderators: Murderator+, Murderator
-
Destruction
- Junior Expert
- Posts: 3221
- Joined: 2004-06-24 22:08:56
