mIRC Scripte Not Ekleme

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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