Yoko
http://forum.yoko.com.ua/

Ошибки в масивах или де?:)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7448		 Page 1 of 1
Author:  skiv [ 2006-04-21 17:59:03 ]
Post subject:  Ошибки в масивах или де?:)
Вообщем скрипт тут наваял на тайлор:
Code:
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

Смысл в том что у нас на севре несколько типов ткани... Так вот с такой фигнёй сталкиваюсь первый раз. Скрипт постоянно выдаёт ошибки в строчках которые Должны работать, либо в последней строчке, которой не усуществует. Может кто подсказать де косяк?
Author:  Grin [ 2006-04-21 18:03:25 ]
Post subject: 
Code:
UO.Print( 'Ia?ai?iaa?u an? au? ia?o ?ac. Iaae?o y a noiaoea oeaie!!!)

кавычку забыл...
Author:  skiv [ 2006-04-21 18:12:17 ]
Post subject: 
Рабочая версия... Может кому пригодится:)
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/