function DelAllOldAcc() {
  global $q, $db;
  $q1 = new DBQuery(&$db); $q1->ErrorPostfix='';
  $q2 = new DBQuery(&$db); $q2->ErrorPostfix='';
  $q->Select("accounts", "access_level=0");
  while ($rows=$q->Fetch_array()) {
    $time=time()*1000;
    if($time-$rows['lastactive']>1000*60*60*24*30) {
      $q1->Select("characters", "account_name='".$rows['login']."'");
      while($rows1=$q1->Fetch_array()) {
        $q2->Delete("character_quests", "char_id=".$rows1['obj_Id']);
        $q2->Delete("character_friends", "char_id=".$rows1['obj_Id']);
        $q2->Delete("character_hennas", "char_obj_id=".$rows1['obj_Id']);
        $q2->Delete("character_macroses", "char_obj_id=".$rows1['obj_Id']);
        $q2->Delete("character_recipebook", "char_id=".$rows1['obj_Id']);
        $q2->Delete("character_skills", "char_obj_id=".$rows1['obj_Id']);
        $q2->Delete("character_shortcuts", "char_obj_id=".$rows1['obj_Id']);
        $q2->Delete("seven_signs", "char_obj_id=".$rows1['obj_Id']);
        $q2->Delete("pets USING pets, items", "pets.item_obj_id=items.object_id AND items.owner_id=".$rows1['obj_Id']);
        $q2->Delete("items", "owner_id=".$rows1['obj_Id']);
        $q2->Update("characters, clan_data", "characters.clanid=0 AND characters.title=''", "characters.clanid=clan_data.clan_id AND clan_data.leader_id=".$rows1['obj_Id']);
        $q2->Delete("siege_clans USING siege_clans, clan_data", "siege_clans.clan_id=clan_data.clan_id AND clan_data.leader_id=".$rows1['obj_Id']);
        $q2->Delete("clan_wars USING clan_wars, clan_data", "clan_wars.clan1=clan_data.clan_id OR clan_wars.clan2=clan_data.clan_id AND clan_data.leader_id=".$rows1['obj_Id']);
        $q2->Delete("clan_data", "leader_id=".$rows1['obj_Id']);
        $q2->Delete("characters", "obj_Id=".$rows1['obj_Id']);
      }
      $q1->Delete("accounts", "login='".$rows['login']."'");
    }
  }
}