Mirc Mırc mirc indir Mirc Download Mirc Yükle Mirc Sitesi Mirc Dünyası

ircde dinlediğiniz şarkıları herkes görsün

admin — Sat, 26 Jul 2008 08:58:01 +0000

Kod’u scriptinizin aliases’lerine ekliyorsunuz. Tabi bu kod’un calisabilmesi icin WinAmpI.dll’niz olmasi gerekiyor. WinAmpI.dll’yi Program files’e girip Winamp ve mIRC klasorunuzun icine kopyalayip mIRC scriptinizi aciyorsunuz. Dinlediginiz sarkilari herkes görür

/song {
set %chan $1
if ($1 == $null) set %chan #
if ($dll(WinAmpI.dll, IsRunning, 0) == false) {
msg %chan WinAmp isn’t running!
halt
}
set %color1
set %color2
set %shf $dll(WinAmpI.dll, GetShuffle, 0)
set %state $dll(WinAmpI.dll, GetPlayState, 0)
set %vol $dll(WinAmpI.dll, GetVolume, 0)
set %song $dll(WinAmpI.dll, GetSong, 0)
set %poslen $dll(WinAmpI.dll, GetSongPosition, 0) $+ / $+ $dll(WinAmpI.dll, GetSongLength, 0)
set %track $dll(WinAmpI.dll, GetSongNumber,0) $+ / $+ $dll(WinAmpI.dll, GetSongCount,0)
set %bitrate $dll(WinAmpI.dll, GetBitRate, 0) $+ kbps
set %repeat $dll(WinAmpI.dll, GetRepeat, 0)
if (c isincs $gettok($chan(#).mode,1,32)) {
msg %chan WinAmp: %state $+ Song: %song $+ Position/Length: %poslen $+ Track: %track $+ BitRate: %bitrate $+
halt
}
if (%shf == true) {
set %shf1 Açık
}
if (%shf == false) {
set %shf1 Kapalı
}
if (%repeat == true) {
set %repeat Açık
}
if (%repeat == false) {
set %repeat Kapalı
set %emre emre
}

amsg Winamp - %song : Vol: % $+ %vol }

}

Vizyondaki Filmler

admin — Sat, 26 Jul 2008 08:56:52 +0000

alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 @Sinema.com } | aline -p @Sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (* elseif (* elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } }
}
}

şehir ve ülke bulucu

admin — Sat, 26 Jul 2008 08:52:56 +0000

raw 401:*: { msg #nerden $2 : Nick’i online degil! }
alias nerden {

set %ip $1
sockclose nerden
sockopen nerden www.ripe.net 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1
sockwrite -n $sockname Host: www.ripe.net $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
sockread %ğ
if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) }
if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) }
}
on *:text:*:#Nerden:{
if ($1 == !nerden) && $2 { bak $2 }
}
alias bak { whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $gettok($6,2,64) | disable #dirim }
#dirim end

Clone Taraması

admin — Sat, 26 Jul 2008 08:51:47 +0000

Bilinen bir clone taramasıdır. Kanalda bulunan cloneleri status penceresinde gösterir. Kullanımı /clone #kanaladı yada kanal penceresi üzerinde iken sağ tıklayıp Clone Tara demeniz yeterlidir.

alias Clone {
var %ğ = $nick(#,0)
while %ğ {
if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
else { hinc host $address($nick(#,%ğ),2) }
dec %ğ
}
echo 4 -st # kanalı için clone taraması başlatıldı…
echo -s -
.timer 1 1 .h_al #
}
alias h_al {
var %ı = $hget(host,0).item
while %ı {
if $hget(host,%ı).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
echo 12 -st 2Adres: $hget(host,%ı).item — 10Bağlı kullanıcı sayısı: $hget(host,%ı).data — 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}

menu channel {
.-
.Clone Tara:.Clone #
}

Services BOT oluşturmak

admin — Sat, 26 Jul 2008 08:50:38 +0000

/set %kanal8 $$?=”Botun Gireceği Kanal 8? (Ornek: #Zurna)”
/set %kanal9 $$?=”Botun Gireceği Kanal 9? (Ornek: #Zurna)”
/set %kanal10 $$?=”Botun Gireceği Kanal 10? (Ornek: #Zurna)”
/set %os-timer $$?=”Kaç tane services bot oluşturulacak? (Ornek: 25)”
/timer %os-timer 4 /bot-2
}

/bot-2 {
//set %nicks $read(”system/nicks.txt”
//botserv bot add %nicks Sanalnikah %server 7©Kelebek4.7© | //msg #bot.raw %nicks Nickinde Bot Oluşturuldu. Zaman: $time $date dir. ßy NoBotes
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına girdi.
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına çıktı.
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına çıktı.
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına çıktı.
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına çıktı.
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına çıktı.
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına çıktı.
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına çıktı.
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına çıktı.
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına çıktı.
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına çıktı.
}
Bunu Alias Bölümüne Yazıp Statüse /botat yazın karşınıza gelen bölümleri doldurun ve serverınıza istediğiniz kadar kanallara çıkıp giren bot yapın.
#bot.raw da hangi botun nereye girdiğini görebilirsiniz.Ama bir nicks.txt olması lazım bunu oluşturup system die bir klasöre atın addon hazır…

Burç yorumcusu

admin — Sat, 26 Jul 2008 08:49:46 +0000

/*
Kullanımı:

Kanalda;

!burc burcadı yazan kişinin

özeline, yazılan burcun o günkü

yorumunu gönderir.

Örnek: !burc oglak
*/
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
if ($1 == !burc) {
if (!$2) msg $nick Burcun adını girmediniz!
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick Türkçe karakter girmeyiniz!
else {
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
if ($istok(%burclar,$2,32)) {
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin…
set %burcid $findtok(%burclar,$2,32)
sockclose $+(burc*,$nick)
sockopen $+(burc*,$nick) www.muneccim.com 80
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
}
else msg $nick Burç adı hatalı! Tekrar deneyiniz..!
}
}
}
on *:sockopen:burc*: {
var %s = sockwrite -n $sockname
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1
%s Host: www.muneccim.com
%s $crlf
}
on *:sockread:burc*: {
sockread %data
if (face=”Arial Narrow”> isin %data) {
msg $remove($sock($sockname),burc*) $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu:
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}

Canlı iddaa Sonuçlarını gösterin

admin — Sat, 26 Jul 2008 08:47:04 +0000

/*
Kullanımı:

Kanalda;

!iddaa mackodu

yazıldığında,yazan kişinin özeline

maç koduna ait maçın bilgileri

(skoru,saati vs..) gönderilir.
*/
alias -l msend msg $remove($1,iddaa*) $htmlfree($2-)
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
if ($1 == !iddaa) {
if (!$2) msg $nick 4Maç kodunu girmediniz!
elseif ($2 isnum) {
set %mcode $nick $2
msg $nick 4,1Lütfen Bekleyiniz…
sockclose $+(iddaa*,$nick)
sockopen $+(iddaa*,$nick) www.iddaa.com 80
sockmark $+(iddaa*,$nick) $2
}
else msg $nick 4Maç kodu yalnız sayılardan oluşmalıdır.
}
if ($1 == !idbilgi) msg $nick Bu kod,maç koduna göre maçın o anki canlı sonucu verir.(4BY SeRDaR406)
}
on *:sockopen:iddaa*: {
if ($sockerr) msend $sockname 4Kaynak siteye bağlanamıyor.Daha sonra tekrar deneyiniz…!
else {
var %s = sockwrite -n $sockname
%s GET /iddaacom/Canli/canli.asp HTTP/1.1
%s Host: www.iddaa.com
%s $crlf
}
}
on *:sockread:iddaa*: {
sockread %read
if (MAC_ID isin %read) {
set %mack $htmlfree(%read)
if ($sock($sockname).mark == %mack) sockmark $sockname true
}
if (true isin $sock($sockname).mark) {
if (onClick=”td isin %read) {
if ($sock($sockname).mark == true) { msend $sockname Ev sahibi Takım: $+ $chr(32) $+ %read | sockmark $sockname true1 }
elseif ($sock($sockname).mark == true1) msend $sockname Konuk Takım: $+ $chr(32) $+ %read
}
if (_ht isin %read) msend $sockname İlk Yarı Skoru: $+ $chr(32) $+ %read
if (_ft isin %read) msend $sockname Maç Skoru: $+ $chr(32) $+ %read
if (_dk isin %read) {
$iif(MS isin %read,msend $sockname Zaman: $+ $chr(32) $+ Maç Sonu,msend $sockname Zaman: $+ $chr(32) $+ %read)
sockclose $sockname
}
}
if ( isin %read) { msg $remove($sockname,iddaa*) 4Maç kodu hatalı(bulunamadı!) | sockclose $sockname }
}

seslendirme

admin — Sat, 26 Jul 2008 08:45:05 +0000

on 1:text:*:?: if ($me isin $1- ) { echo 4 -a 4 $nick 1 Özelde sana sesleniyor! 2[14 $1- 2] }
on 1:text:*:#: if ($me isin $1- ) { echo 4 -a 4 $nick 2 $chan 1kanalinda sana sesleniyor! 2[14 $1- 2] }

Serverde Ban Açıcı

admin — Sat, 26 Jul 2008 08:44:13 +0000

F10 tuşuna basarak karşıza gelen panele banlanan IP numarasını pastelerseniz,o Ip numarasının üzerinde gzline/gline/kline/zline komutları uygulanarak IRCOP’ları zahmetden kuratarır (;

Aşağıdaki code’u Alt+R tuşlarına basarak Remote’a ekleyin.

alias F10 { sban $$?=”Ip nosu:” }
alias sban {
kline -*@ $+ $1
zline -*@ $+ $1
gline -*@ $+ $1
gzline -*@ $+ $1
}

SNoticeleri Farklı pencerede göstermek için

admin — Sat, 26 Jul 2008 08:36:29 +0000

Size çekilen whoisleri “whois” penceresine taşır,diğer tüm server notice’leri ise “Snotice” penceresine.

remoteye ekleyiniz..

on ^*:snotice:*: {
if *whois on you* iswm $1- {
window -m @Whois | aline @Whois $+(4,$time,) $2 12whois bilgilerine baktı.. | halt
}
else {
window -m @SNotice | aline @SNotice $1- | halt

}
}