IRCDForum - IRC ve mIRC Kullanıcı Topluluğu  
Geri Git   IRCDForum - IRC ve mIRC Kullanıcı Topluluğu > IF- mIRC Scripting > mIRC Scripting Hazır Kodlar


Radyo Dinleyen Voice Kodu

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.


Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
Konu Araçları Görünüm Modları
Old 05 Aralık 2023, 16:34   #1
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan Radyo Dinleyen Voice Kodu

Kod
<strong>KOD;
</strong>
alias radyo.kanal {
  return #radyo
}
alias radyo.host {
  return RadyoIP
}
alias radyo.port {
  return RadyoIPPort
}
alias radyo.adminpass {
  return adminpass
}
alias radyo.sock {
  return shoutcast
}

on 1:SOCKOPEN:$($radyo.sock): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyo.adminpass 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 %data
  tokenize 32 %data
  var %x 1
  while $pos($1-,align=center&gt;&lt;font&gt;,%x) {
    var %v1 $v1,%ip $token($token($mid($1-,%v1,100),3,62),1,60)
    if (*.*.*.* iswm %ip) { hadd -m dinleyen $v2 evet }
    inc %x
  }
}
on *:sockclose:$($radyo.sock): {
  var %x 1
  while $hget(dinleyen,%x).item {
    who +I $+(*,$v1,*)
    inc %x
  }
  var %x 1
  while $nick($radyo.kanal,%x,v) {
    who +I $v1
    inc %x
  }
}
raw *:*: {
  if ($numeric == 352) {
    if $hget(dinleyen,$4) {
      if !$nick($radyo.kanal,$6,vqho) &amp;&amp; ($6 ison $radyo.kanal)  {
        msg $6 $6 yayini dinlediginiz icin tesekkurler, radyonuz suan acik durumdadir
        mode $radyo.kanal +v $6
      }
    }
    if !$hget(dinleyen,$4) {
      if $nick($radyo.kanal,$6,v) &amp;&amp; !$nick($radyo.kanal,$6,hoq) &amp;&amp; ($6 ison $radyo.kanal) {
        msg $6 $6 Radyo yayini dinlediginiz icin tesekkurler, radyonuz suan kapalı duruma gecmistir.
        mode $radyo.kanal -vv $6
      }
    }
    haltdef
  }
  if ($numeric == 315) {
    haltdef
  }
}
alias radyovoice {
  if $hget(dinleyen) { hfree -sw dinleyen }
  sockopen $radyo.sock $radyo.host $radyo.port
}
Kod
alias radyo.kanal {
  return #radyo
}
alias radyo.host {
  return RadyoIP
}
alias radyo.port {
  return RadyoIPPort
}
alias radyo.adminpass {
  return adminpass
}
alias radyo.sock {
  return shoutcast
}
AÇIKLAMA: Codedeki bu kısmı düzgün doldurduktan sonra /radyovoice yazdıgınızda gerekli bilgiyi verecektir. mIRC Code olarak ayarlanmıstır Socket'e göre ayarlanmamistir. ve en son Codu kullanmak icin Oper olmak gereklidir.

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29

Cevapla

Yer İmleri

Etiketler
dinleyen, kodu, radyo, voice

Konu Araçları
Görünüm Modları

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı