#hostara on

alias arama {

  .hmake Arama

  .hadd Arama Arayıcı $1

  if $1 == $null {

    msg %operkanali Arama Yapmak İçin : $qt(/hostara HOST) Şeklinde Deneyiniz.

    halt

  }

  else {

    msg %operkanali $1 Hostu Aranıyor..

    var %ara 1 

    var %ara2 $ial(*!*@* $+ $1 $+ *,0)

    msg %operkanali Toplam %ara2 Sonuç Bulundu.

    while %ara <= %ara2 {

      msg %operkanali 2Bulunan Sonuçlar : Nick - $gettok($ial(*!*@* $+ $hget(Arama,1).data $+ *,%ara),1,33) , Host - $gettok($ial(*!*@* $+ $hget(Arama,1).data $+ *,%ara),2,64)

      inc %ara

    }

  }

  .hfree -s Arama

}

#hostara end 

 
 
 
on *:text:*:%operkanali: {

  if $nick == $nick {

    if $1 == !host {

      .arama $2

      .msg %operkanali $nick Tarafından " $+ $2 $+ "  Host'unun Taraması Gerceklesmistir. 

    }

  }

}