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

6Beğeni(ler)
  • 4 Post By Toprak
  • 2 Post By aLone

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Ağustos 2013, 11:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
socket bot yardım lütfen




on *:connect:{
nick radyobot
identify radyotob
.timer 1 5 /partall
.timer 1 10 /join #Radyo,#Dj
.timer1 0 600 .msg #Radyo Radyomuzu dinlemek için tıklayın. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
on *:text:!Kullanım:#DJ:{
msg # !cycle sunucuya yeniden baglanti kurulur
msg # !kabul nick kullaniciya isteginin kabul edildigini bildirir
msg # !red nick kullaniciya isteginin kabul edilmedigni bildirir
msg # !voice nick kullaniciya (+v)voice verir
msg # !devoice nick kullanicinin (-v)voicesini alir
msg # !ban nick kullanici kanaldan uzaklastirir
msg # !unban nick kullanicinin kanaldaki +b modunu kaldirir
msg # !koruma acik saldirilara karsi #radyo kanalinda koruma olusturur
msg # !koruma kapat saldirilara karsi #radyo kanalinda korumayi iptal eder
msg # !link radyo linkini verir

msg # sizin kullanabileceginiz $nick komutlari bunlardir
}
on *:text:!cycle:#DJ:{
msg # Reconnect yapiliyor, DJ $nick
TimerQuit 1 5 /server irc.x.net.tr:6667
}
on *:text:!kabul*:#DJ:{
msg $2 4,4 0,1 Isteginiz kabul edildi. 4,4 0,1 Kayit: 7Tarih $date 4,4 1,1 7Saat $time 4,4 
msg # ( $DJ ) 4,4 0,1 $2 nickine Kabul mesaji gonderildi, DJ7 $nick 4,4 0,1 Kayit: 7Tarih $date 4,4 1,1 7Saat $time 4,4 
}
on *:text:!link*:#DJ:{
msg #radyo 4,4 0,1 Sohbet-NET-TR ile kaliteli müziğin tek adresi - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4,4 
msg # ( DJ ) 4,4 0,1 #radyo kanalına link gönderildi!. 4,4 
}
on *:text:!red*:#DJ:{
msg $2 4,4 0,1 Isteginiz kabul edilmedi7 $nick 0,1istemis oldugunuz sarki arsivimizde mevcut degildir. 4,4 0,1 Kayit: 7Tarih $date 4,4 1,1 7Saat $time 4,4 
msg # ( DJ ) 4,4 0,1 $2 nickine Red mesaji gonderildi, DJ7 $nick 4,4 0,1 Kayit: 7Tarih $date 4,4 1,1 7Saat $time 4,4 
}
on *:JOIN:#Radyo:{
notice $nick 0,2 Radyo kanalimiza hos geldiniz 5Radyomuzu winamp ile dinlemek icin,4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5adresine tiklayiniz..
notice $nick 0,2 9,1 Isteklerinizi kanal genelinde,  1,8 !istek <istediginiz sarki ve mesajiniz>  0,3 seklinde yazabilirsiniz.  0,5 Ornek: !istek Hadise - Dum tek - Tum arkadaslarima gelsin. 
}
on *:text:*!istek*:#Radyo:{
set %isteknick $nick
set %istekyazi $2-
.msg #Radyo %isteknick İsteğiniz kontrol ediliyor. Lütfen bekleyiniz.
.msg #DJ ISTEK VAR! %isteknick $+ 'in isteği : %istekyazi
.msg #DJ Eğer var ise !kabul Nick , yoksa !red Nick yazınız.
}
on *:text:*:#Radyo:{
if !ban isin $1 {
if $nick !isop # {
.msg $nick $nick $+ : Operatör Değilsiniz!
}
else {
.mode $chan +b $2 | .kick $chan $2 $3-
}
}
if !voice isin $1 {
if $nick !isop # {
.msg $nick $nick $+ : Operatör Değilsiniz!
}
else {
.mode $chan +v $2
.msg $2 $2 : $chan Kanalında $nick Tarafından Voice Verildi.
}
}
if !devoice isin $1 {
if $nick !isop # {
.msg $nick $nick $+ : Operatör Değilsiniz!
}
else {
.mode $chan -v $2
.msg $2 $2 : $chan Kanalında $nick Tarafından Voice geri alındı.

}
}
if !unban isin $1 {
.mode $chan -b $2
}
if !Koruma isin $1 {
.mode $chan +RMm
.msg $chan Kanal Koruma Moduna geçmiştir.
}
if !Kapalı isin $1 {
.mode $chan -RMm
.msg $chan Kanal Koruma Modunda çıkmıştır.
}
}




ben bu yukardaki remote'yi socket olarak başka bi bota eklemek istiyorum ne yapmam lazım ? Atıyorum bi cyclebotun içine socket olarak açmak istiyorum ikisi bir çalışsın ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Ağustos 2013, 11:47   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot yardım lütfen




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#################### Ayarlar ##################### set radyo(ip) "xx" set radyo(port) "xx" set radyo(pass) "xx" set radyo(chan) "#Radyo" set radyo(adm) "#DJ" set radyo(drm) "!durum" set radyo(link) "!link" set radyo(dinleyen) "!dinleyen" set radyo(dj) "!dj" set radyo(yardim) "!Help" set radyo(kick) "!kick" set radyo(djcmd) "!dj" set radyo(weblink) "" set radyo(wiamplink) "" set radyo(calan) "!çalan" set radyo(online) "1" ################### Ayarlar bitti burdan sonrasina dokunma bind time - "* * * * *" isonline bind time - "?0 * * * *" global:at bind join - * dj:giris bind pubm - * kanala:yaz bind pub - !var var bind pub - !yok yok bind pub - !istek istek bind pub - !dur dur bind pub - !basla basla bind pub - !global global:at channel add $radyo(chan) channel add $radyo(adm) proc global:at {nick uhost hand chan arg} { global radyo temizle putquick "os global 0,1 Radyoyu webden dinlemek için 5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "os global 0,1 Radyoyu winamptan dinlemek için 5||1. 11http://xxx/listen.pls " putquick "os global 0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu kullanınız. Örnek: !. " } proc helpme {nick uhost hand chan arg} { global radyo putquick "PRIVMSG $radyo(chan) :0,1 Bilgi için 11$radyo(yardim) 0kanalına giriş yapabilirsiniz. " } ##proc dj:giris {nick uhost hand chan} { ##global botnick radyo ## if {$nick == $botnick} { putquick "MODE $chan +h $botnick";putquick "MODE $chan -f";return 0} ##if {[string match -nocase $radyo(adm) $chan]} { ## if {$nick == $botnick} {return 0} ##elseif {$nick == "OleyFm"} {return 0} ##elseif {[onchan $nick "#xx"]} {return 0} ##elseif {[onchan $nick "#DJ"]} {return 0} ##else { ## putquick "CHGHOST $nick BotSystem.A-NET" ##putquick "CHGIDENT $nick A-NET" ##return 0 ##} ##} ##} proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] } proc kanala:yaz {nick uhost hand chan arg} { global radyo botnick server temizle if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { putquick "PRIVMSG $chan :Baglanamadi : $sockerror" return 0 } else { puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" puts $sock "Host: $radyo(ip)" puts $sock "Connection: close" puts $sock "" flush $sock while {[eof $sock] != 1} { set bl [gets $sock] if { [string first "standalone" $bl] != -1 } { set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]] set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]] set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]] set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]] set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]] set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]] set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]] set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]] if {$sgenre != ""} {set sgenre " ($sgenre)"} set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]] set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]] set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]] if {$icq == 0} { set icq "N/A" } set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]] set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]] set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]] set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]] if {[string match -nocase $radyo(chan) $chan]} { if {[string match -nocase $radyo(calan) $arg]} { if {$streamstatus == 1} { putquick "PRIVMSG $radyo(chan) :0,1 Şu an radyoda çalan parça : 5|11 [temizle $calan] 5| " return 0 } else { putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. " } } if {[string match -nocase $radyo(drm) $arg]} { if {$streamstatus == 1} { putquick "PRIVMSG $radyo(chan) :-" putquick "PRIVMSG $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça :5 | 11[temizle $calan] 5| " putquick "PRIVMSG $radyo(chan) :11,1 MatikFm0'i şu anda 5|11 [expr $repl +12] 5| 0kişi dinliyor. En fazla 5|11 [expr $curhigh +2] 5| 0kişi dinlemiş. " putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webden dinlemek için 5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için 5||1. 11http://xxx/listen.pls " putquick "PRIVMSG $radyo(chan) :0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız. Örnek: !istek Haluk Levent - Zifiri - Tüm dinleyenlere gelsin. " putquick "PRIVMSG $radyo(chan) :-" return 0 } else { putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. " } } if {[string match -nocase $radyo(link) $arg]} { putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webten dinlemek için 5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için 5||1. 11http://xxxxxx/listen.pls " return 0 } if {[string match -nocase $radyo(dj) $arg]} { if {$streamstatus == 1} { putquick "PRIVMSG $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| " return 0 } else { putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. " } } if {[string match -nocase $radyo(dinleyen) $arg]} { if {$streamstatus == 1} { putquick "PRIVMSG $radyo(chan) :11,1 Radyomatik0'i şu anda 5|11 [expr $repl +15] 5| 0kişi dinliyor. En fazla 5|11 [expr $curhigh +15] 5| 0kişi dinlemiş. " return 0 } else { putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. " } } if {[string match -nocase $radyo(yardim) $arg]} { putquick "PRIVMSG $radyo(chan) :4$radyo(yardim) 1burdaki komutları listeler. " putquick "PRIVMSG $radyo(chan) :4$radyo(drm) 1radyo durumunu yansıtır. " putquick "PRIVMSG $radyo(chan) :4$radyo(link) 1radyo linkini yansıtır. " putquick "PRIVMSG $radyo(chan) :4$radyo(dj) 1yayındaki kişiyi gösterir. " putquick "PRIVMSG $radyo(chan) :4$radyo(calan) 1o anda radyoda çalan parçayı yansıtır. " return 0 } } } } close $sock } if {[string match -nocase $radyo(adm) $chan]} { set komut [lindex $arg 1] if {[string match -nocase "*$radyo(djcmd)*" $arg]} { if {$komut==""} { putquick "PRIVMSG $radyo(adm) :5$chan kanalında kullanabileceğiniz komutlar. " putquick "PRIVMSG $radyo(adm) :4$radyo(djcmd) <sifre/bilgi/on/depo/kill> | 1Yayınla ilgili bilgi ve yaptırımları gösterir. " putquick "PRIVMSG $radyo(adm) :4!basla | 1İstek saatini başlatır. " putquick "PRIVMSG $radyo(adm) :4!var | 1İstek sahibine isteğinin işleme alındığı mesajı gönderir. " putquick "PRIVMSG $radyo(adm) :4!yok | 1İstek sahibine isteğinin arşivde bulunmadığı mesajı gönderir. " putquick "PRIVMSG $radyo(adm) :4!dur | 1İstek saatini bitirir. " return 0 } if {$komut=="kill"} { if {$chan != $radyo(adm)} {return 0} putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. " if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { putlog "error: $sockerror" putquick "PRIVMSG $radyo(adm) :1Yayında bulunan DJ'e kill atılamadı. " return 0 } else { puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=kicksrc&pass=$radyo(pass) HTTP/1.0" puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" puts $sock "Host: $radyo(ip)" puts $sock "Connection: close" puts $sock "" flush $sock close $sock putquick "PRIVMSG $radyo(adm) :1Yayında bulunan DJ'e kill atılmıştır. " } return 0 } if {$komut=="sifre"} { putquick "PRIVMSG $radyo(adm) :5Radyo bilgileri " putquick "PRIVMSG $radyo(adm) :1IP adresi :4 $radyo(ip)" putquick "PRIVMSG $radyo(adm) :1Radyo Portu :4 $radyo(port)" putquick "PRIVMSG $radyo(adm) :1Radyo Şifresi :4 $radyo(pass)" putquick "PRIVMSG $radyo(adm) :4Bilgileriniz kaydedildi. Bu bilgileri paylaşmak kesinlikle yasaktır. " return 0 } if {$komut=="bilgi"} { putquick "PRIVMSG $nick 1Merhaba 4$nick" putquick "PRIVMSG $nick 1Yapmış olduğum hatalarla ilgili 4admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net 1adresine mail gönderebilirsiniz." putquick "PRIVMSG $nick 1Veya 4/Memoserv send x <mesajiniz> 1şeklinde yapımcıma not bırakabilirsiniz. Hoş sohbetler." putquick "PRIVMSG $nick 1Bu mesajı hazırlayan kişi 4cx 1size keyifli sohbetler diler." return 0 } if {$komut=="on"} { putquick "PRIVMSG $radyo(adm) :1Talebiniz alındı iyi yayınlar 4$nick " putquick "os Global 0,1 Dj şu anda yayında. İsteklerinizi 11$radyo(chan) 0kanalında yapabilirsiniz. " putquick "os raw svsjoin $nick $radyo(chan)" utimer 2[list putquick "os raw:ChanServ mode $radyo(chan) +o $nick"] return 0 } if {$komut=="depo"} { putquick "PRIVMSG $radyo(adm) :5Dj programları sıralanıyor." putquick "PRIVMSG $radyo(adm) :4ShoutCast ==> 1Henüz link eklenmedi." putquick "PRIVMSG $radyo(adm) :4Winamp ==> 1Henüz link eklenmedi." return 0 } } } } ################################################################### proc isonline { nick uhost hand chan arg } { global radyo if {$radyo(online) == 1} { set announce "1" set urltopic "1" set tellsongs "1" set tellusers "1" set tellbitrate "1" set advertise "1" set isonlinefile "isonline" set oldisonline "isonline: 0" set oldcurlist "4,1 : 15,1 0" set oldcurhigh "curhigh: 0" set oldsong "cursong: 0" set oldbitrate "bitrate: 0" if {[file exists $isonlinefile]} { putlog "shoutcast: checking if stream is online" set temp [open "isonline" r] while {[eof $temp] != 1} { set zeile [gets $temp] if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile } if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile } if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile } if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile } if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile } } close $temp } if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { putlog "error: $sockerror" return 0 } else { puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" puts $sock "Host: $radyo(ip)" puts $sock "Connection: close" puts $sock "" flush $sock while {[eof $sock] != 1} { set bl [gets $sock] if { [string first "standalone" $bl] != -1 } { set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]" set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]" set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]" set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</TLISTENERS>" 0 $bl]] set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]" set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]] set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]" set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]] set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]" set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] } } close $sock } set temp [open "isonline" w+] puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrate" close $temp if {$announce == 1 } { if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} { putquick "topic $radyo(chan) :0,1 Üzgünüz şu anda yayın yapılmamaktadır. " putquick "PRIVMSG $radyo(adm) :4ÖNEMLİ UYARI : 1Şu anda yayında kimse yok. Dj arkadaşlardan yayının boş bulundurulmamasını rica ediyorum. Dj bilgileri için 4$radyo(adm) 1kanalında 4$radyo(djcmd) sifre 1yazınız. Teşekkürler. " } if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } { if {$sgenre != ""} { set sgenre " ($sgenre)" } putquick "topic $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. İstek yapmak için 11$radyo(chan) 0kanalına ;11 !istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız.0 Örnek: !istek Haluk Levent - Zifiri - Tüm dinleyenlere gelsin. " } } if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { putquick "PRIVMSG $radyo(chan) :-" putquick "PRIVMSG $radyo(chan) :11,1 5|11 [temizle $stitle] 5| 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| " putquick "PRIVMSG $radyo(chan) :11,1 Radyomatik0'i şu anda 5|11 [expr $repl +15] | 0kişi dinliyor. En fazla 5|11 [expr $curhigh +15] 5| 0kişi dinlemiş. " putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webten dinlemek için 5||1. 11 Ñåêñ, äåâóøêè îíëàéí, ñåêñ ÷àò îíëàéí, ïîğíî âèäåî ÷àò, ığîòè÷åñêèé âèäåî ÷àò, ÷àò ñåêñ, ñåêñ ñ äåâóøêàìè, ñìîòğåòü âèäåî äåâóøêè " putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için 5||1. 11http://xxxx/listen.pls " putquick "PRIVMSG $radyo(chan) :0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız.. " putquick "PRIVMSG $radyo(chan) :-" } } } bind pub - !Reklam Reklam proc Reklam {nick uhost handle chan text} { global botnick if {[string match -nocase "#DJ" $chan]} { set kanal [lindex $text 0] set person [lindex $text 1] putquick "os global 1Şuan yayınımızda DJ 4$nick 1bulunmaktadır. Yayınımızı 4http://xxx1/listen.pls 1linkine tıklayarak winamptan, 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
giriş yaparak web üzerinden dinleyebilirsiniz. Keyifli dakikalar. 4xxx" } } ################################################################### proc temizle {icerik} { regsub -all "&#x27;" $icerik "'" icerik regsub -all "&#x26;" $icerik "feat." icerik regsub -all "&#xE7;" $icerik "ç" icerik regsub -all "&#xF0;" $icerik "ğ" icerik regsub -all "&#xFD;" $icerik "ı" icerik regsub -all "&#xDD;" $icerik "İ" icerik regsub -all "&#xF6;" $icerik "ö" icerik regsub -all "&#xFE;" $icerik "ş" icerik regsub -all "&#xC7;" $icerik "Ç" icerik regsub -all "&#xD0;" $icerik "Ğ" icerik regsub -all "&#xD6;" $icerik "Ö" icerik regsub -all "&#xDE;" $icerik "Ş" icerik regsub -all "&#xFC;" $icerik "ü" icerik regsub -all "&#xDC;" $icerik "Ü" icerik regsub -all "&#xBF;" $icerik "¿" icerik regsub -all "&#x3C;" $icerik "<" icerik regsub -all "&#x86;" $icerik "t" icerik regsub -all "&#xFF;" $icerik "" icerik regsub -all "a" $icerik "a" icerik regsub -all "b" $icerik "b" icerik regsub -all "i" $icerik "i" icerik regsub -all "o" $icerik "o" icerik regsub -all "l" $icerik "l" icerik regsub -all "I" $icerik "l" icerik regsub -all "e" $icerik "e" icerik regsub -all "t" $icerik "t" icerik regsub -all "y" $icerik "y" icerik regsub -all "c" $icerik "c" icerik regsub -all "o" $icerik "o" icerik regsub -all "n" $icerik "n" icerik return $icerik } ################################# setudef flag istkcmd proc dur {n u h c a} { global botnick radyo dj_chan dur if {[string match -nocase $radyo(adm) $c]} { channel set $radyo(adm) -istkcmd putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. " putquick "PRIVMSG $radyo(chan) :0,1 Lütfen şu anda istekte bulunmayın. İstekler bir süre çalınmayacaktır. " } } proc basla {n u h c a} { global botnick radyo if {[string match -nocase $radyo(adm) $c]} { channel set $radyo(adm) +istkcmd putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. " putquick "PRIVMSG $radyo(chan) :0,1 İstek zamanı basladı, istekte bulunmak için; 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız. " } } proc var {nick uhost hand chan text} { global botnick radyo if {[string match -nocase $radyo(adm) $chan]} { set kisi [lindex $text 0] if {$kisi == ""} { putquick "PRIVMSG $radyo(adm) :1Nick belirtmediniz. " putquick "PRIVMSG $radyo(adm) :1Kullanımı : 4!var <NICK> 1şeklinde olmalıdır. " return } if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :1İstek onaylandı ve kişiye mesaj gönderiliyor. " ; putquick "PRIVMSG $radyo(chan) :11,1 $kisi 0isteğiniz kabul edildi. Kısa süre içerisinde isteğiniz yayınlanacak. Keyifli dinlemeler. "; return 0 } if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :4#Radyomatik 1kanalında böyle bir rumuz bulunmamaktadır. "; return 0 } } } proc yok {n u h c a} { global botnick radyo if {[string match -nocase $radyo(adm) $c]} { set kisi [lindex $a 0] if {$kisi == ""} { putquick "PRIVMSG $c :1Nick belirtmediniz. " putquick "PRIVMSG $c :1Kullanımı: 4!yok <NICK> 1şeklinde olmalıdır. " return } if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :1İstek reddedildi ve kişiye mesaj gönderiliyor. " ; putquick "PRIVMSG $radyo(chan) :0,1 Üzgünüm 11$kisi 0isteğiniz arşivimizde bulunmamaktadır. Başka bir istekte bulunabilirsiniz. Keyifli dinlemeler. "; return 0 } if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :4#Radyomatik 1kanalında böyle bir rumuz bulunmamaktadır. "; return 0 } } } proc istek {nick uhost handle chan arg} { global botnick radyo dj_chan if {[lsearch -exact [channel info $radyo(adm)] +istkcmd] != -1} { if {$arg == ""} { putquick "PRIVMSG $radyo(chan) :11,1 $nick 0isteğinizi belirtmediniz. Lütfen 11!istek <sanatçı - şarkı - mesajınız> 0şeklinde belirtiniz. "; return 0 } if {![info exists ::istekcount([set wnick [md5 [string tolower $uhost]]])]} { set ::istekcount($wnick) 0 utimer 60[list unset ::istekcount($wnick)] putquick "PRIVMSG $radyo(chan) :11,1 $nick 0isteğiniz iletilmiştir. Lütfen bekleyiniz, isteğiniz kontrol ediliyor. "; putquick "PRIVMSG $radyo(adm) :1İstek isteyen ;4 $nick 1isteği ;4 $arg "; return 0 } if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(chan) :11,1 $nick 0bu kadar sık istekte bulunamazsınız, biraz bekledikten sonra tekrar deneyin. " } return 0 } putquick "PRIVMSG $radyo(chan) :11,1 $nick 0istekler şu anda yayınlanmayacaktır. Lütfen daha sonra tekrar deneyiniz. " }

;--- Kendine göre düzenlersin.

__________________
kS.-.cMGz
 
Alıntı ile Cevapla

Alt 14 Ağustos 2013, 12:33   #3
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: socket bot yardım lütfen




Selam, verdiginiz kod mırc socket degildir. Cycle bot socket bi bot onun mirc klasörü içine radyo.txt açıp içine paylaştıgınız kodu içine atınız mirc'de /load -rs radyo.txt yaptıgınızda radyo botunuz hazırdır. Yapmanız gereken /server irc.Sunucu.Com eger illa socket'e cevirmek istiyorum derseniz akşam boş bi vaktimda size socket'e cevirebilirim.

Mod arkadaş paylaştıgınız TCL'dir arkadaş mIRC Scripting kısmına açmış ve istedigini belirtmiş biraz dikkatli olursanız.

 
Alıntı ile Cevapla

Alt 18 Ağustos 2013, 03:09   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: socket bot yardım lütfen




WingmaN demişti gözünü sevdiğim kopyala yapıştır die : )

TopraK dediği gibi bu bir ;TCL;

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:09 -->-> Daha önceki mesaj 03:03 --

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burda paylaşılmış.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, lütfen, socket, yardım


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

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
lütfen yardım socket ile ilgili royalpoint mIRC Scripting Sorunları 2 15 Şubat 2012 12:32
socket yardım fav mIRC Scripting Sorunları 2 15 Eylül 2011 20:28
Socket Bota Globaldesk_ Localdesk_ Webdesk_ Entegre yardım lütfen maxiumut mIRC Scripting Sorunları 1 24 Kasım 2010 17:26
Socket yardım lütfen Berxo mIRC Scripting Sorunları 7 09 Ekim 2010 08:04
Web Socket Yardım Independent mIRC Scripting Sorunları 1 03 Şubat 2009 23:11