Kod

on *:input:#: {
  if ($regex($1,/^[!.]h[öo]stekle$/Si)) {
    if (!$2) { msg # hatalı kullanım host belirtin. | return  }
    else if $read(host.txt,w,$+(*,$2,*)) { msg # Daha önce eklenmiş | return }
    else {
      write host.txt $2 
    msg # host eklendi. }
  }
  if ($regex($1,/^[!.]h[öo]stsil$/Si)) {
    if (!$2) { msg # hatalı kullanım host belirtin. | return }
    else if !$read(host.txt,w,$+(*,$2,*)) { msg # tanıma uygun host bulunmuyor. | return }
    else {
      write $+(-dl,$readn) host.txt
    msg # host silindi. }
  }
}
on *:join:#: {
  set %host $ial($nick,1).host
  set %Kod $deltok(%host,1,46)
  set %Mylife $deltok(%Kod,1,46)
  if !$window(@Giris) { window -ntm @Giris }
  if ($nick != $me) {
    if $read(host.txt,w,$+(*,%Mylife,*)) {
    echo -m @Giris Kullanıcı girişi: $nick IPAdresi: %Mylife }
  }
  unset %host
  unset %Kod
  unset %Mylife
}