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

Kod:

 

 

özelküfür 

alias -l _öuser { .guser özelküfür $1 $+ !*@* } 

alias -l _rbuser { .ruser özelküfür $1 3 } 

alias -l _luser { dialog -m _özelküfür _özelküfür } 

alias -l _ölist { 

  did -r _özelküfür 11 

  var %_btotal = $ulist(*,özelküfür,0) , %_b = 0 

  while (%_b < %_btotal) { 

    inc %_b 

    did -a _özelküfür 11 $ulist(*,özelküfür,%_b) 

  } 

} 

dialog _özelküfür { 

  title "özel küfür List" 

  size -1 -1 150 110 

  option dbu 

  text "özel küfür ( Ekle / Sil )" , 10 , 10 5 95 10 , left 

  combo 11 , 10 15 95 85 , extsel sort autohs autovs 

  edit "" , 12 , 10 95 95 10 , read autohs 

  button "Ekle" , 20 , 115 35 30 20 , default 

  button "Sil" , 30 , 115 60 30 20 , default 

  button "Tamam" , 40 , 115 85 30 20 , ok 

} 

on *:dialog:_özelküfür:init:*: { 

  _ölist 

} 

on *:dialog:_özelküfür:sclick:*: { 

  if ($did == 20) { 

    if ($did(11).text != $null && $level($did(11).text) != özelküfür) { 

      var %_badd = $did(11).text 

      .auser özelküfür %_badd 

      _ölist 

      did -o $dname 12 1 %_badd Özel Küfür Liste'e Eklendi... 

    } 

    elseif ($level($did(11).text) == özelküfür) { did -o $dname 12 1 Özel Küfür Liste Zaten var... } 

  } 

  if ($did == 30) { 

    if ($did(11).text != $null && $level($did(11).text) == özelküfür) { 

      var %_brem = $did(11).text 

      .ruser özelküfür %_brem 

      _ölist 

      did -o $dname 12 1 %_brem özel küfür'ten Silindi... 

    } 

    elseif ($level($did(11).text) != özelküfür) { did -o $dname 12 1 Bos kalsın Burası... } 

  } 

} 

menu status,menubar,nicklist { 

  - 

  Özel Küfür Listesi. { _luser } 

}

Kod:

#özelküfür on

Buraya Bir Şey Eklenecek Ama Benim Ayarlaya Bileceğim Şekilde Kick Ban Msg Olabilir Notice de Veya /msg #kanal measaj gibi bir şey nasıl olacaksa ?

#özelküfür end