on *:Text:$(* $+ $me $+ *):?:{ 
if ($active == $nick) { goto son }
if (afethoca == $nick) { goto son } 
echo -a *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+  özelinde senden bahsediyor : " $1- " 
:son 
} 
on *:Text:$(* $+ $me $+ *):#:{ 
if ($active == $chan) { goto end } 
if (afethoca == $nick) { goto son }
echo -a *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+  $chan kanalında senden bahsediyor : " $1- " 
:end 
}

on 1:open:?:*: { 
if ($address($nick,2) != $null) { qc $nick } 
else { set %ial query | who $nick } 
} 
alias qc { 
unset %qc* 
if ($ial($address($1,2) , 0) < 2) { echo $1 $1 Ip adresi: $address($1,2) Clone Bulunamadı | halt } 
:başla 
inc %qc 
if ($ial($address($1,2) , %qc ).nick == $1) { goto başla } 
if ($ial( $address($1,2) , %qc ).nick == $null) { goto son } 
set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick 
goto başla 
:son 
if %qc [ $+ [ $1 ] ] == $null halt 
echo $1 14[0,4 UYARI 14,0]  $1  ile " $+ %qc [ $+ [ $1 ] ] $+ " AYNI Cafeden Veya Ayni KisiLer $address($1,2) 
unset %qc* 
} 
on ^*:close:?: { unset %cfnd [ $+ [ $target ] ] } 
alias query { /query $1 | $qc($1) }

#join-part on
on ^*:join:#: {
if (%exjoin == $null) { set %exjoin 3<join3> }
if ($nick != $me) && (%exjoin1 == $null) { echo $chan $timestamp 4-»» 7 Giriş: 4 $+ $nick $+ 10 ( $+ $address $+ )
updatenl
haltdef
}
}
on ^*:part:#: {
if (%çıkış1 == $null) { set %çıkış1 [on] } 
if (%çıkış == $null) { set %çıkış 14<part14> } 
if (%çıkış1 == [on]) { echo $chan $timestamp 3««- Çıkış: 3 $+ $nick $+ 14 ( $+ $address $+ )
haltdef
updatenl
}
}
#join-part end