Aylık Arşiv Ocak, 2008
19 Sayfa: « Ä°lk Sayfa ... « 13 14 15 [16] 17 18 19 »Ãœlke - Åžehir Bulucu
PerÅŸembe, Ocak 24th, 2008
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: […]
Günlük Fal Yorumlayıcı
PerÅŸembe, Ocak 24th, 2008;Günlük Fal addonı, kodlayan: ‘el33t’
;Günlük falınıza bakmak için “/günlükfal” yazınız, ya da popupslardaki Günlük Fal’a tıklayınız.
on *:LOAD:echo 12 -st > Günlük Fal addonını yüklediniz. “/günlükfal” yazarak yada popupslardaki Günlük Fal’a tıklayarak falınıza bakabilirsiniz.
menu status,menubar,channel {
-
Günlük Fal:günlükfal
}
alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | […]
Clone Koruması
PerÅŸembe, Ocak 24th, 2008Kanala girdiÄŸi tespit edilen clone’lar @clone isimli pencerede gösterilir,
bu pencere üzerinde tek tıklama ile cloneları atabilirsiniz;
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 2 ) {
var %count = 1
set %clone.nicks –>
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count
}
c.yaz 4Clone Tesbit Edildi %clones tane: Kanal: # Nickler: 3 $remove(%clone.nicks,–>) 4Ceza: K-Ban Gline }
}
alias C.yaz { if !$window(@clone) { window @clone } | aline @clone $1- }
on ^*:HOTLINK:*GLine*:@clone: return
on ^*:HOTLINK:*K-Ban*:@clone: […]
Badnick Koruması
Perşembe, Ocak 24th, 2008Badnick Koruması;
Kodlayan:Â KiLL
on *:join:#:{
if (anas isin $nick) || (anan isin $nick) || (sike isin $nick) || (soka isin $nick) || (siki isin $nick) || (evli isin $nick) || (got isin $nick) || (yarak isin $nick) || (yarrak isin $nick) || (orus isin $nick) || (oros isin $nick) || (kont isin $nick) || (gay isin $nick) || (lez […]
Balon Uyarı Sistemi
PerÅŸembe, Ocak 24th, 2008alias ppop {
if ($1 == -q) {
tokenize 32 [ [ $var(%ppop.queue.*.*:*,1) ] ]
var %ct = $gettok($var(%ppop.queue.*.*:*,1),4,46)
unset $var(%ppop.queue.*.*:*,1)
}
else { var %ct = $asctime(H:nn:ss) }
tokenize 1 $strip($1-)
var %h = $wrap($2,Tahoma,11,$calc(%ppop.width -14),0),%w = $calc(%h *14+55),%t = $width($1,Tahoma,11,1),%s = $1,%u = $2,%x,%y,%gh
if ($1 != -q) && ($window(@ppop)) {
set $+(%,ppop.queue.,$ticks,$rand(10000,99999),.,$asctime(H:nn:ss)) $+(%s,,%u)
drawtext -rbp @ppop %ppop.color.bg %ppop.color.border “Small Fonts” 8 1 0 […]
