tellz

on *:TEXT:*:#: {
  if ($1 = .tell) {
    if (!$3) { .msg $chan $nick $+ , you must specify a message for me to relay | return }
    var %x $nick
    var %c $chan
    var %r $2
    var %t $time(HH:nn:ss)
    var %d $adate
    var %a $address($nick,2)
    if ($hfind(tellz,$+([*],%r,[*]),0,w)) { hadd tellz $+([,%a,],%r,[,$calc($hfind(tellz,$+([*],%r,[*]),0,w) + 1),]) $+([,$network,:,%c,]) %d - %t $+(<,%x,>) tell %r $3- | .msg %c %x $+ , I'll pass it on when %r is around. }
    elseif (!$hfind(tellz,$+([*],%r,[*]),0,w)) { hadd -m tellz $+([,%a,],%r,[1]) $+([,$network,:,%c,]) %d - %t $+(<,%x,>) tell %r $3- | .msg %c %x $+ , I'll pass it on when %r is around. }
  }
  if ($1 = .tellhelp) { .msg # .tell is an IRC messaging service designed to relay messages to users who are offline or away. Syntax: .tell <nick> <msg>  Example: .tell Siri example message. This message will be relayed to Siri whenever they say something in a channel I occupy. If you wish to access user functions, query me and type .thelp for a list of commands. If you have any issues, contact orkin.    }
  if ($hfind(tellz,$+([*],$nick,[*]),0,w)) {
    var %x 1
    var %y 2
    while ($hget(tellz,$hfind(tellz,$+([*],$nick,[,%x,]),1,w))) {
      .timer $+ %x -o 1 %y .msg $chan $hget(tellz,$hfind(tellz,$+([*],$nick,[,%x,]),1,w)) | hdel tellz $hfind(tellz,$+([*],$nick,[,%x,]),1,w)
      inc %x
      inc %y 2
    }
  }
}
on *:ACTION:*:*: {
  if ($network = evilnet && $chan = #orkin) {
    if ($hfind(tellz,$+([*],$nick,[*]),0,w)) {
      var %x 1
      var %y 2
      while ($hget(tellz,$hfind(tellz,$+([*],$nick,[,%x,]),1,w))) {
        .timer $+ %x -o 1 %y .msg $chan $hget(tellz,$hfind(tellz,$+([*],$nick,[,%x,]),1,w)) | hdel tellz $hfind(tellz,$+([*],$nick,[,%x,]),1,w)
        inc %x
        inc %y 2
      }
    }
  }
}
on *:TEXT:*:?: {
  if ($1 = .thelp) {
    .msg $nick To view messages sent from $address($nick,2) type .umsgs Note: All messages are indexed by the senders user address (*!*@example.users.undernet.org)
    .msg $nick You can delete a message by typing .umsgs del <msg#> Example: To delete the 3rd message in your outbox, type .umsgs del 3 To delete all outgoing messages, type .umsgs delall
    .msg $nick If you need to redirect an existing message to a new recipient, use .umsgs redir <msg#> <newRecipient>. Example: To redirect the 3rd message in your outbox to Gary, type .umsgs redir 3 Gary
  }
  if ($1 = .umsgs) {
    var %a $address($nick,2)
    if ($hfind(tellz,$+([,%a,],*),0,w)) {
      var %b $v1
      if (!$2) {
        var %x 1
        .msg $nick Listing $+(,%b,) outgoing messages for %a
        var %y 2
        while ($hfind(tellz,$+([,%a,],*),%x,w)) {
          .timer $+ %x -o 1 %y .msg $nick $+(,%x,.) $remove($hfind(tellz,$+([,%a,],*),%x,w),$+([,%a,]),$right($hfind(tellz,$+([,%a,],*),%x,w),3)) $+ $chr(58) $hget(tellz,$hfind(tellz,$+([,%a,],*),%x,w))
          inc %x
          inc %y 2
        }
      }
      if ($2 = del) {
        if (!$3) { .msg $nick Incorrect syntax. Please use .umsgs del <message#> Example: .umsgs del 2 }
        if ($hfind(tellz,$+([,%a,],*),$3,w)) {
          var %q $remove($hfind(tellz,$+([,%a,],*),$3,w),$+([,%a,]),$right($hfind(tellz,$+([,%a,],*),$3,w),3))
          hdel tellz $hfind(tellz,$+([,%a,],*),$3,w)
          .msg $nick Deleted the $ord($3) nessage from your outbox.
          t.order %q
        }
        elseif (!$hfind(tellz,$+([,%a,],*),$3,w)) { .msg $nick Message $chr(35) $+ $3 does not exist. Use .umsgs to view all your outgoing messages. }
      }
      if ($2 = delall) {
        var %z $hfind(tellz,$+([,%a,]*),0,w)
        .msg $nick Deleted %z messages originating from %a
        while (%z) {
          var %q $remove($hfind(tellz,$+([,%a,]*),%z,w),$+([,%a,]),$right($hfind(tellz,$+([,%a,]*),%z,w),3))
          hdel tellz $hfind(tellz,$+([,%a,]*),%z,w)
          t.order %q
          dec %z
        }
      }
      if ($2 = redir) {
        if (!$4 || $3 !isnum) { .msg $nick Incorrect Syntax. Please use .umsgs redir <msg#> <newRecipient> Example: .umsgs redir 3 johnm will redirect the 3rd message in your outbox to johnm. }
        if ($hfind(tellz,$+([,%a,],*),$3,w)) {
          var %b $v1
          var %t $remove($hfind(tellz,$+([,%a,],*),$3,w),$+([,%a,]),$right($hfind(tellz,$+([,%a,],*),$3,w),3)),$4)
          $iif($hfind(tellz,$+([*],$4,[*]),0,w),hadd tellz $+([,%a,],$4,[,$calc($v1 + 1),]) $replace($hget(tellz,%b),$remove($hfind(tellz,$+([,%a,],*),$3,w),$+([,%a,]),$right($hfind(tellz,$+([,%a,],*),$3,w),3)),$4),hadd -m tellz $+([,%a,],$4,[1]) $replace($hget(tellz,%b),$remove($hfind(tellz,$+([,%a,],*),$3,w),$+([,%a,]),$right($hfind(tellz,$+([,%a,],*),$3,w),3)),$4))
          hdel tellz %b
          t.order $4 | t.order %t
          .msg $nick Redirected your $ord($3) message to $4
        }
      }
    }
    elseif (!$hfind(tellz,$+([,%a,],*),0,w)) { .msg $nick The are no messages waiting to be sent from %a }
  }
  if ($nick = orkin || $nick = Alan) {
    if ($1 = .tmsgs) {
      if (!$2) {
        if ($hfind(tellz,*[1],0,w)) {
          var %x $v1
          .msg $nick $+(,%x,) recipients in inbox. Sending list now...
          var %y 2
          while (%x) {
            .timer $+ %x -o 1 %y .msg $nick $remove($hfind(tellz,*[1],%x,w),[1],$left($hfind(tellz,*[1],%x,w),$pos($hfind(tellz,*[1],%x,w),],1))) $+([,$hfind(tellz,$+([*],$remove($hfind(tellz,*[1],%x,w),[1],$left($hfind(tellz,*[1],%x,w),$pos($hfind(tellz,*[1],%x,w),],1))),[*]),0,w),])
            dec %x
            inc %y 2
          }
        }
        elseif (!$hfind(tellz,*[1],0,w)) { .msg $nick No messages currently in my inbox }
      }
      elseif ($2) {
        if ($hfind(tellz,$+([*],$2,[*]),0,w)) {
          var %z 1
          .msg $nick Listing $+(,$v1,) messages for $2
          var %y 2
          while ($hfind(tellz,$+([*],$2,[*]),%z,w)) {
            .timer $+ %z -o 1 %y .msg $nick $+(,%z,.,) $hget(tellz,$hfind(tellz,$+([*],$2,[*]),%z,w))
            inc %z
            inc %y 2
          }
        }
        elseif (!$hfind(tellz,$+([*],$2,[*]),0,w)) { .msg $nick No messages for $2 }
      }
    }
    if ($1 = .telldel) {
      if ($3 isnum) {
        if ($hfind(tellz,$+([*],$2,[,$3,]),1,w)) { hdel tellz $hfind(tellz,$+([*],$2,[,$3,]),1,w) | .msg $nick Deleted $ord($3) message for $2 | .t.order $2 }
        elseif (!$hfind(tellz,$+([*],$2,[,$3,]),1,w)) { $iif($hfind(tellz,$+([*],$2,[1]),1,w),$iif($hfind(tellz,$+([*],$2,[*]),0,w) = 1,.msg $nick $2 only has 1 message to delete. To delete $+ $chr(44) please input .telldel $2 1,.msg $nick $2 doesn't have a $ord($3) message. Please input a number from 1 to $hfind(tellz,$+([*],$2,[*]),0,w)),.msg $nick $2 has no mesages to delete) }
      }
      elseif ($3 !isnum) { halt | .msg $nick Incorrect syntax. Please use .telldel <nick> <msg#> Example: .telldel Alan 1 }
    }
    if ($1 = .tswt) {
      if (!$4) { .msg $nick Incorrect syntax. Please use .tswt <nickswitched> <switchednick> <nickswitched message #> Example: if you want to switch message #1 from Alan to volsfan you would input .tswt Alan volsfan 1. }
      if ($hfind(tellz,$+([*],$2,[*]),$4,w)) {
        hadd -m tellz $+($left($hfind(tellz,$+([*],$2,[*]),$4,w),$pos($hfind(tellz,$+([*],$2,[*]),$4,w),],1)),$3,[,$iif($hfind(tellz,$+([*],$3,[*]),0,w),$calc($hfind(tellz,$+([*],$3,[*]),0,w) + 1),1),]) $replace($hget(tellz,$hfind(tellz,$+([*],$2,[*]),$4,w)),$2,$3)
        hdel tellz $hfind(tellz,$+([*],$2,[*]),$4,w) | t.order $2 | t.order $3
        .msg $nick Sent $ord($4) message for $2 to $3 $+ 's inbox.
      }
      elseif (!$hfind(tellz,$+([*],$2,[*]),$4,w)) { $iif($hfind(tellz,$+([*],$2,[*]),0,w),.msg $nick Inbox entry $chr(35) $+ $4 for $2 does not exist,.msg $nick There are no messages for $2) }
    }
  }
}
alias t.order {
  var %x $hfind(tellz,$+([*],$1,[*]),0,w)
  var %y 1
  while (%y <= %x) {
    var %z $hfind(tellz,$+([*],$1,[*]),%y,w)
    var %w $hget(tellz,%z)
    hadd -m tellz1 %y $remove(%z,$right(%z,3)) $+ $+([,%y,]) %w
    inc %y
  }
  t.write $1
}
alias t.write {
  hdel -w tellz $+([*],$1,[*])
  var %x $hget(tellz1,0).item
  while (%x) {
    hadd tellz $hget(tellz1,%x)
    dec %x
  }
  $iif($hget(tellz1),hfree tellz1)
}
on *:LOAD: { if ($hget(tellz)) { hfree tellz | $iif($isfile(tellz.ini),remove tellz.ini) | hmake tellz 100 | .amsg Rebooted .tell system. All messages have been cleared. | hadd tellz [*!*@orkin.users.undernet.org]orkin[1] $adate - $time(HH:nn:ss) .tell script updated. } }
on *:EXIT: { $iif($hget(tellz,0).item > 0,hsave tellz tellz.ini,$iif($isfile(tellz.ini),.remove tellz.ini)) }
on *:START: { if (!$hget(tellz)) { hmake tellz 100 | $iif($isfile(tellz.ini),hload tellz tellz.ini) } }