alias tarama { dialog -m tarama tarama } dialog tarama { title “Muhabbet Script Taramalar 2007” size -1 -1 188 123 option dbu button “? Away Tara ?”, 1, 5 61 177 12, default flat multi button “? Clone Tara ?”, 2, 5 75 177 12, default flat multi button “? IRCop Tara ?”, 3, 5 89 177 12, default flat multi icon 4, 6 6 174 49, C:\Documents and Settings\samettt\Desktop\image copy.jpg, 0 button “Tamam/Kapa”, 5, 72 106 44 13, ok cancel } on 1:dialog:tarama:sclick:1:{ awaytara #$$?=”Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:” } on 1:dialog:tarama:sclick:2:{ clonetara #$$?=”Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:” } on 1:dialog:tarama:sclick:3:{ ircoptara } —
alias ircoptara {
.unset %ircop
$iif(!$window(@Ircop),window @ircop)
echo @ircop 7~ 2Ircop Listesi7 ~
.enable #ircoptara
who 0 o
}
#ircoptara off
raw 352:*:{
$iif(!$window(@Ircop),window @ircop)
inc %ircop
echo @Ircop %ircop – $6 – $4
}
raw 315:*:{
.disable #ircoptara
unset %ircop
echo @Ircop 7~ 2Ircop Listesi Sonu7 ~
}
#ircoptara end
—
alias clonetara {
if ($1) {
write -c clone.txt
.enable #clonetara
who $1
}
else { echo -a 4Kanal Yaz! }
}
#clonetara off
raw 352:*:{
if ($read(clone.txt,w,$+(*,$4,*))) {
var %i $read(clone.txt,w,$+(*,$4,*))
write $+(-dw,$+(*,$4,*)) clone.txt
write clone.txt $gettok(%i,1,$asc(-)) $6 – $4 – $calc($numtok($gettok(%i,1,$asc(-)),32) +1)
}
else { write clone.txt $6 – $4 – 1 }
}
raw 315:*:{
var %i 1
$iif(!$window(@clonelar),window @Clonelar)
echo @Clonelar ~ Clone Listesi ~
while %i <= $lines(clone.txt) {
if 1 == $($gettok($read(clone.txt,%i),-1,$asc(-)),2) { write $+(-dl,%i) clone.txt }
else { echo @Clonelar $read(clone.txt,%i) Tane }
inc %i
}
echo @Clonelar ~ Clone Listesi Sonu ~
.disable #clonetara
}
#clonetara end
alias awaytara {
if ($1) {
.unset %away
$iif(!$window(@Awaylar),window @Awaylar)
echo @Awaylar 7~2 Away Listesi7 ~
.enable #awaytara
who $1
}
else { echo -a 4Kanal Yazmadınız! }
}
#awaytara off
raw 352:*:{
if (G isin $7) {
$iif(!$window(@Awaylar),window @Awaylar)
inc %away
echo @Awaylar %away – $6
}
}
raw 315:*:{
.unset %away
echo @Awaylar 7~2 Away Tarama Sonu7 ~
.disable #awaytara
}
#awaytara off
Kullanımı : /tarama yazmanız yeterlidir.
Umarım işinize yarar.
Not: Resim Yolunu (icon) değiştiriniz. Çakışma olabileceği sebebi ile Code’leri ayrı ayrı pencerelere yapıştırırsanız sorun olmayacaktır.
Yapımcısı : Benim ( sadece dialog konusunda ) Code’lerin sahiplerini bılmıorum.
Yorumlar