hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
hObject.Open("GET", "http://czar-craft.16mb.com/FBI/time.php", true)
hObject.Send()
hObject.WaitForResponse(30)
time:=hObject.ResponseText
RegExMatch(time, "(.*)<br>(.*) (.*) (.*)", out)
mes:= ["Января", "Февраля", "Марта", "Апреля", "Мая", "Июня", "Июля", "Августа", "Сентября", "Октября", "Ноября", "Декабря"]
out3:=mes[out3]
SendChat("/me сунув руку в карман, достал телефон, после чего взглянул на экран.")
SendChat("/do На экране указано время и дата: " out1 " " out2 " " out3 " " out4)