Ошибки в масивах или де?:)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
skiv
Posts: 43
Joined: 2004-07-02 09:47:30

Ошибки в масивах или де?:)

Post by skiv »

Вообщем скрипт тут наваял на тайлор:

Code: Select all

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

Смысл в том что у нас на севре несколько типов ткани... Так вот с такой фигнёй сталкиваюсь первый раз. Скрипт постоянно выдаёт ошибки в строчках которые Должны работать, либо в последней строчке, которой не усуществует. Может кто подсказать де косяк?
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

Code: Select all

UO.Print( 'Ia?ai?iaa?u an? au? ia?o ?ac. Iaae?o y a noiaoea oeaie!!!) 

кавычку забыл...
skiv
Posts: 43
Joined: 2004-07-02 09:47:30

Post by skiv »

Рабочая версия... Может кому пригодится:)

Code: Select all

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
Post Reply