proc checkgrief {args} {
  global mysql hawkeye griefcheck griefs
  array unset griefs
  if {[connect:db]} {
    set d $griefcheck(range)
    foreach world $griefcheck(worlds) {
      set query "SELECT world_id FROM $hawkeye(worlds) WHERE world='$world'"
      set wi [join [mysql::sel $mysql(handle) $query -flatlist]]
      set query "SELECT data_id,date,player_id,world_id,x,y,z FROM $hawkeye(main) as ha WHERE world_id=$wi AND action=0 AND player_id!=(SELECT player_id FROM $hawkeye(main) WHERE action=1 AND world_id=$wi AND player_id!=ha.player_id AND x=ha.x AND y=ha.y AND z=ha.z AND date<ha.date LIMIT 1)"
      set data [mysql::sel $mysql(handle) $query -flatlist]
      foreach {id date player worldid x y z} $data {
        if {[array exists griefs]&&[llength [array names griefs -glob $worldid,$player,*,*,*]]>0} {
          foreach an [array names griefs -glob $worldid,$player,*,*,*] {
            foreach {nw np nx ny nz} [split $an ","] {
              if {$x<[expr $nx+20]&&$x>[expr $nx-20]&&$y<[expr $ny+20]&&$y>[expr $ny-20]} {
                lappend griefs($worldid,$player,$nx,$ny,$nz) [list $id $date $player $world $x $y $z]
              } {
                lappend griefs($worldid,$player,$x,$y,$z) [list $id $date $player $world $x $y $z]
              }
            }
          }
        } {
          lappend griefs($worldid,$player,$x,$y,$z) [list $id $date $player $world $x $y $z]
        }
      }
    }
    mysql::close $mysql(handle)
    if {[array exists griefs]} {
      foreach an [array names griefs -glob *,*,*,*,*] {
        foreach item $griefs($an) {
          putlog "\002\[Laerad\]\002 $an"
          #foreach {i d p w x y z} $item {
          #  putlog "\002\[Laerad\]\002 $i - $p @ $w ($x,$y,$z) on $d"
          #}
        }
      }
    }
  }
}