Aylık Arşiv Ocak, 2008
19 Sayfa: « Ä°lk Sayfa ... « 14 15 16 [17] 18 19 »Mass (Toplu) Kodları
PerÅŸembe, Ocak 24th, 2008
Toplu işlem yapabilmenizi sağlayan pratikliği amaçlayan kodlar;
massmsg {
set %msg $$?=”Mass msg girin?”
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
else { .msg $nick(#,%people) %msg }
inc %people
if ($nick(#,%people) == $null) { […]
IP’ye Tıklayarak K:line Atmak
PerÅŸembe, Ocak 24th, 2008on ^1:SNOTICE:*:{
if (exiting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 4 -t @Giris/Cikis Çıkış : $1- | halt
}
if (Connecting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 3 -t @Giris/Cikis GiriÅŸ : $1- | halt
}
halt
}
on ^1:HOTLINK:*.*.*:*:{
if ( $active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,2)
return $1
}
}
halt
}
on *:HOTLINK:*.*.*:*:{
if ($active = […]
Pagerank Sorgulama
Perşembe, Ocak 24th, 2008Kod hakkında bilgiler;
; Bu Satırdan sonra yapıcağınız değişiklikler çalışmamasına sebep olabilir
; PR DeÄŸerleri PageRank.Gen.TR’den Alınmaktadır
; www.mIRCDb.Com / www.mIRCCafe.Net
; CipriXCem@GmaiL.Com
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
on *:sockopen:pr:{
sockwrite -n $sockname GET /pagerank-sorgula/ $+ %site HTTP/1.1
sockwrite -n $sockname Host: pagerank.gen.tr $+ $crlf $+ $crlf
}
on *:sockread:pr:{
var %prdeger
sockread %prdeger
if (<br><h2> isin […]
Oto Nick Identify
PerÅŸembe, Ocak 24th, 2008Otomatik nick identify;
–
on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick
== nickserv ) /dialog -m sifre sifre }
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }
dialog sifre {
title “Åžifre Paneli”
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text “Nick Degistir:”, 4, 10 22 33 10
text “Sifre Gir: […]
Tüm Kanallardan Çıkmak
Perşembe, Ocak 24th, 2008Bulunduğunuz tüm kanallardan tek komut ile çıkmanızı sağlar.
Kullanımı: /hopall
–
alias hopall { if !$dde(mirc, channels) { !.echo -a >!<Herhangi bir kanalda deÄŸilsin }
else { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) | !.part %channels | !.join -n %channels }
}
–
