RCString *__stdcall CreateStringFromTwoBuffers(RCString *result, const char *a, const char *b)
{
    char buffer[4100]; // [esp+18h] [ebp-1008h] BYREF

    Storm_501_SStrCopy(buffer, a, 4097u);
    Storm_503_SStrCat(buffer, b, 0x7FFFFFFFu);
    RCString::ctor(result, buffer);
    return result;
}

function Trig_test_Actions takes nothing returns nothing
local integer COUNT = 8
local string array strings
local integer i = 0
local string s = ""
	set strings[0] = "Lua is a powerful, efficient, lightweight, embeddable scripting language."
	set strings[1] = "It supports procedural programming, object-oriented programming, functional programming, data-driven programming, and data description."
	set strings[2] = "Lua combines simple procedural syntax with powerful data description constructs based on associative arrays and extensible semantics."
	set strings[3] = "Lua is dynamically typed, runs by interpreting bytecode with a register-based virtual machine, and has automatic memory management with a generational garbage collection, making it ideal for configuration, scripting, and rapid prototyping."
	set strings[4] = "Lua is implemented as a library, written in clean C, the common subset of standard C and C++."
	set strings[5] = "The Lua distribution includes a host program called lua, which uses the Lua library to offer a complete, standalone Lua interpreter, for interactive or batch use."
	set strings[6] = "Lua is intended to be used both as a powerful, lightweight, embeddable scripting language for any program that needs one, and as a powerful but lightweight and efficient stand-alone language."
	set strings[7] = "As an extension language, Lua has no notion of a \"main\" program: it works embedded in a host client, called the embedding program or simply the host."

	loop
		set s = s + strings[i]

		if i < (COUNT - 1) then
			set s = s + "\n"
		endif

		set i = i + 1
		exitwhen i >= COUNT
	endloop

	call BJDebugMsg("s length = " + I2S(StringLength(s)))
	call BJDebugMsg("«" + SubString(s, StringLength(s) - 20, StringLength(s)) + "»")
	call BJDebugMsg("«" + SubString(s, StringLength(s) - 10, StringLength(s)) + "»")
	call BJDebugMsg("«" + SubString(s, StringLength(s) - 10 - 1, StringLength(s) - 1) + "»")
endfunction

function InitTrig_test takes nothing returns nothing
    set gg_trg_test = CreateTrigger()
    call TriggerRegisterPlayerChatEvent(gg_trg_test, Player(0), "-test", true)
    call TriggerAddAction(gg_trg_test, function Trig_test_Actions)
endfunction

s length = 1182
« or simply the host.»
« the host.»
«y the host»

function MyNativeFunction takes nothing returns nothing
endfunction

function main takes nothing returns nothing
	call RedirectToNative(function MyNativeFunction)
	// На самом деле вызовется не пустая функция объявленная выше, а нативка с таким же именем.
	call MyNativeFunction()
endfunction