[KraL``]

ip tanıma
#cafeuyar on
on 1:open:?: {
if $address($nick,2) != $null qc $nick
else {
set %ial query
.who $nick
}
}
alias qc {
if ($1 == $null) { goto sons }
unset %qc*
if $ial( $address($1,2) , 0 ) < 2 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
if %qc [ $+ [ $1 ] ] == $null halt
echo $1 12*** 2Özelinizdeki 4 $1 %qc [ $+ [ $1 ] ] 2aynı cafe'den yada aynı kişiler. 4( $+ $address($1,2) $+ )
echo $1 
unset %qc*
}
#cafeuyar end
on *:TEXT:$(* $+ $me $+ *):#:{
if ($active == $chan) { goto son }
echo -a %logo 4UYARI:5 $nick 2 # 5kanalında senden bahsediyor. }

#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




* /goto: 'son' bulunamadı (Satır 32, iptanıma1.mrc StatuSde hep ßu yazı Lutfen yardım eDIn deLı OLCam Ne yaptıySam qıtmıyO ßu yazı :@ deLırdımmmmmm