on *:join:#: { if $nick == $me && !$ialchan(#) { .ial on | who # } | else { bak $nick } }
alias bak {
who $1
 if $ialchan($+(*,$gettok($address($1,2),2,64),*),$active,0) < 2 { halt }
  else { var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$active,0)
  while %% <= %&& { var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$active,%%),1,33),44)
  inc %%
  }
 echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Klon:,$chr(32),$chr(40),$chr(32),
 $chr(2),$calc(%% -1),$chr(2),$chr(32),$chr(41),$chr(32),Adres:,$chr(32),$chr(40),$chr(2),
 $chr(32),%&,$chr(2),$chr(32),$chr(41),$chr(32),Nickler:,$chr(32),$chr(40),$chr(32),
 $chr(2),%%-,$chr(32),$chr(2),$chr(41))
}
}
Ekleyen:Teufel
Yorum Yapın
Yorum yapabilmek için giriş yapmalısınız.
