###########
# rfo.tcl #
###########

set backroom "#channel";
set rfofile "/home/user/eggdrop/text/rfo";

bind pub - "!helprfo" rfo:help
proc rfo:help {nick uhost handle chan text} {
    putserv "PRIVMSG $::backroom :\0034!addrfo <rfo>\00312 Pour ajouter une rfo"
    putserv "PRIVMSG $::backroom :\0034!rfo\00312 Pour avoir une rfo"
}

bind pub - "!addrfo" rfo:add
proc rfo:add {nick uhost handle chan text} {
    set fp [open $::rfofile a]
    puts $fp "$text"
    close $fp
#    putserv "NOTICE $nick :\00312Votre rfo a été enregistrée"
    putserv "PRIVMSG $::backroom :\00312Add rfo : \0034$nick"
}

bind pub - "!rfo" rfo:get
proc rfo:get {nick uhost handle chan text} {
        putserv "PRIVMSG $::backroom :\0034RFO: \00312[rfo:random]"
}

proc rfo:random { } {
   set fp [open $::rfofile r]
   set data [read $fp]
   close $fp
   set rfobuff [split $data \n]
   return [lindex $rfobuff [rand [llength $rfobuff]]]
}

putlog "\00312rfo.tcl V0.1"