Page 1 of 1

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

Posted: 2010-12-21 11:52:37
by chuv
Доброго времени суток!
Помогите, пожалуйста, со скриптом, с помощью которого можно зафиксировать в файле время появления в радиусе видимости, например Chuvak.
Возможно ли вообще такое?

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

Posted: 2011-01-20 14:01:59
by Makarov

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

Posted: 2011-01-20 17:34:32
by Mirage
Ему уже ответили в какойто теме. Он их штук 5 создал одинаковых.

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

Posted: 2011-01-24 18:24:48
by chuv
Mirage wrote:Ему уже ответили в какойто теме. Он их штук 5 создал одинаковых.

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

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

Posted: 2011-01-24 18:25:18
by chuv

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

Posted: 2011-01-24 20:02:31
by Makarov
chuv, напиши свой вариант, любой, а мы править будем в меру способностей. Просто так писать с ноля скрипт на тему помогите шоб оно туды-сюды честно говоря настроения нет.

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

Posted: 2011-01-24 21:20:28
by 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

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

Posted: 2011-03-09 18:01:38
by chuv
Mirage wrote:Видимо с кем то перепутал, извини.
вставляешь куда нужно функцию 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

Спасибо.