on *:text:*:#kontrol:{
  if $1 == !port {
    if !$2 { msg $chan Port belirtin. Portlari 4!portlar komutu ile listeleyebilirsiniz  }
    else {
      if !$read(port.txt,w,$+(*,$2-,*)) { msg # Belirttiginiz port bulunamadi. | return }
      .write acport.txt $2-
      .msg # Port kayit edildi. 
      .msg # $read(acport.txt,*) nolu girisler kapatildi. Durdurmak icin !pstop yazin
    }
  }
  if $1 == !portlar { var %:m = 1 | while %:m <= $lines(port.txt) { msg # %:m - $read(port.txt,%:m) | inc %:m } }
  if $1 == !pstop {
    /msg # Port girisleri durduruldu
    .remove acport.txt

  }
}

on *:snotice:*:{ if *$+ $read(acport.txt)* iswm $8 { gline $+(*@,$gettok($gettok($10,2,64),1,41))  :Sunucu Guvenligi }

} 
}

on *:snotice:*Client connecting on port*: $iif($read(acport.txt,w,$remove($8,:)),gline $+(*@,$token($token($10,2,64),1,41)) +1h Sunucu Güvenliği)

var %:p = 1 | while %:p <= $lines(acport.txt) {
.hadd -ms Port List $hget(Port,List) $read(acport.txt,%:p)
inc %:p
}
msg # $hget(Port,List) Port'ları kapatıldı..