| Goemon | 08 Kasım 2015 13:49 |
Cevap: Kanala Girip Çıkanlar Gözükmesin
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a Ait Kodlar İstemiş Olduğun Kodlar Forumda Sürüsüne Bereket Araştırırsanız İyi Olur. Kod:
alias joinpart { window $+(@,$1) | echo -ct $2 $+(@,$1) * $+($3,:) $4 $+($chr(40), $token($address($4,5),2,33), $chr(41)) $5 }
on ^*:join:#:{ joinpart # join Giriş $nick }
on ^*:part:#:{ joinpart # part Part $nick (Part) }
on ^*:quit:{
tokenize 32 $regsubex(z,$str(.,$comchan($nick,0)),/./g,$comchan($nick,\n) $chr(32))
joinpart $* quit Çıkış $nick (Quit)
}
Açılan kanal giriş çıkışlarını gösteren pencerelerde sonda (Ban) seçeneği var. Çift tıkladığında mode #kanal +b Nick uygular. Buna göre yeni özellikler ekleyebilir ve geliştirebilirsin. Kod:
alias joinpart { window $+(@,$1) | echo -ct $2 $+(@,$1) * $+($3,:) $4 $+($chr(40), $token($address($4,5),2,33), $chr(41)) $5 (Ban) }
on ^*:join:#:{ joinpart # join Giriş $nick }
on ^*:part:#:{ joinpart # part Part $nick (Part) }
on ^*:quit:{
tokenize 32 $regsubex(z,$str(.,$comchan($nick,0)),/./g,$comchan($nick,\n) $chr(32))
joinpart $* quit Çıkış $nick (Quit)
}
on $^*:hotlink:/\x28Ban\x29$/S:@:return
on $*:hotlink:/\x28Ban\x29$/S:@:mode $token($active,1,64) +b $token($hotline,4,32)
Bu kanalın adını döner: $token($active,1,64) Bu da Nicki döner: $token($hotline,4,32)
Çift tıklamada yapacağın özellikleri bunları baz alarak yaparsın. İyi forumlar. Sonuç: Kod:
[21:23] * Part: guest4827 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Part) (Ban)
[21:24] * Giriş: DiLaNaz (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Ban)
[21:24] * Giriş: yakışıklı_007 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Ban)
[21:24] * Çıkış: alican (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Quit) (Ban)
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ait Code Kod:
alias oflags {
if $1 === O return IRC Operatör
if $1 === o return Local Operatör
if $1 == C return Technical Administrator
if $1 === A return Server Administrator
if $1 === a return Services Administrator
if $1 == N return Network Administrator
}
on ^1:SNOTICE:*:{
if (whois isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }
echo 12 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is $1- | halt
}
if (his/her isin $1-) || (Failed isin $1-) || (Denied isin $1-) || (tkl isin $1-) || (Q: isin $1-) || (used isin $1-) || (OperOverride isin $1-) || (Mismatch: isin $1-) || (GECOS isin $1-) || (warning isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
echo 12 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1- | halt
}
if (Locops isin $1-) || (activated isin $1-) {
if ($window(@UyarI) == $null) { window -ne @UyarI }
echo 12 -t @UyarI $1- | halt
}
if (added isin $1-) || (Received isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
echo 12 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1- | halt
}
if (removed isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
echo 4 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1- | halt
}
if (banned isin $1-) {
if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis }
echo 12 -t @Giris/Cikis $1- | halt
}
if (Connecting isin $1-) {
if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis }
echo 12 -t @Giris/Cikis $1- | halt
}
if (exiting isin $1-) || (recvQ isin $1-) {
if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis }
echo 4 -t @Giris/Cikis $1- | halt
}
if (Forbidding isin $1-) || (Q:lined isin $1-) {
if ($window(@Q-Lined) == $null) { window -ne @Q-Lined }
echo 12 -t @Q-Lined $1- | halt
}
if (Expiring isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
echo 12 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1- | halt
}
if ([Spamfilter] isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
echo 12 -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1-
halt
}
if (is now isin $1-) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(4,$1) $+(12,$3) 5ID'ini Kullanarak Oper Oldu :12 $oflags($remove($right($1-,3),$chr(40),$chr(41))))
halt
}
}
Örnekler mIRC Giriş Çıkışlarda Tek Tıkla Gline Atma
Network Penceresinde Giriş Çıkış Yapanların IP sine Tıklama ile Gline Atıyor. Kod:
on ^&*:SNOTICE:*:{
if *client*exiting* iswm $1- {
$iif(!$window(@Giris/Cikis),window -en @Giris/Cikis,echo 4 -t @Giris/Cikis Çıkış : $1- )
halt
}
if *Connecting* iswm $1- {
$iif(!$window(@Giris/Cikis),window -en @Giris/Cikis ,echo 3 -t @Giris/Cikis Giriş : $1- )
break
}
}
on ^*:HOTLINK:*.*.*:*:{
if @Giris/Cikis == $window($active) {
return $1
}
Break
}
on *:HOTLINK:*.*.*:*:{
if @Giris/Cikis $window($active) {
titlebar Kline : $+([,$gettok($1-,2,$asc(@)),])
.Kline $+(*@,$gettok($1-,2,$asc(@)))
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Break
}
Mirc Giriş Çıkış Renklendirme Addonu Kod:
on *:text:*:#:{
if $chan !== $null && admin_* iswm $nick || supervisor_* iswm $nick || csop_* iswm $nick || sysop_* iswm $nick || globaldesk_* iswm $nick || superdesk_* iswm $nick {
if $1 == !gops {
gopsolay $nick $chan
}
}
}
alias gopsolay {
echo -a 4#3› 5 $+ $1 4, 5 $+ $2 1kanalından size titreşim attı
.j $chan
dll dll\nudge.dll nudge 0
splay $mircdirsounds\nudge.wav
}
alias vspoof {
if ($1 != -halt) { window -h $+(@,vspoof.,$cid) | .debug -in $+(@,vspoof.,$cid) vspoof.int | $iif($1-,set,unset) $+(%,vspoof.str.,$cid)) $1- }
if ($1 == -halt) { unset $+(%,vspoof.*.,$cid) | window -c $+(@,vspoof.,$cid) }
}
alias vspoof.int {
tokenize 32 $1
if ($($+(%,vspoof.n.,$cid),2)) { .ignore -rt $v1 | unset $+(%,vspoof.n.,$cid) }
if ($1 == <-) && ($5 == :VERSION) {
tokenize 32 $right($gettok($2,1,33),-1) $4 VERSION
var %vspoof.d 20
while (%vspoof.d) { if ($address($1,%vspoof.d) isignore ctcp) { return } | dec %vspoof.d }
.ignore -t $1
set $+(%,vspoof.n.,$cid) $1
if (!$istok(#.&,$left($2,1),46)) { linesep -s }
echo -c ctcp $iif($istok(#.&,$left($2,1),46),$2) $+([,$1,$iif($v1,$+(:,$2))) $3 $+ ]
if (!$istok(#.&,$left($2,1),46)) { linesep -s }
if ($($+(%,vspoof.str.,$cid),2)) { .ctcpreply $1 $3 $v1 }
}
}
ctcp 1:version:*:{
;ctcpreply $nick version 12mIRC:5 $version 12System: 5Win $os 12Script:5 mIRC
vspoof MT Global v2.1
}
on ^*:join:#: { echo # 10« $+ $time $+ » • Giriş : $nick ( $+ $address $+ ) | halt }
on ^*:part:#: { echo # 2« $+ $time $+ » • Çıkış : $nick ( $+ $address $+ ) | halt }
on ^*:quit: {
var %m 1
while %m <= $comchan($nick,0) {
dll WhileFix.dll WhileFix .
echo $comchan($nick,%m) 14« $+ $time $+ » • Quit : $nick ( $+ $address $+ ) ( $+ 14Sebep : $1- $+ )
inc %m
}
halt
}
on ^*:rawmode:#: {
echo # 3« $+ $time $+ » • Mode : $nick mode değiştirdi $1 $2-
haltdef
}
on ^*:nick: {
if $nick == $me {
echo 6 -ta Nickiniz suan $newnick olarak değiştirildi.
}
else {
var %m = $comchan($newnick,0)
while %m { echo 6 -m $comchan($newnick,%m) « $+ $time $+ » • Nick : $nick nickini $newnick olarak değiştirdi | dec %m }
}
haltdef
}
on ^*:kick:#: {
haltdef
if ($me ison $chan) { .echo 3 -m # « $+ $time $+ » • Kick : $knick , $nick Tarafından Atıldı Sebep: ( $+ $1- $+ ) }
if ($knick == $me) {
if %muzikcalsinmi {
.splay $mircdirsounds/kick.wav
}
set %kchan $chan | .echo 3 -as « $+ $time $+ » • Kick : $chan kanalından $nick tarafından atıldın, sebep: ( $+ $1- $+ ) }
}
raw 332:*:{
.haltdef
echo 3 -a « $+ $time $+ » • Topic : ‘ $+ $3- $+ ’
}
raw 333:*:{
.haltdef
echo 3 -m $2 « $+ $time $+ » • Topic : $3 Tarafından $asctime($4) tarihinde yazilmis
.enable #mode
}
on ^*:topic:#: {
haltdef
echo 3 -m # « $+ $time $+ » • Topic : $nick topici değiştirdi: ‘ $+ $1- $+ ‘
}
on ^*:usermode: {
haltdef
echo -a « $+ $time $+ » • Usermode : $1-
Giriş Çıkışlarda IP Gösteren Addon
*** Giriş: Nick (ident@Ipadresi)
*** Part: Nick (ident@ipadresi)
*** Çıktı: Nick (ident@ipadresi) Kod:
#IPGoster on
on *:snotice:*: {
if (Client connecting isin $1-) {
if (!$hget(Giris)) { hmake giris 100 }
hadd Giris $9 $10
}
if (Client exiting isin $1-) {
if !$hget(Giris,$6) { hadd Giris $6 $7 }
}
}
on ^*!:Join:#: {
haltdef
if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(Giris,$nick) }
elseif (!$hget(Giris,$nick)) { set -u3 %gnick $nick | set -u3 %gchan $chan | giris | .timer 1 1 .userip $nick }
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.
on ^*:quit: {
haltdef
var %i = 1, %t = $comchan($nick,0)
while (%i <= %t) {
echo $comchan($nick,%i) $+($chr(3),$color(quit)) $timestamp *** IRC’den Çıktı: $nick $hget(Giris,$nick)
inc %i
}
hdel Giris $nick
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.
raw 340:*: {
haltdef
hadd Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.
on ^*!:Part:#: {
haltdef
if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(part)) $timestamp *** Ayrıldı: $nick $hget(Giris,$nick) }
elseif (!$hget(Giris,$nick)) { set -u5 %pnick $nick | set -u %pchan $chan | cikis | .timer 1 1 .userip $nick }
}
;Bu kod CesuryureK tarafından yapılıp ilkkez mIRC.Net.tr sitesinde paylaşıldı.
alias giris { echo %gchan %gnick $hget(Giris,%gnick) }
alias cikis { echo %pchan %pnick $hget(Giris,%pnick) }
#IPGoster End
on *:Exit: { disable #IPGoster }
raw 381:*: { enable #IPGoster }
Kod:
on !*:join:#:$iif(!$window(@Giris/Cikis),window -ne @Giris/Cikis) | echo -t @Giris/Cikis $nick $+($chr(40),$address,$chr(41)) $chan kanalına girdi.
on !*:part:#:$iif(!$window(@Giris/Cikis),window -ne @Giris/Cikis) | echo -t @Giris/Cikis $nick $+($chr(40),$address,$chr(41)) $chan kanalından, çıkış yaptı.
Kod:
on *:JOIN:#:{ ewindow 0,1 $fulldate 0,6 Join :: $+([,#,]) 0,9 $nick 0,12 $+($chr(40),$address,$chr(41)) | halt }
alias ewindow { if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]sL) { window -g1k0n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s $1- }
on *:part:#:{ ewindow 0,1 $fulldate 0,6 Part :: $+([,#,]) 0,9 $nick 0,12 $+($chr(40),$address,$chr(41)) | halt }
alias ewindow { if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s) { window -g1k0n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s $1- }
|
