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

Normalde mIRC Scripting alanında bölümümüz yok ama konular boşa gitmemesi açısından "mIRC Scripting Kodları" olarak bölüm açtım. Yalnız kod içerisinde site ismi olmasın.

Paylaşım için teşekkürler. Konular uygun bölüme taşınmıştır.