IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - .kickyayin (https://www.ircforumlari.net/eggdrop-neostats-bnc/122376-kickyayin.html)

Cevap: .kickyayin

Birde şöyle birşey düşündüm ip, port, şifre vs siz uğraşmayın sadece radyonun kurulu olduğu dizini belirtin bot kendisi bilgileri bulup yapsın gereken işlemi ;)

Tcl de editlenmesi gereken sadece iki bölüm var birincisi dosya_adresi ikicisi komutun kullanılabileceği kanal. Bunlar dışında bi yeri kurcalamıyoruz. Botu çalıştırdıktan sonra belirtilen kanalda !kickradyo komutu ile radyonuzu kickleyebilirsiniz. Kolay gelsin ;)

Kod:



## Buraya radyonun kurulu olduğu dizinde "sc_serv.conf" un yerini belirtiyoruz.

set dosya_adresi "../radyo/sc_serv.conf"
 

## Buraya komutun geçerli olacağı kanalı yazıyoruz.

set kickkanal "#dj"
 

## Başkada birşeye dokunmuyoruz. Gerisini ben hallederim ;)
 
 
 
 

bind pub - !kickradyo kickradyo
 

proc kickradyo {nick host handle chan arg} {

global dosya_adresi kickkanal
 

if {$chan != $kickkanal} {return 0}
 

set dosya [open $dosya_adresi r] 

set liste [split [subst -nocommands [read $dosya]] "\n"]

regexp -- {DestIP=(.+?) Yport, port to connect to} $liste - ip

regexp -- {PortBase=(.+?) Optional Parameters} $liste - port

regexp -- {Password=(.+?) PortBase. This is} $liste - pass

regexp -- {AdminPassword=(.+?) AutoDumpUsers controls whether} $liste - adminpass

close $dosya
 

set sock [socket [duzelt $ip] [duzelt $port]]

puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

puts $sock "Host: $ip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

close $sock

}
 
 

proc duzelt { a } {

regsub -all {\}} $a "" a

regsub -all {\{} $a "" a

regsub -all {\;} $a "" a

regsub -all {\*} $a "" a

regsub -all " " $a "" a

return $a

}
 
 

######kickradyo.tcl#########

## Coded By BuCaLI         #

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

Cevap: .kickyayin

Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 555010)

çok teşekkür ederim BuCaLI kardeşim..
eline emeğine sağlık çok güzel çalışıyor..
lakin ufak bir isteğim daha olacak..
!kickradyo komutunu op olan kullansın..
birde komut uygulandıktan sonra radyo yayını düşürülmüştür..
diye kanala yazması..
ve süre kısıtlamalı komutu genel olark bir dakika içinde bir kere kullanılması..
özellikleride eklersen çok makbule geçecek..
şimdiden çok teşekkürler..

Cevap: .kickyayin

arkadaşLar denedim ama oLmadı :S

Cevap: .kickyayin

Alıntı:

NoRToN Nickli Üyeden Alıntı (Mesaj 657955)

arkadaşLar denedim ama oLmadı :S

sc_serv.conf dosyasını aç..

Kod:

 SrcIP=sunucu ip adresin

  

 DestIP=sunucu ip adresin

  

 AdminPassword=adminşifren

bu satırların başındaki ( ; ) işaretlerini kaldır..
sunucu iplerini ve admin pasını belirt kaydet..
sc_serv.conf u yeniden başlat..
tcl de de..

Kod:

## Buraya radyonun kurulu olduğu dizinde "sc_serv.conf" un yerini belirtiyoruz.

 set dosya_adresi "/home/kullanıcıadı/radyo/sc_serv.conf"

bu satırda sc_serv.conf yolunu belirttin mi çalışacaktır..

Cevap: .kickyayin

Bir yerde görmüştüm. Dj kanalında !yayin yazınca mp3 klasöründeki mp3'leri çalıyordu sırayla eggdrop bot. Onu nasıl yapabiliriz?

Cevap: .kickyayin

bu tcleyi calistiramadim nedense.. yardim edebilir midiniz?

Cevap: .kickyayin

Alıntı:

3rd41 Nickli Üyeden Alıntı (Mesaj 555036)

Aynı tcl yi ben kendi radyoma ekledim fakat çalışmadı.Bot normal olarak servere giriyor fakar !kickradyo yazdığımda atmıyor. sc_serv.conf taki değişiklikleride yaptım olmadı. Nedendir acaba?

Cevap: .kickyayin

Bucali kodlar için Teşekkürler. Fakat bende çalıştıramadım. Bot servere giriyor. !kickradyo yazıyorum @ iken, Yayını düşürmüyor. Bu kodu ip adresimizi portumuzu admin adını ve şifresini kendimiz yazacak şekilde düzenleyebilir miyiz. Şimdiden teşekkürler.

Cevap: .kickyayin

bilgileri elle girmek için;

Kod:

set dosya [open $dosya_adresi r] 

set liste [split [subst -nocommands [read $dosya]] "\n"]

regexp -- {DestIP=(.+?) Yport, port to connect to} $liste - ip

regexp -- {PortBase=(.+?) Optional Parameters} $liste - port

regexp -- {Password=(.+?) PortBase. This is} $liste - pass

regexp -- {AdminPassword=(.+?) AutoDumpUsers controls whether} $liste - adminpass

close $dosya

bu kısmı silip yerine bunu ekleyin.

Kod:

set ip "ip.adresi"

set port "radyo.portu"

set pass "radyo.passı"

set adminpass "radyo.admin.passı"

Cevap: .kickyayin

bucali bütün degişikleri yaptim ama yok çalişmati lütfen online destek yada başka türlü yardimçi olabilirmisin?