Вопросы Разработчикам Скриптов, вопросы по скриптам (мелкие вопросы)

function Core.OnStartup()
    TmrMan.AddTimer(60000, " Func1")
end

function Func1()
  ScriptMan.RestartScript(scripts/123.lua)
end

Core.SendToAll("тест")

ScriptMan.RestartScript("123.lua")

dofile(frmHub:GetPtokaXLocation().."scripts/old_api.lu")
function Core.OnStartup()
    TmrMan.AddTimer(60000, "Func1")
end

function Func1()
  Core.SendToAll("тест")
end

function OnStartup()
    TmrMan.AddTimer(60000, "Func1")
end

function Func1()
  Core.SendToAll("тест")
end

Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\Команда$<%[mynick]> !cmd&#*124;|"..
"$UserCommand 1 3 $<%[mynick]>&#*124;|$UserCommand 0 3&#*124;")

Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\Команда1$<%[mynick]> !cmd1&#*124;")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\Команда2$<%[mynick]> !cmd2&#*124;")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\Команда3$<%[mynick]> !cmd3&#*124;")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\Команда4$<%[mynick]> !cmd4&#*124;")
...
Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\КомандаN$<%[mynick]> !cmdN&#*124;")

Core.SendToUser(tUser,"$UserCommand 1 3 Меню\\Команда1$<%[mynick]> !cmd1&#*124;|"..
"$UserCommand 1 3 Меню\\Команда2$<%[mynick]> !cmd2&#*124;|"..
"$UserCommand 1 3 Меню\\Команда3$<%[mynick]> !cmd3&#*124;|"..
"$UserCommand 1 3 Меню\\Команда4$<%[mynick]> !cmd4&#*124;|"..
...
"$UserCommand 1 3 Меню\\КомандаN$<%[mynick]> !cmdN&#*124;")

user:SendData("$UserCommand 1 3 Меню\\Команда1$<%[mynick]> !cmd1&#*124;|"..
"$UserCommand 1 3 Меню\\Команда2$<%[mynick]> !cmd2&#*124;|"..
"$UserCommand 1 3 Меню\\Команда3$<%[mynick]> !cmd3&#*124;|"..
"$UserCommand 1 3 Меню\\Команда4$<%[mynick]> !cmd4&#*124;|"..
"$UserCommand 1 3 Меню\\КомандаN$<%[mynick]> !cmdN&#*124;")

tNames = {
  ["nick1"] = "nick2",
}
    
function ChatArrival(curUser,data)
  if tNames[curUser.sName] then
    SendToAll(tNames[curUser.sName],data:sub(curUser.sName:len()+4,-2))
    return 1
  end
end

local c = string.char
local sDatagram = c(0xFF)..c(0xFF)..c(0xFF)..c(0xFF)..c(0x54)..c(0x53)..c(0x6F)..c(0x75)..
c(0x72)..c(0x63)..c(0x65)..c(0x20)..c(0x45)..c(0x6E)..c(0x67)..c(0x69)..c(0x6E)..
c(0x65)..c(0x20)..c(0x51)..c(0x75)..c(0x65)..c(0x72)..c(0x79)..c(0x00) ---это основной запрос всем source и goldscr серверам
local sServerIp = {"81.9.25.202","tf.csmania.ru",} -- суда вписываем айпи своего сервера
local sServerPort = {"27013","27016",} -- суда вписываем порт своего сервера
local iTimeOut = 1 -- таймаут соединения на получение
local iBuferSize = nil -- размер буфера (nil - стандартный)
BotName = "Курильщик" -- имя бота
BotDesc = "Закуривай;)" -- описание бота
BotEmail = "hub@mail.ru" -- email бота
----------------------------------------------------------------------------
-- loads the socket module
socket = require("socket")

myudp = socket.udp()

myudp:settimeout(iTimeOut)

function Main()
SetTimer(1000)
frmHub:RegBot(BotName, 1, BotDesc, BotEmail) --регистрируем бота на хабе
end

function CorrectData(sData, sReplace)
local sStr, iSmb = ''
for i = 1, sData:len() do
iSmb = sData:byte(i)
if iSmb > 243 and iSmb < 256 then
sStr = sStr..sReplace
elseif iSmb > 31 then
sStr = sStr..string.char(iSmb)
elseif iSmb < 1 then
sStr = sStr..sReplace
elseif iSmb >= 1 then
sStr = sStr..iSmb
end
end
return sStr
end


function ChatArrival(tUser, sData)
local sCmd = sData:match"%b<> !л4д"
if sCmd then
for i = 1,table.getn(sServerIp) do
myudp:setpeername(sServerIp[i], sServerPort[i])
local _, sError = myudp:send(sDatagram, sServerIp[i], sServerPort[i])
local bData, sError = ReceiveData()
if not sError and bData then
local z = CorrectData(bData,'?'):sub(7)
local sName, sMap, sTyp, sType, ilen, iTotal, sVersion = z:match"(.-)?(.-)?(.-)?(.-)?(.+)"
if sName then
if sName==sName:match"(%d*%p%d+%p%d+%p%d+:%d+)" then
k=sMap
sMap=sTyp
l=sType
sType=k
sName=k
end
iPlayers, iTotal, sVersion = ilen:sub(3):match"(%d*)(%d)(.+)"
if iPlayers:len() >1 then
iPlayers, iTotal, sVersion = ilen:sub(3):match"(%d*)(%d%d)(.+)"
end
if zlen then
iTotal="32"
iPlayers=ilen:sub(3):match"(%d*).+"
end
sVersion = sVersion:match"(%d%p%d+%p%d+%p%d+)"
iPlayers = iPlayers~='' and iPlayers or 0
SendToAll("blablabla") --написано до следующих строчек а выводится после них
tUser:SendData("Курильщик"," Айпи адрес сервера---> "..sServerIp[i]..":"..sServerPort[i]..""..
"|<Курильщик> Название сервера---> "..tostring(sName)..
"|<Курильщик> Карта на сервере---> "..tostring(sMap)..
"|<Курильщик> Тип и сложность игры---> "..tostring(sType)..
"|<Курильщик> Игроков на сервере---> "..tostring(iPlayers).."/"..tostring(iTotal)..
"|<Курильщик> Версия сервера---> "..tostring(sVersion)..
"|<Курильщик> =======================================")
end
end
end
return 1
end
end

function OnExit()
myudp:close()
end
OnError = OnExit

function ReceiveData()
local sData, sError = myudp:receive(iBuferSize)
if sError then
-- ошибка!
return nil, sError
end
return sData
end



function NewUserConnected(tUser)
tUser:SendData("$UserCommand 1 3 Left4Dead\\Мониторинг наших серверов$<%[mynick]> !л4д||")
end
OpConnected=NewUserConnected

for _,v in pairs(frmHub:GetOnlineUsers()) do
  v:SendData(sData)
end