IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

alias h.s { dialog -m hhst hhst }

dialog hhst {

  title "x"

  size -1 -1 200 265 

  button "Tamam", 1, 110 200 70 20,ok

  button "Ekle", 6, 20 200 70 20

  list 2, 10 20 180 135, sort  

  edit "", 4, 10 165 180 20, autohs

  box "Host Adresi", 3, 5 5 190 145

  box "Eklenecek Host`u Girin", 5, 5 150 190 45

  box "BILGI:", 7, 5 225 190 35 

  text "Host Silmek icin Host`a Cift Tıklayın", 8, 25 240 180 45  

}

on *:dialog:hhst:dclick:2:{ .ruser $did(2).seltext  | did -d hhst 2 $did(2).sel }

on *:dialog:hhst:sclick:6:{ if ($did(4) != $null) { did -a hhst 2 $did(4) | .auser hst $did(4) | did -fr hhst 4 } }

on *:dialog:hhst:init:*:{ 

  y.hst | did -f hhst 4

}      

alias y.hst {

  did -a hhst 2 $str($chr(160),18) Host Listesi

  var %x = 1

  while (%x <= $ulist(*,hst,0)) { 

    did -a hhst 2 $ulist(*,hst,%x)

    inc %x 

  }

}

on *:join:#kanal: {  if $level($gettok($address($nick,2),2,64)) == hst { mode $chan +b $nick   | kick $chan $nick yasak host } }

/h.s seklınde calısır
ekler silersin. *sohbet* | *sohbet | sohbet* | sohbet