[project @ 2005-06-01 11:12:41 by unknown_lamer]

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

diff --git a/source/Interp.C b/source/Interp.C
index 3bd757b..68d9a56 100644 (file)
--- a/source/Interp.C
+++ b/source/Interp.C
@@ -73,6 +73,17 @@ interp_init_helper (void* unused)
   scm_c_define ("bot:user-trusted", scm_long2num (User::TRUSTED_USER));
   scm_c_define ("bot:user-friend", scm_long2num (User::FRIEND));
   scm_c_define ("bot:user-master", scm_long2num (User::MASTER));
+
+  // protection
+  scm_c_define ("bot:protection/none", scm_long2num (User::NO_PROT));
+  scm_c_define ("bot:protection/no-ban", scm_long2num (User::NO_BAN));
+  scm_c_define ("bot:protection/no-kick", scm_long2num (User::NO_KICK));
+  scm_c_define ("bot:protection/no-deop", scm_long2num (User::NO_DEOP));
+
+  // auto-op
+  scm_c_define ("bot:aop/yes", scm_long2num (true));
+  scm_c_define ("bot:aop/no", scm_long2num (false));
+  
   // sys-dir
   scm_c_define ("bot:sys-scripts-dir", 
                scm_makfrom0str (String(PREFIX) + 
@@ -118,7 +129,8 @@ interp_init_helper (void* unused)
   scm_c_define_gsubr ("bot:addshit", 3, 2, 0, 
                      (SCMFunc)ScriptCommands::AddShit);
   bot_new_procedure ("bot:ban", (SCMFunc)ScriptCommands::Action, 2, 0, 0);
-  bot_new_procedure ("bot:change-command-level", (SCMFunc)ScriptCommands::ChangeCommandLevel,
+  bot_new_procedure ("bot:change-command-level", 
+                    (SCMFunc)ScriptCommands::ChangeCommandLevel,
                     2, 0, 0);
   bot_new_procedure ("bot:cycle", (SCMFunc)ScriptCommands::Action, 1, 0, 0);
   bot_new_procedure ("bot:deban", (SCMFunc)ScriptCommands::Deban, 2, 0, 0);