#gerekli bindler
bind pub - !istek istek
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

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

proc istek {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a ]
	putserv "PRIVMSG #DJ 4İstek İsteyen Nick 2$gnick4 İsteği:2 $kanal"
    putserv "PRIVMSG #Radyo : 4İsteğiniz Sıraya Alınmıştır 2$gnick"
}

#! /home/sohbetler/eggdrop
###################################################################
## Bu dosya 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinde oluşturulmuştur.##
## Botunuz için gerekli olan en kısa konfigürasyon dosyasıdır.   ##
##              TuRKeR (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)                   ## 
###################################################################

###### Aşağıdaki 11 satırı değiştirmeyin!! #####
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

##### Girdiğiniz bilgilerle oluşturulan kısımlar. #####
##### Aşağıdaki satırları isteğiniz doğrulutusunda değiştirebilirsiniz. #####
set nick "DJ-Bot"
set altnick "DJ-Bot??"
set realname "Radio GENC FM"
set my-ip "208.53.167.167"
set init-server { putserv "oper opernick şifre"; 
  putserv "sajoin #Radyo"; 
  putserv "sajoin #DJ"; 
}
set servers { 208.53.167.167:6667 }
channel add #Radyo { chanmode "+nt-lik" idle-kick 0 stopnethack-mode 0 }
channel add #DJ { chanmode "+nti-k" idle-kick 0 stopnethack-mode 0 }
set net-type 5
listen 3232 all
set owner Ask_HarfLeri

##### Dosyalar ve Dizinler #####
##### Bu satırdan itibaren bir değişiklik yapmanıza gerek yok. #####
set userfile "DJ-Bot.user"
set chanfile "DJ-Bot.chan"
set temp-path "/tmp"
logfile msbxco * "logs/DJ-Bot.log"
logfile jpk #Radyo "logs/#Radyo.log"
set console "mkcobxs"

##### SCRIPTLER #####
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/compat.tcl
source scripts/userinfo.tcl
source scripts/radyo1.tcl
source scripts/istek.tcl
loadhelp userinfo.help

set scdjtrigger "!dj"

 
putserv "PRIVMSG #DJ 4İstek İsteyen Nick 2$gnick4 İsteği:2 $kanal"