if {![string match "*global_mesaj*" [timers]]} {
    timer [rand 20] global_mesaj
}
proc global_mesaj {} {
   global rgolo
    set meth [rand 11]
    switch -- $meth {
    1 {
     set msj selam
     putserv "PRIVMSG operserv : global $msj"
    }
    2 {
     set msj slm
     putserv "PRIVMSG operserv : global $msj"
    }
    3 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    4 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    5 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    6 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    7 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    8 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    9 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    10 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
      }
      timer [rand 20] global_mesaj
      return 1
}