Forums Scripts & Popups If (detection of previous comment)

ON *:INPUT:#: {
  if ($left($1,1) !== $comchar) && (!$ctrlenter) {
    if ($1- == Good morning) { set %last_good_morning $ctime $fulldate }
  }
}

alias last_good_morning {
  if (!%last_good_morning) { echo -a You did NOT said 'Good morning' yet! }
  elseif (%last_good_morning) { echo -a You said 'Good morning' on $gettok(%last_good_morning,2-,32) in $timeago($calc($ctime - $gettok(%last_good_morning,1,32))) . }
}

alias timeago { ; by SReject
  if (!$1) { return 0 }
  if ($1 !isnum) { return 0 }
  var %i = 31557600year, 2592000month, 604800week, 86400day, 3600hour, 60min, 1sec
  set -e %_tas $1
  var %r = $regsubex($regsubex(%i,/(\d+)([a-z]+)/g, $timeago_temp(\1,\2)),^(?:\b0\D+)+,)
  unset %_tas
  if ($prop !== all) { var %r = $gettok(%r,1-2,44) }
  var %ret = $regsubex(%r,/(?:^|\x2c )\b0[^\x2c]+/g,)
  var %ret = $replacex(%ret,years,$chr(32) years,year,$chr(32) year,months,$chr(32) months,month,$chr(32) month,weeks,$chr(32) weeks,week,$chr(32) week,days,$chr(32) days,day,$chr(32) day,hours,$chr(32) hours,hour,$chr(32) hour,mins,$chr(32) minutes,min,$chr(32) minute,secs,$chr(32) seconds,sec,$chr(32) second)
  return $iif(%ret,%ret ago,0)
}
alias timeago_temp { ; by SReject
  var %r = $floor($calc(%_tas / $1))
  dec %_tas $calc(%r * $1)
  return %r $+ $iif(%r == 1, $2, $2s)
}