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

Kod:

alias notekle {

  var %not = $input(Notunuzu girin:,N,Not Defteri)

  if (%not != $null) {

    write notlar.txt %not

    msg #kanal Notunuz kaydedildi.

  }

  else {

    msg #kanal Not kaydedilmedi.

  }

}
 

alias notlist {

  var %notlar = $read(notlar.txt)

  if (%notlar != $null) {

    msg #kanal Notlarınız:

    var %i = 1

    while (%i <= %notlar) {

      var %not = $read(notlar.txt,%i)

      msg #kanal $chr(2)%i.$chr(2) %not

      inc %i

    }

  }

  else {

    msg #kanal Kayıtlı not bulunamadı.

  }

}
 

alias notoku {

  var %not_sira = $1

  var %not = $read(notlar.txt,%not_sira)

  if (%not != $null) {

    msg #kanal $chr(2)%not_sira.$chr(2) %not

  }

  else {

    msg #kanal Belirtilen not numarası bulunamadı.

  }

}
 

alias notsil {

  var %sil_sira = $1

  var %not = $read(notlar.txt,%sil_sira)

  if (%not != $null) {

    write -dl notlar.txt %sil_sira

    msg #kanal Not silindi: %not

  }

  else {

    msg #kanal Belirtilen not numarası bulunamadı.

  }

}

!notekle
!notsil
!notlist (notları kanala yazdırır)
!notoku sıra no !notoku 3 kullanma şeklidir