kod1;
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 }
-----------
kod2;
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
-----------
kod3;
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
-----------
kod4;
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
