# ircservices'lere gore duzenlenmiştir..
# Www.SibermIRC.Org# opekle.tcl 
# Düzenleyen : SinneR
##### Kullanimi ###
# !sop nick 
# !op nick 
# !halfop nick 
# !voice nick 
# !sil nick 
 
#### admin kanalı..###
set ops_chan "#ops"
bind pub - !sop sopekle
bind pub - !op opekle
bind pub - !halfop halfopekle
bind pub - !voice voiceekle
bind pub - !sil silme
proc sopekle {nick uhost handle chan hings } {
global ops_chan
if {$nick != "SinneR"} {return 0} 
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs access #sohbet add $hings 100"
putserv "cs protect #sohbet $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına 100 Seviyesinden eklendiniz."
putserv "PRIVMSG $chan :$hings 'nickine 100 Seviyesinden Access Eklenmistir. iyi çalişmalar"
return 1
}
return 1
}
proc opekle {nick uhost handle chan hings } {
global ops_chan
if {$nick != "SinneR"} {return 0} 
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs access #sohbet add $hings 50"
putserv "cs op #sohbet $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına 50 Seviyesinden eklendiniz."
putserv "PRIVMSG $chan :$hings 'nickine 50 Seviyesinden Access Eklenmistir. iyi çalişmalar"
return 1
}
return 1
}
proc halfopekle {nick uhost handle chan hings } {
global ops_chan
if {$nick != "SinneR"} {return 0} 
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs access #sohbet add $hings 45"
putserv "cs halfop #sohbet $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına 45 Seviyesinden eklendiniz."
putserv "PRIVMSG $chan :$hings 'nickine 45 Seviyesinden Access Eklenmistir. iyi çalişmalar"
return 1
}
return 1
}
proc voiceekle {nick uhost handle chan hings } {
global ops_chan
if {$nick != "SinneR"} {return 0} 
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs access #sohbet add $hings 30"
putserv "cs voice #sohbet $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gun boyu Konuşmanizi Dilerim :) $nick Tarafindan #Sohbet Kanalına 30 Seviyesinden eklendiniz."
putserv "PRIVMSG $chan :$hings 'nickine 30 Seviyesinden Access Eklenmistir. iyi çalişmalar"
return 1
}
return 1
}
proc silme {nick uhost handle chan hings } {
global ops_chan
if {$nick != "SinneRy"} {return 0} 
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs access #sohbet del $hings"
putserv "cs deprotect #sohbet $hings"
putserv "cs deop #sohbet $hings"
putserv "cs dehalfop #sohbet $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Vermiş olduğunuz Emeklerden Dolayı teşekkür ederiz. $nick Tarafindan #Sohbet Kanalından Silindiniz."
putserv "PRIVMSG $chan :$hings 'nicki'in access'i Silinmistir iyi çalişmalar"
return 1
}
return 1
}
putlog "opekle.tcl by SinneR"

   Sµstµm .. yåLnız qôzLerimLe døkµnµyørµm håyåtå kimse ånLåmıyør ..