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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   radio botu hakkında.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/35078-radio-botu-hakkinda.html)

jetpack 27 Temmuz 2007 17:21
radio botu hakkında..
 
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:) | 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 :)

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:) | 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 :)

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
Cevap: radio botu hakkında..
 
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
Yanıt: radio botu hakkında..
 
Bu Codeye Gerek Yok Ayrı Bir Metin Olusturabilirsiniz .
1.
Kod:
on *:connect: {
if ( $nick == BOTNICK ) {
oper Nick Pass
join #kanal1,#kanal2,#kanal3
}
}
on *:join: {
if ( $nick == BOTNICK ) {
mode # +o Botnick
}
}
2.
Kod:
on *:text:*:?: {
mode $2 +v $nick
}
3. Dedigini Tam Anlamıs Degilim Ozur Dilerim ..
Ama Şoyle Bisey Olabilir .
Kod:
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.

goKhaN` 28 Temmuz 2007 13:22
Cevap: radio botu hakkında..
 
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- Kodu:
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
Cevap: radio botu hakkında..
 
yokmu yardım edecek kimse ya :(

Teori 29 Temmuz 2007 17:42
Yanıt: radio botu hakkında..
 
Arkadaslar Sorun Var Sanırım Sizde :) Ben Zaten Istediginiz Code'i Yazmıssım orada ?
Kod:
on *:text:*:?: {
mode $2 +v $nick
}
Iste Jetpack Senin Kodun bu .
goKhaN`
Arkadasim Seninkide Bu benzer Birsey Biraz Kafa Yorsanız Keske :)
Neyse Istedigin Su Sanırım Ozelimde voice Yazdıklarında Ben Belirledigim Kanalda Voice Vereyim .
Buyur .
Kod:
on *:text:!voice:?: {
mode #kanal +v $nick
}

goKhaN` 03 Ağustos 2007 21:41
Cevap: radio botu hakkında..
 
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 :) Saol yınede.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:20.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk