Çevrimdışı

on *:text:*:?: {
write oku.txt $1-
if ($1 == !oku) { /oku }
if ($1 == !sil) { /sil }
}
alias oku {
var %i 1
var %t $lines(oku.txt)
while %i <= %t {
msg $nick $read(oku.txt,%i)
inc %i
}
}
alias sil {
var %i $lines(oku.txt)
var %t 1
while %t <= %i {
write -d oku.txt %t
inc %t
}
}