Скрипт вроде как на обкладку

Xside · Post by **Xside** » 2006-07-20 16:26:51

Вот нашел скриптик, но проблема в том, что там знаки вопросов и что в место них поставить не в курсе

Помогите если можете, авось и поколению пригодится.


sub Drops()
var t=200; ????? ????????(1???)
var mx, my, md, n, Check = 0, Lock = 0, TMP_ID
var My_Chest='0x41380f42'
Dim Drop_[5]
Drop_[0] = 4
Drop_[1] = 2
Drop_[2] = 2
Drop_[3] = 2
Drop_[4] = 2
If UO.Dead() Then
 UO.Print("You are Dead")
 Return
End If
If UO.GetGlobal('DropsCheck')<>'on' Then
 If UO.Count('0x0f36') >= 4 Then
  UO.SetGlobal('DropsCheck','on')
  UO.Ignore(My_Chest)
  mx = UO.GetX('lasttarget')
  my = UO.GetY('lasttarget')
  md = UO.GetDir()
  REPEAT
   Check = Check+1
    If ((md == 0 or Drop_[1] == 1) and (Drop_[1] <> 0)) Then
      If Lock <> 1 Then
       Drop_[1] = 0
      End If
     TMP_ID = search()
     UO.Drop('1',str(mx),str(my-1),'0',TMP_ID)
     UO.Forget(TMP_ID)
     Wait(t)
    End If
    If ((md == 4 or Drop_[2] == 1) and (Drop_[2] <> 0)) Then
      If Lock <> 1 Then
       Drop_[2] = 0
      End If
     TMP_ID = search()
     UO.Drop('1',str(mx),str(my+1),'0',TMP_ID)
     UO.Forget(TMP_ID)
     Wait(t)
    End If
    If ((md == 2 or Drop_[3] == 1) and (Drop_[3] <> 0)) Then
      If Lock <> 1 Then
       Drop_[3] = 0
      End If
     TMP_ID = search()
     UO.Drop('1',str(mx+1),str(my),'0',TMP_ID)
     UO.Forget(TMP_ID)
     Wait(t)
    End If
    If ((md == 6 or Drop_[4] == 1) and (Drop_[4] <> 0)) Then
      If Lock <> 1 Then
       Drop_[4] = 0
      End If
     TMP_ID = search()
     UO.Drop('1',str(mx-1),str(my),'0',TMP_ID)
     UO.Forget(TMP_ID)
    End If
    If Lock <> 1 Then
     For n = 1 TO Drop_[0]
      If Drop_[n] <> 0 Then
       Drop_[n] = 1
      End If
     Next
    End If
   Lock = 1
  Until Check == 2 or UO.Dead()
  UO.SetGlobal('DropsCheck','off')
 Else
   UO.Print("Not items from drop! > 4")
 End If  
Else
 UO.Print("Wait")
End If
end sub

Rijo · Post by **Rijo** » 2006-07-20 16:37:13

var t=200; ????? ????????(1???) - тут вопросы просто комментарий. Это просто пояснение что да как.

Xside · Post by **Xside** » 2006-07-20 16:43:26

Хорошо, а что тогда не верно в этом скрипте ?
Не могли бы Вы поправить его ?

666Man666 · Post by **666Man666** » 2006-07-20 21:00:05

Там должна быть ешё доп. функция search().....

Знакомый скриптик

*Сверяет свой автолоад*, гыы...

Rijo · Post by **Rijo** » 2006-07-21 04:14:52

666Man666 wrote:

Ну кинь ему эту процедурку, а то че человек мучается.

Xside wrote:

Или ты сам поищи там где отрыл этот скрипт. Ну или для начала напиши какие ошибки вылетают

Xside · Post by **Xside** » 2006-07-21 06:12:14

Ошибка выпадает на Search, затем пишется Wait и все.
Единственное, что я правильно могу сделать, так это настроить типы обьекта. Больше моих знаний не хватает...

Xside · Post by **Xside** » 2006-07-21 06:13:00

666Man666 wrote:Там должна быть ешё доп. функция search().....

Знакомый скриптик *Сверяет свой автолоад*, гыы...

Буду очень благодарен, если вы мне выложите эту функцию. Заранее спасибо.

666Man666 · Post by **666Man666** » 2006-07-21 09:30:22

Xside wrote:Буду очень благодарен, если вы мне выложите эту функцию. Заранее спасибо.

Напиши сам, надо мозх иногда напригать :roll:

... Там легко, функция ишет в паке объёкт типа и возврашает его ID....

p.s кстати там где значки вопросиков должнен быть текст - ; Вермя задержки(1сек) :lol: