IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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:

on *:start:.socklisten radyoistek 2015

alias sw $iif($sock($1),sockwrite -nt $1-)

alias _yonle return 

  

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 Lütfen tekrar istek için $replace($duration($hget(Webİstek,%:ip).unset),mins,$+($chr(32),dakika),secs,$+($chr(32),saniye),hr,$+($chr(32),saat)) bekleyiniz.

      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 İsteğiniz dj arkadaşlara iletildi. 

      .hinc -msu300 Webİstek %:ip

      sockclose $sockname   

    }  

  }

}

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

Kod Sahibi: Toprak