mIRC Hazır Kodları
20 Sayfa: « Ä°lk Sayfa ... « 14 15 16 [17] 18 19 20 »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 […]
Mass (Toplu) Kodları
Perşembe, Ocak 24th, 2008Toplu 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) { unset […]
