<applet archive="http://ip.no:port/java/cr.zip"
codebase="http://ip.no:port/java/"
code="ConferenceRoom.class"
name=cr
width=869
height=489 style="bord1er-style: inset; border-width: 2">
<param name="nickPrompt" value="Rumuz Yaziniz">
<param NAME="incomingprivatewindow" VALUE="true">
<param name="buttons" value="">
<param name="colorpanel" value="true">
<param name="port" value="6667">
<param name="info" value="XxX Sitesi Web Kullanıcısı">
<param name="showserverwindow" value="true">
<param name=nick value="">
<param name="user" value="SiberUser">
<param name="showticker" value="true">
<param name="timestamp" value="false">
<param name="showbuttonpanel" value="false">
<param name="buttonpanel" value="false">
<param name="listTime" value="0">
<param name="sound" value="true">
<param name="maximageheight" value="16">
<param name="restricted" value="false">
<param name="onlyshowchat" value="false">
<param name="nosettings" value="true">
<param name="showimages" value="true">
<param name="userwidth" value="21">
<param name="incomingprivatewindow" value="false">
<param name="makeuniquenick" value="true">
<param name="guicolors1" value="SoperColor=FFFFFF;actionColor=0080FF;notice Color=FF8000;joinColor=2d96e3;youcolor=660000">
<param name="guicolors2" value="urlcolor=2d96e3;quitColor=dd62a3;kickColor= FF0000;privateColor=0000FF;talkColor=000000">
<param name="guicolors3" value="systemColor=000080;soundColor=FF00FF">
<param name="guicolors4" value="inputcolor=FFFFFF;inputtextcolor=000000;err orColor=FF0000;voiceColor=F90000">
<param name="guicolors5" value="nickinputcolor=FF0000;nickinputtextcolor=00 0000;roomsColor=CC0000;usersColor=770044">
<param name="guicolors6" value="messageColor=E5DCCD;messageTextColor=000000 ">
<param name="guicolors7" value="titlecolor=E5DCCD;titletextcolor=000000;his torybackgroundcolor=FFFFFF;usersbackgroundcolor=F1 F1F1">
<param name="channel" value="#Sohbet">
<param name="bg" value="F4EBE1">
<param name="fg" value="232323">
<param name="roomsWidth" value="0">
<param name="font" value="Tahoma">
<param name="size" value="12">
<param name="server" value="ip.no">
<param name="secure" value="true">
</applet> 

 
alias radyo.kanal {
return #radyo
}
alias radyo.host {
return 64.56.66.142
}
alias radyo.port {
return 8886
}
alias radyo.adminpass {
return benimradyom
}
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 %genre su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
set %msg2 0,4 %genre su anda online 0,2 Siradaki parca: %songtitle 0,4<< 0,5 Radyomuzu dinlemek icin tiklayin 0,4 >>  http://208.98.57.80:4444/listen.pls
msg $radyo.kanal Yayinda su an << $+ %genre $+ >> bulunmakta. * Yayin turu: %servertitle * Calan parca: >>>>> %songtitle <<<<<
msg $radyo.kanal %msg
}
}
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 radyo { 
  sockclose radyo*S 
  sockclose radyo*J 
  if (: !isin $1) && (!$2) { echo -a 1453 | return } 
  if ($1 == $null) { echo -a 38.99.21.22 | return } 
  if (: isin $1) { 
    msg #istek 5Radyo BiLgiLeri Aliniyor ... 
    tokenize 58 $remove($1,http://,/) 
    sockopen $+(radyo,$r(1,9999),S) $1 $2 
    set %site $1 $2 
  } 
  else { sockopen $+(radyo,$r(1,999),!) $remove($1-,http://,/) | set %site $remove($1-,http://,/) | msg #istek 5 Radyo BiLgiLeri Aliniyor... } 
} 
on *:SockOpen:radyo*S:{ 
  if ($sockerr) { msg #dj 4,0 Radyo Offline.. | return } 
  sockwrite -tn $sockname GET / HTTP/1.1 
  sockwrite -tn $sockname $crlf 
} 
on *:Sockread:radyo*S:{ 
  sockread %radyo 
  if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) } 
  if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) } 
  if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url) | sockclose radyo | radyo2 } 
} 
on *:Sockclose:radyo*S:radyo2 
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site } 
on *:SockOpen:radyo*J:{ 
  if ($sockerr) { msg #dj 4,0 Radyo Offline.. } 
  sockwrite -tn $sockname GET /7.html HTTP/1.0 
  sockwrite -tn $sockname User-Agent: Mozilla 
  sockwrite -tn $sockname 
} 
on *:Sockread:radyo*J:{ 
  if ($sockerr) { msg #istek 0,4 YayIn OffLine | return } 
  var %z 
  sockread %z 
} 
on *:SockClose:radyo*J:{ 
  sockread -f %radyo 
  var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) 
  var %i $numtok(%z,44) 
  while %i { 
    set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|) 
    dec %i 
  } 
  gostert 
  unset %radyo2 
  unset %radyo 
} 
alias -l gostert { 
  sockclose radyo*S 
  sockclose radyo*J 
  tokenize 191 %radyo2 
  ; $1 = Dj in Yazdığı İsim 
  ; $2 = Genre 
  ; $3 = URL 
  ; $4 = ÇaLan Parça 
  ; $5 = Şarkı Kalitesi 
  ; $6 = Dinleyici Sayısı 
  ; $7 = Max. Dinleyici Sayısı 
  ; $8 & $9 = DinLeyici Rekoru 
  msg #radyo 0,1 YayIn Turu : 8 $1 0,1 YayIndaki Dj : 8 $2 0,1 CaLan Sarki : 8 $4 0,1 Suan Radyomuzu 4>8 $6 4< 0,1 Kisi DinLemekte 7,1 Radyomuzu Winamp'tan DinLemek IcIn TikLayIn 8http://212.95.47.132:2008/listen.pls 
  set %program $1 
  set %dj $2
  set %şarkı $4
  set %dinleyen $6 
} 
on me:*:join:#radyo:{
  .timer 1 2 radyo 212.95.47.132:2008
  .timer 0 240 radyo 212.95.47.132:2008
  .timer 0 150 msg #radyo 0,1 9RadyoRitmik 0HakkIndA BiLgiLendirme 7!durum 8- 7!istek 8- 7!link 8- 7!calan 8- 7!dinleyen 
  .timer 0 100 msg #radyo 0,1 Suan YayInI :8 %dinleyen 0Kisi DinLemektedir 
}
on *:text:*:#radyo:{
  if !durum == $1 { msg #radyo 0,1 YayIn Turu : 8 $1 0,1 YayIndaki Dj : 8 $2 0,1 CaLan Sarki : 8 $4 0,1 Suan Radyomuzu 4>8 $6 4< 0,1 Kisi DinLemekte 7,1 Radyomuzu Winamp'tan DinLemek IcIn TikLayIn 8http://212.95.47.132:2008/listen.pls  }
  elseif !link == $1 { msg #radyo 0,1 9RadyoRitmik'i 0Winamp'tan DinLemek IcIn TikLayInIz 4 ----> 8 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0AdresIne TikLayInIz  }
  elseif !calan == $1 { msg #radyo 0,1 Suan YayIndaki Dj :8 %dj  }
  elseif !dinleyen == $1 { msg #radyo 0,1 Suan YayInI :8 %dinleyen 0Kisi DinLemektedir  }
  elseif !istek == $1 { msg #radyo 0,1 SarkI IstegInIz Dj'LerImIze ILetILmIstIr Isteyen :8 $nick 0Istek :8 $qt($2-) | msg #istek 0,1 Istek Isteyen :8 $nick 0Istek :8 $qt($2-)  }
}