Alternatif
-------------------------------------------------------------
;COKLU SUNUCULAR ICIN SESLENME REMOTESI
-------------------------------------------------------------
;UYARIYA-GIT yazan yere tikladiginizda sizin nickinizin gecen yere yonlendirir.
;@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde seslenmelerin kaydini tutar.Mouse ile sag tiklayip nickinizin gecen yere gidebilirsiniz.
;Cumle icinde kendi nickiniz tam olarak yazildiginda calisir.
;KOD BASLANGIC
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias nickim return $+(*,$me,*)
on *:text:$($nickim):*: {
if ($istok($1-,$me,32) && $query($nick) != $active && $window($nick).type == query && !$chan) {
beep | echo -at 2,4[UYARIYA-GIT] $network sunucusunda $nick özelde senden bahsediyor: $1-
window -g2 $window($nick)
}
if ($istok($1-,$me,32) && $chan != $active && $window($chan).type == channel) {
if !$window($+(@,Msg-,$network)) { scid $cid window -aln $+(@,Msg-,$network) }
aline -h $+(@,Msg-,$network) ( $+ $time $+ ) $nick $chan kanalinda size seslendi : $1-
beep | echo -at 2,4[UYARIYA-GIT] $network sunucusunda $nick $chan kanalinda senden bahsediyor: $1-
window -g2 $window($chan)
;if $idle > 1200 { msg $chan $nick : $replace($duration($idle),mins,$chr(32) $+ dakika,min,$chr(32) $+ dakika,hrs,$chr(32) $+ saat,hr,$chr(32) $+ saat,secs,$chr(32) $+ saniye,sec,$chr(32) $+ saniye) süredir bilgisayar basinda degilim. }
}
}
on ^*:HOTLINK:*:*:{ if (*UYARIYA-GIT* iswm $1-) return }
on 1:HOTLINK:*:*:{
var %x = $strip($hotline)
if $regex(%x,/(.+)\[UYARIYA-GIT\](.+) sunucusunda (.+) (.+) kanalinda senden bahsediyor\:(.+)/i) {
var %m = 1
while (%m <= $scon(0)) { var %z = $remove($regml(2),$chr(32))
if %z == $scon(%m).network { scid $scon(%m) window -a $regml(4) | findtext $regml(5) }
inc %m
}
}
if $regex(%x,/(.+)\[UYARIYA-GIT\] (.+) sunucusunda (.+) özelde senden bahsediyor\:(.+)/i) {
var %m = 1
while (%m <= $scon(0)) {
if ($regml(2) == $scon(%m).network) { scid $scon(%m) window -a $regml(3) | findtext $regml(4) }
inc %m
}
}
}
menu @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* {
Bahsedilen Yere Git://tokenize 32 $sline($active,1) | window -a $strip($4) | findtext $10-
}
;KOD BITIS
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:16 -->-> Daha önceki mesaj 19:55 --
hatalar giderildi.
----------------------------------------
;COKLU SUNUCULAR ICIN SESLENME REMOTESI
----------------------------------------
;UYARIYA-GIT yazan yere tikladiginizda sizin nickinizin gecen yere yonlendirir.
;@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde seslenmelerin kaydini tutar.Mouse ile sag tiklayip nickinizin gecen yere gidebilirsiniz.
;
;KOD BASLANGIC
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias -l nickim return $+(*,$me,*)
on *:text:$($nickim):*: {
if ($istok($1-,$me,32) && $query($nick) != $active && $window($nick).type == query && !$chan) {
beep | echo -at 2,4[UYARIYA-GIT] $network sunucusunda $nick özelde senden bahsediyor: $1-
window -g2 $window($nick)
}
if ($istok($1-,$me,32) && $chan != $active && $window($chan).type == channel) {
if !$window($+(@,Msg-,$network)) { scid $cid window -aln $+(@,Msg-,$network) }
aline -h $+(@,Msg-,$network) ( $+ $time $+ ) $nick $chan kanalinda size seslendi : $1-
beep | echo -at 2,4[UYARIYA-GIT] $network sunucusunda $nick $chan kanalinda senden bahsediyor: $1-
window -g2 $window($chan)
;if $idle > 1200 { msg $chan $nick : $replace($duration($idle),mins,$chr(32) $+ dakika,min,$chr(32) $+ dakika,hrs,$chr(32) $+ saat,hr,$chr(32) $+ saat,secs,$chr(32) $+ saniye,sec,$chr(32) $+ saniye) süredir bilgisayar basinda degilim. }
}
}
;
on ^*:HOTLINK:*:*:{ if (*UYARIYA-GIT* !iswm $1-) halt }
on 1:HOTLINK:*:*:{
var %x = $strip($hotline)
if $regex(%x,/(.+)\[UYARIYA-GIT\](.+) sunucusunda (.+) (.+) kanalinda senden bahsediyor\:(.+)/i) {
var %m = 1
while (%m <= $scon(0)) { var %z = $remove($regml(2),$chr(32))
if %z == $scon(%m).network { scid $scon(%m) window -a $regml(4) | findtext $regml(5) }
inc %m
}
}
if $regex(%x,/(.+)\[UYARIYA-GIT\] (.+) sunucusunda (.+) özelde senden bahsediyor\:(.+)/i) {
var %m = 1
while (%m <= $scon(0)) {
if ($regml(2) == $scon(%m).network) { scid $scon(%m) window -a $regml(3) | findtext $regml(4) }
inc %m
}
}
}
menu @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* {
Bahsedilen Yere Git://tokenize 32 $sline($active,1) | window -a $strip($4) | findtext $10-
}
;KOD BITIS