Advertisement
Guest User

Untitled

a guest
Mar 5th, 2012
324
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.61 KB | None | 0 0
  1. #Music Is Knowledge
  2. #La base du code appartient à quote.tcl
  3. #Quote Script by Steinsky.  Version: 1.2.1
  4. #See www.cotch.net, irc.fwaggle.net, irc.zone.dk and virus.eleethal.com
  5. #Merci donc à lui
  6.  
  7. # Ici on précise le chemin du fichier texte
  8. set zikfile /mon/repertoire/music.txt
  9.  
  10. # 0 = résultat en privmsg
  11. # 1 = résultat en notice
  12. set zikvianotice 0
  13.  
  14. # Ici on précise le ou les channels où le bot répondra
  15. set zikchannel "#Chan1"
  16.  
  17. if { ![info exists toolbox_loaded] } { source scripts/alltools.tcl }
  18.  
  19. bind pub - !read read:pub:read
  20.  
  21. proc read:pub:read {nick uhost hand channel arg} {
  22.  global zikfile zikvianotice
  23.  set ziks ""
  24.  if { [file exists $zikfile] } { set file [open $zikfile r]
  25.  } else {
  26.   if { $zikvianotice == 0 } { putmsg $channel "$zikfile n'existe pas." }
  27.   if { $zikvianotice == 1 } { putnotc $nick "$zikfile n'existe pas." }
  28.   return 0
  29.  }
  30.  while { ![eof $file] } {
  31.   set zik [gets $file]
  32.   if { $zik != "" } {
  33.    set ziks [linsert $ziks end $zik]
  34.   }
  35.  }
  36.  close $file
  37.  if { $arg != "" } {
  38.   set pattern [string tolower $arg]
  39.   set aziks ""
  40.   set zik ""
  41.   foreach zik $ziks {
  42.    set lowzik [string tolower $zik]
  43.    if { [string match $pattern $lowzik] } {
  44.     set aziks [linsert $aziks end $zik]
  45.    }
  46.    set ziks ""
  47.    set ziks $aziks
  48.   }
  49.  }
  50.  set row [rand [llength $ziks]]
  51.  if { [expr $row >= 0] && [expr $row < [llength $ziks]] } {
  52.   set zik [lindex $ziks $row]
  53.  }
  54.  if { $zik != "" } {
  55.   if { $zikvianotice == 0 } {
  56.     putmsg $zikchannel "Morceau: $zik"
  57. }
  58.   if { $zikvianotice == 1 } {
  59.    putnotc $nick "$zik"
  60.   }
  61.  }
  62.  return 1
  63. }
  64.  
  65.  
  66. putlog "Zik.tcl By KiBa Loaded"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement