!writeme <times> command for Murphy v1.0

ON !*:TEXT:!writeme &:#: {
  tokenize 32 $strip($1-)
  if (!$2) { .msg $chan ( $+ $nick $+ ): Error, Please specify a digital number! | return }
  if (!$isdigit($2)) { .msg $chan ( $+ $nick $+ ): Error, Please specify an correct digital number! | return }
  var %f = test.txt
  var %t = $2
  var %i = 1
  while (%i <= %t) { write $qt(%f) $nick | inc %i }
  .msg $chan ( $+ $nick $+ ): Your nickname has been written $qt($2) times on $qt(%f) file.
}

alias isdigit {
  if (!$1) { return 0 }
  if ($regex($1,^\d+$)) { return 1 }
  else { return 0 }
}