#komut için isaret (prefix) belirleyin:
set konusemb "@"
#####kanal isimlerini cogaltarak girebilirsiniz:####
bind pubm - "#kanalA $konusemb*" konular:pubm:konu
bind pubm - "#kanalB $konusemb*" konular:pubm:konu
#####kodlar basliyor######
####konulara yeni satir ekleme proseduru
proc konular:add { nick chan arg } {
set konulog "konulog.txt"
set file "[string trimleft $chan #]konular.txt"
set write [open $file a]
if { [string range $arg 0 [expr [string first " " $arg]-1]] == "" || [lrange $arg 1 end] == "" } {
close $write
return 0
}
puts $write "[string range $arg 0 [expr [string first " " $arg]-1]]#[lrange $arg 1 end]"
close $write
puthelp "NOTICE $nick : Konu [lindex $arg 0] $chan. kanalinda eklendi."
set tlog [open $konulog a]
puts $tlog "Log:$nick konu eklendi $chan. ($arg)"
close $tlog
putlog "Log:$nick konu eklendi $chan. ($arg)"
}
 
####bu prosedur eklenen konunun kanal uzerinden kaldirma islemini icerir.
proc konular:rem { nick chan konu } {
set konulog "konulog.txt"
set file [string trimleft $chan #]konular.txt
set tempfile [string trimleft $chan #]konu.bak
set readfirst [open $file r]
set linenumb 0
set count 0
puthelp "NOTICE $nick :Baslaniyor: Konu siliniyor."
while { ![eof $readfirst] } {
gets $readfirst line
set helpwanted [string range $line 0 [expr [string first # $line]-1]]
if { $konu != $helpwanted } {
if { $linenumb==0 } {
set writetemp [open $tempfile w]
puts $writetemp $line
close $writetemp
incr linenumb
} else { 
set writetemp [open $tempfile a]
puts $writetemp $line
close $writetemp
incr linenumb
}
} else {
incr count
set tlog [open $konulog a]
puts $tlog "Log:$nick Konu kaldiriliyor. $chan. ($helpwanted [string range $line [expr [string first # $line]+1] end])"
close $tlog
putlog "Log:$nick Konu Kaldiriliyor. $chan. ($helpwanted [string range $line [expr [string first # $line]+1] end])"
puthelp "NOTICE $nick $count):konuekle $helpwanted [string range $line [expr [string first # $line]+1] end]"
}
}
close $readfirst
set readfirst2 [open $tempfile r]
set linenumb2 0
while { ![eof $readfirst2] } {
gets $readfirst2 line
if { [string first # $line] != -1 } {
if { $linenumb2==0 } {
set writetemp [open $file w]
puts $writetemp $line
close $writetemp
incr linenumb2
} else { 
set writetemp [open $file a]
puts $writetemp $line
close $writetemp
}
}
}
if { $linenumb2==0 } {
set writetemp [open $file w]
close $writetemp
} 
close $readfirst2
puthelp "NOTICE $nick Son: Konu kaldirildi."
}
 
####kanal uzerinde eklenmis tum konularin kullanici icin listelenmesi proseduru.
proc konular:list { nick chan } {
set read [open [string trimleft $chan #]konular.txt r]
set text ""
while { ![eof $read] } {
gets $read line
set text "$text [lindex [split $line #] 0]"
}
close $read
set finish [string range $text 1 [expr [string length $text]-2]]
set long [split $finish]
if { [llength $long] > 30 } {
for { set c 0} { $c<[llength $long] } { incr c 30 } {
if { $c==0 } {
puthelp "NOTICE $nick : Konular: 4[lrange $long $c [expr $c+29]]"
} else {
puthelp "NOTICE $nick : 4[lrange $long $c [expr $c+29]]"
}
}
} else {
puthelp "NOTICE $nick :Konular: 4$finish"
}
}
####kanal icin ekli konularin kanalda mesaj yada action olarak gosterilmesi proseduru
proc konular:pubm:konu { nick uhost handle chan arg } {
global globalProtect nickProtect konusemb 
set way ""
set notice 0
set ok 0
set konu "[string tolower [string range [lindex $arg 0] 1 end]]"
if { [isop $nick $chan] || [ishalfop $nick $chan] } {
if { $konu=="konuliste" } {
[konular:list $nick $chan]
return 0
} elseif { $konu=="konuekle" } {
[konular:add $nick $chan [join [lrange [split $arg] 1 end]]]
return 0
} elseif { $konu=="konusil" } {
[konular:rem $nick $chan [join [lrange [split $arg] 1 end]]]
return 0
} 
} elseif { [isvoice $nick $chan] } {
#voice olan kullaniciyi korumadan muaf kiliyor.
} else {
if { [info exists nickProtect($uhost)] == 1 } {
putlog "Nick konu flood($uhost,$nickProtect($uhost))"
if { $nickProtect($uhost) == 2 } {
return 0
}
incr nickProtect($uhost)
} else {
set nickProtect($uhost) 1
utimer 5 "unset nickProtect($uhost)"
}
if { [info exists globalProtect] == 1 } {
if { $globalProtect == 4 } {
putlog "Global konu flood($uhost,$globalProtect)"
return 0
}
incr globalProtect
} else {
set globalProtect 1
utimer 10 "unset globalProtect"
}
}
#yardim konularinin gonderilme seklini belirliyor
if { [llength $arg] < 2 } {
if { [isop $nick $chan] || [ishalfop $nick $chan] ||[isvoice $nick $chan] } {
set way "PRIVMSG $chan :\001ACTION"
set notice 0
} else {
set way "NOTICE $nick :$nick:"
set notice 1
}
} else {
if { [onchan [lindex $arg 1] $chan] && ( [isop $nick $chan] || [ishalfop $nick $chan] || [isvoice $nick $chan] ) } {
if { [lindex $arg 2]=="c" } {
set way "PRIVMSG $chan :\001ACTION [lindex $arg 1]"
set notice 3
} elseif { [lindex $arg 2]=="p" } {
set way "PRIVMSG [lindex $arg 1] :"
set notice 2
} else {
set way "NOTICE [lindex $arg 1] :$nick:"
set notice 1
}
} else {
return 0
}
}
#bu bolum istenen konuyu kanal icin ekli konu listesinden bulup,
#kanal ustune gonderme prosedurunu iceriyor.
if { $way!="" && [file exists [string trimleft $chan #]konular.txt] } {
set read [open [string trimleft $chan #]konular.txt r]
while { ![eof $read] } {
gets $read line
set helpwanted [string range $line 0 [expr [string first # $line]-1]]
if { [string tolower [lindex $helpwanted 0]]==[string tolower [string trimleft [lindex $arg 0] $konusemb]] } {
set ok 1
puthelp "$way [string range $line [expr [string first # $line]+1] end]"
}
}
set final [not $notice $ok $nick $arg]
close $read
}
}
proc not { notice ok nick arg } {
if { $notice==1 && $ok==1 } {
puthelp "PRIVMSG $chan :  [lindex $arg 1]"
} elseif { $notice==2 && $ok==1 } {
puthelp "PRIVMSG $chan :  [lindex $arg 0] [lindex $arg 1]"
}
}
putlog "konu.tcl yuklendi."