Difference between revisions of "ETPro:Lua Sample Code"

From WolfWiki
Jump to: navigation, search
(There's no such thing as et.G_Printf. Changed everything to et.G_Print. Also fixed various typos.)
m (Made a silly mistake, sorry. :blush:)
Line 10: Line 10:
 
function test_lua_functions()
 
function test_lua_functions()
 
         et.trap_Cvar_Set( "bla1", "bla2" )
 
         et.trap_Cvar_Set( "bla1", "bla2" )
         et.G_Print( "sv_hostname [" .. et.trap_Cvar_Get( "sv_hostname" ) .. "]\n" )
+
         et.G_Printf( "sv_hostname [%s]\n", et.trap_Cvar_Get( "sv_hostname" ) )
         et.G_Print( "configstring 1 [" .. et.trap_GetConfigstring( 1 ) .. "]\n" )
+
         et.G_Printf( "configstring 1 [%s]\n", et.trap_GetConfigstring( 1 ) )
 
         et.trap_SetConfigstring( 4, "yadda test" )
 
         et.trap_SetConfigstring( 4, "yadda test" )
         et.G_Print( "configstring 4 [" .. et.trap_GetConfigstring( 4 ) .. "]\n" )
+
         et.G_Printf( "configstring 4 [%s]\n", et.trap_GetConfigstring( 4 ) )
 
         et.trap_SendConsoleCommand( et.EXEC_APPEND, "cvarlist *charge*\n" )
 
         et.trap_SendConsoleCommand( et.EXEC_APPEND, "cvarlist *charge*\n" )
 
         et.trap_SendServerCommand( -1, "print \"Yadda yadda\"" )
 
         et.trap_SendServerCommand( -1, "print \"Yadda yadda\"" )
         et.G_Print( "gentity[1022].classname = [" .. et.gentity_get( 1022, "classname" ) .. "]\n" )
+
         et.G_Printf( "gentity[1022].classname = [%s]", et.gentity_get( 1022, "classname" ) )
 
end
 
end
  
 
-- called when game inits
 
-- called when game inits
 
function et_InitGame( levelTime, randomSeed, restart )
 
function et_InitGame( levelTime, randomSeed, restart )
         et.G_Print( "et_InitGame [" .. levelTime .. "] [" .. randomSeed .. "] [" .. restart .. "]\n" )
+
         et.G_Printf( "et_InitGame [%d] [%d] [%d]\n", levelTime, randomSeed, restart )
 
         et.RegisterModname( "bani qagame " .. et.FindSelf() )
 
         et.RegisterModname( "bani qagame " .. et.FindSelf() )
 
--      test_lua_functions()
 
--      test_lua_functions()
Line 29: Line 29:
 
function et_RunFrame( levelTime )
 
function et_RunFrame( levelTime )
 
         if math.mod( levelTime, 1000 ) == 0 then
 
         if math.mod( levelTime, 1000 ) == 0 then
--              et.G_Print( "et_RunFrame [" .. levelTime .. "]\n" )
+
--              et.G_Printf( "et_RunFrame [%d]\n", levelTime )
 
         end
 
         end
 
end
 
end
Line 36: Line 36:
 
-- return 1 if intercepted, 0 if passthrough
 
-- return 1 if intercepted, 0 if passthrough
 
function et_ClientCommand( clientNum, cmd )
 
function et_ClientCommand( clientNum, cmd )
         et.G_Print( "et_ClientCommand: [" .. et.trap_Argc() .. "] [" .. cmd .. "]\n" )
+
         et.G_Printf( "et_ClientCommand: [%d] [%s]\n", et.trap_Argc(), cmd )
 
         return 0
 
         return 0
 
end
 
end
Line 43: Line 43:
 
-- return 1 if intercepted, 0 if passthrough
 
-- return 1 if intercepted, 0 if passthrough
 
function et_ConsoleCommand()
 
function et_ConsoleCommand()
         et.G_Print( "et_ConsoleCommand: [" .. et.trap_Argc() .. "] [" .. et.trap_Argv(0) .. "]\n" )
+
         et.G_Printf( "et_ConsoleCommand: [%s] [%s]\n", et.trap_Argc(), et.trap_Argv(0) )
 
         if et.trap_Argv(0) == "listmods" then
 
         if et.trap_Argv(0) == "listmods" then
 
                 i = 1
 
                 i = 1
Line 49: Line 49:
 
                         modname, signature = et.FindMod( i )
 
                         modname, signature = et.FindMod( i )
 
                         if modname and signature then
 
                         if modname and signature then
                                 et.G_Print( "vm slot [" .. i .. "] name [" .. modname .. "] signature [" .. signature .. "]\n" )
+
                                 et.G_Printf( "vm slot [%d] name [%s] signature [%s]\n", i, modname, signature )
 
                                 et.IPCSend( i, "hello" )
 
                                 et.IPCSend( i, "hello" )
 
                         end
 
                         end
Line 61: Line 61:
 
-- called when we receive an IPC from another VM
 
-- called when we receive an IPC from another VM
 
function et_IPCReceive( vmnumber, message )
 
function et_IPCReceive( vmnumber, message )
         et.G_Print( "IPCReceive [" .. et.FindSelf() .. "] from [" .. vmnumber .. "] message [" .. message .. "]\n" )
+
         et.G_Printf( "IPCReceive [%d] from [%d] message [%s]\n", et.FindSelf(), vmnumber, message )
 
end
 
end
  
 
-- called for every ClientConnect
 
-- called for every ClientConnect
 
function et_ClientConnect( clientNum, firstTime, isBot )
 
function et_ClientConnect( clientNum, firstTime, isBot )
         et.G_Print( "et_ClientConnect: [" .. clientNum .. "] [" .. firstTime .. "] [" .. isBot .. "]\n" )
+
         et.G_Printf( "et_ClientConnect: [%d] [%d] [%d]\n", clientNum, firstTime, isBot )
 
--      return "go away"
 
--      return "go away"
 
         return nil
 
         return nil
Line 73: Line 73:
 
-- called for every ClientDisconnect
 
-- called for every ClientDisconnect
 
function et_ClientDisconnect( clientNum )
 
function et_ClientDisconnect( clientNum )
         et.G_Print( "et_ClientDisconnect: [" .. clientNum .. "]\n" )
+
         et.G_Printf( "et_ClientDisconnect: [%d]\n", clientNum )
 
end
 
end
  
 
-- called for every ClientBegin
 
-- called for every ClientBegin
 
function et_ClientBegin( clientNum )
 
function et_ClientBegin( clientNum )
         et.G_Print( "et_ClientBegin: [" .. clientNum .. "]\n" )
+
         et.G_Printf( "et_ClientBegin: [%d]\n", clientNum )
 
end
 
end
  
 
-- called for every ClientUserinfoChanged
 
-- called for every ClientUserinfoChanged
 
function et_ClientUserinfoChanged( clientNum )
 
function et_ClientUserinfoChanged( clientNum )
         et.G_Print( "et_ClientUserinfoChanged: [" .. clientNum .. "] = [" .. et.trap_GetUserinfo( clientNum ) .. "]\n" )
+
         et.G_Printf( "et_ClientUserinfoChanged: [%d] = [%s]\n", clientNum, et.trap_GetUserinfo( clientNum ) )
 
end
 
end
  
-- called for every trap_Print
+
-- called for every trap_Printf
 
function et_Print( text )
 
function et_Print( text )
--      et.G_Print( "et_Print [" .. text .. "]\n" )
+
--      et.G_Printf( "et_Print [%s]", text )
 
end
 
end
  
 
function et_ClientSay( cno, mode, text )
 
function et_ClientSay( cno, mode, text )
         et.G_Printf( "et_ClientSay [" .. cno .. "] [" .. mode .. "] [" .. text .. "]\n" )
+
         et.G_Printf( "et_ClientSay [%d] [%d] [%s]\n", cno, mode, text )
 
         et.G_Say( cno, mode, text )
 
         et.G_Say( cno, mode, text )
 
         return 1
 
         return 1

Revision as of 18:00, 11 November 2005

This code does nothing useful besides demonstrate and exercise the ETPro:Lua Mod API

-- printf wrapper
function et.G_Printf(...)
        et.G_Print(string.format(unpack(arg)))
end

-- test some of the supported etpro lua functions
function test_lua_functions()
        et.trap_Cvar_Set( "bla1", "bla2" )
        et.G_Printf( "sv_hostname [%s]\n", et.trap_Cvar_Get( "sv_hostname" ) )
        et.G_Printf( "configstring 1 [%s]\n", et.trap_GetConfigstring( 1 ) )
        et.trap_SetConfigstring( 4, "yadda test" )
        et.G_Printf( "configstring 4 [%s]\n", et.trap_GetConfigstring( 4 ) )
        et.trap_SendConsoleCommand( et.EXEC_APPEND, "cvarlist *charge*\n" )
        et.trap_SendServerCommand( -1, "print \"Yadda yadda\"" )
        et.G_Printf( "gentity[1022].classname = [%s]", et.gentity_get( 1022, "classname" ) )
end

-- called when game inits
function et_InitGame( levelTime, randomSeed, restart )
        et.G_Printf( "et_InitGame [%d] [%d] [%d]\n", levelTime, randomSeed, restart )
        et.RegisterModname( "bani qagame " .. et.FindSelf() )
--      test_lua_functions()
end

-- called every server frame
function et_RunFrame( levelTime )
        if math.mod( levelTime, 1000 ) == 0 then
--              et.G_Printf( "et_RunFrame [%d]\n", levelTime )
        end
end

-- called for every clientcommand
-- return 1 if intercepted, 0 if passthrough
function et_ClientCommand( clientNum, cmd )
        et.G_Printf( "et_ClientCommand: [%d] [%s]\n", et.trap_Argc(), cmd )
        return 0
end

-- called for every consolecommand
-- return 1 if intercepted, 0 if passthrough
function et_ConsoleCommand()
        et.G_Printf( "et_ConsoleCommand: [%s] [%s]\n", et.trap_Argc(), et.trap_Argv(0) )
        if et.trap_Argv(0) == "listmods" then
                i = 1
                repeat
                        modname, signature = et.FindMod( i )
                        if modname and signature then
                                et.G_Printf( "vm slot [%d] name [%s] signature [%s]\n", i, modname, signature )
                                et.IPCSend( i, "hello" )
                        end
                        i = i + 1
                until modname == nil or signature == nil
                return 1
        end
        return 0
end

-- called when we receive an IPC from another VM
function et_IPCReceive( vmnumber, message )
        et.G_Printf( "IPCReceive [%d] from [%d] message [%s]\n", et.FindSelf(), vmnumber, message )
end

-- called for every ClientConnect
function et_ClientConnect( clientNum, firstTime, isBot )
        et.G_Printf( "et_ClientConnect: [%d] [%d] [%d]\n", clientNum, firstTime, isBot )
--      return "go away"
        return nil
end

-- called for every ClientDisconnect
function et_ClientDisconnect( clientNum )
        et.G_Printf( "et_ClientDisconnect: [%d]\n", clientNum )
end

-- called for every ClientBegin
function et_ClientBegin( clientNum )
        et.G_Printf( "et_ClientBegin: [%d]\n", clientNum )
end

-- called for every ClientUserinfoChanged
function et_ClientUserinfoChanged( clientNum )
        et.G_Printf( "et_ClientUserinfoChanged: [%d] = [%s]\n", clientNum, et.trap_GetUserinfo( clientNum ) )
end

-- called for every trap_Printf
function et_Print( text )
--      et.G_Printf( "et_Print [%s]", text )
end

function et_ClientSay( cno, mode, text )
        et.G_Printf( "et_ClientSay [%d] [%d] [%s]\n", cno, mode, text )
        et.G_Say( cno, mode, text )
        return 1
end