Clone Girisleri Kanala Yansitma
mirc Clone Girisleri Kanala Yansitma kodu mircalem
irc kodu:
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 }
.msg $chan 11,1(0Clone Tespit Edildi11) 13--- 4 %clones Tane 13--- 11(0 $remove(%clone.nicks,-->) 11) 8--- 11(0 $address($nick,2) 11) }
set %change $ read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}