alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }dialog Shitlist {  size -1 -1 295 346  title "Shitlist & Otomatik Ban Sistemi"  Combo 1, 1 1 240 330  button "&Ekle", 2, 244 2 50 22  button "&Çikar", 3, 244 24 50 22  button "Tamam", 4, 244 324 50 22,ok  Check "Shitlist Açık" , 5 , 1 327 241 20}on *:dialog:Shitlist:*:*: {  if ($devent == init) { Shitlist.init }  if ($devent == sclick) {    if ($did == 2) { if ($did(1) != $null) { /.auser Karaliste $did(1) | Shitlist.init } }    if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }    if ($did == 5) {      if ($did(5).state == 1) { writeini " $+ $mircini $+ " Shitlist Shitlist on }      if ($did(5).state == 0) { writeini " $+ $mircini $+ " Shitlist Shitlist off }    }  }}alias Shitlist.init {  did -r Shitlist 1  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { did -c Shitlist 5 }  set %ul 1  while (%ul <= $ulist(*,0)) {    if ($level($ulist(*,%ul)) == karaliste) { did -a Shitlist 1 $ulist(*,%ul) }    inc %ul 1  }  unset %ul}on Karaliste:join:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick | kick $chan $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karalisteart:part:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick    }  }}on Karaliste:nick: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:text:*:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:notice:*:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:action:*:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karalistep:#:op {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:deop:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:voice:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:devoice:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:help:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}on Karaliste:dehelp:#: {  if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {    if ($nick !isop $chan) && ($nick !ishop $chan) {      mode $chan +b $nick  5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.     }  }}