#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Kanal Giriş Limiti Ayarlanması
# Copyright © bLackStar - TicariChat 2003
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Binds                                                               
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

bind time - "* * * * *" time:ChanLimit

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# time:ChanLimit start                                                   
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

proc time:ChanLimit {min hour day month year} {
    foreach chan [channels] {
	set newlimit [expr [llength [chanlist $chan]] + 4]
	set currentlimit [currentlimit $chan]
	if {$currentlimit < [expr $newlimit - 1] || $currentlimit > [expr $newlimit + 1]} {
	    putserv "samode $chan +l $newlimit"
	}
    }    
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# time:ChanLimit end                                                     
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# currentlimit start                                                   
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

proc currentlimit {chan} {
    set currentmodes [getchanmode $chan]
    if {[string match "*l*" [lindex $currentmodes 0]]} {
	return [lindex $currentmodes end] 
    }
    return 0
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# currentlimit end                                                    
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# putlog                                                              
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
putlog "Loaded ChanLimit - bLackStar"

#gerekli bindler
bind pub - !join girsin
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc girsin {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
    putserv "as chan $kanal add"
    putserv "as chan $kanal set bot botnicki"
    putserv "PRIVMSG #opers : 4 $kanal Kanalına botnicki Bot Bir Kac Saniye İçinde Atılacaktır 2$gnick"
}

#gerekli bindler
bind pub - !part ciksin
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc ciksin {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
    putserv "as chan $kanal del"
    putserv "PRIVMSG #opers : 4 $kanal Kanalından Botnicki Bot Bir Kac Saniye İçinde Cıkarılacaktır.  2$gnick"
}

bind raw - NOTICE baglanti 
proc baglanti {from keyword text} { 
if {[string match -nocase "*client connecting*" $text]} { 
set nick [lindex [split $text] 9]
utimer 1[list putserv "raw close" ]
utimer 1[list putserv "fjoin $nick #sohbet" ]
utimer 1[list putserv "fjoin $nick #oyun" ]
utimer 1[list putserv "fjoin $nick #radyo" ]
} 
}

loadmodule server 
set net-type 0 
set nick "BotNick" 
set realname "4AsiLMaVi" 
set init-server { putserv "OPER opernick operpass" 
putserv "nick BotNick" 
putserv "umode +c" 

}

########################################### 
#Global uygulamasinin yapilabilecegi kanal 
########################################### 
set tg_chan "#opers" 

########################################### 
#Uygulamanin calismasi icin botun oper login ve nick login paslari 
########################################### 


set o_login "global" 

set o_pass "123globalbot" 

set b_ipass "123456" 


########################################### 
#Gerekli uygulamalar 
########################################### 

bind pub - !global global:msg 
bind evnt - init-server baglanti:ayari 


########################################### 
#Buraya DOKUNMAYIN! (siz bilirsiniz) :) 
########################################### 
proc global:msg {n u h c a} { 
  set tg_msg [lindex $a ] 
  if {[isop $n $tg_chan]==1} { 
     putserv "NOTICE $* \02<$n>\02 $tg_msg" 
 } 
  if {[isop $n $tg_chan]==0} { 
    putserv "SAMODE $c +b $n" 
    purserv "KICK $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
  } 

} 

proc baglanti:ayari {type} { 
  putserv "NICKSERV IDENTIFY $b_ipass 
  putserv "OPER $o_login $o_pass" 
  putserv "WALLOPS :Helper Global mesaj sistemi aktif!" 
} 

putlog "Global mesaj atma sistemi yuklendi" 
putlog "Bot OPER ve Global kullanma izni olmadigi surece" 
putlog "Calismayacaktir!" 
putlog "!helpglobal globalmesajiniz seklinde calismatadir"

#Konusma icin zaman sureci (Dk cinsinden) 
set zaman_araligi "15" 

  
#Uygulamanin calismasi icin 
#botun oper login ve nick login paslari 

#oper login 
set o_login "global" 

#Oper Login sifresi 
set o_pass "123654789globalbot" 

#Nick identify sifresi 
set b_ipass "123654789" 


#bind 
bind evnt - init-server baglanti:ayari 

#mesajlar 
set global_msg { 
  "Mesajı buraya yazınız."
  "mesajı bu şekilde asagıya ekleyebilirsiniz."
  "kolay gelsin" 
  
} 

if {![string match "*konusma_zamani*" [timers]]} { 
 timer $zaman_araligi konusma_zamani 
} 


proc konusma_zamani {} { 
   global global_msg zaman_araligi 
   set global_rmsg [lindex $global_msg [rand [llength $global_msg]]] 
   putserv "NOTICE $* $global_rmsg" 
   timer $zaman_araligi konusma_zamani 
   return 1 
 } 
proc baglanti:ayari {type} { 
  putserv "NICKSERV IDENTIFY $b_ipass 
  putserv "OPER $o_login $o_pass" 
  putserv "WALLOPS :Global mesaj sistemi aktif!" 
} 


putlog "Global mesaj atma sistemi yuklendi" 
putlog "Bot OPER ve Global kullanma izni olmadigi surece" 
putlog "Calismayacaktir!" 
putlog "mail: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"