[[project @ 2003-04-04 02:49:43 by unknown_lamer]
unknown_lamer**20030404024943
 Added a new script and updated the example configuration
] {
addfile ./examples/bot.autoexec
addfile ./examples/bot.conf
addfile ./examples/bot.help
addfile ./examples/bot.init
addfile ./examples/bot.shit
addfile ./examples/bot.users
addfile ./scripts/log.scm
hunk ./examples/bot.autoexec 1
-
+; -*- guile-scheme -*-
+
+;;; Loads all bot-modules listed in scripts.load
+(let ((scripts (open-file "scripts.load" "r")))
+  (let load-loop ((script (read scripts)))
+    (cond ((not (eof-object? script))
+	   (bot:load-module script)
+	   (load-loop (read scripts))))))
hunk ./examples/bot.conf 1
+# Sample configuration file for Bobot++
+# Copyright (c) 1997 Etienne BERNARD
+# Copyright (C) 2003 Clinton Ebadi (Heavily modified)
+
+# Nickname of the bot
+# nick = <string>
+nick = TestBot
+
+# Username of the bot (remember : nick!username@hostname)
+# username = <string>
+username = lamerbot
+
+# IRCname of the bot (shown with /whois)
+# ircname = <string>
+ircname = Scheme Me!
+
+# Command char of the bot
+# cmdchar = <char>
+cmdchar = !
+
+# Filename for the bot's userlist
+# userlist = <filename>
+userlist = bot.users
+
+# Filename for the bot's shitlist
+# shitlist = <filename>
+shitlist = bot.shit
+
+# Log file
+# logfile = <filename> (you can put /dev/null if you don't want logs)
+logfile = bot.log
+
+# Server
+# server = <name> [<port> [<password>]]
+server = irc.freenode.net
+#server = trollaxor.com
+#server = irc.oftc.net
+
+# Channels for the bot
+# channel = <channelname>:<initial modes>:<modes to keep>:<channel key>
+# Example:
+# channel = #one:nt:::
+# channel = &two:nst:nst:
+# channel = #three:nstk key:nstk:key
+# etc...
+channel = #bobot:nt:nt::
hunk ./examples/bot.help 1
+:ACTION [<channel>] <message>
+Makes the bot do an action on <channel>.
+
+:ADDUSER <nick>|<mask> <channelMask> <level> <prot> <autoop>
+Adds an user to the userlist, for a nick!user@host matching the
+one given, on a channel matching the <channelMask> given.
+The <level> can be: | The <prot> can be:  | The <autoop> can be: 
+  0 - No level      |   0 - No protection |  0 - No auto-op
+  1 - User          |   1 - No ban        |  1 - Op on join
+  2 - Trusted User  |   2 - No kick       |
+  3 - Friend        |   3 - No deop       |
+  4 - Master        |                     |
+
+:ADDSERVER <host name>|<ip address> [<port number>]
+Adds the server specified by <host name> or <ip address> to
+the server list.
+
+:ADDSHIT <nick>|<mask> <channelMask> <level> <time> [<reason>]
+Adds an user to the shitlist, for a nick!user@host matching the
+one given, on a channel matching the <channelMask> given.
+The <level> can be:
+  0 - No shit
+  1 - No op
+  2 - Kick and Ban on join
+  3 - Kick and Ban on join, no deban
+
+:ALIAS <new name> <old name>
+Makes an alias, and adds the function <new name>, that will do
+exactly the same command as <old name>. Useful for lazy people :-)
+
+:BAN [<channel>] <mask>|<nick>
+Bans <mask> or <nick> from <channel>. You need to be a trusted
+user to ban with a <mask>.
+
+:CHANGELEVEL <nick>|<mask> <channel mask> <new level>
+Gives <nick> or <mask> level <new level> on channel(s)
+<channel mask>. Note that you can not change level for someone
+whose level is greater than yours, and that you can not give a
+level greater than yours.
+
+:CHANNELS
+Prints the channel(s) where the bot is currently.
+
+:CYCLE [<channel>]
+Makes the bot leave and join <channel>.
+
+:DCCLIST
+Gives the list of all DCC Chat connections.
+
+:DEBAN [<channel>] <mask>|<nick>
+Debans <mask> or <nick> from <channel>. You need to be a trusted
+user to deban with a <mask>.
+
+:DELSERVER <server number>
+Deletes server from server list whose number in the server list
+is <server number>
+
+:DELUSER <nick>|<mask> <channelMask>
+Removes <nick> or <mask> from the userlist.
+
+:DELSHIT <nick>|<mask> <channelMask>
+Removes <nick> or <mask> from the shitlist.
+
+:DEOP [<channel>] <mask>|<nick>
+Deops <mask> or <nick> on <channel>.
+
+:DIE [<reason>]
+Makes the bot stop immediately.
+
+:HELP [<topic>]
+Prints this help, or prints help about <topic> if supplied.
+See the topics available for you with "HELP" without arguments.
+
+:IDENT <channel> <password>
+Identifies you on the bot. Note that you should not use this
+command in public...
+
+:INVITE [<channel>] <nick>
+Invites <nick> on <channel>.
+
+:JOIN <channel>
+Makes the bot join <channel>.
+
+:KEEP [<channel>] <modes>
+Sets the <modes>  that the bot will keep for <channel>.
+See also STATS.
+
+:KICK [<channel>] <mask>|<nick> [<reason>]
+Kicks <mask> or <nick> out of <channel>, because of <reason>.
+You need to be a trusted user to use a <mask>.
+
+:KICKBAN [<channel>] <mask>|<nick> [<reason>]
+Bans then kicks <mask> or <nick> out of <channel>,
+because of <reason>.
+You need to be a trusted user to use a <mask>.
+
+:LOAD
+Reloads the userlist from disk.
+
+:LOCK [<channel>]
+Locks topic on <channel>.
+
+:MODE [<channel>] <mode string>
+Sends <mode string> as mode for <channel>.
+
+:NAMES [<channel>]
+Shows the nicknames and status of users on <channel>.
+
+:NEXTSERVER
+Makes the bot connect to the next server in its server list.
+
+:NICK <nick>
+Makes the bot use nickname <nick>.
+
+:NSLOOKUP <nick>|<host>|<ip address>
+Does a nameserver query about <nick>'s host, <host> or
+<ip address>.
+
+:OP [<channel>] <nick>
+Ops <nick> on <channel>.
+
+:PART [<channel>]
+Makes the bot leave <channel>.
+
+:PASSWORD <password>
+Changes your password on the bot. Use "NONE" as password
+if you want to clear it.
+Do not use this command in public!
+
+:RECONNECT
+Makes the bot reconnect to its current server.
+
+:RSPYMESSAGE
+Removes you from the spy list.
+
+:SAVE
+Saves the userlist.
+
+:SAY [<channel>] <message>
+Makes the bot say <message> on <channel>.
+
+:SERVER <server number>
+Select the server to connect to. <server number> is the number of
+the server in the serverlist.
+
+:SERVERLIST
+Shows the bot's serverlist.
+
+:SHITLIST
+Shows the bot's shitlist.
+
+:SPYLIST
+Shows the bot's spylist.
+
+:SPYMESSAGE
+Adds you to the spylist
+
+:STATS [<channel>]
+Gives <channel>'s statistics.
+
+:TBAN [<channel>] <nick>|<mask> <time>
+Bans <nick> or <mask> from <channel> for <time> seconds.
+
+:TKBAN [<channel>] <nick>|<mask> <time> [<reason>]
+Bans <nick> or <mask> from <channel> for <time> seconds,
+then kicks him/them because of <reason>.
+
+:TOPIC [<channel>] [<topic>]
+If no <topic> is given, prints <channel>'s topic. Otherwise,
+the bot will change <channel>'s topic to <topic>.
+
+:UNLOCK [<channel>]
+Makes the bot unlock topic on <channel>.
+
+:USERLIST
+Shows the bot's userlist.
+
+:WHO [<channel>]
+Show your level on <channel>.
+
+:WHOIS [<channel>] <nick>
+Shows information about <nick> on <channel>.
hunk ./examples/bot.init 1
+t topic
+k kick
+w who
+wi whois
+nsl nslookup
+b ban
+tb tban
+db deban
+kb kickban
+bkick kickban
+tkb tkban
+me op
+o op
+do deop
+leave part
+l part
hunk ./examples/bot.shit 1
+*!root@*.*:*:2:-1:You're on my shitlist, lamer
hunk ./examples/bot.users 1
+*!*YOURUSERNAME@*:#*:4:1:0:-1:*NONE*
+*!*@*:#*:0:0:0:-1:*NONE*
hunk ./scripts/country 248
-(bot:addcommand "country" get-country #t 2 1)
+(bot:addcommand "country" get-country #t 2 bot:user-none)
hunk ./scripts/hello 2
-  (if (string=? n "")
-    (bot:say c "Hello world !")
-    (bot:say c (string-append "Hello " n " !"))))
+        (if (string=? n "")
+            (bot:say c "Hello world !")
+            (bot:say c (string-append "Hello " n " !"))
+        )
+)
hunk ./scripts/log.scm 1
-
+;;; simple logging script
+;;; Note that this doesn't get what the bot says
+;;; and logs everything to the same file :(
+
+(use-modules (ice-9 rdelim))
+
+(define log-port (open-file "channels.log" "al"))
+
+(define (time-stamp)
+  (strftime "(%H:%M:%S) " (gmtime (current-time))))
+
+(display (str-app
+	  "\n== STARTING LOG [ " 
+	  (strftime "%F " (gmtime (current-time)))
+	  (time-stamp)
+	  "] ==\n") log-port)
+
+(let ((pub-func 
+       (lambda (f t p)
+	       (write-line (str-app
+			    (string-downcase! t) " "
+			    (time-stamp)
+			    "<" f "> " p)
+			   log-port))))
+  (bot:addhook hooks/public ".*"
+	     pub-func
+	     10000 #t "log")
+  (bot:addhook hooks/send/public ".*"
+	       pub-func 1000 #t "log"))
+
+(let ((act-hook
+       (lambda (f t p)
+	 (write-line
+	  (str-app
+	   (string-downcase! t) " "
+	   (time-stamp)
+	   "* " 
+	   (car (string-split f #\!))
+	   " " p)
+	  log-port))))
+  (bot:addhook hooks/action ".*"
+	       act-hook
+	       10000 #t "log")
+  (bot:addhook hooks/send/action ".*"
+	       act-hook 10000 #t "log"))
+
+(bot:addhook hooks/join ".*.*"
+ 	     (lambda (name channel)
+ 	       (write-line (str-app 
+			    (string-downcase! channel) " "
+			    (time-stamp)
+			    name " joined " 
+			    (string-downcase! channel))
+			   log-port))
+	     10000 #t "log")
+
+(bot:addhook hooks/kick ".*"
+	     (lambda (who op channel reason)
+	       (write-line
+		(str-app
+		 (string-downcase! channel) " "
+		 (time-stamp)
+		 who " was kicked from " channel
+		 " by " op " (" reason ")") log-port))
+	     10000 #t "log")
+
+(bot:addhook hooks/mode ".*"
+	     (lambda (who channel mode)
+	       (write-line
+		(str-app 
+		 (string-downcase! channel) " "
+		 (time-stamp)
+		 who " set mode " mode
+		 " on " (string-downcase! channel))
+		log-port))
+	     10000 #t "log")
+
+(bot:addhook hooks/nickname ".*"
+	     (lambda (orig new)
+	       (write-line
+		(str-app 
+		 "--- "
+		 (time-stamp)
+		 orig " is now known as "
+		 new) log-port))
+	     10000 #t "log")
+
+(bot:addhook hooks/leave ".*"
+	     (lambda (who channel)
+	       (write-line
+		(str-app
+		 (string-downcase! channel) " "
+		 (time-stamp)
+		 who " has left channel " 
+			 (string-downcase! channel))
+		log-port))
+	     10000 #t "log")
+
+(bot:addhook hooks/signoff ".*"
+	     (lambda (who rest)
+	       (write-line
+		(str-app 
+		 "--- "
+		 (time-stamp)
+		 who " has left IRC (" 
+			 (substring rest 1 (string-length rest)) ")")
+		log-port))
+	     10000 #t "log")
+
+(bot:addhook hooks/topic ".*"
+	     (lambda (op channel new-topic)
+	       (write-line
+		(str-app 
+		 (string-downcase! channel) " "
+		 (time-stamp)
+		 op " has changed the topic on "
+			 (string-downcase! channel)
+			 " to: " new-topic)
+		log-port ))
+	     10000 #t "log")
+
+(add-hook! bot:exit-hook (lambda ()
+			   (display  (str-app 
+				      "== ENDING LOG [ " 
+				      (strftime "%F " (gmtime (current-time)))
+				      (time-stamp)
+				      "] ==\n") log-port)))
}