Информация RakCloud — Разработка

function main()
    print("Turbo script by Rin loaded.")
    while true do
        wait(10000)
        print("I am working...")
    end
end

-- Функция, выводящая текст каждые 2 секунды.
function loopPrint(str)
    while true do -- Бесконечный цикл.
        print(str) -- Печатаем строку.
        wait(2000) -- Ждем 2 секунды.
    end
end

-- Создаем кооперативный поток и передаем строку в качестве аргумента.
Task.create(loopPrint, "Hello World")

samp.on("playerJoin", function(playerId, color, isNpc, nickName)
    print("На сервер зашел игрок:", nickName, "ID:", playerId)
end)

-- Отправляем пакеты согласно частоте который отправит нам сервер в событии InitGame, смотреть ниже.
local netModeNormalOnfootSendRate = 40
local netModeNormalIncarSendRate = 40

function main()
    while true do
        wait(0)
        if samp.isBotConnected() and samp.isBotSpawned() then -- Если бот подключен и заспавнен.
            if samp.isBotOnFoot() then -- Если бот на ногах.
                samp.sendOnFootData()
                wait(netModeNormalOnfootSendRate)
            elseif samp.isBotDrivingVehicle() then -- Если бот управляет транспортом.
                samp.sendInCarData()
                wait(netModeNormalIncarSendRate)
            elseif samp.isBotSitsAsPassenger() then -- Если бот является пассажиром транспорта.
                samp.sendPassengerData()
                wait(netModeNormalIncarSendRate)
            end
        end
    end
end

samp.on("initGame", function(serverInfo)
    -- Меняем частоту отправки пакетов синхронизации на ту, что  требует сервер.
    netModeNormalOnfootSendRate = serverInfo.netModeNormalOnfootSendRate
    netModeNormalIncarSendRate = serverInfo.netModeNormalIncarSendRate
end)

samp.on("playerQuit", function(playerId, reason)
    local player = samp.getPlayer(playerId) -- Получаем игрока из пула по его ID.
    if player:getNickName() == "Vladimir_Putin" then
        -- С сервера вышел главный админ, сообщаем менеджеру запустить остальных ботов.
        ipc.send("GuysTheAdminIsOutItsTimeToWork")
    end
end)

ipc.on("GuysTheAdminIsOutItsTimeToWork", function()
    local bot = SampBot.new("TurboBot") -- Создаем нового бота.
    bot:start() -- Запускаем его.
end)

local http = require("http")

local req = http.request("http://rinwares.com", function(res)
    assert(res.statusCode == 200)

    res:on("data", function(chunk)
        print("Data:", chunk)
    end)
    res:on("end", function()
        print("Stream ended")
    end)
end)
req:done()

local fs = require("fs")

fs.readFile("shared/data/text.txt", function(err, data)
    assert(not err, err)
    print(data)
end)

local http = require("http")
 
http.createServer(function(req, res)
    local body = "Hello world\n"
    res:setHeader("Content-Type", "text/plain")
    res:setHeader("Content-Length", #body)
    res:finish(body)
end):listen(8080)

function main()
    -- Неудобно если таких вложенных вызов очень много.
    asyncFunction("World", function(res)
        print(res)
        asyncFunction("Father", function(res)
            print(res)
        end)
    end)

    -- А так гораздо удобнее.
    print(asyncFunctionInSyncStyle("World"))
    print(asyncFunctionInSyncStyle("Rinat"))
end

-- Якобы асинхронная функция. Здесь мог быть сетевой запрос или чтение файла.
function asyncFunction(req, callback)
    Task.create(function()
        wait(1000) -- Типо бурная деятельность...
        callback("Hello " .. req .. "!")
    end)
end

-- Обертка над асинхронной функции.
function asyncFunctionInSyncStyle(req)
    -- Получаем текущий кооперативный поток.
    local thisTask = Task.this()

    -- Проверяем что вызов происходит из корутины.
    assert(thisTask, "attempt to yield across C-call boundary")

    -- Вызываем нашу асинхронную функцию.
    asyncFunction(req, function(res)
        -- Возвращаем ответ.
        thisTask:await(res)
    end)

    -- Блокируем текущий кооперативный поток и ждем ответа.
    return thisTask:await()
end

local http, https = require("http"), require("https")

function httpGetRequest(url, callback)
    local thisTask
    if not callback then
        thisTask = Task.this()
        assert(thisTask, "attempt to yield across C-call boundary")
    end
    local req = (http.parseUrl(url).protocol == "https" and https or http).get(url, function(res)
        local body = ""
        res:on("data", function(chunk)
            body = body .. chunk
        end)
        res:on("end", function()
            if callback then
                callback(body)
            else
                thisTask:await(body)
            end
        end)
    end)
    req:done()
    if callback then
        return req
    else
        return thisTask:await(), req
    end
end

function main()
    local func = promisify(asyncFunction)
    print(func("World"))
end

function promisify(func)
    return function(...)
        local thisTask = Task.this()
        assert(thisTask, "attempt to yield across C-call boundary")
        func(..., function(...)
            thisTask:await(...)
        end)
        return thisTask:await()
    end
end