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

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 27 Temmuz 2007, 17:21   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 27 Temmuz 2007, 19:33   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

Konu тєαм tarafından (27 Temmuz 2007 Saat 19:39 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 27 Temmuz 2007, 19:39   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: radio botu hakkında..



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.

Konu Teori tarafından (27 Temmuz 2007 Saat 19:56 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 28 Temmuz 2007, 13:22   #4
goKhaN`
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
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 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 (=

 
Alıntı ile Cevapla

Alt 28 Temmuz 2007, 20:38   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radio botu hakkında..



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

Alt 29 Temmuz 2007, 17:42   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: radio botu hakkında..



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 
}
 
Alıntı ile Cevapla

Alt 03 Ağustos 2007, 21:41   #7
goKhaN`
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Saol yınede.

 
Alıntı ile Cevapla

Cevapla

Etiketler
botu, hakkinda, hakkında, mirc, mirc download, mirc indir, radio

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Helper Botu Hakkında oSmanLi Eggdrop, NeoStats, BNC 0 14 Ekim 2010 17:44
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
Koruma Botu Hakkında. StRoNgHoLd Eggdrop, NeoStats, BNC 1 19 Nisan 2006 16:38




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org