Bir başka WordPress blogu.
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
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 (*<td width=”271″ class=”red” valign=”top”><a href=”film_ozetbilgiler.aspx* iswm %-) || (*<td width=”391″><a href=”film_ozetbilgiler.aspx?FilmID=*”><img src=”images/but_git.gif”* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src=”images/but_os.gif”* iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+(,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler),) }
elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } }
}
}
raw 401:*: { msg #nerden $2 : Nick’i online degil! }
alias nerden {
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.
/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
}
/*
Kullanımı:
Kanalda;
Devamını oku »
/*
Kullanımı:
Kanalda;
!iddaa mackodu
yazıldığında,yazan kişinin özeline
maç koduna ait maçın bilgileri
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] }
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 (;
Size çekilen whoisleri “whois” penceresine taşır,diğer tüm server notice’leri ise “Snotice” penceresine.
Bu Site www.dearshell.net internet hizmetlerince Host Edilmektedir..