Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 02-15-2008, 03:57 AM

Kod:

########################################### 

#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"

**BLaCK_and_WHiTe** · 02-15-2008, 03:58 AM

Kod:

#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 yaznz."

  "mesaj bu ekilde asagya 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: acoustic@realcoder.com"