Mesaj Önizleme 
 
Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
Global.tcl
02-15-2008, 03:57 AM
Mesaj: #1
Global.tcl
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"

Japon Atasözü derki; "Pirincin içindeki siyah taşlardan korkma beyaz olanlardan kork."
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
02-15-2008, 03:58 AM
Mesaj: #2
Gll2.tcl
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"

Japon Atasözü derki; "Pirincin içindeki siyah taşlardan korkma beyaz olanlardan kork."
Kullanıcının websitesini ziyaret et Bu kullanıcının gönderdiği tüm mesajları bul
Bu mesajı bir cevapta alıntı yap
Mesaj Önizleme 




Forum izinleri
yeni konu açamazssın
cevap yazamazssın
eklenti yüklemesi yapamazssın
HTML kodu kapalı.
BBCODE kodu açık.
smilie`ler açık.
[img] kodu açık.