Маленький вопрос

[nucler]

Какая команда нужна, чтобы записать время в отдельный файл?? Если можно то выложите скрипт, что-то вроде увидел ник и записал время в файл. Использование - чтобы узнать время респауна животного.
Благодарю за помощь!

[Millerbeer]

Цитата из файла из пакета справок выложенных на сайте...

Класс FILE:
пример:
sub main()
var f=file("c:\имя файла")
var s=0
f.open()
while not f.eof() and not fatal error
s=safe call f.readnumber()
if not fatal error then
dbgmsg(s)
endif
wend
f.close()
endsub

Методы класса:
File(имя файла) - конструктор
Open() - открыть на чтение/запись. Возвращает true==открылся удачно
Create() - затереть файл. Возврат так же
Eof() - true == конец
ReadLn() - возвращает строку из файла. Строку полностью!!!
ReadString() - возвр. слово из файла до пробела/TAB
ReadNumber() - число
Write(строка/число) - запись строки/числа в файл.
WriteLn(строка/число) - запись строки/числа в файл+перевод строки.
WriteLn() - просто запись перевода строки
Close() - закрыть файл и освободить память из-под класса. После вызова Close() с файлом больше работать нельзя (даже вызвав Open).

Code: Select all

sub Date_Time()
   uo.print('*************')
   uo.print('* Security Cam    *')
   uo.print('* date: '+date(uo.date(),'.')+' *') 
   uo.print('* time: '+time(uo.time(),':')+' *')
   uo.print('*************')
endsub

Sub date(jor,n) 
   var ser=str(jor), t='' 
   if len(ser)==5 then 
   ser='0'+ser 
   end if 
   t=right(ser,2)+n+mid(ser,2,2)+n+left(ser,2) 
   return t 
endsub

Sub time(jor,n)
   var i, t='' 
   var ser=str(jor)
      if len(ser)==5 then 
         ser='0'+ser 
      end if
      if len(ser)==4 then
         ser='00'+ser
      end if
      for i=0 to len(ser)-2 step 2 
         t=t+mid(ser,i,2)+n 
      next 
   t=left(t,len(ser)+2) 
   return t 
end sub