Statistics: Posted by blake — Thu Dec 24, 2009 11:32 am

Code:

bind msg SA|SA makenote cmd:makenote bind msg SA|SA viewnote cmd:viewnoteset channel "#Test"set fname "makenote.txt"if {[file exists $fname] == 0} {set file [open $fname w]close $file}proc cmd:makenote {nick uhost hand text} {global botnick channel fnameset username [lindex [split $text] 0]set lin 0set text [lrange [split $text] 1 end]set file [open $fname "r"]set database [read -nonewline $file]close $fileset data [split $database "\n"]foreach line $data {set lin [expr $lin +1]set userline [lindex [split $line] 0]if {[string match -nocase $userline $username]} {if {$line != ""} {set num [expr $lin - 1]set delete [lreplace $data $num $num]set files [open $fname "w"]puts $files [join $delete "\n"]close $files}}}set file [open $fname "a"]puts $file "$username $text"close $fileputserv "PRIVMSG $username :$text"   puthelp "NOTICE $channel :Note left about $username to view type /msg $botnick viewnote $username" }proc cmd:viewnote {nick uhost hand text} {global fnameset username [lindex [split $text] 0] if {$username == ""} { puthelp "NOTICE $nick :Try viewnote <username>"return 0}set file [open $fname "r"]set database [read -nonewline $file]close $fileset data [split $database "\n"]if {$database == ""} { puthelp "PRIVMSG $nick :There are no notes available"return 0}foreach line $data {set user [lindex $line 0]if {[string match -nocase $user $username]} {set note [lrange [split $line] 1 end]set found 1puthelp "PRIVMSG $nick :The note for $username is :"puthelp "PRIVMSG $nick :$note"}if {![info exists found]} {puthelp "PRIVMSG $nick :There are no notes for $username"}}}

Statistics: Posted by BLaCkShaDoW — Thu Dec 24, 2009 10:56 am

Code:

bind msg SA|SA makenote cmd:makenote bind msg SA|SA viewnote cmd:viewnoteset channel "#Test"set fname "makenote.txt"if {[file exists $fname] == 0} {set file [open $fname w]close $file}proc cmd:makenote {nick uhost hand text} {global botnick channel fnameset username [lindex [split $text] 0]set text [lrange [split $text] 1 end]set file [open $fname a]puts $file "$username $text"close $fileputserv "PRIVMSG $username :$text"   puthelp "NOTICE $channel :Note left about $username to view type /msg $botnick viewnote $username" }proc cmd:viewnote {nick uhost hand text} {global fnameset username [lindex [split $text] 0] if {$username == ""} { puthelp "NOTICE $nick :Try viewnote <username>"return 0}set file [open $fname "r"]set database [read -nonewline $file]close $fileset data [split $database "\n"]if {$database == ""} { puthelp "PRIVMSG $nick :There are no notes available"return 0}foreach line $data {set user [lindex [split $line] 0]if {[string match -nocase $user $username]} {set note [lrange [split $line] 1 end]set found 1puthelp "PRIVMSG $nick :The note for $username is :"puthelp "PRIVMSG $nick :$note"}if {![info exists found]} {puthelp "PRIVMSG $nick :There are no notes for $username"}}}

Statistics: Posted by BLaCkShaDoW — Wed Dec 23, 2009 3:48 am

bind msg SA|SA makenote cmd:makenotebind msg SA|SA viewnote cmd:viewnote set fname "makenote.txt"proc cmd:makenote {nick uhost hand text} {  set username [lindex [split $arg] 0]  set text [lrange [split $arg] 1 end]  putserv "PRIVMSG $username :$text"  puthelp "NOTICE #Test :Note left about $username to view type /msg trainingbot viewnote $username"}set fp [open $fname "r"]  set data [read -nonewline $fp]  close $fp  set lines [split $data "\n"]  set where_to_insert 0  set lines [linsert $lines $makenote.txt $text]  set fp [open $fp "w"]  puts $fp [join $lines "\n"]  close $fp  }}

Statistics: Posted by blake — Tue Dec 22, 2009 3:49 pm