Forums Scripts & Popups Help.

on *:TEXT:!infoban*:#Kdnk:{
  if (& isin $nick(#,$nick).pnick) {
    if ($read(bans.txt,s,$$2)) {
      .notice $nick ----------Ban Information----------
      .notice $nick Username : $2
      .notice $nick From Channel : $gettok($v1,1,32)
      .notice $nick Issued By : $gettok($v1,2,32)
      .notice $nick Reason : $gettok($v1,5-,32)
      .notice $nick Issued : $asctime($gettok($v1,3,32))
      .notice $nick Expires : $asctime($calc($gettok($v1,3,32) + ($gettok($v1,4,32) * 3600)))
      .notice $nick ----------Ban Information----------
    }
    else { .notice $nick Can't find $$2 in database. }
  }
  else { .notice $nick Sorry, only Kdnk Members have access to that command. }
}

on *:TEXT:!unban*:#Kdnk:{
  if (& isin $nick(#,$nick).pnick) {
    if ($1- == !unban) { .notice $nick Syntax Error: !unban <nick> | halt } {
      if ($read(bans.txt,s,$$2)) { write -ds $+ $2 bans.txt }
      .ban -r $chan $2 
    }
    else { .notice $nick Sorry, only Kdnk Members have access to that command. }
  }
}

 
on *:TEXT:!ban*:#Kdnk:{
  if (& isin $nick(#,$nick).pnick) {
    if ($1- == !ban) { .notice $nick Syntax Error: !ban <nick> <hours> <reason> | halt } {
      write bans.txt $2 $chan $nick $ctime $3 $4-
      if ($read(mplist.txt,s,$nick) >= $3) {
        write -l $+ $readn mplist.txt $nick $calc($v1 - $3)
        .ban -u $+ $calc($3 * 3600) $chan $2
        .timer 1 $calc($3 * 3600) /ban -r $chan $2
        if ($read(mplist.txt,s,$nick) == 0) {
          mode $chan -ao $nick
          .notice $nick You have 0 mps left. You cannot use the !chanban commands anymore.
        }
      }
      else { .notice $nick Sorry, you do not have enough points. }
    }
    else { .notice $nick Sorry, only Kdnk Members have access to that command. }
  }
}

on @*:UNBAN:#Kdnk:{
  if ($read(bans.txt,s,$$2)) { write -ds $+ $2 bans.txt }
}