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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Radyo Bot Bilgileri ''Eksik'' (https://www.ircforumlari.net/mirc-scripting-sorunlari/266598-radyo-bot-bilgileri-eksik.html)

Radyo Bot Bilgileri ''Eksik''

Kod:

alias radyo.kanal {

  return #kanal

}

alias radyo.host {

  return radyoip

}

alias radyo.port {

  return port

}

alias radyo.adminpass {

  return şifre

}

alias radyo.sock {

  return shoutcast

}

alias getxmltext {

  var %tag.open = $+(<, $1, >)

  var %tag.close = $+(</, $1, >)

  if $pos($2-,%tag.open) {

    var %start = $ifmatch + $len(%tag.open)

    var %length  = $calc($pos($2-, %tag.close) - %start)

    return $mid($2-, %start, %length)

  }

  return $null

}

on 1:SOCKOPEN:$($radyo.sock): {

  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyo.adminpass,&mode=viewxml HTTP/1.1)

  sockwrite -n $sockname Host: $+($radyo.host, :, $radyo.port)

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname *.*, */*

  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5

  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5

  sockwrite -n $sockname Accept-Encoding: gzip,deflate

  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7

  sockwrite -n $sockname Keep-Alive: 300

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname $crlf

}

on 1:SOCKREAD:$($radyo.sock): {

  var %data

  sockread -f %data

  while $sockbr > 0 && $sockerr == 0 {

    if $getxmltext(SERVERTITLE, %data) != $null {

      set %servertitle $remove($ifmatch,&#xFF;,&#x26;)

    }

    if $getxmltext(CURRENTLISTENERS, %data) != $null {

      set %currentlisteners $ifmatch

    }

    if $getxmltext(SONGTITLE, %data) != $null {

      set %songtitle $remove($ifmatch,&#xFF;,&#x26;)

    }

    if $getxmltext(BITRATE, %data) != $null {

      set %bitrate $ifmatch

    }

    if $getxmltext(PEAKLISTENERS, %data) != $null {

      set %peaklisteners $ifmatch

    }

    if $getxmltext(SERVERGENRE, %data) != $null {

      set %genre $remove($ifmatch,&#xFF;,&#x26;)

    }

    sockread -f %data

  }

}

on 1:SOCKCLOSE:$($radyo.sock): {

  if %songtitle != %lastsong {

    set %lastsong %songtitle

    var %msg = 0,4 %servertitle su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 

    topic $radyo.kanal  0,4 C*    0,5 Turkiye'nin en kaliteli DJ'lerinden  0,1 $+ %servertitle $+  0,5Suan online   0,4 C*  

    msg $radyo.kanal %msg

    msg $radyo.kanal 0,4 C*    0,1 Yayinda su an <<8 $+ %servertitle $+ 0,1>> bulunmakta. 

    msg $radyo.kanal 0,4 C*    0,1 Yayin turu: << 8 %genre 0,1>> 

    msg $radyo.kanal 

    msg $radyo.kanal 0,4 C*    0,2 0,2Çalan parca:0,10 %songtitle 

    msg $radyo.kanal 0,4 C*    0,2 0,2Dinlenme Orani: 0,6 Su anda  %currentlisteners  kisi dinliyor (rekor: %peaklisteners $+ ) 

    msg $radyo.kanal 

    msg $radyo.kanal 0,4 C*    0,1 Radyomuzu dinlemek icin tiklayin 12http://95.168.184.58:6584/listen.pls 

    msg $radyo.kanal 0,4 C*    0,1 Radyomuzu WEB'den dinlemek icin tiklayin 4,1|0 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
msg $radyo.kanal 0,4 C*    0,1 Pop - Slow - Rap - Arabesk - Techno 0,2Isteklerini dJ Lerimizden Iste Ne Duruyorsun?

  }

}

alias shout {

  if $sock(shoutcast) {

    sockclose $ifmatch

  }

  sockopen $radyo.sock $radyo.host $radyo.port

}

on 1:text:*:#Radyo:{

  if *!durum* iswm $1- {

    set -u10 %durum 1

    unset %lastsong

    shout

  }
 

  alias fants {

    return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o,Ó,n,ñ)

  }
 

  alias djnick {

    var %n 1 , %ret

    while %n <= $len($1-) {

      if $tc(%n) == tek {

        %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )

      }

      else {

        %ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )

      }

      inc %n

    }

    return 2 *~~ 0,4 D 0,2 J  %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyoslogan.txt))),^servertitle,%servertitle)   > : $randombilgi  ~~*

  }

S.a IF,

Arkadaşlar yukarda vermiş olduğum kod'da, bot bi takım bilgileri eksik veriyor.
Yayında dj olmazsa bile slogan'ı atıyor tekrar.
örnek: Dj şarkıyı değiştirdiğinde bot'un otomatikman kendi sloganında değişmesi lazım ama onu kanala yansıtmıyor sabit bir şarkı çıkıyor. diğer eksik bilgiler ise;

1. Radyo kanalında link bilgisi bot tarafından: !link
2. Radyo kanalında istek bilgisi bot tarafından: !istek
3. Radyo kanalında çalan şarkı bilgisi bot tarafından: !çalan
4. Radyo kanalında dinleyen bilgisi bot tarafından: !dinleyen
5. Yayında dj olmadığında: yayınızmı kesilmiştir.
6. Bot radyo kanalında saloganı her dakika'da atabilir mi.

kullanıcılarımız radyo kanalında istekte bulunacak mesela,
Aleyna; !istek Serdar Ortaç - Yar Ayrı Gayrın mı Var IF ailesine gitsin
Bot; İsteğiniz Listeye Alınmıştır.
Bot; İstek yapan nick: Aleyna
Bot; Yapılan İstek:Yar Ayrı Gayrın mı Var IF ailesine gitsin
Bot: İstenmiş olan şarkı sayısı ( gün içerisinde ) : örnek: 236

yardımcı olucak coder arkadaşlara şimdiden teşekkür ederim. kolay gelsin IF ailesi..

Not: nX yardımlarından dolayı teşekkür ederim kardeşim.