setudef flag rastgele
 
 bind pub -|- !rnd hep:gele
 
proc hep:gele {nick uhost hand chan text} {
  if {![channel get $chan rastgele]} {
  return 0
  }
   set zar1 [expr int(rand() * 10) + 1 ]
   set zar2 [expr int(rand() * 10) + 1 ]
  puthelp "privmsg $chan :\00314$nick \00305-> \00303$zar1 \00305- \00303$zar2"
}