2E7EA2E0D.A9C3D5DE.6E3AA603.IP

on *:text:*:#kanal {
  if $regex($1,/^[.!]h[oO]st$/Si) {
    if ($2 == $null) { msg $chan $qt($nick) Lütfen Nick Yazınız. }
    else { set %:xb $address($2,4) | //mode #kanal  +b ~q:*!*@ $+ $+(*,$right(%:xb,10)) | unset %:xb  }
  }
}
; Örnek: !host ahmet 
; host adresini alır Buradaki (%:xb,10) 10 rakamı host adresinden sağdan ilk 10 haneyi al demek.. Sen kendince ayarlarsın.
;
-------------------------------------------------
on *:text:*:#kanal {
  if $regex($1,/^[.!]h[oO]st$/Si) {
    if ($2 == $null) { msg $chan $qt($nick) Lütfen Nick Yazınız. }
    else { set %:xbb $address($2,4) |  set %hz $gettok(%:xbb,2-,46) | //mode #kanal  +b $+(~q:*!*@*,%hz)  | unset %:xbb | unset %hz }
  }
}
; Bu ise yine host adresini alır. (.) 2 ci nokta işaretinden sonraki bölümü alır yani (bla.blabla.com)olan hosttan
; (blabla.com) olan kısmı alır
; Tam olarak anlamadım istediğini ama ifade edersen yardımcı oluruz..
--------------------------------------------------
;Buda aynı kodenin can sıkıntısı hali :)
on *:text:*:#kanal {
  if $regex($1,/^[!.](host1|host2|)/i) {
    if ($regml(1) == host1) {
      if (!$2 ) { .msg $chan UYARI: $qt($nick) Lutfen Nick belirtiniz. | return }
      set %:xb $address($2,4) | //mode #kanal  +b ~q:*!*@ $+ $+(*,$right(%:xb,10)) | unset %:xb
    }
    if ($regml(1) == host2) {
      if (!$2 ) { .msg $chan UYARI:  $qt($nick) Lutfen  Nick belirtiniz. | return }
      set %:xbb $address($2,4) |  set %hz $gettok(%:xbb,2-,46) | //mode #kanal  +b $+(~q:*!*@*,%hz)  | unset %:xbb | unset %hz
    }
  }
}

if $strip($1) == !temizle { çalışacak komut  }