bind pub - !globalat globalat:msg
proc globalat:msg {n u h c a} {
    global botnick admin_chan rgolo
    if {[onchan $n $admin_chan]==1} {
        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]]
         putserv "PRIVMSG operserv : global $msj"
        }
       }
    }
}

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
}