Forums Scripts & Popups Help with !commands

on *:text:!cadd *:#: {
  if ($nick isop #) {
    var %r = $read(# $+ commands.txt,ns,$2)
    if (%r) { .msg $chan [ $+ $nick $+ ]: Error, This command $qt($2) is already exist into the database! | return }
    write # $+ commands.txt $2-
    msg $chan /me + Command $2 has been added to the database!
  }
}
on *:text:!cdel *:#: {
  if ($nick isop #) {
    var %r = $read(# $+ commands.txt,ns,$2)
    if (!%r) { .msg $chan [ $+ $nick $+ ]: Error, This command $qt($2) does NOT exist into the database! | return }
    write -dl $+ $readn # $+ commands.txt
    msg $chan /me - Command $2- has been deleted from the database!
  }
}
on *:text:!cedit & *:#: {
  if ($nick isop #) {
    var %r = $read(# $+ commands.txt,ns,$2)
    if (!%r) { .msg $chan [ $+ $nick $+ ]: Error, This command $qt($2) does NOT exist into the database! | return }
    write -l $+ $readn # $+ commands.txt $2-
    msg $chan /me -> Command $2 has been updated!
  }
}
ON *:TEXT:*:#: {
  tokenize 32 $strip($1-,burci)
  if ($read(# $+ commands.txt, nts, $1)) {
    var %com = $v1
    var %com = $replace(%com,@user@,$iif($2,$2,?),@nick@,$nick,@target@,$target)
    if (-ul=mod == $gettok(%com,1,32)) && ($nick !isop $chan) { msg $chan  | return }
    msg $chan $iif(-ul=mod == $gettok(%com,1,32),$gettok(%com,2-,32),$gettok(%com,1-,32))
  }
}

ON !*:TEXT:!cmd:#: {
  var %f = commands.txt
  if (!$isfile(%f)) { msg $chan [ $+ $nick $+ ]: Service Error no command file found | return }
  if (!$lines(%f)) { msg $chan [ $+ $nick $+ ]: There is currently no commands for this channel. | return }

  var %t = $lines(%f)
  var %i = 1
  while (%i <= %t) {
    var %r = $read(%f,nt,%i)
    var %g = $gettok(%r,1,32)
    var %com = $addtok(%com,%g,32)
    inc %i
  }

    var %r = $read(# $+ commands.txt,ns,$2)

  var %f = commands.txt

  var %f = commands.txt

  var %f = # $+ commands.txt