################################################################################
# opal.tcl 1.0 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla  #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan  #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.!                                            #
######################################################################Stonkeep##


# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnicki"

# Buda gerekli olan sifre
set ipass "123bot"







# Ayarlar Bu kadar.! DOKUNMAYIN!!!

#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
  putserv "sajoin #OpS"
  putserv "samode #Ops +o botnick"
  putserv "umode +c"
 }

proc opver {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
	putserv "FJOIN $kanal $n"
      putserv "samode $kanal +o $n"
	
}

##########################
#
# Oper Join TCL Writed Raiden Server: Irc.Ayva.Net
#
#########################

bind raw - Notice operjoin

proc operjoin { from keyword text } {
  if {[string match -nocase "*is now an operator*" $text]} {
	set _nick [lindex [split $text] 4]
	set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
	putserv "fjoin $snr #ops"
	putserv "fjoin $snr #opers"
        putserv "fjoin $snr #sops"
        putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin."
        putserv "SAMODE #opers +o $snr"
  }
}
putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"

#gerekli bindler
bind pub - !yes yes
bind pub - !no no
bind pub - !istek istek
bind evnt - init-server baglan_yap

#Gerekli degiskenler

set inick "opernick"
set ipass "opersifresi"

#ELLEMEYIN (Siz Bİlirsiniz)

proc baglan_yap {type} {
  global inick ipass
  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc yes {n u h c a} {
   set kanal [lindex $a 0]
   putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc no {n u h c a} {
  set kanal [lindex $a 0]
  putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}
proc istek {n u h c a} {
   set kanal [lindex $a 0]
   putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal"
   putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
}

# Bu Tcl Cok basit kanal kick ve join Sayac Tcl`idir..
# Kanaliza Giren Kisileri vede kanaldan atilan kisileri sayar..
# Bu Tcl IRCturk NEtwork Team Tarafindan Yazilmistir..
# Tcl calismak icin userinfo1.0.tcl ye ihtiyac duyar..
# Aksi takdirde calismicaktir..
#  Stonkeep 
# 
# Kullanabileceginiz Komutlar..
# Kanalda:
# !toplamgiris - Kanala bugune kadar kisi sayisini gosterir..
# !toplamatilan - Kanaldan bugune kadar atilan kisi sayisini gosterir..
# !toplamatilan <nick> - Nick`in kac kisiyi attigini gosterir..
# DCC Komutlari:
# .toplamgiris - Kanala bugune kadar kisi sayisini gosterir..
# .toplamatilan - Kanaldan bugune kadar atilan kisi sayisini gosterir..
# .toplamatilan <nick> - Nick`in Kac kisiyi attigini gosterir..
#


if {![info exists userinfover] } {
 putlog "*** Sayac Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"
 return 0
}

bind pub -|- !toplamgiris pub:toplamgiris
bind dcc -|- toplamgiris dcc:toplamgiris
bind join -|- * joincounter
bind pub -|- !toplamatilan pub:toplamatilan
bind dcc -|- toplamatilan dcc:toplamatilan
bind kick -|- * kickcounter
set khits 0
set jhits 0

proc convert {number} {
 set one .
 set two .
 set three .
 set others .
 set numlength [string length $number]
 incr numlength -2
 set num2ndchar [string index $number $numlength]
 switch $num2ndchar {
  1 { set number $number$others }
  default {
   incr numlength
   set numchar [string index $number $numlength]
   switch $numchar {
    1 { set number $number$one }
    2 { set number $number$two }
    3 { set number $number$three }
    default { set number $number$others }
   }
  }
 }
 return $number
}

proc dcc:toplamgiris {hand idx arg} {
 if {$arg == ""} {
  set temp 0
  set chan [lindex [console $idx] 0]
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putdcc $idx "$rchan kanalini toplam $temp kisi ziyaret etti."
   return 0
  } else {
   putdcc $idx "$rchan kanalini suana kadar kimse ziyaret etmedi.."
  }
 } else {
  set temp 0
  set rchan [string tolower $arg]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putdcc $idx "$rchan kanalini toplam $temp kisi ziyaret etti"
   return 0
  } else {
   putdcc $idx "$rchan kanalini suana kadar kimse ziyaret etmedi"
  }
 }
}

proc pub:toplamgiris {nick host hand chan arg} {
 if { $arg == "" } {
  set temp 0
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putserv "PRIVMSG $chan :$chan Kanalini toplamda $temp kisi Ziyaret Etti."
   return 0
  } else {
   putserv "PRIVMSG $chan :Uzgunum, $rchan kanalini simdiye kadar kimse ziyaret etmedi."
  }
 } else {
  set temp 0
  set rchan [string tolower $arg]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putserv "PRIVMSG $chan :#rchan Kanalini Toplamda $temp kisi Ziyaret Etti."
   return 0
  } else {
   putserv "PRIVMSG $chan :Uzgunum, $rchan kanalini simdiye kadar kimse ziyaret etmedi."
  }
 }
} 

proc joincounter {nick host hand chan} {
 global jhits
 set temp 0
 set rchan [string tolower $chan]
 if {[file exists ./scripts/$rchan.jcount.txt]} {
  set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
  gets $o_fid temp
  close $o_fid
 } else {
  set o_fid [open "./scripts/$rchan.jcount.txt" "CREAT RDWR"]
  puts $o_fid temp
  close $o_fid
 }
 set jhits $temp
 incr jhits
 putserv "NOTICE $nick :$chan Kanalina Giren [convert $jhits] Kisisiniz.! Turkiyenin IRC Portali 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set o_id [open "./scripts/$rchan.jcount.txt" "WRONLY"]
 puts $o_id $jhits
 close $o_id
}


proc dcc:toplamatilan {hand idx arg} {
 if {$arg == ""} {
  set temp 0
  set chan [lindex [console $idx] 0]
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.kcount.txt]} {
   set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putdcc $idx "$rchan kanalindan toplamda $temp kisi atildi."
   return 0
  } else {
   putdcc $idx "Suana kadar kimse $rchan kanalindan atilmadi."
  }
 } else {
  set temp 0
  set nick [string tolower $arg]
  if {[validuser $nick]} {
   if {[getuser $nick XTRA KICKS] == ""} {
    putdcc $idx "$arg Kimseyi Atmadi."
   } else {
    set tkicks [getuser $nick XTRA KICKS]
    putdcc $idx "$arg Suana Kadar $tkicks kisiyi kanaldan atti."
   }
  } else {
   putdcc $idx "$arg Kim Bilmiyorum..!"
  }
 }
}        

proc pub:toplamatilan {nick host hand chan arg} {
 if { $arg == "" } {
  set temp 0
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.kcount.txt]} {
   set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putserv "PRIVMSG $chan :$chan Kanalindan toplamda $temp kisi Atildi."
   return 0
  } else {
   putserv "PRIVMSG $chan :Suana kadar kimse $rchan kanalindan atilmadi."
  }
 } else {
  set temp 0
  set nick [string tolower $arg]
  if {[validuser $nick]} {
   if {[getuser $nick XTRA KICKS] == ""} {
    putserv "PRIVMSG $chan :$arg Kimseyi Kanaldan Atmadi."
   } else {
    set tkicks [getuser $nick XTRA KICKS]
    putserv "PRIVMSG $chan :$arg Suanada kadar Kanaldan $tkicks kisiyi atti."
   }
  } else {
   putserv "PRIVMSG $chan :$arg kimdir bilmiyorum..!"
  }
 }
}

proc kickcounter {nick host hand chan knick reason} {
 global khits
 set temp 0
 set rchan [string tolower $chan]
 if {[file exists ./scripts/$rchan.kcount.txt]} {
  set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
  gets $o_fid temp
  close $o_fid
 } else {
  set o_fid [open "./scripts/$rchan.kcount.txt" "CREAT RDWR"]
  puts $o_fid temp
  close $o_fid
 }
 set khits $temp
 incr khits
 if {[validuser [nick2hand $nick $chan]]} {
  if {[getuser $hand XTRA KICKS] == ""} {
   setuser $hand XTRA KICKS 0 
  }
  set tkicks [getuser $hand XTRA KICKS]
  incr tkicks
  setuser $hand XTRA KICKS $tkicks
  putserv "PRIVMSG $chan :$nick Bugune Kadar $tkicks Kisi Kicklemis.."
 }
 putserv "NOTICE $knick :Siz $chan Kanalindan Atilan [convert $khits] Kisiniz.!"
 set o_id [open "./scripts/$rchan.kcount.txt" "WRONLY"]
 puts $o_id $khits
 close $o_id
}

putlog "Join ve Kick Kanal Sayaci"

# Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"

# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"

## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"

set opass "operpass"

# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..

set kufurler { 
"am"
"got"
"sik*"
"göt*"
"düzerim"
"duzerim"
"sık*"
"sokar*"
"yalarım"
"yalarim"
"********"
"*orozpu*"
"*******"
"yarak*"
"pic"
"*****"
"yarrag"
"hasiktir"
"*siker*"
"*amci*"
"*amcı*"
"*ibne*"
"gotun*"
}


# Bu kadar..!



bind pubm - * kufurban


# DOKUNMAYIN..!
# Dokunmak delikanliyi bozar ;P



bind evnt - init-server botoper_yap
 
proc botoper_yap {type} {
  global onick opass
if {$botoper == 1} {
putquick "OPER $onick $opass"
 }
}

proc kufurban {nick uhost hand chan rest} {
global kufurler botoper bansebebi
foreach w $kufurler {
if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} { 
     if {$botoper == 1} {
  putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next
  putquick "KILL $nick :$bansebebi" -next
  return 1
 } else { 
  putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next
  putkick $chan $nick $bansebebi
  return 1
    } 
  }
}
}

putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."

## voice.tcl                                            
##  - Kanala Giren Herkese Voice Verme Tcl
## bu Tcl IRCturk Network Team Tarafindan Yazilmistir..!
## Tcl Arsivi : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Botun Hangi Kanallarda Bu Tcl Kullanacagini
# Girin Eger Bos Birakirsaniz Butun Kanallarda
# bu Tcl Kullanicaktir.
set avchan "#IRCturk"

## BURADA BISI DEGISTIRMEYIN ##

bind join - * avjoin

proc avjoin {nick uhost hand chan} {
 global avchan botnick
 if {$nick == $botnick} {return 0}
 if {$avchan == "" && [botisop $chan]} {
  pushmode $chan +v $nick
  return 0
 }
 set chan [string tolower $chan]
 foreach i [string tolower $avchan] {
  if {$i == $chan && [botisop $chan]} {
   pushmode $chan +v $nick
   return 0
  }
 }
}

putlog "Voice Verme Tcl By Stonkeep"

## Ban sebebi ?
set awhois(bansebep) "Reklamci Botlarin kanal icinde gezmeleri yasaktir.!"

## Ban Suresi ? 0= temelli
## 10 = 10 dakika
set awhois(sure) "0"

# Whoisde hangi kelimeler gecerse kullaniciyi banliyacagiz ?

set kotu(list) {
"*****"
"*http://*"
"*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kontrol edilicek kanallar.?

set kanallar { #kelebek #zurna #ircturk }

##














  foreach chan [channels] {
	set kanallar $chan
  }


bind join - * awhois(join)



## al oynada gor ebeninkini :}



proc awhois(join) {nick uhost hand chan} { 
  if {[strlwr $nick] == [strlwr $::botnick] || [matchattr $hand of|fo $chan]} {
    return
  } 
  putserv "WHOIS $nick" 
set awhois(banhost) *!*[string range $uhost [string first @ $uhost] e]
set ::reklamci $nick
set ::kanal $chan
set ::uhost $uhost
bind RAW - 301 awhois(kontrol)
}

proc awhois(kontrol) {from key arg} {
  global awhois kanallar
  set chan $::kanal
  set nick $::reklamci
  set uhost $::uhost
  set awaymesaj [string range [join [lrange $arg 2 end]] 1 end]
  foreach bla $::kotu(list) {
    if {![string match -nocase $bla $awaymesaj]} {
      continue
    }
	awhois(banla) $nick $uhost
    break
  }
}

proc awhois(banla) {nick uhost} {
  global awhois kanallar
#  putserv "privmsg $kanallar :$nick ve *!*[string range $uhost [string first @ $uhost] e] reklam yapti.!"
  putquick "MODE $kanallar +b *!*[string range $uhost [string first @ $uhost] e]"
  putkick $kanallar $nick $awhois(bansebep)
  newchanban $kanallar *!*[string range $uhost [string first @ $uhost] e] AwayWhois.Tcl $awhois(bansebep) $awhois(sure)
}



putlog "AwayWhois.tcl v1.0 by Stonkeep...!"

[04:14] *** Sayac Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda
.!

source scripts/userinfo.tcl