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

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

- - Radyo mirc yada Sock bot (https://www.ircforumlari.net/mirc-scripting-sorunlari/525756-radyo-mirc-yada-sock-bot.html)

Radyo mirc yada Sock bot

Merhaba arkadaslar elinde calısan mirc yada radyo sock botu olan varsa paylasabilirmi.

Forumda 1 kaç tane buldum ama hep bir yerlerinden eksiklikler var . yardımcı olursanız sevinirim

Cevap: Radyo mirc yada Sock bot

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kontrol edermisin burdaki çalışıyordu.

iyi forumlar.

Cevap: Radyo mirc yada Sock bot

Hocam Geveze.net 'in radyo botu gibi olan vardı 1 tane onu bulamazmıyız

Cevap: Radyo mirc yada Sock bot

Kod:

alias .host {

  return 37.123.98.27

}

alias .port {

  return 2121

}

alias .sock {

  return shoutcast

}

on *:sockopen:$($.sock): {

  sockwrite -n $sockname GET $+(/ HTTP/1.1)

  sockwrite -n $sockname Host: $+($.host, :, $.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 Keep-Alive: 300

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname $crlf

}

alias radyoal {

  if $sock(shoutcast) {

    sockclose $ifmatch

  }

  sockopen $.sock $.host $.port

}

on *:sockread:$($.sock): {

  var %radyobilgi

  sockread %radyobilgi

  if *Server*Version* iswm %radyobilgi {

    if $regex($htmlfree(%radyobilgi),/(Stream Status.+)\sListener Peak/) { msg #radyo $regml(1) }

    if $regex($htmlfree(%radyobilgi),/(Listener Peak.+)\sAverage Listen Time/) { msg #radyo $regml(1) }

    if $regex($htmlfree(%radyobilgi),/(Average Listen Time.+)\sStream Title/) { msg #radyo $regml(1) }

    if $regex($htmlfree(%radyobilgi),/(Stream Title.+)\sContent Type/) { msg #radyo $regml(1) }

    if $regex($htmlfree(%radyobilgi),/(Content Type.+)\sStream Genre/) { msg #radyo $regml(1) }

    if $regex($htmlfree(%radyobilgi),/(Stream Genre.+)\sStream URL/) { msg #radyo $regml(1) }

    if $regex($htmlfree(%radyobilgi),/[^\|]\s(Stream URL.+)\sStream ICQ/) { msg #radyo $regml(1) }

  }

}

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)   

  return %x

}

Buda işini görür.

-
Nomercy Botlarında edit'li şekilde mevcud.Senin bas ettiğin kod.

Cevap: Radyo mirc yada Sock bot

Nomercy tabanında istiyorsan söyle yapabilirsin.

Kod:

  }

  if !$sock(nomercy) {

    ;sockopen nomercy $qsunucu $qsunucuport

  }

  if !$sock(sysbot) {

    sockopen sysbot $qsunucu $qsunucuport

  }

  if !$sock(duyurubot) {

    sockopen duyurubot $qsunucu $qsunucuport

  }

  if !$sock(radyobot) {

    sockopen radyobot $qsunucu $qsunucuport

  }

  if !$sock(helpbot) {

    ;sockopen helpbot $qsunucu $qsunucuport

  }

  if !$sock(hostbot) {

    sockopen hostbot $qsunucu $qsunucuport

  }

  if !$sock(salebot) {

    ;sockopen salebot $qsunucu $qsunucuport

  }

  if !$sock(gundembot) {

    ;sockopen gundembot $qsunucu $qsunucuport

  }

Eklersin aliaslara sonrada sistem/Radyo.mrc editle kendine oldu bitti