[project @ 2002-07-15 21:01:51 by unknown_lamer]

[clinton/bobotpp.git] / source / Interp.C

diff --git a/source/Interp.C b/source/Interp.C
index f4de9ee..cba72d0 100644 (file)
--- a/source/Interp.C
+++ b/source/Interp.C
@@ -151,6 +151,11 @@ Interp::Startup()
                     2, 0, 0);
   bot_new_procedure ("bot:deltimer", (SCMFunc)ScriptCommands::DelTimer, 
                     1, 0, 0);
+
+  // "Low Level" Message functuions
+  scm_c_define_gsubr ("bot:send-CTCP", 3, 0, 0,
+                     (SCMFunc)ScriptCommands::sendCTCP);
+
   // load bobot-utils
   scm_primitive_load 
     (scm_makfrom0str (String(PREFIX) +