sub Bandage() DIM Cloth[4] Cloth[0] = '0x1762' Cloth[1] = '0x1763' Cloth[2] = '0x1764' Cloth[3] = '0x1761' VAR i VAR Chest = '0x4001573A' VAR nitki = '0x4000F690' For i = 0 To 3 If UO.Count( Cloth[i] ) == 0 Then UO.FindType( Cloth[i], '-1', Chest ) # FoR TesT!!!! If UO.FindCount() > 0 Then UO.MoveItem( 'finditem' ) wait(1000) UO.Print( 'Ïåðåïðîâåðü âñ¸ åù¸ ïàðó ðàç. Íåâèæó ÿ â ñóíäóêå òêàíè!!!) Endif Endif Repeat UO.WaitMenu('Cloth','Clean Bandages') wait (1000) uo.waittargettype(Cloth[i]) uo.useobject( nitki ) wait (1000) UO.DeleteJournal() while not (UO.InJournal("You put") or UO.InJournal("Tailoring failed")) wait(300) wend wait(200) until UO.Dead() Next end sub
Смысл в том что у нас на севре несколько типов ткани... Так вот с такой фигнёй сталкиваюсь первый раз. Скрипт постоянно выдаёт ошибки в строчках которые Должны работать, либо в последней строчке, которой не усуществует. Может кто подсказать де косяк?
sub Bandage() DIM Cloth[4] Cloth[0] = '0x1762' Cloth[1] = '0x1763' Cloth[2] = '0x1764' Cloth[3] = '0x1761' VAR i VAR Chest = '0x4001573A' VAR nitki = '0x4000F690' For i = 0 To 3 Repeat If UO.Count( Cloth[i] ) == 0 Then UO.FindType( Cloth[i], '-1', Chest ) # FoR TesT!!!! If UO.FindCount() > 0 Then UO.MoveItem( 'finditem' ) wait(1000) Endif Endif UO.WaitMenu('Cloth','Clean Bandages') wait (1000) uo.waittargettype(Cloth[i]) uo.useobject( nitki ) wait (1000) UO.DeleteJournal() while not (UO.InJournal("You put") or UO.InJournal("Tailoring failed")) wait(300) wend wait(200) until UO.Dead() Next end sub