Помогите со скриптом

[chuv]

Доброго времени суток!
Помогите, пожалуйста, со скриптом, с помощью которого можно зафиксировать в файле время появления в радиусе видимости, например Chuvak.
Возможно ли вообще такое?

[Makarov]

я это вижу так:
http://yoko.com.ua/help/help.php?lang=r ... m=findtype
http://yoko.com.ua/help/help.php?lang=r ... =FindCount
загоняешь в массив
http://yoko.com.ua/help/help.php?lang=r ... em=GetName
http://yoko.com.ua/help/help.php?lang=r ... tem=ignore
http://yoko.com.ua/help/help.php?lang=r ... gnorereset

[Mirage]

Ему уже ответили в какойто теме. Он их штук 5 создал одинаковых.

[chuv]

Ему уже ответили в какойто теме. Он их штук 5 создал одинаковых.

Ты вероятно ошибся, эта первая тема по этому вопросу

[chuv]

я это вижу так:
http://yoko.com.ua/help/help.php?lang=r ... m=findtype
http://yoko.com.ua/help/help.php?lang=r ... =FindCount
загоняешь в массив
http://yoko.com.ua/help/help.php?lang=r ... em=GetName
http://yoko.com.ua/help/help.php?lang=r ... tem=ignore
http://yoko.com.ua/help/help.php?lang=r ... gnorereset

Спасибо за помощь, буду читать.

[Makarov]

chuv, напиши свой вариант, любой, а мы править будем в меру способностей. Просто так писать с ноля скрипт на тему помогите шоб оно туды-сюды честно говоря настроения нет.

[Mirage]

Видимо с кем то перепутал, извини.
вставляешь куда нужно функцию WTime(). Формат - час минута секунду год месяц день.

Code: Select all

sub WTime() 
var ReconnectTime
ReconnectTime = MakeTime() 
uo.TextOpen() 
uo.TextPrint(ReconnectTime) 
end sub 

Sub MakeTime() 
   VAR D, T, Ret, i 
   Ret = STR(UO.Time()) 
   T = "" 
   For i = 0 To Len(Ret) 
      T = Ret[Len(Ret)-i] + T 
      If (I == 2) OR (I == 4) Then 
         T = ":" + T 
      EndIf 
   Next 
   Ret = STR(UO.Date()) 
   D = "" 
   For i = 0 To Len(Ret) 
      D = Ret[Len(Ret)-i] + D 
      If (I == 2) OR (I == 4) Then 
         D = "." + D 
      EndIf 
   Next    
   Ret = T + " @ " + D 
   RETURN Ret 
End Sub

[chuv]

Видимо с кем то перепутал, извини.
вставляешь куда нужно функцию WTime(). Формат - час минута секунду год месяц день.

Code: Select all

sub WTime() 
var ReconnectTime
ReconnectTime = MakeTime() 
uo.TextOpen() 
uo.TextPrint(ReconnectTime) 
end sub 

Sub MakeTime() 
   VAR D, T, Ret, i 
   Ret = STR(UO.Time()) 
   T = "" 
   For i = 0 To Len(Ret) 
      T = Ret[Len(Ret)-i] + T 
      If (I == 2) OR (I == 4) Then 
         T = ":" + T 
      EndIf 
   Next 
   Ret = STR(UO.Date()) 
   D = "" 
   For i = 0 To Len(Ret) 
      D = Ret[Len(Ret)-i] + D 
      If (I == 2) OR (I == 4) Then 
         D = "." + D 
      EndIf 
   Next    
   Ret = T + " @ " + D 
   RETURN Ret 
End Sub

Спасибо.