if($kind == $HcomMissileLR) {
        if(($tL == $HlandMountain) ||
	   ($tL == $HlandGold)) {
          # 山に着弾した場合無効
			$mukou++;
          next;
        }
        if($tL == $HlandSbase) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                       $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandSeacity) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandUmishuto) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandSeatown) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandOil) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandFune) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandFrocity) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandUmiamu) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 1;
          logMsLRSbase($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif($tL == $HlandRottenSea) {
          # 海底基地なら、目的の場所を浅瀬にする
    	 $tLand->[$tx][$ty] = $HlandSea;
          $tLandValue->[$tx][$ty] = 0;
          logMsLRSeaRotten($id, $target, $name, $tName,
                     $comName, $tLname, $point, $tPoint);
          next;
        } elsif(($tL == $HlandSea) ||
		($tL == $HlandIce)) {
          if($tLv == 1){
            # 浅瀬の場合
            $tLand->[$tx][$ty] = $HlandWaste;
            $tLandValue->[$tx][$ty] = 0;
            logMsLRSea1($id, $target, $name, $tName,
                        $comName, $tLname, $point, $tPoint);

            $tIsland->{'area'}++;