radio botu hakkında.. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

jetpack · 27 Temmuz 2007, 17:21

S.a arkadaşlar benim Mirc ile kullandığım bir Radyo Botu varşöle bişe Yapmak istiyorum Yardımcı Olursanız Cok Minnettar Olacağım

Not Sunucu :
ConferenceRoom/2.1-SEC.Linux-ELF-static irc.atvtr.net TRIAL

1 ) Bot Sunucuya girince Otomatikmen operimi Açmasını operi Açtıkdan sonra belirledigim Kanallara girip @ olmasını istiyorum
2 ) Botun Özeline !Voice yazılınca Belirlediğim Kanalda voice Vermesini İstiyorum Yalnız belli bir süre Sonra +v konumundaki userleri mesela 45 sn sonra –v Olmasını istiyorum
3 ) Nickim @ Konumundayken Kanallda Belirli Aralıklarla Benim Belirlediğim Mesajı Atmasını istiyorum..

Elimdeki codeler Şunlar

Çalıştıramadım yardımcı Olursanız Sevinirim

alias radyo {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com:[1]2525[1]) | return }
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }
if (: isin $1) {
echo -a Lütfen Bekleyin..
tokenize 58 $remove($1,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | set %site $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo -a Lütfen Bekleyin.. }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*S:{
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| sockclose radyo | radyo2 }
}
on *:Sockclose:radyo*S:radyo2
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site }
on *:SockOpen:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|)
dec %i
}
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
sockclose radyo*S
sockclose radyo*J
tokenize 191 %radyo2
; $1 = Dj in Yazdığı İsim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
msg #Radyo
0,4 Galaxifm

msg #Radyo
11,1 Şu anda Radyomuzu :
0,4 $6
11,1 Kişi Dinliyor

msg #Radyo
0,2 Radyo Online DJ :
9,1 $1
0,2 Çalan Parça :
0,1 $4

msg #Radyo
11,1 Radyomuzu Dinlemek İçin
0,4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
11,1 Link'ine Tıklayınız

}
on 1:join:#:{
msg $nick
0,1 Merhaba
9,1[1] $nick [1]
0,1ßen ßir Radyo ßotuyum

msg $nick
0,1 Bugün
8,1 $date
0,1 ve Saat
8,1 $time(HH:nn.ss)

msg $nick
0,1 $duration($idle) süredir kimseyle konuşmadım.

msg $nick
0,1 Şu an $+($query(0),.) özelsin ve toplamda %q! kişi pencere Açtı..

msg $nick
0,1 İsteginizi !istek Sarkici Armagan Seklinde İstekler Kanalina Yapabilirsiniz.

msg $nick
0,4 Istek Yapmak Icın Ozelımde
9,1 !voice
0,4Seklinde Yazarak
9,1 #İstekler
0,4Kanalinda Voice Alacaksınız.

msg $nick
0,1 Egerki Beceremiyorum Dıyorsaniz ONLine DJ Arkdaslarimizdan Yardım Alabilirsiniz..

msg $nick
0,1 Herkeze İyi Muzikler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

msg $nick
0,1 Program ßy.
0,4 boCek & jetpack

inc %q!
}
on *:text:!istek *:#istekler:{
if !$2- { msg #istekler $nick
0,2 Bos istek gondermeyiniz.....!
0,14 " !istek Sanatci ismi - Soyadi - Armagan "
0,4 Gibi İsticeksiniz İsteginizi }

else { msg $chan
8,1 $nick
0,4Teşekkürler İsteginiz Alınmış, DJ'lerimize İletilmistir.
| msg #dj
9,1 $nick $+
0,2 =>=> Sevdiği Parçayı Çalmanızı İstiyor. İstediği Sanatçı ve Parçası :
0,4 $2-
0,2 <=<=

}
}
on *:sockread:!istek*: {
var %r
sockread %r
tokenize 32 %r
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sockwrite -nt $sockname PRIVMSG #dj : $+([1]Isteyen: $nick $+ (32),$ ,[1]) - istek parca: $+ - armagan edilenler: $+
if $dialog(os.radiosys) {
did -a $ifmatch 107 İsteğiniz gönderildi!
}
.timer 1 5 sockclose $sockname
.timer 1 5 _istekreturn
}
}
S.a arkadaşlar benim Mirc ile kullandığım bir Radyo Botu varşöle bişe Yapmak istiyorum Yardımcı Olursanız Cok Minnettar Olacağım

1 ) Bot Sunucuya girince Otomatikmen operimi Açmasını operi Açtıkdan sonra belirledigim Kanallara girip @ olmasını istiyorum
2 ) Botun Özeline !Voice yazılınca Belirlediğim Kanalda voice Vermesini İstiyorum Yalnız belli bir süre Sonra +v konumundaki userleri mesela 45 sn sonra –v Olmasını istiyorum
3 ) Nickim @ Konumundayken Kanallda Belirli Aralıklarla Benim Belirlediğim Mesajı Atmasını istiyorum..

Elimdeki codeler Şunlar

Çalıştıramadım yardımcı Olursanız Sevinirim

alias radyo {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com:[1]2525[1]) | return }
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }
if (: isin $1) {
echo -a Lütfen Bekleyin..
tokenize 58 $remove($1,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | set %site $remove($1-,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo -a Lütfen Bekleyin.. }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*S:{
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| sockclose radyo | radyo2 }
}
on *:Sockclose:radyo*S:radyo2
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site }
on *:SockOpen:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|)
dec %i
}
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
sockclose radyo*S
sockclose radyo*J
tokenize 191 %radyo2
; $1 = Dj in Yazdığı İsim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
msg #Radyo
0,4 Galaxifm

msg #Radyo
11,1 Şu anda Radyomuzu :
0,4 $6
11,1 Kişi Dinliyor

msg #Radyo
0,2 Radyo Online DJ :
9,1 $1
0,2 Çalan Parça :
0,1 $4

msg #Radyo
11,1 Radyomuzu Dinlemek İçin
0,4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
11,1 Link'ine Tıklayınız

}
on 1:join:#:{
msg $nick
0,1 Merhaba
9,1[1] $nick [1]
0,1ßen ßir Radyo ßotuyum

msg $nick
0,1 Bugün
8,1 $date
0,1 ve Saat
8,1 $time(HH:nn.ss)

msg $nick
0,1 $duration($idle) süredir kimseyle konuşmadım.

msg $nick
0,1 Şu an $+($query(0),.) özelsin ve toplamda %q! kişi pencere Açtı..

msg $nick
0,1 İsteginizi !istek Sarkici Armagan Seklinde İstekler Kanalina Yapabilirsiniz.

msg $nick
0,4 Istek Yapmak Icın Ozelımde
9,1 !voice
0,4Seklinde Yazarak
9,1 #İstekler
0,4Kanalinda Voice Alacaksınız.

msg $nick
0,1 Egerki Beceremiyorum Dıyorsaniz ONLine DJ Arkdaslarimizdan Yardım Alabilirsiniz..

msg $nick
0,1 Herkeze İyi Muzikler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

msg $nick
0,1 Program ßy.
0,4 boCek & jetpack

inc %q!
}
on *:text:!istek *:#istekler:{
if !$2- { msg #istekler $nick
0,2 Bos istek gondermeyiniz.....!
0,14 " !istek Sanatci ismi - Soyadi - Armagan "
0,4 Gibi İsticeksiniz İsteginizi }

else { msg $chan
8,1 $nick
0,4Teşekkürler İsteginiz Alınmış, DJ'lerimize İletilmistir.
| msg #dj
9,1 $nick $+
0,2 =>=> Sevdiği Parçayı Çalmanızı İstiyor. İstediği Sanatçı ve Parçası :
0,4 $2-
0,2 <=<=

}
}
on *:sockread:!istek*: {
var %r
sockread %r
tokenize 32 %r
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sockwrite -nt $sockname PRIVMSG #dj : $+([1]Isteyen: $nick $+ (32),$ ,[1]) - istek parca: $+ - armagan edilenler: $+
if $dialog(os.radiosys) {
did -a $ifmatch 107 İsteğiniz gönderildi!
}
.timer 1 5 sockclose $sockname
.timer 1 5 _istekreturn
}
}

Not Sunucu :
ConferenceRoom/2.1-SEC.Linux-ELF-static irc.atvtr.net TRIAL

тєαм · 27 Temmuz 2007, 19:33

1 ) Bot Sunucuya girince Otomatikmen operimi Açmasını operi Açtıkdan sonra belirledigim Kanallara girip @ olmasını istiyorum

on :connect: {
.nick NİCK
.identify ŞİFRE
.oper OPERNİCK OPERPASS
./j #kanal1,#kanal2,#kanal3....
./mode $chan +ao $me $me
}

2 : Aramanı tavsiye ediyorum

3 : timer komudunu kullana bilirsin.

Umarım doğru anlamışımdır, umarım işine yarar.

Teori · 27 Temmuz 2007, 19:39

Bu Codeye Gerek Yok Ayrı Bir Metin Olusturabilirsiniz .
1.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:connect: {
if ( $nick == BOTNICK ) {
oper Nick Pass
join #kanal1,#kanal2,#kanal3
}
}
on *:join: {
if ( $nick == BOTNICK ) {
mode # +o Botnick
}
}

2.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:?: { 
mode $2 +v $nick 
}

3. Dedigini Tam Anlamıs Degilim Ozur Dilerim ..
Ama Şoyle Bisey Olabilir .

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:!msj:#Oper:{
timer 0 3600 amsg $3
}

1. Ornekte Connect Ile Kanala Baglandıgında Oper Sifresini Girer Kanallarına Girer .
2. de Join Ile Sectigin Kanallara Girdiginde Op Olur ( Ustteki Arkadas Bunu Dusunmemis Sadece Baglantıda Op Olacagını Dusunmus . )
3. Olarak Ozelinde Voice #Kanal seklinde Kullandıgında O Kanalda Voice Alır
4. Olarak Son Eventte Oper Kanalında !Msj Gitmesi Gereken Msj Dediginde Timer Ile Acılan Zamanda 1 Saat Sonra Amsg Gecmesini Saglar
Kolay Gelsin.

28 Temmuz 2007, 13:22

Peki bunu Ozelde !voice Yazsa Otomatik Belirttiqim Kanalda Verse ? Voice O nick'e Aslında Elımde Kod Var Ama Onceden Calısıordu Sımdı Calısmıor ? Acaba BendekI mIRC'tenmi Sorun var yoksa kod'mu yAnlıs Oldu ? İsterseniz bi bakın O'na Gore Karar VereLım ?

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on !*:JOIN:#istekler:{ mode # +v $nick }
on *:TEXT:*:#istekler:{ $+(.timeristek,$nick) off }
on *:VOICE:#istekler:{ $+(.timeristek,$vnick) 1 50 kontrol $vnick $chan }
Alias kontrol { if ($1 isvoice $2) { mode $2 -v $1 | msg $2 $1 burası istek kanalıdır, lütfen bekleme yapmayınız. İstek Istemek Isterseniz. Lutfen Ozelıme 12!voice  yazmaniz Yeterlidir. İyi Seyirler. } }

Elimdeki Kod bu Insallah birsey'ını Karıstırmami$dım (=

jetpack · 28 Temmuz 2007, 20:38

yokmu yardım edecek kimse ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Teori · 29 Temmuz 2007, 17:42

Arkadaslar Sorun Var Sanırım Sizde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ben Zaten Istediginiz Code'i Yazmıssım orada ?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:?: { 
mode $2 +v $nick 
}

Iste Jetpack Senin Kodun bu .
goKhaN`
Arkadasim Seninkide Bu benzer Birsey Biraz Kafa Yorsanız Keske
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Neyse Istedigin Su Sanırım Ozelimde voice Yazdıklarında Ben Belirledigim Kanalda Voice Vereyim .
Buyur .

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:!voice:?: { 
mode #kanal +v $nick 
}

03 Ağustos 2007, 21:41

eyw. Teori'de Kafa Yoruoz Yormasınada Basmadigi YErde Gelıoz buraya yardıma Iste NapaLim birazda yardım Istıyelım deılmi ? (= Hep Yormak Olmuor biraz Yardım daha biLgi herseyın Oncusu. N'demisler Yapamadign Isı Ya Yardım Iste Yada Kurcala kır parcala
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Saol yınede.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Puan botu hakkında	Braun	mIRC Scripting Sorunları	8	17 Haziran 2018 02:53
OXM Botu Hakkında	onurgunen	Eggdrop, NeoStats, BNC	14	10 Eylül 2010 15:54
Vop botu hakkında	PaLiKaRiS	mIRC Scripting Hazır Kodlar	0	05 Eylül 2009 08:03
Oyun botu hakkında	_cRaZy_BoYs_	Eggdrop, NeoStats, BNC	5	23 Mayıs 2009 18:16
Koruma Botu Hakkında.	StRoNgHoLd	Eggdrop, NeoStats, BNC	1	19 Nisan 2006 16:38

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.