Не одевает шмотки по типу из массива

[Morutsu]

Накорябал тут скриптик, но где-то видать накосячил.
Должен бить куклу, есть, одевать курсу если НР => 75
Бьет, ест, но когда запускает процедуру CheckStr - пишет:

Code: Select all

Items found: 18 
No items found

Code: Select all

sub Str() 
 VAR i 
  repeat
   For i = 0 to 199 
    CheckStr()
    UO.UseFromGround('0x1070') #Type of dummy 
    Wait(4800) 
   Next 
   UO.UseType('0x160A') #Type of food 
   Wait(2000) 
  until UO.Death()
End sub 

Sub CheckStr() 
 VAR h,e 
 DIM Cursa[10] 
Cursa[0] = '0x1515'  #Cloak
Cursa[1] = '0x1F03'  #Robe
Cursa[2] = '0x1539'  #Pants
Cursa[3] = '0x1517'  #Shirt
Cursa[4] = '0x13CC'  #Leather tunic
Cursa[5] = '0x1C08'  #Leather skirt
Cursa[6] = '0x153F'  #Bandana
Cursa[7] = '0x13C6'  #Leather gloves
Cursa[8] = '0x13C7'  #Leather gorget
Cursa[9] = '0x13C5'  #Leather sleeves
 h = UO.GetMaxHp() 
 If h == 75 or h > 75 Then 
  For e = 0 to 9
   UO.FindType('Cursa[e]') 
    If UO.FindCount() > 0 Then
     UO.UseType('finditem') 
     Wait(3000) 
     e = 9
    Endif
  next
 Endif 
End Sub

Может подскажете чего?)

[Kynep]

Накорябал тут скриптик, но где-то видать накосячил.
Должен бить куклу, есть, одевать курсу если НР => 75
Бьет, ест, но когда запускает процедуру CheckStr - пишет:

Не морочайся с массивом, кинь курсу в мешок, впиши его ИД в скрип и вперед!

Code: Select all

Sub CheckStr() 
 VAR pack = ' ' #ID Мешка с курсой.
 VAR h,e 
 h = UO.GetMaxHp() 
 If h == 75 or h > 75 Then 
   UO.FindType('-1', '-1', pack) 
    If UO.FindCount() > 0 Then
     UO.UseType('finditem') 
     Wait(3000) 
    Endif
 Endif 
End Sub

[ADEPT_ABP]

Я так понял качаешь силу на куклах? Так почему проверку ведёшь на максимальное количество жизни, а не силы?

Code: Select all

h = UO.GetMaxHp()
 If h == 75 or h > 75 Then 

Попробуй заменить на

Code: Select all

If uo.str > 75 Then 

P.S. Опять опередили.

[Grin]

я вас всех опередю...

UO.FindType(Cursa[e])

[Morutsu]

Не морочайся с массивом, кинь курсу в мешок, впиши его ИД в скрип и вперед!

Да, пожалуй. Опыт не пропьешь:)
Но опять же -
Items found: 10
No items found

Так почему проверку ведёшь на максимальное количество жизни, а не силы?

Плохо искал)

я вас всех опередю...

UO.FindType(Cursa[e])

Понял, сделал.

Теперь пишет:

Items found: 1
No items found

[Grin]

и? а что ты хотел то?:) такой скрипт... ты как какуюто шмотку находишь присваеваешь переменой цикла 9 то бишь останавливаешь его... что написал то и получил:) я и справил ошибку "не одевает":)

[Savage]

Code: Select all

sub Str() 
   VAR i,e=0
   DIM Cursa[10] 
   Cursa[0] = '0x1515'  #Cloak 
   Cursa[1] = '0x1F03'  #Robe 
   Cursa[2] = '0x1539'  #Pants 
   Cursa[3] = '0x1517'  #Shirt 
   Cursa[4] = '0x13CC'  #Leather tunic 
   Cursa[5] = '0x1C08'  #Leather skirt 
   Cursa[6] = '0x153F'  #Bandana 
   Cursa[7] = '0x13C6'  #Leather gloves 
   Cursa[8] = '0x13C7'  #Leather gorget 
   Cursa[9] = '0x13C5'  #Leather sleeves 


   repeat 
      For i = 0 to 199 

         If UO.Str >= 75 Then 
            UO.FindType(Cursa[e]) 
            UO.UseType('finditem') 
            e=e+1
            Wait(3000) 
         Endif 

         UO.UseFromGround('0x1070') #Type of dummy 
         Wait(4800) 
      Next 
      UO.UseType('0x160A') #Type of food 
      Wait(2000) 
   until UO.Death() 
End sub 

[Kynep]

Да, пожалуй. Опыт не пропьешь
Но опять же -
Items found: 10
No items found

Блин!!! Ну конечно!!Не UseType а UseObject! Вот дурья башка! Пробуй.

Code: Select all

Sub CheckStr() 
 VAR pack = ' ' #ID Мешка с курсой.
 VAR h,e 
 h = UO.GetMaxHp() 
 If h == 75 or h > 75 Then 
   UO.FindType('-1', '-1', pack) 
    If UO.FindCount() > 0 Then
     UO.UseObject('finditem') 
     Wait(3000) 
    Endif
 Endif 
End Sub

[Morutsu]

Блин!!! Ну конечно!!Не UseType а UseObject! Вот дурья башка! Пробуй.

Ахххаха! Шойтан!! Таки да:) Спасибо.

Code: Select all

sub Str() 
   VAR i,e=0 
   DIM Cursa[10] 
   Cursa[0] = '0x1515'  #Cloak 
   Cursa[1] = '0x1F03'  #Robe 
   Cursa[2] = '0x1539'  #Pants 
   Cursa[3] = '0x1517'  #Shirt 
   Cursa[4] = '0x13CC'  #Leather tunic 
   Cursa[5] = '0x1C08'  #Leather skirt 
   Cursa[6] = '0x153F'  #Bandana 
   Cursa[7] = '0x13C6'  #Leather gloves 
   Cursa[8] = '0x13C7'  #Leather gorget 
   Cursa[9] = '0x13C5'  #Leather sleeves 


   repeat 
      For i = 0 to 199 

         If UO.Str >= 75 Then 
            UO.FindType(Cursa[e]) 
            UO.UseType('finditem') 
            e=e+1 
            Wait(3000) 
         Endif 

         UO.UseFromGround('0x1070') #Type of dummy 
         Wait(4800) 
      Next 
      UO.UseType('0x160A') #Type of food 
      Wait(2000) 
   until UO.Death() 
End sub

Так лучше конечно

З.ы. Оставил таки с мешком:) В паке меньше захламленность наблюдается

[Savage]

Ну да, когда сам пишеш такие ошибки просто невозможны. Когда правишь чужой скрипт, уже существующие ошибки просто просачиваются в новый вариант. Финдитем это объект а не тип, ну и юзать его надо как объект.

[ADEPT_ABP]

Гы... Вот где собака порылась. Столько народу проглядело и каждый своё нашёл, а нужное не увидел(до поры, до времени).