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

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

set global-ban-time 10

#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. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
  )" }

    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"