Eggdrop Tcl arşivi

alpacino · 10-23-2008, 19:38

öncelikle bir conf örneği

Kod:

###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish
 
##### Bilgi Satiri #####
##### Bot bilgileri #####
set nick "BotNick"
set realname "2Bot İdenti"
 
#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
 
#set my-ip "1.2.3.4"
 
set init-server { 
putserv "oper opernick opersifre" 
putserv "PRIVMSG nickserv identify nicksifresi"
}
set servers { 66.90.107.187:6667 }
channel add #KanalAdı { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
set net-type 5
set owner TimothY
 
##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "bots.user"
set chanfile "bots.chan"
set temp-path "/tmp"
logfile msbxco * "logs/bots.log"
logfile jpk #kanaladi "logs/#kanaladi.log"
set console "mkcobxs"
 
##### SCRIPTLER #####
source scripts/userinfo.tcl
source scripts/script1.tcl
source scripts/script2.tcl
source scripts/script3.tcl
loadhelp userinfo.help
 
# EndOf

ChanLimit.TCL ( Kanalı Otomatik User Sayısına Göre Limitler. )

Kod:

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

Oper.tcl ( botun Oper girmesi için hazırlanmış tcl )

Kod:

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

}

alpacino · 10-23-2008, 19:40

Global.tcl ( istenilen metni bota global attırmak için gerekli 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"

Global2.tcl(Kodladıgınız mesajları Belirlediğiniz Sürede Global Atar )

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 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: acoustic@realcoder.com"

alpacino · 10-23-2008, 19:42

Opme.tcl ( mynet merlyn tcl si )

Kod:

################################################################################
# opal.tcl 1.0 - www.ircturk.org                                               #
#                                                                              #
# 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"
	
}

Operjoin.TCL ( Cr de Operini giren görevlileri belirtilen kanal a fjoinler )

Kod:

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

alpacino · 10-23-2008, 19:43

Radyo.TCL Eklentisi(!yes,!no,!istek )

Kod:

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

Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)

Kod:

# 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 WwW.IRCturk.OrG"
 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"

alpacino · 10-23-2008, 19:45

voice.tcl ( kanal a giren kişiler e oto voice verir.)

Kod:

## voice.tcl                                            
##  - Kanala Giren Herkese Voice Verme Tcl
## bu Tcl IRCturk Network Team Tarafindan Yazilmistir..!
## Tcl Arsivi : WwW.IRCturk.OrG


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

alpacino · 10-23-2008, 19:46

Karsilama.TCL ( Kanal a Giren Kullanıcıya belirttiğiniz Mesajı Gönderir)

Kod:

proc giris_karsilama {nick uhost handle channel} { 
putserv "NOTICE $nick :Merhaba $nick Hosgeldin" 
putserv "PRIVMSG $nick :Hosgeldin $nick Iyi Sohbetler" 
} 
bind join - * giris_karsilama

helper.tcl(Unreal'de Helperlerinizin hostunu düzenler.ayrıcalık tanır. CR de Calışmaz.)

Kod:

set hhost "Helper.Localhost.NET" 
set hident "Helper" 
set hname "localhost. HELP Sorumlusu" 
set hchan "#Helpdesk" 
bind mode - * modes 
proc modes {eden b c kanal mode etken} { 
global hhost hident hname hchan 
if {$kanal == $hchan} { 
if {$mode == "+o"} { 
putserv "CHGHOST $etken :$hhost" 
putserv "CHGIDENT $etken :$hident" 
putserv "CHGNAME $etken :$hname" 
} 
if {$mode == "-o"} { 
if {$etken == $eden} { 
putserv "NOTICE $etken :Lutfen $kanal kanalinda Deop olmayiniz!" 
putserv "NOTICE $etken :Please Dont Deop yourself on $kanal channel!" 
putserv "MODE $kanal +oa $etken $etken" 
} 
if {$etken != $eden} { 
putserv "NOTICE $eden :Lutfen $kanal kanalinda $etken i Deop yapmayiniz!" 
putserv "NOTICE $eden :Please dont deop anyone on $kanal channel!" 
putserv "MODE $kanal +oa $etken $etken" 
} 
} 
} 
} 
putlog "Auto Helpop loaded. By Alience" 
bind part - * partes

alpacino · 10-23-2008, 19:49

DomainWhois.tcl ( merak ettiğiniz domain hakkında bilgi veren bir tcl )

Kod:

####################################################
################ .dwhois <domain> ##################
####################################################
 
bind pub - .dwhois dwhois
proc dwhois {nick host handle chan text} {
set server "isfree.schlundtec.com"
set port 80
set l 14
set i 0
set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"
set sockdw [socket $server $port]
puts $sockdw "GET $path HTTP/1.0"
puts $sockdw "User.Agent:Mozilla"
puts $sockdw "Host: $server"
puts $sockdw ""
flush $sockdw
while {$i <= $l} {
gets $sockdw linedw
putlog $linedw
if {[string match "*Domain*frei*" $linedw]} {
putserv "PRIVMSG $chan :[lindex $text 0] domaini (alan adı) boştadır ve kaydedilebilir"
close $sockdw
return 0
}
if {[string match "*Domain*registriert*" $linedw]} {
gets $sockdw
putserv "PRIVMSG $chan Domain Sahibi: [html [gets $sockdw]] Cadde: [html [gets $sockdw]] Kent: [html [gets $sockdw]] Ülke: 
[html [gets $sockdw]]"
close $sockdw
return 0
}
incr i
}
close $sockdw
}
proc html { text } {
regsub -all "</TD>" $text "" text
regsub -all "</FONT>" $text "" text
regsub -all " " $text "" text
regsub -all "&uuml;" $text "ü" text
regsub -all "&ouml;" $text "ö" text
regsub -all "&auml;" $text "ä" text
regsub -all "&Uuml;" $text "Ü" text
regsub -all "&Ouml;" $text "Ö" text
regsub -all "&Auml;" $text "Ä" text
regsub -all "&szlig;" $text "ß" text
regsub -all "&quot;" $text "\"" text
regsub -all "<tb>" $text "" text
regsub -all "<font" $text "" text
regsub -all "size=\"2\"" $text "" text
regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text
regsub -all "<br>" $text "" text
regsub -all "&nbsp;" $text "" text
regsub -all "</font>" $text "" text
regsub -all "<td>" $text "" text
regsub -all "</td>" $text "" text
regsub -all "" $text "" text
regsub -all "" $text "" text
regsub -all "
 
" $text "" text
return $text
}
 
 
 
putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl 1.2 Loaded."

Eggdrop Botunuz 10 Dakikada bir Kanal banlarını Acsın.

Kod:

set global-ban-time 10

alpacino · 10-23-2008, 19:49

yardim.tcl ( #yardim,#help kanalında userler e cevap veren tcl botu)

Kod:

#Yardim Botu Edit By RangeR
bind join - * join_selam
bind pub - yardim pub_help
bind msgm - help pub_help
bind msgm - yardim msg_help
bind msgm - nshelp msg_nshelp
bind msgm - cshelp msg_cshelp
bind msgm - memohelp msg_memohelp
bind msgm - nsregister msg_nsregister
bind msgm - nsidentify msg_nsidentify
bind msgm - nsset msg_nsset
bind msgm - nsghost msg_nsghost
bind msgm - nspassword msg_nspassword
bind msgm - nslanguage msg_nslanguage
bind msgm - nsurl msg_nsurl
bind msgm - nsemail msg_nsemail
bind msgm - nsicqnumber msg_nsicqnumber
bind msgm - nslocation msg_nslocation
bind msgm - nskill msg_nskill
bind msgm - nsprivate msg_nsprivate
bind msgm - nshide msg_nshide
bind msgm - csregister msg_csregister
bind msgm - csidentify msg_csidentify
bind msgm - csset msg_csset
bind msgm - csaccess msg_csaccess
bind msgm - cslevel msg_cslevel
bind pub - selam msg_selam
 
 
 
 
 
 proc join_selam {nick uhost handle chan} {
 if {$chan == "#help"} { 
     putserv "NOTICE $nick :$nick xxxxx Networkunun Resmi Yardim Kanalina Hos geldiniz."
     putserv "NOTICE $nick :Ben size, yardima ihtiyaciniz olan konularda yardim edecek sekilde programlanmis bir Help Botum."
     putserv "NOTICE $nick :Eger benim yardimlarim sizlere yeterli olmazsa. www.ircturk.com adresinden gerekli bilgileri alabilirsiniz"
     putserv "NOTICE $nick :Simdi yardim almak icin lutfen ozelime 4yardim yaziniz." 
     putserv "NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz."
 
}
 
return 1
 
}
 
   proc msg_help { nick uhost handle text } {
         putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"
         putserv "PRIVMSG $nick :1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"
         putserv "PRIVMSG $nick :2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )"
         putserv "PRIVMSG $nick :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" }
 
 
 
 
   proc msg_nshelp { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nick Sifreleme ( nsregister )"
         putserv "PRIVMSG $nick :Nick Identify  ( nsidentify )"
         putserv "PRIVMSG $nick :Nick Droplama  ( nsdrop )"
         putserv "PRIVMSG $nick :Nick Set Ayarlari  ( nsset )"
         putserv "PRIVMSG $nick :Nickiniz Kullanimda ise ( nsghost )" }
 
   proc msg_nsregister { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz."
         putserv "PRIVMSG $nick :(  /ns register sifreniz email_adresiniz   )"
         putserv "PRIVMSG $nick :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz." }
 
   proc msg_nsidentify { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizi ident ederken kullanmaniz gereken komut asagidaki gibidir."
         putserv "PRIVMSG $nick :( /ns identify sifreniz  )" }
 
   proc msg_nsdrop { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizi droplarken kullanmaniz gereken komut asagidaki gibidir."
         putserv "PRIVMSG $nick :(  /ns drop  )" }
 
   proc msg_nsset { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizin ayarlari."
         putserv "PRIVMSG $nick :(1) nspassword  "
         putserv "PRIVMSG $nick :(2) nslanguage  "
         putserv "PRIVMSG $nick :(3) nsurl  "
         putserv "PRIVMSG $nick :(4) nsemail  "
         putserv "PRIVMSG $nick :(5) nsicqnumber  "
         putserv "PRIVMSG $nick :(6) nslocation  "
         putserv "PRIVMSG $nick :(7) nskill  "
         putserv "PRIVMSG $nick :(8) nsprivate  "
         putserv "PRIVMSG $nick :(9) nshide  "
 }       
 
   proc msg_nsghost { nick uhost handle text } {
         putserv "PRIVMSG $nick :Servere girdiginizde nickiniz kullanimda uyarisi verirse"
         putserv "PRIVMSG $nick :Asagidaki komutla Nickinizi kullanabilirsiniz."
         putserv "PRIVMSG $nick :(  /ns ghost nickiniz sifreniz  )" }
 
   proc msg_nspassword { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nick sifresini degistirmek icin kullanilir."
         putserv "PRIVMSG $nick :(  /ns set password yenisifre  )" }
 
   proc msg_nslanguage { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickservin dilini degistirmeye yarar."
         putserv "PRIVMSG $nick :(  /ns set language dilno  )" 
         putserv "PRIVMSG $nick :Dil No: 1  ingilizce "
         putserv "PRIVMSG $nick :Dil No: 2  Portekizce "
         putserv "PRIVMSG $nick :Dil No: 3  Turkce   "
         putserv "PRIVMSG $nick :Dil No: 4  Almanca "
       }
 
 
    proc msg_nsurl { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizin bagli oldugu url yi belirtmenizi saglar."
         putserv "PRIVMSG $nick :(  /ns set url Adres  )" }
 
    proc msg_nsemail { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar."
         putserv "PRIVMSG $nick :(  /ns set email mail@adresiniz.com  )" }
 
    proc msg_nsicqnumber { nick uhost handle text } {
         putserv "PRIVMSG $nick :Kullanmakta oldugunuz icq numarasinin info da gozukmesini saglar."
         putserv "PRIVMSG $nick :(  /ns set icqnumber #icq_no  )" }
 
    proc msg_nslocation { nick uhost handle text } {
         putserv "PRIVMSG $nick :Bulundugunuz bolgeyi belirtmenizi saglar."
         putserv "PRIVMSG $nick :(  /ns set location bulundugunuz_yer  )" 
}
 
 
    proc msg_nskill { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizin sifre sormasi icin gereken komut. "
         putserv "PRIVMSG $nick :(  /ns set kill On/OFF  )"
         putserv "PRIVMSG $nick :On: sifrenin girilmesi icin 60 sn sure tanir."
         putserv "PRIVMSG $nick :Off: Sifre korumasini kapatir."
}
 
    proc msg_nsprivate { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nickinizin Listede gozukmesini onler."
         putserv "PRIVMSG $nick :(  /ns set private On/Off  )" 
         putserv "PRIVMSG $nick :On: Gorunmez."
         putserv "PRIVMSG $nick :Off: Gorunur."
}
 
    proc msg_nshide { nick uhost handle text } {
         putserv "PRIVMSG $nick :Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller"
         putserv "PRIVMSG $nick :(  /ns set hide On/Off  )" 
         putserv "PRIVMSG $nick :On: Gorunmez."
         putserv "PRIVMSG $nick :Off: Gorunur."
}
 
 
 
 proc msg_cshelp { nick uhost handle text } {
        putserv "PRIVMSG $nick :Kendi Kanalinizi Kaydetmek icin ( csregister )"
        putserv "PRIVMSG $nick :Kanalinizin sifresini girmek icin ( csidentify )"
        putserv "PRIVMSG $nick :Kanal Ayarlari icin ( csset )"
        putserv "PRIVMSG $nick :Access islemleri icin ( csaccess )"
        putserv "PRIVMSG $nick :Level ayarlari icin ( cslevel )" }
 
  proc msg_csregister { nick uhost handle text } {
        putserv "PRIVMSG $nick :Kanal kaydetmekte kullanilan komut asagidaki gibidir."
        putserv "PRIVMSG $nick :Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir."
        putserv "PRIVMSG $nick :(   /cs register #kanal sifre aciklama    )"
        putserv "PRIVMSG $nick :Aciklama yerine herhangi bir sey yazabilirsiniz." }
 
  proc msg_csidentify { nick uhost handle text } {
        putserv "PRIVMSG $nick :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir."
        putserv "PRIVMSG $nick :Fakat bu kanalin daha once kayit edilmisolmasi gerekmektedir."
        putserv "PRIVMSG $nick :(   /cs identify #kanal sifre     )" }
 
  proc msg_csset { nick uhost handle text } {
        putserv "PRIVMSG $nick :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur."
        putserv "PRIVMSG $nick :Set Komutlari icin ayrintili bilgiyi."
        putserv "PRIVMSG $nick :(   /cs help set komutu ile alabilirsiniz.     )" }
 
  proc msg_csaccess { nick uhost handle text } {
        putserv "PRIVMSG $nick :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar."
        putserv "PRIVMSG $nick :Yetki seviyeleri 1 - 9999  a kadardir."
        putserv "PRIVMSG $nick :(   /cs access #kanal add Nick Seviye     )" }
 
  proc msg_cslevel { nick uhost handle text } {
        putserv "PRIVMSG $nick :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar."
        putserv "PRIVMSG $nick :Daha Ayrintili bilgi icin."
        putserv "PRIVMSG $nick :(   /cs help level yazarak alabilirsiniz.     )" }
 
 
 
  proc msg_selam { nick uhost handle chan text } {
        putserv "PRIVMSG $nick :Selam $nick . Ben Ranger’in hazirlamis oldugu yardim botuyum."
        putserv "PRIVMSG $nick :#help kanalinda Irc ile ilgili sorunlarinizi cozmek icin bulunmaktayim."
        putserv "PRIVMSG $nick :Yardim almak icin ozelime ( yardim ) yazmaniz yeterlidir. Tesekkurler. Iyi Sohbetler." }
 
   #End putlog "Edit By Ranger"

SuLtaN · 10-27-2008, 16:25

payLa$im icin t$kLer...

10-27-2008, 16:25	#9 (permalink)
SuLtaN Moderator Üyelik tarihi: Oct 2008 Bulunduğu yer: aNNamin Evinde Mesajlar: 1,280 Tesekkür: 36 58 Mesajina 67 Tesekkür Aldi	payLa$im icin t$kLer... __________________ FarkLıyım Diyé ßana GüLüyorsunuz Ya ßén Dé Sizé Hépiniz Aynısınız Diyé GüLüyoruM ! ツ . ♥ .SSSSûLtâNNNN. ♥ .

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç