alias flowerslist { if ($dialog(flowerslist)) { dialog -c flowerslist } | dialog -ma flowerslist flowerslist }
dialog flowerslist {
  size -1 -1 295 346, flat
  icon sounds/icon1.ico
  title "Karaliste-Badnick Addon"
  Combo 1, 1 1 240 330
  button "&Ekle", 2, 244 2 50 150 ,flat
  button "&Cikar", 3, 244 155 50 150 ,flat
  button "&Tamam", 4, 244 308 50 38, flat ok
  Check "flowerslist Ac" , 5 , 1 327 241 20, flat
}
on *:dialog:flowerslist:*:*: {
  if ($devent == init) { flowerslist.init }
  if ($devent == sclick) {
    if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | flowerslist.init } }
    if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | flowerslist.init } }
    if ($did == 5) {
      if ($did(5).state == 1) { writeini " $+ $mircini $+ " flowerslist flowerslist on }
      if ($did(5).state == 0) { writeini " $+ $mircini $+ " flowerslist flowerslist off }
    }
  }
}
alias flowerslist.init {
  did -r flowerslist 1
  if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { did -c flowerslist 5 }
  set %ul 1
  while (%ul <= $ulist(*,0)) {
    if ($level($ulist(*,%ul)) == 10) { did -a flowerslist 1 $ulist(*,%ul) }
    inc %ul 1
  }
  unset %ul
}
#karaliste on
on 10:join:#: {
  if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      gzline $nick +1h SEBEP
    }
  }
}
on 10:nick: {
  if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      gzline $newnick +1h SEBEP
    }
  }
}
on 10:text:*:#: {
  if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      gzline $nick +1h SEBEP
    }
  }
}
on 10:notice:*:#: {
  if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      gzline $nick +1h SEBEP
    }
  }
}
#karaliste end
menu nicklist {
  .-
  Karalist-Badnick
  .-
  .Ekle:/.auser 10 $$1 | /echo -a 10 $+ $$1 4Karalisteye Alındı... | /mode # +b $nick | /kick # $nick 10 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 10 Sebebinden Dolayı Yasaklanmıştır... 
  .Çıkar:/.ruser $$1 | /echo -a 10 $+ $$1 4Karalisteden Çıkarıldı...
  .At:mode # +b $$1 | .kick # $$1 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
menu channel {
  .-
  Karalist-Badnick
  .-
  .Ekle:/.auser 10 $$?="Nick Giriniz" | /echo -a 10Karalisteye Alındı...
  .Çıkar:/.ruser $$?="Nick Giriniz" | /echo -a 10Karalisteden Çıkarıldı...
  .Düzenle:/flowerslist | /echo -a 10 $+ $me 4Karaliste Açıldı  
}