Forums Scripts & Popups on HOTLINK

on ^*:hotlink:*:*:{
  var %fnstart = 4, %wordpos = $gettok($hotlinepos, 1, 32)
  if (%wordpos < %fnstart) halt
  if ($regex($hotline, /^\[.+?\] Successfully Received (.*) \[.+?\] from \S+ at \S+ \S+ at \S+$/)) {
    var %fnend = $calc(%fnstart + $numtok($regml(1), 32) - 1)
    if (%wordpos !isnum $+(%fnstart, -, %fnend)) halt
  }
  else {
    halt
  }
}

on *:hotlink:*:*:{
  if ($regex($hotline, /^\[.+?\] Successfully Received (.*) \[.+?\] from \S+ at \S+ \S+ at \S+$/)) {
    ; DO SOMETHING HERE - $regml(1) contains the filename
  }
}

;[UnderNet] Successfully Received Spotted Aluris.png [25.2kB] from Sporeman at 25.2 Kbs at 8:27pm.

on ^*:HOTLINK:*:*:{
  var %r = $sporehotline($1,$hotlinepos,$hotline)
  if (!%r) halt
}

on *:HOTLINK:*:*:{
  var %r = $sporehotline($1,$hotlinepos,$hotline)
  if (%r) echo -a $gettok($hotline,%r,32)
}

alias sporehotline {
  ;$1=$1, $2=hotlinepos, $3=$hotline
  if (!$isid) { echo -a $!sporehotline must be used as identifier | return 0 }

  var %a = $findtok($3,Received,1,32)
  if (!%a) return 0
  inc %a

  var %z = $findtok($3,from,1,32)
  if (!%z) return 0
  dec %z 2

  if ($gettok($2,1,32) isnum $+(%a,-,%z)) return $+(%a,-,%z)
  return 0  
}