bind notc - "*Time registered:*" kayit
 
set identify "/home/eggdrop/scripts" 
proc kayit {nick uhost hand text dest} {
global identify 
 
set data ""
set dosya [open "$identify/kayit" r]
 
while {![eof $dosya]} {
set curline [gets $dosya];set curline [split $curline]
if { $curline != "" } {
set data [linsert $data and $curline]
  }
}
catch {close $dosya}
 
set rakam -1;set esle ""
 
foreach line $data {
incr rakam
      if {[string match -nocase $text $line]} {
set esle $rakam
break
   }
}
 
if { $esle == "" } {
boşsa uygula .............
} else {
doluysa uygula .............
}
}