ON *:TEXT:!*:#: {
tokenize 32 $strip($1-)
if ($1 == !load) {
if (!$2) { .msg $chan ( $+ $nick $+ ): Error, Please specify a file! | return }
var %f = $mircdir $+ $remove($2,.mrc) $+ .mrc
if (!$isfile(%f)) { .msg $chan ( $+ $nick $+ ): Error, The $qt($2) file does not exist! | return }
if ($check_load(%f)) { .msg $chan ( $+ $nick $+ ): Error, The $qt($2) file is already loaded! | return }
.load -rs $qt(%f)
.msg $chan ( $+ $nick $+ ): The $qt($nopath(%f)) file has been loaded!
}
if ($1 == !unload) {
if (!$2) { .msg $chan ( $+ $nick $+ ): Error, Please specify a file! | return }
var %f = $remove($2,.mrc) $+ .mrc
if (!$check_load(%f).short) { .msg $chan ( $+ $nick $+ ): Error, The $qt($2) file is NOT loaded! | return }
.unload -rs $qt(%f)
.msg $chan ( $+ $nick $+ ): The $qt($nopath(%f)) file has been unloaded!
}
}
alias check_load {
if (!$1) { return }
var %t = $script(0)
var %i = 1
while (%i <= %t) {
var %f = $iif($prop == short,$nopath($script(%i)),$script(%i))
if (%f == $1-) { return 1 }
inc %i
}
return 0
}