@verb #3388:"message" this none this rxdo #3135
@program #3388:"message" this none this
target = this.master
if (callers()[1][3] == #3135)
  if (args[1] == "QUIT")
    target.abandoned = target.abandoned + 1
  elseif (args[1] == "NEW")
    target.dispensed = target.dispensed + 1
  elseif (args[1] == "WON")
    "Note that this verb *will* choke without adequate args:"
    "A 'WON' call requires: #3388:hs_msg('WON', size, minmoves, moves, time);"
    target.completed = target.completed + 1
    "First add to .players, if necessary."
    score = 0
    for x in (target.players)
      if (x[1] == player)
        score = x[3]
        target.players = setremove(target.players, x)
      elseif (time() - x[2] > min(x[3] * 5, 60 * 24) * 3600)
        "Time's up (5 hrs per maze pt), you're off .players!"
        target.players = setremove(target.players, x)
      endif
    endfor
    target.players = {@target.players, {player, time(), score + args[2] * args[2]}}
    "Now, add to .scores if appropriate."
    tobeat = target.scores[args[2]][2]
    "    for x in ({tobeat, args[3], args[4], args[5]})"
    "      player:tell(toliteral(x));"
    "    endfor"
    "    if (((args[3] * 2) > args[4]) && ((tobeat == 0) || (tobeat > ((args[5] * 1000) / args[4]))))"
    if (tobeat == 0.0 || tobeat < tofloat(args[5]) / tofloat(args[4]))
      target.scores[args[2]] = {player, tofloat(args[5]) / tofloat(args[4]), args[4]}
      $msg:mtell("new_hs", args[2])
    endif
  endif
endif
"Last modified by Lao-Tzu (#8084) on Sun Nov 26 09:19:35 2000 MST."
.