|
#cl on
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count
}
if ($window(@Clones)) {
aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane
}
else {
window -ea @clones
aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane
}
}
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
#cl end
|