;(basic) ticket system [PT] v1.0

;!tickets
;!ticket [-ler N,-resp N,-rem N] <solução/duvida>
;!aowner <nick> [nickN]
;!rowner <nick> [nickN]

on *:load:{
  .msg MoshMage Loaded (basic) ticket system [PT] v1.0
  echo -s Loaded (basic) ticket system [PT] v1.0
}

on *:text:!aowner *:#PTscripting:{
  if ($nick isin %towner) {
    if ($0 == 2) {
      set %towner $addtok(%towner,$2,32)
    }
    else {
      if ($0 < 2) {
        notice $nick !aowner <nick> [nickN]
      }
      if ($0 > 2) {
        var %t $0
        var %x 2
        while (%x <= %t) {
          var %n $gettok($1-,%x,32)
          set %towner $addtok(%towner,%n,32)
          inc %x
        }
      }
    }
  }
  msg $chan Ticket Admins: %towner
}
on *:text:!rowner *:#PTscripting:{
  if ($nick isin %towner) {
    if ($0 == 2) {
      set %towner $remtok(%towner,$2,32)
    }
    else {
      if ($0 < 2) {
        notice $nick !rowner <nick> [nickN]
      }
      if ($0 > 2) {
        var %t $0
        var %x 2
        while (%x <= %t) {
          var %n $gettok($1-,%x,32)
          set %towner $remtok(%towner,%n,32)
          inc %x
        }
      }
    }
  }
  msg $chan Ticket Admins: %towner
}

on *:join:#PTscripting:{
  if ($nick != $me) && ($nick !isin %towner) {
    var %x 1
    var %y $nick($chan,0)
    while (%x <= %y) {
      if ($nick($chan,%x) isin %towner) {
        if ($nick($chan,%x).idle < 120) {
          var %isin $addtok(%isin,$nick($chan,%x),32)
          notice $nick($chan,%x) um user chegou :) $nick @ $time / $date
        }
      }
      inc %x
    }
    if (!%isin) {
      msg $chan Bem vindo, $nick $+ . Não há Helpers disponiveis, queira usar o comando !ticket - Obrigado :)
    }
  }
  else {
    if ($ini(ticket.ini,ler,0) > 0) {
      notice $nick Existem $ini(ticket.ini,ler,0) tickets para ler. !ticket -ler N
    }
  }
}

on *:text:!tickets:#PTScripting:{
  notice $nick Existem $ini(ticket.ini,ler,0) tickets para ler. !ticket -ler N
}

on *:text:!ticket *:#:{
  if ($2 != -ler) && ($2 != -resp) && ($2 != -rem) {
    if ($0 < 5) {
      notice $nick That ticket is small, more than 4 words please.
    }
    else {
      writeini ticket.ini ler $+($nick,:,$date,@,$time) $2-
      notice $nick You ticket has been saved, you'll recieve a memo with further instructions.
    }
  }
  else {
    if ($nick !isin %towner) {
      notice $nick -ler e -resp is only available to owners. ignore de 60secs.
      ignore -u60 $nick
      halt
    }
    if ($2 == -ler) {
      if (!$3) || ($3 !isnum) {
        notice $nick there are $ini(ticket.ini,ler,0) tickets to read. !ticket -ler N
      }
      else {
        if ($3 isnum) {
          notice $nick Message from $ini(ticket.ini,ler,$3)
          msg $chan $+(ticket,[,$3,]) $readini(ticket.ini,ler,$ini(ticket.ini,ler,$3))
          notice $nick to answer use !ticket -resp <N> <Solution>
        }
      }
    }
    else {
      if ($2 == -resp) {
        if (!$4) || ($3 !isnum) {
          notice $nick to answer use !ticket -resp <N> <Solution>
        }
        else {
          if ($3 > $ini(ticket.ini,ler,0)) {
            notice $nick there are only $ini(ticket.ini,ler,0) to read. u asked $3
          }
          else {
            notice $nick answering a $ini(ticket.ini,ler,$3)
            var %nick $gettok($ini(ticket.ini,ler,$3),1,58)
            memoserv send %nick (respondido por $nick $+ ) $4-
            notice $nick removing $ini(ticket.ini,ler,$3)
            remini ticket.ini ler $ini(ticket.ini,ler,$3)
          }
        }
      }
      else {
        if ($2 == -rem) {
          if (!$4) || ($3 !isnum) {
            notice $nick Para remover use !ticket -rem <N> [reason]
          }
          else {
            if ($3 > $ini(ticket.ini,ler,0)) {
              notice $nick there are only $ini(ticket.ini,ler,0) $+ . you asked for $3
            }
            else {
              notice $nick removing $ini(ticket.ini,ler,$3) $iif($5,$+(razão,$chr(40),$5-,$chr(41))
              var %nick $gettok($ini(ticket.ini,ler,$3),1,58)
              remini ticket.ini ler $ini(ticket.ini,ler,$3)
              memoserv send %nick your Ticket has been removed by $nick $iif($5,$+($chr(40),$5-,$chr(41))
            }
          }
        }
      }
    }
  }
}