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

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

Помогите со скриптом http://forum.yoko.com.ua/viewtopic.php?f=17&t=16030	Page 1 of 1

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

Author:	Makarov [ 2011-01-20 14:01:59 ]
Post subject:	Re: Помогите со скриптом
я это вижу так: 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

Author:	Mirage [ 2011-01-20 17:34:32 ]
Post subject:	Re: Помогите со скриптом
Ему уже ответили в какойто теме. Он их штук 5 создал одинаковых.

Author:	chuv [ 2011-01-24 18:24:48 ]
Post subject:	Re: Помогите со скриптом
Mirage wrote: Ему уже ответили в какойто теме. Он их штук 5 создал одинаковых. Ты вероятно ошибся, эта первая тема по этому вопросу

Author:	chuv [ 2011-01-24 18:25:18 ]
Post subject:	Re: Помогите со скриптом
Makarov wrote: я это вижу так: 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 Спасибо за помощь, буду читать.

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

Author:

Mirage [ 2011-01-24 21:20:28 ]

Post subject:

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

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

Code:

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

Author:

chuv [ 2011-03-09 18:01:38 ]

Post subject:

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

Mirage wrote:

Code:

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

Спасибо.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/