ON *:TEXT:!key:*: {
if (%keywait) && (%keywait > $ctime) { return }
var %f = C:\Users\Owner\AppData\Roaming\mIRC\keys.txt
if (!$isfile(%f)) { msg $nick Error: File Not exist! | return }
if (!$lines(%f)) { msg $nick Error: File is empty! | return }
var %r = $read(%f,nt,1)
var %rn = $readn
if (%r) { set %keywait $calc($ctime + 604800) | msg $nick %r | write -dl $+ %rn $qt(%f) }
}