Tekil Mesaj gösterimi
Alt 09 Mart 2017, 15:54   #1
Çevrimdışı
immortaL
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Web Radyo İstek Paneli


Reklam

Merhaba,
Kodun amacı web üzerinde istenilen istekleri direk #dj kanalına yollamak.
Yapmanız gereken web ftp kısmına istek klasörü ile beraber atmak ve istek.php 'deki ip adresi yerine botunuzun ip adresini yazmanız gerekmektedir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:.socklisten radyoistek 2015 alias sw $iif($sock($1),sockwrite -nt $1-) alias _yonle return <head><meta http-equiv="refresh" content="3;URL=index.php"></head> alias _rep return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ) on *:socklisten:radyoistek:{ var %:sockname $+(radyoistek-,$md5($ticks,$rand(a,Z))) | if !$sock(%:sockname) { .sockaccept %:sockname } } on *:sockread:radyoistek-*:{ var %:radyoistek | sockread -f %:radyoistek | tokenize 32 %:radyoistek | echo -a %:radyoistek if $token(%:radyoistek,1,62) === [ISTEK] { var %:nick $token(%:radyoistek,2,62), %:sanatci $token(%:radyoistek,3,62), %:sarki $token(%:radyoistek,4,62), %:mesaj $token(%:radyoistek,5,62), %:ip $token(%:radyoistek,6,62) if $hget(Webİstek,%:ip) { sw $sockname <center>Lütfen tekrar istek için<font color="#FF0000"> $replace($duration($hget(Webİstek,%:ip).unset),mins,$+($chr(32),dakika),secs,$+($chr(32),saniye),hr,$+($chr(32),saat)) </font>bekleyiniz.</center> sockclose $sockname return } else { msg #Dj :[WEB-ISTEK] [Nick/İsim: $_rep(%:nick) ] [Sanatci İsmi: $_rep(%:sanatci) ] [Şarkı İsmi: $_rep(%:sarki) ] [Mesaj: $_rep(%:mesaj) ] sw $sockname <br /><br /><center>İsteğiniz dj arkadaşlara iletildi.</center> .hinc -msu300 Webİstek %:ip sockclose $sockname } } }


Not: Botun bağlı oldu makinede 2015 portunu açmak gereklidir..

Code Sahibi : @Toprak
Merhaba,
Kodun amacı web üzerinde istenilen istekleri direk #dj kanalına yollamak.
Yapmanız gereken web ftp kısmına istek klasörü ile beraber atmak ve istek.php 'deki ip adresi yerine botunuzun ip adresini yazmanız gerekmektedir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:.socklisten radyoistek 2015 alias sw $iif($sock($1),sockwrite -nt $1-) alias _yonle return <head><meta http-equiv="refresh" content="3;URL=index.php"></head> alias _rep return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ) on *:socklisten:radyoistek:{ var %:sockname $+(radyoistek-,$md5($ticks,$rand(a,Z))) | if !$sock(%:sockname) { .sockaccept %:sockname } } on *:sockread:radyoistek-*:{ var %:radyoistek | sockread -f %:radyoistek | tokenize 32 %:radyoistek | echo -a %:radyoistek if $token(%:radyoistek,1,62) === [ISTEK] { var %:nick $token(%:radyoistek,2,62), %:sanatci $token(%:radyoistek,3,62), %:sarki $token(%:radyoistek,4,62), %:mesaj $token(%:radyoistek,5,62), %:ip $token(%:radyoistek,6,62) if $hget(Webİstek,%:ip) { sw $sockname <center>Lütfen tekrar istek için<font color="#FF0000"> $replace($duration($hget(Webİstek,%:ip).unset),mins,$+($chr(32),dakika),secs,$+($chr(32),saniye),hr,$+($chr(32),saat)) </font>bekleyiniz.</center> sockclose $sockname return } else { msg #Dj :[WEB-ISTEK] [Nick/İsim: $_rep(%:nick) ] [Sanatci İsmi: $_rep(%:sanatci) ] [Şarkı İsmi: $_rep(%:sarki) ] [Mesaj: $_rep(%:mesaj) ] sw $sockname <br /><br /><center>İsteğiniz dj arkadaşlara iletildi.</center> .hinc -msu300 Webİstek %:ip sockclose $sockname } } }


Not: Botun bağlı oldu makinede 2015 portunu açmak gereklidir..

Code Sahibi : @Toprak
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı