Communauté Eggdrop

bind pubm -|- "*" pub_modo2
proc pub_modo2 {nick host hand chan arg} {
        set arg [mirc_strip $arg]
        set cmd [lindex $arg 0]
      set cmd2 [string tolower [lindex $arg 1]]
      set fichiertext "scripts/project/modo/$cmd2.txt"
        switch -- $cmd {
      "!modo2" {
      if {$cmd2 eq "" } {putfast "NOTICE $nick :\0034SyntaXe :\0033 !modo2 <pseudo1/pseudo2> "; }
      set ouverturefichier [open $fichiertext r]
      while { ![eof $ouverturefichier] } {
      gets $ouverturefichier lecturefichier
      set len [string length $lecturefichier]
      set lecturefichier [string map {"Pseudonyme :" "\0034Pseudonyme :\0033" "Prenom :" "\0034Prenom : \0033" "Departement :" "\0034Departement :\0033" "Description :" "\0034Description :\0033" "Phrase perso :" "\0034Phrase perso :\0033"} $lecturefichier]
      putdccraw 0 [expr $len + 1] "$lecturefichier\n" 
      putquick "PRIVMSG $nick :\0034$lecturefichier"
      }
      close $ouverturefichier
      return 1
      }
   }
}