| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| 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
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
Konu jetpack tarafından (27 Temmuz 2007 Saat 17:33 ) değiştirilmiştir.
|