Bir aralar zaman geçirmek için düzenlediğim bir çalışma vardı. Kurcalıya kurcalıya bu şekilde birşey çıktı. Uzun zaman oldu ama paylaşmak istedim. Kodlarda ek olarak clone koruması ve kötü nick koruması mevcut küçük çaptada olsa. Bazı kodlar toplamadır. @Web sayfası açılması için; nHTML.dll olmak zorundadır. Kolay Gelsin.. Buyrun. Ekran Görüntüsü;
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodlar;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias radyo {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a Port Yazın (Örn : radyo.deneme.com:2525) | return }
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | return }
if (: isin $1) {
echo -a Lütfen Bekleyin..
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://,/) | echo -a Lütfen Bekleyin.. }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | 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) { echo -a Siteye BağLanmada Hata! }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | 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 %kanal Yayinda su an $1 bulunmakta. * Yayin turu: $1 * Calan parca: >>>>> $4 <<<<<
msg %kanal 0,5 Turkiye'nin en kaliteli online radyosu ve DJ'leri 0,7 Radyo %Rad Resmi Sitesi: %web
msg %kanal 0,4 $1 su anda online 0,2 Siradaki parca: $4 0,6 Su anda $6 kisi dinliyor (rekor: $8)
msg %kanal 0,4 ** 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >> 12http:// $+ %link $+ : $+ %port $+ /listen.pls
msg %kanal 12Radyo ile ilgili sorunlariniz icin kanal aoplari ile görüşebilirsiniz.
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:connect:{
.nick %nick
.identify %sifre
.partall
.timer 1 1 join %kanal
.timer 1 1 join %djk
.rd
.web
}
on *:start:{
.set %logo 1« Radyo Bøt Script v1.o 4®1 »
.xecho
.timer 1 1 /rad
}
on 666:join:#:{ mode %kanal +b $nick
kick %kanal $nick Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. 1« Radyo Bøt Script v1.o 4®1 »
}
alias rad { dialog -m rb rb }
alias xecho {
echo -a 1[Rb] « Radyo Bøt Script v1.o 4®1 »
echo -a 1[Rb] Radyo Script Şuanda Kullanıma Hazır.
echo -a 1[Rb] Tarih $date
echo -a 1[Rb] Tarih $time
echo -a 1[Rb] Radyo Script Şuana Kadar %rb Sefer Açıldı
echo -a 1[Rb] Radyo Script [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Tarafından Düzeltilmiştir.
.titlebar «Radyo Bøt Script v1.o ®»
.ignore -r
inc %rb
}
ctcp 1:version:*:{
ctcpreply $nick Radyo Bøt Script v1.o ®
}
ctcp 1:finger:*:{
ctcpreply $nick Radyo Bøt Script v1.o ®
}
alias Web {
if ($window($active) != @Web) && (!$window(@Web)) {
window -peng1k0 @Web
editbox @Web $1
set -u2 %x $dll(nHTML.dll,attach,$window(@Web).hwnd)
set -u2 %x $dll(nHTML.dll,navigate,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
editbox @Web Web Sayfası Adreslerinizi Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. veya http formatlarını en başa yazarak giriniz!
}
if ($window($active) == @Web) && ($window(@Web)) {
editbox @Web $1
set -u2 %x $dll(nHTML.dll,attach,$window(@Web).hwnd)
set -u2 %x $dll(nHTML.dll,navigate,$1)
editbox @Web $1 Web Sayfası Adreslerinizi Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. veya http formatlarını en başa yazarak giriniz!
}
}
on *:INPUT:@Web:{ if (http isin $1) || ( Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. isin $1) { Web $1- } halt }
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:%kanal:{
if ($1 == !durum) { .radyo %link $+ : $+ %port }
if ($1 == !istekbilgi) { msg %kanal Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum %Rad ailesine gelsin. }
if ($1 == !link) { msg %kanal 0,4 ** 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >> 12http:// $+ %link $+ : $+ %port $+ /listen.pls }
if ($1 == !istek) { msg %Djk Isteyen: $nick Istek $2- | msg %kanal 4Isteginiz DJ'lerimize iletilmistir2 $nick 5( $+ $2- $+ ) }
if ($1 == !İstek) { msg %Djk Isteyen: $nick Istek $2- | msg %kanal 4Isteginiz DJ'lerimize iletilmistir2 $nick 5( $+ $2- $+ ) }
if ($1 == İstek) { msg %Djk Isteyen: $nick Istek $2- | msg %kanal 4Isteginiz DJ'lerimize iletilmistir2 $nick 5( $+ $2- $+ ) }
if ($1 == istek) { msg %Djk Isteyen: $nick Istek $2- | msg %kanal 4Isteginiz DJ'lerimize iletilmistir2 $nick 5( $+ $2- $+ ) }
}
#k on
on *:join:%kanal:{
if (root isin $address($nick,0)) { halt }
if (admin isin $address($nick,0)) { halt }
if (ircop isin $address($nick,0)) { halt }
if (oper isin $address($nick,0)) { halt }
notice $nick 0,12 Radyo %Rad hos geldiniz $nick $+ !
notice $nick 9,1 Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz.
notice $nick 0,5 Ornek: !istek Gece Yolculari - Unut beni - Tum %Rad ailesine gelsin.
notice $nick 10Radyomuzu dinlemek icin tiklayin: 12http:// $+ %link $+ : $+ %port $+ /listen.pls
}
#k end
Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog rb {
title "Radyo Script Ayarlar [ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ]"
size -1 -1 289 164
option dbu
text "Sunucu Adı", 1, 15 20 45 8
text "Bot Nicki", 2, 15 35 45 8
text "Bot Şifresi", 3, 15 50 45 8
text "Yayın Kanalı", 4, 15 65 45 8
text "Dj Kanalı", 5, 15 80 45 8
text "Radyo IP Adresi", 6, 15 95 45 8
text "Radyo Portu", 7, 15 110 45 8
text "Radyo Adı", 8, 15 125 45 8
text "Radyo Web Sitesi", 9, 15 140 45 8
edit "", 10, 70 20 50 10, autohs autovs
edit "", 11, 70 35 50 10, autohs autovs
edit "", 12, 70 50 50 10, autohs autovs pass
edit "", 13, 70 65 50 10, autohs autovs
edit "", 14, 70 80 50 10, autohs autovs
edit "", 15, 70 95 50 10, autohs autovs
edit "", 16, 70 110 50 10, autohs autovs
edit "", 17, 70 125 50 10, autohs autovs
edit "", 18, 70 140 50 10, autohs autovs
text "ÖR: irc.mircd.biz", 19, 125 20 45 8
text "ÖR: Radyo", 20, 125 35 45 8
text "ÖR: 13mir13cd13", 21, 125 50 45 8
text "ÖR: #Radio", 22, 125 65 45 8
text "ÖR: #Dj", 23, 125 80 45 8
text "ÖR: 208.98.57.49", 24, 125 95 45 8
text "ÖR: 9777", 25, 125 110 45 8
text "ÖR: mIRCd FM", 26, 125 125 45 8
text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 27, 125 140 45 8
text "- Değerli kullanici; * Radyo Script kodları toplama kodlar olarak sizlere sunulmuştur. Bu yuzden ufak sorunlar çıkabilir, ancak Script ayarlanılınca en iyi şekilde yapılmaya çalışılmıştır. ***Not: Botun duzgun çalışması için belirtilen yerleri eksiksiz olarak doldurun. ***UYARI: Script Kodları kaynak gosterilmeden yayınlanması yasaktir.", 28, 185 20 90 99
button "Tamam", 29, 185 125 37 12, flat ok
text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 30, 230 155 55 8, disable center
}
on 1:dialog:rb:sclick:29:{
set %server $did(10)
set %nick $did(11)
set %sifre $did(12)
set %kanal $did(13)
set %djk $did(14)
set %link $did(15)
set %port $did(16)
set %Rad $did(17)
set %Web $did(18)
server %server
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:JOIN:#:{
if (root isin $address($nick,0)) { halt }
if (admin isin $address($nick,0)) { halt }
if (ircop isin $address($nick,0)) { halt }
if (oper isin $address($nick,0)) { halt }
if (desk isin $address($nick,0)) { halt }
if (dj isin $address($nick,0)) { halt }
if (sop isin $address($nick,0)) { halt }
if (help isin $address($nick,0)) { halt }
var %total = $ialchan($wildsite,#,0)
if (%total > 2) {
var %i = 0
while (%i < %total) {
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
var %all.nicks = $addtok(%all.nicks,%nick,32)
if (%nick !== $me) {
.raw -q mode $chan +b $mask($fulladdress,2)
.raw kick $chan %nick 1Reklam/Clone/Inviter/Trojan %logo
.unset %nick
}
}
}
}
#clone on
on *:join:*: {
if (root isin $address($nick,0)) { halt }
if (admin isin $address($nick,0)) { halt }
if (ircop isin $address($nick,0)) { halt }
if (oper isin $address($nick,0)) { halt }
if (desk isin $address($nick,0)) { halt }
if (dj isin $address($nick,0)) { halt }
if (sop isin $address($nick,0)) { halt }
if (help isin $address($nick,0)) { halt }
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
var %h = $gettok($ial($wildsite,%count),2,64)
inc %count
}
echo $chan 2*** 4 %clones 1Tane Clone Tespit Edildi!:12 - $remove(%clone.nicks,-->) -> %h
}
}
#clone end
__________________
Konu Kan tarafından (25 Ekim 2008 Saat 04:57 ) değiştirilmiştir.
Verilen Kodları mIRC'ine Pastele Öle Bir resim çıkıcak zaten mIRC'i aç ALT+R yap Daha Sonra verilen Kodları Remote Bölümünden yeni Sekmesiyle Pastele Karşına Resim Çıkar Bukadar Basit ; Hala yapadım Diyorsan mIRC Kodları'nın mIRC'a Ekleniş'i Dükümanını Okumanı Tavsiye Ederim...
25 Ekim 2008, 04:52
Benzer Konular 
Normal
