Mine

proc chance {nick uhost hand chan arg} {
  global lb lbchan csup cinf cega
  if {$chan == $lbchan} {
    if {$lb == "on"} {
      set mini "0"
      set maxi "100"
      set number [expr $mini + [expr int(rand() * ($maxi - $mini))]]
      set mini2 "65"
      set maxi2 "100"
      set number2 [expr $mini2 + [expr int(rand() * ($maxi2 - $mini2))]]

      set len [string length $arg]

      if {!$len} {
        putserv "privmsg $lbchan :3$nick14, tu dois indiquer le prénom d'une personne pour que je puisse te dire te taux de chances que vous avez !"
        return
      } else {
        if {[file exists scripts/Txt/$nick.txt]} {
          set lid [open scripts/Txt/$nick.txt "r"]
          set id [gets $lid]
          if {$arg == $id} {
            putserv "privmsg $lbchan :14Il y a3 $number2% 14de chance que l'amour fonctionne entre 4$nick14 et 4$arg14."
          } else {
            putserv "privmsg $lbchan :14Il y a3 $number% 14de chance que l'amour fonctionne entre 4$nick14 et 4$arg14."
          }
        }
      }
      if {$number > "50"} {
        putserv "privmsg $lbchan :14[lindex $csup [rand [llength $csup]]]"
      }
      if {$number < "50"} {
        putserv "privmsg $lbchan :14[lindex $cinf [rand [llength $cinf]]]"
      }
      if {$number == "50"} {
        putserv "privmsg $lbchan :14[lindex $cega [rand [llength $cega]]]"
      }
    } else { 
      putserv "notice $nick :14Désolé 3$nick14, mais LoveBot est 4désactivé14."
    }
  }
}