@verb #6052:"lick" this none none rdo #9799
@program #6052:"lick" this none none
if (this.location != player.location)
  return $msg:mtell("not_here", this)
endif
winter = $time_utils:season() in {1, 4}
if (!winter)
  return $msg:mtell("licksummer")
endif
if (player in this.victims)
  return $msg:mtell("lickagain")
endif
$msg:mtell("lickwinter")
this.victims = setadd(this.victims, player)
suspend(30)
if (player.location == this.location)
  $msg:mtell("stillstuck")
  suspend(30)
  if (player.location == this.location)
    $msg:mtell("unstuck1")
    suspend(2)
    $msg:mtell("unstuck2")
    suspend(2)
    $msg:mtell("unstuck3")
  endif
endif
this.victims = setremove(this.victims, player)
"Last modified by Dax (#789) on Wed Nov 20 20:15:53 2002 MST."
.